Witam
Napisałem prosty programik w Bascom i nie działa mi ale nie wiem dlaczego:(
A więc na:
PB 0 daje - a na PB 1 +
PB 2 +
PB 3 +
...
Podłączam i lipa LED-y na wyjściowych kanałach attina nie migają
Pozdrawiam!
Napisałem prosty programik w Bascom i nie działa mi ale nie wiem dlaczego:(
A więc na:
PB 0 daje - a na PB 1 +
PB 2 +
PB 3 +
...
Cytat:$regfile = "attiny2313.dat"
$crystal = 1000000
Config Portb = Input
Portb = &B01111111
Config Portd = Output
Portd = &B0000000
Do
If Pinb.0 = 1 And Pinb.1 = 0 Then
Waitms 10
Portd.0 = 1
Waitms 10
Portd.0 = 0
End If
If Pinb.0 = 1 And Pinb.2 = 0 Then
Waitms 10
Portd.1 = 1
Waitms 10
Portd.1 = 0
Waitms 10
Portd.1 = 1
Waitms 10
Portd.1 = 0
End If
If Pinb.0 = 1 And Pinb.3 = 0 Then
Waitms 10
Portd.2 = 1
Waitms 10
Portd.2 = 0
Waitms 10
Portd.2 = 1
Waitms 10
Portd.2 = 0
Waitms 10
Portd.2 = 1
Waitms 10
Portd.2 = 0
End If
If Pinb.0 = 1 And Pinb.4 = 0 Then
Waitms 10
Portd.3 = 1
Waitms 10
Portd.3 = 0
Waitms 10
End If
If Pinb.0 = 1 And Pinb.5 = 0 Then
Waitms 10
Portd.4 = 1
Waitms 10
Portd.4 = 0
Waitms 10
Portd.4 = 1
Waitms 10
Portd.4 = 0
Waitms 10
Portd.4 = 1
Waitms 10
Portd.4 = 0
Waitms 10
Portd.4 = 1
Waitms 10
Portd.4 = 0
Waitms 10
Portd.4 = 1
Waitms 10
Portd.4 = 0
End If
Loop
End
Podłączam i lipa LED-y na wyjściowych kanałach attina nie migają
Pozdrawiam!