Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hie habe ich den Text (Probleme beim lesen von RS232)
Autor: Andre23
Datum: 10.01.04 20:01
Dim puffer As String Private Sub Form_Load() Call Port_open MSComm1.Output = "di" & vbCr MSComm1.Output = "SOR0" & vbCr MSComm1.Output = "eepsav" & vbCr '*******--- Nach diesem Befehl bringt der Motor eine Rückmeldung ************** End Sub Private Sub Port_open() Baudrate = 9600 CommPort = 1 Setting = Baudrate & ",N,8,1" With MSComm1 .CommPort = CommPort .Settings = Setting '"9600,N,8,1" .PortOpen = True Port_opend = 1 End With End Sub Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comOverrun MsgBox "Datenverlust!" Case comRxOver MsgBox "Datenverlust!" Case comEvReceive puffer = MSComm1.Input Text1.Text = puffer End Select End Sub

Probleme beim lesen von RS232	498	Andre23	10.01.04 19:53
Hie habe ich den Text (Probleme beim lesen von RS232)	355	Andre23	10.01.04 20:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen