Arduino UNOとExcelでオシロっぽい何かを作る（高速化編）

Arduino UNOとExcelでオシロっぽい何かを作る、というのをだいぶ前にやってみた。

その時はA/Dコンバータの速度が遅くて、もう1kHzくらいで限界だった。例えば、ファンクションジェネレータ（（Tenma 72-5016)を発掘）で正弦波を入れてみると、上から1kHz、5kHz、10kHzだが、もう5kHzではちゃんと拾ってない。。。

実際のATmegaはもっと速いはず、、、と思って調べると、高速化の話が出てました。

http://arduino.cc/forum/index.php/topic,6549.0.html

なるほど、プリスケーラの値を変えればいいと。

const int analogInPin = A0;

unsigned long Time[256];
int Volt[256];
void setup() {

   Serial.begin(57600);

   #ifndef cbi
   #define cbi(sfr, bit) (_SFR_BYTE(sfr) &= ~_BV(bit))
   #endif
   #ifndef sbi
   #define sbi(sfr, bit) (_SFR_BYTE(sfr) |= _BV(bit))
   #endif

   cbi(ADCSRA,ADPS2) ;
   sbi(ADCSRA,ADPS1) ;
   cbi(ADCSRA,ADPS0) ;
}

void loop() {
   unsigned int i;
   
   Serial.println("A");

   for (i=0;i<256;i++) {
     Time[i]=micros();
     Volt[i] = analogRead(analogInPin);
    delayMicroseconds(2);
   }

  for (i=0;i<256;i++) {

     Serial.print(Time[i]);
     Serial.print(" ");
     Serial.println(Volt[i]);

   }

}

というようなプログラムをArduinoに入れて、Excelの方はEasyCommを使って、

（*EasyCommはお手軽にシリアル通信できるすぐれものソフトです。http://www.activecell.jp/download/）

Option Explicit

Private Sub CommandButton1_Click()

    Dim s As String
    Dim i As Integer, j As Integer
    Dim temp As Variant
    Dim Time As Double, Volt As Double, Time0 As Double

    ec.COMn = 4
    ec.HandShaking = ec.HANDSHAKEs.No
    ec.Setting = "57600,n,8,1"
    ec.Delimiter = "CRLF"

    ec.InBufferClear
    s = ec.AsciiLine

    For j = 0 To 300

　　　　Application.ScreenUpdating = False
　　　　s = ec.AsciiLine
　　　　If s = "A" Then

　　　　　　s = ec.AsciiLine
　　　　　　temp = Split(s, " ")
　　　　　　Time0 = CDbl(temp(0)) / 1000000#
　　　　　　Volt = 4.95 * (CDbl(temp(1)) / 1023#)
　　　　　　Worksheets("Sheet1").Cells(2, 3) = 0#
　　　　　　Worksheets("Sheet1").Cells(2, 4) = Volt

　　　　　　For i = 1 To 255
　　　　　　　　s = ec.AsciiLine
　　　　　　　　temp = Split(s, " ")
　　　　　　　　Time = CDbl(temp(0)) / 1000000#
　　　　　　　　Volt = 4.95 * (CDbl(temp(1)) / 1023#)
　　　　　　　　Worksheets("Sheet1").Cells(i + 2, 3) = Time - Time0
　　　　　　　　Worksheets("Sheet1").Cells(i + 2, 4) = Volt
　　　　　　Next i

　　　　　　Application.ScreenUpdating = True

　　　　End If

　　Next j

　　ec.COMn = 0
End Sub

のようなプログラムで見てみると、、、上から1kHz、10kHz、20kHzまでそれなりに見えてる。

こんな感じで実験してます。