最近趣味でプログラミングを始めた者です。
Arduinoにつないだセンサー値を20Hzにてシリアルプリントでデータを送信し、
そのデータをExcelで受信して、それらをグラフ化してリアルタイムで可視化するプログラムを作成しております。
関数等割愛してますが、主にDo loopだけ回しています。
下記のプログラムで実行すると、センサー値が動いてからExcel上で反映されるまでにかなりタイムラグが生じてしまいます。
20Hzでリアルタイムでデータを表示するための高速化の手法等ありましたらご教示ください。
※VBAでは受信したデータをプロットするだけで、グラフ(複数個)はExcel上で作成してあります。
※Arduino側のシリアルモニタではデータが20Hzで表示されています。
※シリアル値の受信にはEasycommというものを使用しています。
※Arduino側で送信しているデータはカンマ区切りで5つ
VBA
1Sub DataGet() 2 'Operation画面を常に表示 3 'Sheets("Operation").Select 4 r = 0 5 6 '----データ取得loop------------------------------------------------------- 7 Do 8 'バッファにデータが無いときは何もしない 9 Do While ec.InBuffer = 0 10 DoEvents 11 Loop 12 13 Application.ScreenUpdating = False 14 Application.Calculation = xlCalculationManual 15 16 'データの取得 17 data = ec.AsciiLine 18 19 If data <> "" Then 'データがあるときだけ処理を進める(受信初回のエラー対策) 20 21 'データをカンマ区切りで配列に入れる 22 adat = Split(data, ",") 23 24 '一部のデータに桁数調整 25 For i = 0 To (datavol - 1) 26 If i = 1 Then 27 adat(1) = adat(1) / 10 28 ElseIf i = 2 Then 29 adat(2) = adat(2) / 100 30 End If 31 32 33 'データのプロット 34 Worksheets(("C") & CNo).Cells(r + 4, i + 2).Value = adat(i) 35 36 'adat(4)が変わったときにあるデータだけ別のセルに順番に入れてく 37 If (adat(4) - Last_pos) <> 0 Then 38 Select Case adat(datavol - 1) 39 Case "1" 40 Worksheets("C" & CNo).Cells(a + 4, 7).Value = adat(datavol - 2) 41 a = a + 1 42 Worksheets("C" & CastNo).Cells(4, 18).Value = adat(datavol - 2) 43 Case "2" 44 Worksheets("C" & CNo).Cells(b + 4, 8).Value = adat(datavol - 2) 45 b = b + 1 46 Worksheets("C" & CNo).Cells(5, 18).Value = adat(datavol - 2) 47 Case "3" 48 Worksheets("C" & CNo).Cells(c + 4, 9).Value = adat(datavol - 2) 49 c = c + 1 50 Worksheets("C" & CNo).Cells(6, 18).Value = adat(datavol - 2) 51 Case "4" 52 Worksheets("C" & CNo).Cells(d + 4, 10).Value = adat(datavol - 2) 53 d = d + 1 54 Worksheets("C" & CNo).Cells(7, 18).Value = adat(datavol - 2) 55 Case "5" 56 Worksheets("C" & CNo).Cells(e + 4, 11).Value = adat(datavol - 2) 57 e = e + 1 58 Worksheets("C" & CNo).Cells(8, 18).Value = adat(datavol - 2) 59 Case "6" 60 Worksheets("C" & CNo).Cells(f + 4, 12).Value = adat(datavol - 2) 61 f = f + 1 62 Worksheets("C" & CNo).Cells(9, 18).Value = adat(datavol - 2) 63 End Select 64 65 Last_pos = adat(4) 66 67 End If 68 69 Next i 70 71 'グラフの色を変える 72 'Module1.Graph_OP 73 74 If adat(0) > 100 And LastB = 0 Then 75 Module1.NextC 76 'Exit Do 77 End If 78 79 LastB = adat(0) 80 r = r + 1 81 End If 82 Application.Calculation = xlCalculationAutomatic 83 Application.ScreenUpdating = True 84 85 86 Loop 87 '--------------------------------------------------------------- 88 89 ec.COMn = -1 90 Cells(3, 3).Value = "待機中" 91 92 93 94End Sub 95
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/04/24 08:31
退会済みユーザー
2020/04/24 08:40