Witam, na początku dodam że dopiero zaczynam z BASCOMem.
Mój problem polega na tym iż po naciśnięciu przycisku nr1 chcę aby do zmiennej "Liczba" było dodane 1 czyli gdy zmienna liczba wynosi 0 to po naciśnięciu przycisku 1 wynosiła 1. Po przyciśnięciu przycisku nr 2 na odwrót czyli zęby było odejmowane. Wynik ma być wyświetlany na wyświetlaczu 7dmio segmentowym.
Napisałem program ale niestety nie działa.
Proszę o pomoc.
Mój problem polega na tym iż po naciśnięciu przycisku nr1 chcę aby do zmiennej "Liczba" było dodane 1 czyli gdy zmienna liczba wynosi 0 to po naciśnięciu przycisku 1 wynosiła 1. Po przyciśnięciu przycisku nr 2 na odwrót czyli zęby było odejmowane. Wynik ma być wyświetlany na wyświetlaczu 7dmio segmentowym.
Napisałem program ale niestety nie działa.
$regfile = "m8def.dat" ' INFORMACJA O PROCESORZE
$crystal = 1000000 ' TAKTOWANIE PROC FABRYCZNE 1Mhz
Config Portb = Output ' informuje proc że PB jako wyjście
Portb = &B11111111
Config Portd.0 = Output ' informuje proc że PD.0 jako wyjście
Portd.0 = 1
Config Portd.2 = Input ' informuje proc że PD.2 jako wejście
Portd.2 = 1
Config Portd.3 = Input ' informuje proc że PD.3 jako wejście
Portd.3 = 1
Dim Liczba As Byte
Do
If Portd.2 = 0 Then Liczba = Liczba + 1
If Portd.3 = 0 Then Liczba = Liczba - 1
If Liczba = 0 Then
Reset Portb.0
Set Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portd.0
Elseif Liczba = 1 Then
Reset Portb.0
Set Portb.1
Reset Portb.2
Set Portb.3
Reset Portb.4
Reset Portb.5
Reset Portd.0
End If
Loop
EndProszę o pomoc.