""SERIELLE KOMMUNIKATION""
Hallo,
ich habe ein kleines Problem, ich wollte mit dem Pocket PC Emulator meine serielle Kommunikation testen und habe deshalb über einen Kurzschlussstecker die serielle Schnittstelle kurzgeschlossen um die ausgegebenen Daten direkt wieder in einem Textfeld zu sehen, aber leider funktioniert es nicht. Der Emulator stürzt leider immer ab.
Hier mein Programmcode:
Option Explicit
Private Sub Comm1_OnComm()
Select Case Comm1.CommEvent
Case comEvReceive
InputData = InputData & Comm1.Input
Case comEvSend
' all data sent, so toggle RTS
Comm1.RTSEnable = Not Comm1.RTSEnable
Case comEvCTS
ReceivedDataTextBox.Text = InputData
InputData = ""
End Select
ReceivedDataTextBox.Text = InputData
End Sub
Private Sub Command1_Click()
Comm1.Output = DataToTransmitTextBox.Text
End Sub
Private Sub Form_Load()
InputData = ""
Comm1.PortOpen = True
End Sub
Private Sub Form_OKClick()
App.End
End Sub
Für eure Hilfe jetzt schon mal danke!!! :grübel: :wall: