Proszę o pomoc
Co jest żle lub czego brakuje żeby po wciśnięciu przycisku S1 na wyświetlaczu liczba wzrastała o 1?
Co jest żle lub czego brakuje żeby po wciśnięciu przycisku S1 na wyświetlaczu liczba wzrastała o 1?
$regfile = "m16def.dat"
$crystal = 16000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Dim A As Byte
Config Porta = Input : Porta = &B11111111
S1 Alias Pina.0
Cursor Off
Cls
Lcd A
Do
If S1 = 0 Then
A = A + 1
End If
Loop