Private Sub c7get()
        Do
            If stepping = 0 And ready = 0 Then
                Debug.Print("If stepping = 0 And ready = 0 Then")
                acmd8(1) = id   'Abfrage: Wert G-G
                acmd8(2) = &HB2
                acmd8(3) = &HE0
                acmd8(4) = &H11
                acmd8(5) = &H0
                acmd8(6) = &H0
                farbfeld = tb_1gg
                ready = 1
                COMPort2.Write(acmd8, 0, 8)
            End If
 
            If stepping = 1 And ready = 0 Then           'hier liegt der Hund 
            ' begraben:)
                Debug.Print("If stepping = 1 And ready = 0 Then")
                acmd8(1) = id   'Abfrage: Wert G-B
                acmd8(2) = &HB2
                acmd8(3) = &HE0
                acmd8(4) = &H18
                acmd8(5) = &H0
                acmd8(6) = &H0
                farbfeld = tb_1gb
                COMPort2.Write(acmd8, 0, 8)
                ready = 1
            End If
        Loop While stepping < 2
 
    End Sub

DJ Booking + Veranstaltungstechnik: www.roadresidents.de