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
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
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.