Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ansteuerung serielle Schnittstelle
Autor: Flak
Datum: 03.05.06 16:43
Hallo Markus, habe Dir mal einen Programmteil von mit kopiert: Vielleicht hilfts Dir weiter. V.G., Flak Schnittstelle öffnen: =============== MSComm1.CommPort = 1 ' COM1 einsetzen. MSComm1.Settings = "9600,N,8,1" ' 9600 Baud, no Parität, 8 Datenbits und 1 Stopbit MSComm1.InputLen = 0 MSComm1.PortOpen = True ' Anschluß öffnen. Datenstring senden: =============== While Send_count < Laenge ' noch Daten zum Senden da? If MSComm1.CTSHolding = True Then ' CTS = 1? CTS_OK = False ' Vorbelegung CTS-Puls eingegangen MSComm1.Output = Chr(Send_Str(Send_count)) ' Byte senden CTS_Tio = SEC_1 ' Timer 1 sec aufziehen Do Until CTS_OK ' warten bis CTS_Impuls eingegangen DoEvents If CTS_Tio = 0 Then box = MsgBox("Es kommt kein CTS-Impuls!", vbCritical, "Datenverbindung") Send_Error = True DownState = 20 Exit Sub End If Loop Send_count = Send_count + 1 ' nächster Index Else If CTS_Tio = 0 Then ' Timeout abgelaufen box = MsgBox("Gerät anschließen!", vbCritical, "Datenverbindung") Send_Error = True DownState = 20 Exit Sub End If End If DoEvents Wend

Ansteuerung serielle Schnittstelle	1.180	mheinen2000	02.05.06 11:31
Re: Ansteuerung serielle Schnittstelle	705	Flakko	03.05.06 10:39
Re: Ansteuerung serielle Schnittstelle	688	mheinen2000	03.05.06 11:47
Re: Ansteuerung serielle Schnittstelle	680	Flakko	03.05.06 16:19
Re: Ansteuerung serielle Schnittstelle	721	Flak	03.05.06 16:43

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