Hallö !
Ich hab mir mal ein Terminal für meine C-Control Programmiert. Ich habs so gemacht, dass ich der C-Control ein bestimmte Zahl(in dem Fall 21) geschrieben habe und diese soblad sie die erhalten hat den gewünschten output macht. derweil warted der Pc.
Code:
Private Sub Kommunikation
If com.PortOpen = True Then
com.Output = Chr(21) 'senden der Zahl 21
Call break 'warten auf C-control
empf = Asc(com.Input) 'sobald was da ist den wert in Ascii Konvertieren und in der Var empf speichern
'HIER kommt die auswertung der Variablen rein ! Also zb wenn se 1 ist dann soll er ein kästchen rot färben oder so... :
If empf=1 then
lblugr(0).BackColor=vbred
else
lblugr(0).BackColor=vbblack
Endif
Else
MsgBox "Port ist nicht geöffnet"
End If
End Sub
Public Sub break() ' warted darauf das die C-Control was zurückschreibt
Do
DoEvents
Loop Until com.InBufferCount > 0
End Sub
Ich hoffe damit ist deine Frage beantworted ?!
Gruß Javik
Lesezeichen