Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
$regfile "m128def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portf.4 , Db5 = Porta.0 , Db6 = Porta.2 , Db7 = Porta.4 , E = Porta.6 , Rs = Portc.7
Cursor Off
Dim B As Byte
Dim C As Integer
Do
B = Encoder(pind.6 , Pind.7 , L , P , 0)
Loop
End
L:
Decr C
Initlcd
Cls
Cursor Off
Locate 1 , 1
Lcd C
Return
P:
Incr C
Initlcd
Cls
Cursor Off
Locate 1 , 1
Lcd C
Return
.
$regfile "m128def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portf.4 , Db5 = Porta.0 , Db6 = Porta.2 , Db7 = Porta.4 , E = Porta.6 , Rs = Portc.7
Cursor Off
Cls
Dim Tryb As Byte , Wynik As Integer , A As Integer
Config Pind.6 = Input
Config Pind.7 = Input
Set Portd.6
Set Portd.7
En1 Alias Pind.7
En2 Alias Pind.6
Do
Wynik = 0
Select Case Tryb
Case 0:
If En1 = 1 And En2 = 1 Then Incr Tryb
Case 1:
If En1 = 1 And En2 = 0 Then
Wynik = 1
Incr Tryb
End If
If En1 = 0 And En2 = 1 Then
Wynik = -1
Incr Tryb
End If
Case 2:
If En1 = 0 And En2 = 0 Then Incr Tryb
Case 3:
If En1 = 1 And En2 = 0 Then
Wynik = -1
Tryb = 0
End If
If En1 = 0 And En2 = 1 Then
Wynik = 1
Tryb = 0
End If
End Select
A = A + Wynik
Locate 1 , 1
Lcd A
Loop
Return
