Witam
Czy mógłby ktoś sprawdzić czego ten program niechce chulać tzn. chodzi, ale nie załancza sie przekaznik do sterowania lampka.Wszystko jest sprawne i sprawdzone na innych programach. Przekaznik podlaczony jest do pind.0
Program sie kompiluje bez błedów i na LCD wszystko wychodzi ze jest ok ale przekaznik sie nie zalancza. Skacze do podprogramow i wyswietla na LCD ze jest w danym momencie w podprogramie.
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pind.0 = Output
S1 Alias Pinb.0
S2 Alias Pinb.1
Przekaznik Alias Pind.0
Set Portb.0
Set Portb.1
Do
Debounce S1 , 0 , Pr1 , Sub
Debounce S2 , 0 , Pr2 , Sub
Loop
End
Pr1:
Cls
Lcd "pr1"
Wait 1
Set Przekaznik
Wait 1
Return
Pr2:
Cls
lcd"pr2"
wait 1
Reset Przekaznik
wait 1
Return
Czy mógłby ktoś sprawdzić czego ten program niechce chulać tzn. chodzi, ale nie załancza sie przekaznik do sterowania lampka.Wszystko jest sprawne i sprawdzone na innych programach. Przekaznik podlaczony jest do pind.0
Program sie kompiluje bez błedów i na LCD wszystko wychodzi ze jest ok ale przekaznik sie nie zalancza. Skacze do podprogramow i wyswietla na LCD ze jest w danym momencie w podprogramie.
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pind.0 = Output
S1 Alias Pinb.0
S2 Alias Pinb.1
Przekaznik Alias Pind.0
Set Portb.0
Set Portb.1
Do
Debounce S1 , 0 , Pr1 , Sub
Debounce S2 , 0 , Pr2 , Sub
Loop
End
Pr1:
Cls
Lcd "pr1"
Wait 1
Set Przekaznik
Wait 1
Return
Pr2:
Cls
lcd"pr2"
wait 1
Reset Przekaznik
wait 1
Return
