polecam koledze zagladadnac do helpa (ktore nawet jest przetlumaczone na jezyk polski dziecki zbeegin), bo nadal bedzie takiego glupie pytania zadawac.
Dodano po 12 [minuty]:
nie moge juz wyrobic, dlaczego ludzie maja problem z tak prostym programem
$regfile = "m16def.dat"
$crystal = 1000000
Dim I As Byte
I = 1
declare sub ledy
Config Pinb.3 = Input
Config Pinc.0 = Output
config Pinc.1 = output
config pinc.2 = output
config pinc.3 = output
set portb.3
Call Ledy
Do
if Pinb.3 = 0 then
waitms 20
Bitwait Pinb.3 , Set ' jak puscisz przycisk to dalej wykonuje program
incr i
If I = 5 Then I = 1
call ledy
end if
Loop
end
sub ledy
Select Case I
Case 2:
Set Portc.0
Reset Portc.1
Set Portc.2
Reset Portc.3
Case 4:
Reset Portc.0
Set Portc.1
Reset Portc.2
Set Portc.3
Case Else:
Reset Portc.0
Reset Portc.1
Reset Portc.2
Reset Portc.3
End Select
End Sub
tu masz ostateczna wersje!!!
jak ci nie pasuje, ze po puszczeniu przycisku dalej dopiero leci program to se to zmien.
Co do tego przekaznika ja bym sie nie klucil ze zbeegin kolega ma 100000X wieksze doswiadczenie od ciebie i mimo, ze za bardzo nie wiem o co chodzi to bym mu zaufal.
Dodano po 4 [minuty]:
le zapomnialem moze ktos powiedziec dlaczego cos takiego nie dziala:
ja zrobilem po prostu case else ale nie zawsze moze to pasowac, jak mozna to inaczej rozwiazac? (a nie chce wstawiac 2 razy case 1: i case 3: )
Dodano po 2 [minuty]:
potestowalem troche i kompiluje sie
pytanie czy bedzie tez dzialac?