-         

Ergebnis 1 bis 2 von 2

Thema: LCD ausgabe mit Tastenabfrage..?

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    16.01.2005
    Ort
    Duisburg
    Alter
    39
    Beiträge
    35

    LCD ausgabe mit Tastenabfrage..?

    Anzeige

    Hallo zusammen
    ich versuche verschiedene Texte auf dem LCD auzugeben.
    Also Taste 1 gedrückt gebe diesen Text aus , oder Taste 2 gedrückt gebe diesen Text aus aber ich weiß nicht was ich falsch mache!
    Und ich mache bestimmt viel Falsch .
    Ich habe das RN-Control Board , Text ohne Tastenabfrage geht .

    Vielen Danke schon mal...

    MFG g4rbi

    '************************************************* ********************

    $regfile = "m32def.dat"
    ' bei Mega 16 $regfile = "m16def.dat"


    $crystal = 16000000 'Quarzfrequenz
    $baud = 9600

    '************************************************* ********************
    Declare Function Tastenabfrage() As Byte
    Declare Sub Led1()
    Declare Sub Led2()
    Declare Sub Led3()
    Config Lcd = 24 * 2
    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
    Config Lcdbus = 4

    'Porta.7 = 1
    Config Pina.7 = Input 'Für Tastenabfrage
    Config Portc = Output
    Dim Taste As Byte
    Config Adc = Single , Prescaler = Auto
    'Portc.1 = 0

    Do


    Taste = Tastenabfrage()
    If Taste <> 0 Then

    Select Case Taste
    Case 1
    Call Led1
    Case 2
    Call Led2
    Case 3
    Call Led3
    End Select
    Sound Portd.7 , 400 , 500 'BEEP
    Wait 1
    End If
    Wait 1
    Loop
    End

    Function Tastenabfrage() As Byte
    Local Ws As Word

    Tastenabfrage = 0

    Start Adc
    Ws = Getadc(7)

    If Ws < 500 Then
    Select Case Ws
    Case 400 To 450
    Tastenabfrage = 1

    Case 330 To 380
    Tastenabfrage = 2

    Case 260 To 305
    Tastenabfrage = 3

    Case 180 To 220
    Tastenabfrage = 4

    Case 90 To 130
    Tastenabfrage = 5


    End Select


    End If
    End Function

    Sub Led1
    Locate 1 , 1
    Cls
    Lcd "aaaaa"
    End Sub

    Sub Led2
    Locate 1 , 1
    Cls
    Lcd "bbbbb"
    End Sub

    Sub Led3
    Locate 1 , 1
    Cls
    Lcd "ccccc"
    End Sub

  2. #2
    Benutzer Stammmitglied
    Registriert seit
    16.01.2005
    Ort
    Duisburg
    Alter
    39
    Beiträge
    35
    DAnke hatt sich erledigt.....
    KAnn geschlossen werden!

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •