Jest taka sprawa bo ten program robi tak że te diody świecą cały czas i jedna po drugiej przygasa robiąc fale ale zaraz za nią z powrotem się zapala a ja bym chciał taki efekt że wszystkie nie świecą i zapala się tylko ta co ma żeby wyszła fala tylko żeby zaraz po niej się nie zapalała wcześniejsza... Jak to zrobić?? Wiem jak zrobić to wypisując porty które mają się w danej chwili włączyć i wyłączyć ale po co pisać tyle skoro idzie pewnie to zrobić w krótszej wersji.
[syntax=basic4gl]'**************************** PROCESOR *****************************************
$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32
'**************************** KONFIGURACJA PINÓW I PORTÓW **********************
Config Portd = Output
Config Pinb.0 = Input
Config Pinb.1 = Input
Dim Kierunek As Bit
Przycisk Alias Pinb.0
Przycisk1 Alias Pinb.1
Set Portb.0
Portd = &B11111110
Reset Kierunek
'*********************************** PROGRAM ***********************************
Do
If Przycisk = 1 Then
Waitms 50
Toggle Kierunek
Do
Loop Until Przycisk1 = 1
End If
If Kierunek = 1 Then
Rotate Portd , Left
Else
Rotate Portd , Right
End If
Waitms 100
Loop
End[/syntax]
Z góry dziękujeStatystyki: Napisane przez GrasalxD — 21 lut 2015, o 21:38
]]>
- może ktoś to robił - dzięki