Hallo
Ich bin ein an Faenger in Fragen Visual Basic. I verlasse mich auf eure Hilfe.
Ich brauche euren ratschlag zur Loesung meines Problems. Ich versuch Daten vom ext. Geraet zu lessen.
Danach soll jeder einzelne Wert an Excel uebertragen und visualisiert werden.
Das Problem ist ich erhalte nur das letzte Wert meiner messung. Ich weiss, dass es an meiner Schleife liegt. Wie kann ich jede Zahl nacheinander in die Tabelle einfuegen.
Danke im Voraus
‘
‘Private Sub Command_Click()
‘
‘’mytime = Now()
Debug.Print mytime + mydelay
Do While Now() < mytime + mydelay
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, vbCrLf)
Text2.Text = buffer$
plot = CDbl(buffer$)
buffer$ = ""
Loop
“””
‘
####Code Excel####
oSheet.cells(i, 2) = plot
####code######
End
Ich bin ein an Faenger in Fragen Visual Basic. I verlasse mich auf eure Hilfe.
Ich brauche euren ratschlag zur Loesung meines Problems. Ich versuch Daten vom ext. Geraet zu lessen.
Danach soll jeder einzelne Wert an Excel uebertragen und visualisiert werden.
Das Problem ist ich erhalte nur das letzte Wert meiner messung. Ich weiss, dass es an meiner Schleife liegt. Wie kann ich jede Zahl nacheinander in die Tabelle einfuegen.
Danke im Voraus
‘
‘Private Sub Command_Click()
‘
‘’mytime = Now()
Debug.Print mytime + mydelay
Do While Now() < mytime + mydelay
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, vbCrLf)
Text2.Text = buffer$
plot = CDbl(buffer$)
buffer$ = ""
Loop
“””
‘
####Code Excel####
oSheet.cells(i, 2) = plot
####code######
End