Hier ist mein Code. Wahrscheinlich gibt es bei den Eingängen kein Problem. Nur Arbeite ich mit VBA erst seit Mitwoch. Daher bin ich Anfänger und habe gar keine Ahnung wie das gehen soll. Also überall wo jetzt MsgBox steht soll per Digital Eingang des Interfaces weitergeschaltet werden. Dh. Wenn es ein Signal über den Digitalen Eingang gibt dann nächste Zahl. Könnt ihr mir das Programmieren???

Code:
Private Sub CommandButton12_Click()
'7 Segment Anzeige
Dim t As Integer
t = 50
    MsgBox "Zahl 0", vbExclamation, "7 Segment Anzeige"
    DoEvents
    'Zahl 0
    SetAllDigital
    ClearDigitalChannel 1
    ClearDigitalChannel 8
    MsgBox "Zahl 1", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    DoEvents
    'Zahl 1
    SetDigitalChannel 4
    SetDigitalChannel 7
    Sleep t
    DoEvents
    MsgBox "Zahl 2", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    'Zahl 2
    SetDigitalChannel 3
    SetDigitalChannel 4
    SetDigitalChannel 1
    SetDigitalChannel 4
    SetDigitalChannel 5
    SetDigitalChannel 6
    Sleep t
    DoEvents
    MsgBox "Zahl 3", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    'Zahl 3
    SetDigitalChannel 3
    SetDigitalChannel 4
    SetDigitalChannel 1
    SetDigitalChannel 7
    SetDigitalChannel 6
    Sleep t
    DoEvents
    MsgBox "Zahl 4", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    'Zahl 4
    SetDigitalChannel 2
    SetDigitalChannel 1
    SetDigitalChannel 4
    SetDigitalChannel 7
    Sleep t
    DoEvents
    MsgBox "Zahl 5", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    'Zahl 5
    SetDigitalChannel 3
    SetDigitalChannel 2
    SetDigitalChannel 1
    SetDigitalChannel 7
    SetDigitalChannel 6
    Sleep t
    DoEvents
    MsgBox "Zahl 6", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    'Zahl 6
    SetDigitalChannel 2
    SetDigitalChannel 3
    SetDigitalChannel 5
    SetDigitalChannel 6
    SetDigitalChannel 7
    SetDigitalChannel 1
    Sleep t
    DoEvents
    MsgBox "Zahl 7", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    'Zahl 7
    SetDigitalChannel 3
    SetDigitalChannel 4
    SetDigitalChannel 7
    Sleep t
    DoEvents
    MsgBox "Zahl 8", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    'Zahl 8
    SetAllDigital
    ClearDigitalChannel 8
    Sleep t
    DoEvents
    MsgBox "Zahl 9", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
    'Zahl 9
    SetAllDigital
    ClearDigitalChannel 5
    ClearDigitalChannel 8
    Sleep t
    DoEvents
    MsgBox "Programm beenden", vbExclamation, "7 Segment Anzeige"
    ClearAllDigital
End Sub

Danke das ihr soviel Geduld habt.
Viewty-Fan