Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Timer ist inaktiv nach Benutzung eines Buttons bzw. Togglebutton
Autor: AxelvTh
Datum: 05.08.11 14:56
Ich steuere mit Hilfe von VB6 eine Modelleisenbahn (Märklin) an. Durch eine Lok die über ein Schaltgleis fährt empfängt ein Rückmeldemodul Daten. Diese Daten werden immer durch einen in VB6 erstellten Timer ausgewertet. Auf Form1 ist ein Timer. Wenn ich eine Weiche per Button / ToggleButton benutze, in dem ich vorher per Textbox die Adresse der Weiche eingegeben habe - gibt der Timer kein Echo mehr von sich... Die Lok fährt immer wieder am Schaltgleis vorbei - bekomme darauf keine Msgbox Meldung... Wie kann ich das ändern.... Quellcode vom Timer: Private Sub tmr_Rueckmeldemodul_Timer() Static A, B, C As String Static I As Integer A = "" B = "" C = "" ' --- alle Zeichen des InputBuffers liefern COM.InputLen = 0 ' ---- InputBuffer lesen und damit LÖSCHEN (damit er 'sauber' ist) A = COM.Input ' ---- evtuellen 'Schrott' in 'A' löschen A = "" ' ---- Befehl für das 1. RmM COM.Output = Chr(193) ' ---- warten, bis 2 Bytes empfangen wurden Do While Len(A) < 2 A = A & COM.Input DoEvents Loop 'empfangene Daten auswerten 'bitweise in String eintragen B = Asc(Left(A, 1)) 'linkes Byte bearbeiten For I = 7 To 0 Step -1 'vom höchsten Bit an C = C & Sgn(Val(B) And 2 ^ I) Next B = Asc(Right(A, 1)) 'rechtes Byte bearbeiten For I = 7 To 0 Step -1 'vom höchsten Bit an C = C & Sgn(Val(B) And 2 ^ I) Next 'Bits einzeln auswerten 'Bit 1 If Mid(C, 4, 1) = "1" Then MsgBox "Hallo" End If End Sub Quellcode vom ToggleButton Private Sub tgl_Schalter_Click() If tgl_Schalter.Value = -1 Then frm_Maerklin.COM.Output = Chr$(33) & Chr$(8) tgl_Schalter.Caption = "Grün(L)" Else frm_Maerklin.COM.Output = Chr$(34) & Chr$(8) tgl_Schalter.Caption = "Rot(R)" End If End Sub mit output schicke ich über ein Interface den spez. Befehl von Märklin (33,34) und anschließend die Digital Adresse der Weiche. Danke im Vorraus Axel

Timer ist inaktiv nach Benutzung eines Buttons bzw. Togglebu...	1.575	AxelvTh	05.08.11 14:56
Re: Timer ist inaktiv nach Benutzung eines Buttons bzw. Togg...	969	Manfred X	05.08.11 15:27
Re: Timer ist inaktiv nach Benutzung eines Buttons bzw. Togg...	1.023	AxelvTh	05.08.11 16:33
Re: Timer ist inaktiv nach Benutzung eines Buttons bzw. Togg...	927	Preisser	05.08.11 16:57
Re: Timer ist inaktiv nach Benutzung eines Buttons bzw. Togg...	991	AxelvTh	05.08.11 19:05
Re: Timer ist inaktiv nach Benutzung eines Buttons bzw. Togg...	999	Manfred X	05.08.11 17:13

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