Forum: Mikrocontroller und Digitale Elektronik Led schalten


von Max (Gast)


Lesenswert?

Hi,

ich habe ein Problem mit meinem Programm. Es soll auf Tastendruck eine
Led leuchten. Könnt ihr mir sagen was hier falsch ist Danke Gruß

$regfile = "2313def.dat"
$crystal = 4000000

Config Portd = Input
Config Portb = Output

Ddrd = &B0000000                                            'Pin PD3
Ausgang, Rest Eingang
Portd = &B1111111                                           'PullUp
von Pin D aktivieren
Do
 If Pinb.0 = 1 Then Toggle Portb.0
 Wait 1
 'If Pinb.0 = 0 Then Portb.0 = 0 Else Portb.0 = 1
 'If Pinb.1 = 0 Then Portb.0 = 0 Else Portb.1 = 1
 'If Pinb.2 = 0 Then Portb.0 = 0 Else Portb.2 = 1
 'If Pinb.3 = 0 Then Portb.0 = 0 Else Portb.3 = 1
 'If Pinb.4 = 0 Then Portb.0 = 0 Else Portb.4 = 1
 'If Pinb.5 = 0 Then Portb.0 = 0 Else Portb.5 = 1
 'If Pinb.6 = 0 Then Portb.0 = 0 Else Portb.6 = 1
 'If Pinb.7 = 0 Then Portb.0 = 0 Else Portb.7 = 1
Loop

von Ratber (Gast)


Lesenswert?

Yo,Portb als Ein "und" Ausgang geht auch nicht.

Bau das mal gerade.

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.