Um auf einem Servo-Controller Parameter zu ändern habe ich in Excel-VBA ein kleines Programm geschrieben. Das Programm funktioniert soweit einwandfrei. Das Problem liegt nur darin, dass wenn ich das Kabel an den Lap-Top anschliesse und Daten senden oder empfangen möchte, hängt sich Excel-VBA immer beim Input auf. Wenn ich aber nach dem Anschliessen des Kabels zuerst im Hyper-Terminal den COM-Port öffne und wieder schliesse, läuft danach das Excel-File tadellos.
Weiss jemand woran das liegen könnte?
Besten Dank im Voraus für jede Hilfe!
Private Sub Empfangen() 'Empfangen
Call Variablen
Open Cells(4, 2) + ":115200,N,8,1" For Binary Access Read Write As #1 'Open the com port
For i = 7 To 13
Select Case i
Case 7
sendVar$ = TDrehzahl + Chr(13)
Case 8
sendVar$ = Stromgrenze + Chr(13)
Case 9
sendVar$ = Beschleunigung + Chr(13)
Case 10
sendVar$ = MDrehzahl + Chr(13)
Case 11
sendVar$ = Betriebszustand + Chr(13)
Case 12
sendVar$ = Zustandsmeldung + Chr(13)
Case 13
sendVar$ = Fehlermeldung + Chr(13)
End Select
'Cells(i, 6) = sendVar$
Put #1, , sendVar$ 'write string to interface
answer = "" 'clear response string
char = "" 'clear character string
While (char Chr(13)) 'loop until [CR]
char = Input(1, #1) 'get character
If (char > Chr(31)) Then
answer = answer + char 'add, if printable char
End If
Wend
Cells(i, 4) = answer 'put response in cell
Next
Close #1
End Sub