Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: MSCOMM Port
Autor: piero
Datum: 07.03.06 16:32
Hallo, mein code sieht folgendermaßen aus:   Private Sub LoadScanner() If Form1.MSComm1.PortOpen = True Then Form1.MSComm1.PortOpen = False End If Dim wComm As Integer Dim wCompName As String err.Clear On Error GoTo err wCompName = GetCompName sqlcmd = "select CPComComm as XXX from PBL_ClientParam" & _ " where CPCompName ='" & wCompName & "'" If RS.State = 1 Then RS.Close RS.Open sqlcmd, CnPbl wComm = IIf(IsNull(RS!xxx) = True, 1, RS!xxx) With MSComm1 .CommPort = wComm .Settings = "9600,N,8,1" .RThreshold = 1 .EOFEnable = True .InputMode = comInputModeText .PortOpen = True End With Exit Sub err: MsgBox err.Number & " " & err.Description, vbCritical, "Error" End Sub Private Sub tmrcs_timer() Me.Caption = MSComm1.PortOpen End Sub

MSCOMM Port	1.016	piero	28.02.06 14:49
Re: MSCOMM Port	660	Skitch	28.02.06 17:11
Re: MSCOMM Port	577	brave@heart	28.02.06 17:17
Re: MSCOMM Port	564	piero	01.03.06 09:47
Re: MSCOMM Port	624	brave@heart	01.03.06 22:14
Re: MSCOMM Port	477	piero	03.03.06 07:51
Re: MSCOMM Port	530	brave@heart	03.03.06 18:25
Re: MSCOMM Port	598	piero	07.03.06 16:32
Re: MSCOMM Port	464	piero	27.03.06 10:49
Re: MSCOMM Port	487	brave@heart	27.03.06 11:07

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