Hallo,
da du selbst nicht den Code postest poste ich mal einen:
Code:
'###################################################
'Ein Standard-LCD 4x20 Zeichen mit dem
'RN-LCDStandardAdapter an Port B
'von RN-Control angeschlossen
'rnlcdadapterstdtest.bas
'
'Autor: Frank
'Verwendet wurden: RN-Control & RN-LCDAdapter (robotikhardware.de)
'Weitere Beispiele sind im Roboternetz gerne willkommen!
'##############################################################
'$programmer = 12 'MCS USB (Zeile weglassen wenn anderer Programmer)
' -------------- RN-Control übliche _____________________
Declare Function Tastenabfrage() As Byte
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 64
$crystal = 16000000 'Quarzfrequenz
$baud = 19200
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
Config Adc = Single , Prescaler = Auto 'Für Tastenabfrage und Spannungsmessung
Config Pina.7 = Input 'Für Tastenabfrage
Porta.7 = 1 'Pullup Widerstand ein
Dim Taste As Byte
Dim Ton As Integer
I2cinit
Start Adc
Sound Portd.7 , 400 , 450 'BEEP
Sound Portd.7 , 400 , 250 'BEEP
Sound Portd.7 , 400 , 450 'BEEP
Print
Print "**** RN-Control V1.4 *****"
Print "Demoprogramm um Zusatzboard RN-LCDAdapter zu demonstrieren"
Print
' -------------- Ende RN-Control übliche _____________________
Config Portb.4 = Output 'Spannung an LCD aktivieren
Lcdpower Alias Portb.4
Lcdpower = 1
Config Portb.6 = Output
Lcd_rw Alias Portb.6
Lcd_rw = 0
'Wait 1
Config Lcd = 20 * 4 ', Chipset = Ks077
Wait 1
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.5 , Rs = Portb.7
'Config Lcdbus = 4
Initlcd
Cls
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd "RN-LCDADAPTER"
Locate 2 , 1
Lcd "an RN-Control"
Locate 3 , 1
Lcd "beides Bausaetze von"
Locate 4 , 1
Lcd "robotikhardware.de"
Do
Taste = Tastenabfrage()
If Taste <> 0 Then
Select Case Taste
Case 1:
Cls
Locate 1 , 1
Lcd "Gedrueckt wurde nun:"
Locate 2 , 1
Lcd "Taste 1"
Case 2
Cls
Locate 1 , 1
Lcd "Gedrueckt wurde nun:"
Locate 2 , 1
Lcd "Taste 2"
Case 3
Cls
Locate 1 , 1
Lcd "Gedrueckt wurde nun:"
Locate 2 , 1
Lcd "Taste 3"
Case 4
Cls
Locate 1 , 1
Lcd "Gedrueckt wurde nun:"
Locate 2 , 1
Lcd "Taste 4"
Case 5
Cls
Locate 1 , 1
Lcd "Licht wird umgeschaltet"
Toggle Lcdpower
End Select
Sound Portd.7 , 400 , 500 'BEEP
End If
Waitms 100
Loop
End
' Diese Unterfunktion fragt die Tastatur am analogen Port ab
' Sollte beim betätigen einer Taste kein Quittungston kommen, dann
' muss die Tastenabfrage (Select Case Anweisung in Funktion )
' an ihr Board angepaßt werden. Widerstandstoleranzen sorgen in
' Einzelfällen manchmal dafür das die Werte etwas anders ausfallen
' Am besten dann den WS wert mit Print für jede Taste ausgeben lassen
Function Tastenabfrage() As Byte
Local Ws As Word
Tastenabfrage = 0
Ton = 600
Ws = Getadc(7)
'Print "ws= " ; Ws
If Ws < 1010 Then
Select Case Ws
Case 400 To 455
Tastenabfrage = 1
Ton = 550
Case 335 To 380
Tastenabfrage = 2
Ton = 500
Case 250 To 305
Tastenabfrage = 3
Ton = 450
Case 180 To 220
Tastenabfrage = 4
Ton = 400
Case 100 To 130
Tastenabfrage = 5
Ton = 350
End Select
Sound Portd.7 , 400 , Ton 'BEEP
End If
End Function
Und nun schauen wir mal ....
Zitieren
Lesezeichen