witam szukam jakiegoś poradnika na ten temat.
za każda podpowiedz dziękuje.
za każda podpowiedz dziękuje.
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
$regfile = "attiny2313.dat"
$crystal = 8000000
Config Portd = Input
Portd = &B00000000
Config Portb = Output
Portb = &B0000000
Config Timer0 = Timer , Prescale = 64
On Timer0 Przerwanie_co_2ms
Dim Licznik As Integer
Enable Interrupts
Enable Timer0
Timer0 = 56
Licznik = 0
Do
Loop
End
:
Counter0 = Counter0 + 56
Incr Licznik
If Licznik = 100 Then
Portb. 0 = 1
Portb. 1 = 0
Portb. 2 = 0
Portb. 3 = 0
If Licznik = 200 Then
Portb. 0 = 0
Portb. 1 = 1
Portb. 2 = 0
Portb. 3 = 0
If Licznik = 300 Then
Portb. 0 = 0
Portb. 1 = 0
Portb. 2 = 1
Portb. 3 = 0
If Licznik = 400 Then
Portb. 0 = 0
Portb. 1 = 0
Portb. 2 = 0
Portb. 3 = 1
End If
Return