hier ist noch mein Programmcode :
Code:
Cls
Print "Start"
Home
Lcd "Start"
Config Portb = Input
Do
Config Portb = Output
Home 'cursor home
Lcd Time$
Config Portb = Input 'show the date and time
' Von Display auf Tasten umschalten
Portb.2 = 0
Portb.1 = 1
' Die ersten 4 Schalter auswählen
Portd.6 = 1
If Portb.4 = 0 Then
Print "Pinb.4 gedrückt"
End If
If Portb.5 = 0 Then
Print "Pinb.5 gedrückt"
End If
If Portb.6 = 0 Then
Print "Pinb.6 gedrückt"
End If
If Portb.7 = 0 Then
Print "Pinb.7 gedrückt"
End If
' Die zweiten 4 Schalter auswählen
Portd.6 = 0
Portd.7 = 1
If Portb.4 = 0 Then
Print "Pinb.4 gedrückt"
End If
If Portb.5 = 0 Then
Print "Pinb.5 gedrückt"
End If
If Portb.6 = 0 Then
Print "Pinb.6 gedrückt"
End If
If Portb.7 = 0 Then
Print "Pinb.7 gedrückt"
End If
Portd.7 = 0
Portb.2 = 1
Portb.1 = 0
Loop
EDIT: Tags eingefügt. Bitte immer dran denken (PicNick)
Lesezeichen