Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mscomm.input
Autor: darth roli
Datum: 08.04.04 15:41
Hallo Leute, habe ein Problem mit Mscomm. Vielleicht hat jemand von euch ne Anhnung. Ich übermittle per Scanner eine Identnummer über den comport, diese Identnummer wird auch übermittelt. Code empfang: Private Sub MSComm1_OnComm() If (MSComm1.CommEvent = comEvReceive) Then txtscanner.Text = MSComm1.Input End If End Sub Dies funktionier einwandfrei. Jetzt habe ich aber noch einen Timer auf dieser Form plaziert, das wenn z.b. nach 5 sekunden keine Identnummer gescannt wurde, eine Fehermeldung ausgibt. Dies funktioniert auch noch. Nur wenn ich dann die erste Fehlermeldung per Timer ausgelöst bekommen habe, und nun bei der zweiten Identnummer bin, diese Scanne, wird die Identnummer auch noch übermittelt ( mscomm.input = Identnummer), nur wird diese nicht mehr an mein Textfeld übergeben. Danke schon mal im Voraus. Roli Hier noch der gesamte Source code: Dim i As Integer Private Sub Form_Activate() Timer1.Enabled = True Timer1.Interval = 5000 txtscanner.SetFocus End Sub Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.PortOpen = True MSComm1.Settings = "9600,n,8,1" MSComm1.RThreshold = 20 End Sub Private Sub MSComm1_OnComm() If (MSComm1.CommEvent = comEvReceive) Then txtscanner.Text = MSComm1.Input End If End Sub Private Sub Timer1_Timer() If txtscanner.Text = "" Then txtscanner.Text = "99999999999999999999" Timer1.Enabled = False Timer1.Interval = 0 txtscanner_Change End If End Sub Private Sub txtscanner_Change() '*************************************************************** ' ' Abfrage nach Länge der Seriennummer ' wenn richtige Länge dann Starte Programm ' '*************************************************************** Dim a As Integer a = Len(txtscanner.Text) If a = 20 Then Timer1.Enabled = False Timer1.Interval = 0 Seriennummer = txtscanner.Text MSComm1.PortOpen = False Unload frmscanner End If txtscanner.Text = "" End Sub

Mscomm.input	849	darth roli	08.04.04 15:41
Re: Mscomm.input	420	darth roli	13.04.04 09:49

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