Czy moge prosić o pomoc - gotowca
Spedzilem przed baskomem kilka dni w praktyce niedaje sobie rady w przelanczaniu funkcji
a konkretnie chodzi o to
oczywiscie chodzi o sterowanie diodami port D a 2 przyciski port C 0 i 1
powinno dzialac na 100% ale nie dziala
Spedzilem przed baskomem kilka dni w praktyce niedaje sobie rady w przelanczaniu funkcji
a konkretnie chodzi o to
oczywiscie chodzi o sterowanie diodami port D a 2 przyciski port C 0 i 1
$regfile "m8def.dat"
$crystal = 1000000
Dim A As Byte
Config Pind.0 = Output
Config Pind.2 = Output
Config Pind.3 = Output
Config Pinc.0 = Input
Config Pinc.1 = Input
Set Pind.0
Set Pind.2
Set Pind.3
Do
'w góre
If Pinc.0 = 0 Then
If A <> 4 Then
Incr A
Waitms 100
End If
End If
'w dół
If Pinc.1 = 0 Then
If A <> 0 Then
Decr A
Waitms 100
End If
End If
Gosub Menu
Loop
Menu:
Cls
If A = 1 Then
Portd.0 = 1
Portd.2 = 1
Portd.3 = 1
Waitms 50
Portd.0 = 0
Portd.2 = 0
Portd.3 = 0
Waitms 200
End If
If A = 2 Then
Portd.0 = 1
Portd.2 = 1
Portd.3 = 1
Waitms 200
Portd.0 = 0
Portd.2 = 0
Portd.3 = 0
Waitms 200
End If
If A = 3 Then
Portd.0 = 1
Portd.2 = 1
Portd.3 = 1
Waitms 500
Portd.0 = 0
Portd.2 = 0
Portd.3 = 0
Waitms 500
End If
If A = 4 Then
Portd.0 = 1
Portd.2 = 1
Portd.3 = 1
Waitms 1000
Portd.0 = 0
Portd.2 = 0
Portd.3 = 0
Waitms 1000
End If
Returnpowinno dzialac na 100% ale nie dziala