Gast
#207536
Hallo,
ich habe eine Schaltung gebaut, die eine 7Segmentanzeige ansteuern
soll. Nun zeigt sie mir immer die "1" an.Obwohl kein Schalter
gedrückt wurde. Könntet ihr mir sagen, ob was im Programm falsch ist.
Die Schaltung besteht nur aus wirklich benötigten Teilen wie Quarz,
Spannungsstabilisierung, Taster , und die 7-Segmentanzeige. Ich habe
also keine externen Pullupwiederstände. Habe ich die internen richtig
aktiviert?
Gruß Max
Hier mein Programm:
$regfile = "2313def.dat"
$crystal = 3686400
Dim Ledvar As Byte
Portd = &B1111111
Config Portb = Output
Config Portd = Input
'Port B = Ausgang
Do
Ledvar = 255 'Wenn keine Taste gedrückt leuchtet keine LED
If Pind.0 = 0 Then Ledvar = 207 '1
If Pind.1 = 0 Then Ledvar = 145 '2
If Pind.2 = 0 Then Ledvar = 193 '3
If Pind.3 = 0 Then Ledvar = 71 '4
If Pind.4 = 0 Then Ledvar = 97 '5
If Pind.5 = 0 Then Ledvar = 61 'L
If Pind.6 = 0 Then Ledvar = 183 'r
Portb = Ledvar
Loop