Witam od dwóch dni raczkuje w programowaniu na Atmedze8
Napisałem programik zapalający pojedynczą diode a po nacisnieciu przycisku zmienia kierunek z prawego w lewo.
Oto programik:
$sim
$regfile = "m8def.dat"
$crystal = 8000000
Config Portd = Output
Config Pinb.0 = Input
Dim Kierunek As Bit
Przycisk Alias Pinb.0
Set Portb.0
Portd = &B11111110
Reset Kierunek
Do
If Przycisk = O Then
Waitms 50
Toggle Kierunek
Do
Loop Until Przycisk = 1
End If
If Kierunek = 1 Then
Rotate Portd , Left
Else
Rotate Portd Right
End If
Waitms 100
Loop
End
Napisałem programik zapalający pojedynczą diode a po nacisnieciu przycisku zmienia kierunek z prawego w lewo.
Oto programik:
$sim
$regfile = "m8def.dat"
$crystal = 8000000
Config Portd = Output
Config Pinb.0 = Input
Dim Kierunek As Bit
Przycisk Alias Pinb.0
Set Portb.0
Portd = &B11111110
Reset Kierunek
Do
If Przycisk = O Then
Waitms 50
Toggle Kierunek
Do
Loop Until Przycisk = 1
End If
If Kierunek = 1 Then
Rotate Portd , Left
Else
Rotate Portd Right
End If
Waitms 100
Loop
End
