Hallo

Hab mir den anderen Thread angeschaut, doch ich werde einfach nicht schlauer.

Die Anzeige zeigt mir jetzt immer Null an , auch wenn ich den Taster drücke.
Kann mir einer einfach einen konkreten Vorschlag geben, was ich anders machen muss
Hier mein Programm:
Code:
 $regfile = "m8def.dat"
 $crystal = 1000000                                         ' 1MHZ crystal


 Config Pind.0 = Output
 Config Pind.1 = Output
 Config Pind.7 = Output
 Config Pind.3 = Output
 Config Pind.4 = Output
 Config Pind.5 = Output
 Config Pind.6 = Output


 Config Int0 = Rising
 Enable Interrupts
 Enable Int0
 On Int0 Unterprogramm



 Dim I As Integer
 I = 0

 Do


 Select Case I
 Case 0 : Gosub Null
 Case 1 : Gosub Eins
 Case 2 : Gosub Zwei
 Case 3 : Gosub Drei
 Case 4 : Gosub Vier
 Case 5 : Gosub Fuenf
 Case 6 : Gosub Sechs
 Case 7 : Gosub Sieben
 Case 8 : Gosub Acht
 Case 9 : Gosub Neun


 End Select





 Loop















 Unterprogramm:
 I = I + 1

 Return


 Null:
    Portd.0 = 1
    Portd.1 = 1
    Portd.7 = 1
    Portd.3 = 1
    Portd.4 = 1
    Portd.5 = 1
    Portd.6 = 0
    Wait 9
    Return

 Eins:

    Portd.1 = 1
    Portd.7 = 1
    Portd.3 = 0
    Portd.4 = 0
    Portd.5 = 0
    Portd.6 = 0
    Portd.0 = 0
    Wait 9
    Return

 Zwei:
    Portd.0 = 1
    Portd.1 = 1
    Portd.6 = 1
    Portd.4 = 1
    Portd.3 = 1
    Portd.5 = 0
    Portd.7 = 0
    Wait 9
    Return
 Drei:
    Portd.0 = 1
    Portd.1 = 1
    Portd.6 = 1
    Portd.7 = 1
    Portd.3 = 1
    Portd.5 = 0
    Portd.4 = 0
    Wait 9
    Return

 Vier:
    Portd.5 = 1
    Portd.6 = 1
    Portd.1 = 1
    Portd.7 = 1
    Portd.4 = 0
    Portd.3 = 0
    Portd.0 = 0
    Wait 9
    Return

 Fuenf:
    Portd.0 = 1
    Portd.5 = 1
    Portd.6 = 1
    Portd.7 = 1
    Portd.3 = 1
    Portd.4 = 0
    Portd.1 = 1
    Wait 9
    Return

 Sechs:
    Portd.0 = 1
    Portd.5 = 1
    Portd.6 = 1
    Portd.4 = 1
    Portd.3 = 1
    Portd.7 = 1
    Portd.1 = 0
    Wait 9
    Return


 Sieben:
    Portd.0 = 1
    Portd.1 = 1
    Portd.7 = 1
    Portd.3 = 0
    Portd.4 = 0
    Portd.5 = 0
    Portd.6 = 0
    Wait 9
    Return

 Acht:
    Portd.0 = 1
    Portd.1 = 1
    Portd.7 = 1
    Portd.3 = 1
    Portd.4 = 1
    Portd.5 = 1
    Portd.6 = 1
     Wait 9
     Return

 Neun:
    Portd.0 = 1
    Portd.1 = 1
    Portd.7 = 1
    Portd.3 = 1
    Portd.5 = 1
    Portd.6 = 1
    Portd.4 = 0
    Wait 9
    Return
Mfg

David