witam szukam jakiegoś poradnika na ten temat.
za każda podpowiedz dziękuje.
za każda podpowiedz dziękuje.
Do you prefer the English version of the page elektroda?
No, thank you Send me over there
$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
