www.mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik Problem mit Bascom Programm


Autor: Reinhard Schmaderer (reini)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo

Habe ein Problem mit dem Programm. Eigentlich funst es ja bestens bis 
auf die Auswertung vom Tastendruck 1 oder 11, da ich ich auf der 
Fernbedienung nur eine 1 als Taste habe will ich 3 Sekunden warte ob 
eine weitere Taste gedrückt wird oder nicht. Bei nicht soll das Programm 
1 geschalten werden, zB. bei 1 + 2 das Programm 12. Das Probelm ist das 
in ca. 40% des druckes auf Taste 1, gleich in das Programm 11 geschalten 
wird. Wie kann ich das lösen?

Start:
Do
  Getrc5(adress , Command) 
'RC5-Fernbedienung einlesen
  If Adress = 0 Then                                        'DVD
    'Portd.4 = 1 
'KontrollLED an
    Command = Command And &B01111111                        'Togglebit 
löschen
   Goto Dvd
  End If
  If Adress = 16 Then                                       'TV
    'Portd.4 = 1 
'KontrollLED an
    Command = Command And &B01111111                        'Togglebit 
löschen
   Goto Tv
  End If
Loop

Dvd:
'Programmtasten
'Taste 1 - 9
  If Command < 10 Then
  Select Case Command
     Case 3                                                 'P3
      Portc.3 = 0
      Portd.4 = 1

      Case 9                                                 'P9
      Portc.4 = 0
      Portc.5 = 0
      Portd.4 = 1

     End Select

'auswerten ob über 8
  If Command = 1 Then
     Code = 200
     Msekunden = 0
     Portd.4 = 1
     Do
     Getrc5(adress , Command)
     Loop Until Command = 0 Or Command = 1 Or Command = 3 Or Command = 2 
Or Command = 4 Or Command = 5 Or Msekunden > Zeit
     If Msekunden > Zeit Then Portc.5 = 0
     If Command = 0 Then Code = 210
     Code = Code + Command

'auswerten bei über 8
      Select Case Code
        Case 202                                            'P12
         Portc.5 = 0

        Case 201                                            'P11
         Portc.4 = 0
         Portc.3 = 0

usw.

Danke für eine Hilfe

mfg
reini

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.