Witam,
Zamierzam stworzyć menu w którym będzie można ustawiać używając 3 przycisków temperaturę.
Napisałem taki kod:
Config LCD brakuje, bo jeszcze nie jestem pewien, które to będą piny.
Kod napisałem w oparciu o helpa i inne menu przedstawione na elektrodzie, nie mam na razie możliwości czy będzie to działać jak należy, ale mam kilka pytań.
1. Czy będzie to działać? Jest dobrze napisane?
2. Może da się jakoś skrócić ten kod?
3. Gdzie umieścić resztę programu tak, aby non-stop program sprawdzał czy nie został wciśnięty ENTER? W pierwszy Do:Loop?
4. Gdy będę zmieniał temperaturę, wtedy reszta programu nie będzie się wykonywać, tak?
Z góry dzięki za pomoc.
Zamierzam stworzyć menu w którym będzie można ustawiać używając 3 przycisków temperaturę.
Napisałem taki kod:
$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Config Pind.5 = Input
Config Pind.6 = Input
Config Pind.7 = Input
Portb = &B0000000
Portd = &B0000000
Dim Tempzadana As Long
Declare Sub Menu
Declare Sub Normal
Enter Alias Portd.7
Gora Alias Portd.6
Dol Alias Portd.5
Tempzadana = 70
Do
Call Normal
Loop
Sub Normal:
Cls
Lcd "Temp Zadana:" ; Tempzadana
Lowerline
Lcd " Wcicisnij ENTER aby ja zmienic"
Do
If Enter = 1 Then
Call Menu
End If
Loop
End Sub
Sub Menu:
Cls
Lcd "Temp Zadana:" ; Tempzadana
Lowerline
Lcd "Aby zmienic, wcisnij GORA lub DOL"
Do
If Gora = 1 Then
Tempzadana = Tempzadana + 5
Cls
Lcd "Temp Zadana:" ; Tempzadana
Lowerline
Lcd "Aby zapisac wcisnij ENTER"
Elseif Dol = 1 Then
Tempzadana = Tempzadana - 5
Cls
Lcd "Temp zadana:" ; Tempzadana
Lcd "Aby zapisac wcisnij ENTER"
End If
Loop Until Enter = 1
End SubConfig LCD brakuje, bo jeszcze nie jestem pewien, które to będą piny.
Kod napisałem w oparciu o helpa i inne menu przedstawione na elektrodzie, nie mam na razie możliwości czy będzie to działać jak należy, ale mam kilka pytań.
1. Czy będzie to działać? Jest dobrze napisane?
2. Może da się jakoś skrócić ten kod?
3. Gdzie umieścić resztę programu tak, aby non-stop program sprawdzał czy nie został wciśnięty ENTER? W pierwszy Do:Loop?
4. Gdy będę zmieniał temperaturę, wtedy reszta programu nie będzie się wykonywać, tak?
Z góry dzięki za pomoc.