Warum ist es bei meinem Beispiel nicht möglich noch eine Taste abzufragen
es Funktioniert einfach nicht bei mir habe seit 4 Tagen schon das Problem und komme einfach nicht weiter !!!
Kann mal jemand so nett sein und da mal drüberschauen wo da der Fehler liegt oder gibt es da keine möglichkeit? Bascom-Hielfe schweigt sich darüber leider aus.
Ich weiss nicht mehr was ich noch machen soll habe glaube ich alles mögliche schon Versucht!!!!
Code:
'-------------------------------------------------------------------------------
' Filename : Drehencoder 0.1 bas
' Purpose : Quadrature Decoder/Counter and Display
' Author : Uwe
' Date : 10.03.2009
' Compiler : BASCOM-AVR Rev. 1.11.8.7
'
$regfile = "m164Pdef.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
'$baud = 19200 ' use baud rate
$hwstack = 60 ' default use 32 for the hardware stack
$swstack = 30 ' default use 10 for the SW stack
$framesize = 60 ' default use 40 for the frame space
'$sim
Dim A As Byte 'Byte von 0 bis 255
Dim B As Byte
A = 0
B = 0
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
Config Lcd = 24 * 2
Initlcd
Cls
Cursor Off
Config Pind.5 = Input
Config Pind.6 = Input
Config Pind.7 = Input
Config Debounce = 5
Portd = 224
Cls
Main:
'Do
B = Encoder(pind.5 , Pind.6 , Rechts , Links , 1)
Debounce Pind.7 , 0 , Ausg
'If Pind.7 = 0 Then
'Goto Ausg
'End If
Locate 1 , 3
Lcd " "
Lcd A
Goto Main
'Loop
Links:
Decr A
Locate 2 , 1
Lcd "Links "
Return
Rechts:
Incr A
Locate 2 , 1
Lcd "Rechts"
Return
Ausg:
Locate 2 , 1
Lcd "Taste "
Return
End
'------------------------------------------------------------------------
es Funktioniert einfach nicht bei mir habe seit 4 Tagen schon das Problem und komme einfach nicht weiter !!!
Kann mal jemand so nett sein und da mal drüberschauen wo da der Fehler liegt oder gibt es da keine möglichkeit? Bascom-Hielfe schweigt sich darüber leider aus.
Ich weiss nicht mehr was ich noch machen soll habe glaube ich alles mögliche schon Versucht!!!!