-         

Ergebnis 1 bis 3 von 3

Thema: Alle 8 Leds leuchten nach dem Übertragen des Programms

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    26.02.2009
    Beiträge
    86

    Alle 8 Leds leuchten nach dem Übertragen des Programms

    Anzeige

    Hallo,

    Ich habe heute mein RN Control 1.4 bekommen und schon ein bisschen damit gespielt.
    Nun habe ich mich an das zusammenstellen eines eigenen Scripts gewagt. Compilieren klappt Fehlerlos, übertragen auch nach dem übertragen aufs Board leuchten allerdings alle 8 Leds auf.

    Habe ich einen Fehler in meinem Programm?
    Es soll grundsätzlich nach Druck eines Tasters ein Led aufleuchten und ein Ton abgespielt werden.
    Kann da mal jemand einen Fachmännischen Blick draufwerfen? (Habe bisher nur C programmiert und versuche jetzt Bascom Avr)

    Code:
    Declare Function Tastenabfrage() As Byte
    
    $regfile = "m32def.dat"
    $crystal = 160000000
    Config Portc = Output
    Portc = 0
    Dim Tastealt As Byte
    Dim Taste As Byte
    Tastealt = 0
    Taste = 0
    
    Schleife:
    Waitms 20
    Taste = Tastenabfrage()
    
    If Tastealt <> Taste Then
    Select Case Taste
       Case 1
          Portc.1 = 1
          Waitms 10
          Sound Portd.7 , 400 , 450
          Waitms 10
          Portc.1 = 0
       Case 2
          Portc.2 = 1
          Waitms 10
          Sound Portd.7 , 400 , 450
          Waitms 10
          Portc.2 = 0
       Case 3
          Portc.3 = 1
          Waitms 10
          Sound Portd.7 , 400 , 450
          Waitms 10
          Portc.3 = 0
       Case 4
          Portc.4 = 1
          Waitms 10
          Sound Portd.7 , 400 , 450
          Waitms 10
          Portc.4 = 0
       Case 5
          Portc.5 = 1
          Waitms 10
          Sound Portd.7 , 400 , 450
          Waitms 10
          Portc.5 = 0
       End Select
       Tastealt = Taste
    End If
    Goto Schleife
    
    
    Function Tastenabfrage() As Byte
    Local Ws As Word
    Tastenabfrage = 0
    Start Adc
    Ws = Getadc(7)
    If Ws < 1010 Then
    Select Case Ws
       Case 410 To 450
       Tastenabfrage = 1
       Case 340 To 380
       Tastenabfrage = 2
       Case 265 To 305
       Tastenabfrage = 3
       Case 180 To 220
       Tastenabfrage = 4
       Case 100 To 130
       Tastenabfrage = 5
    
    End Select
    End If
    End Function

  2. #2
    Erfahrener Benutzer Begeisterter Techniker Avatar von Torrentula
    Registriert seit
    10.10.2009
    Ort
    Procyon A
    Alter
    21
    Beiträge
    355
    Hi!

    Du hast am Anfang deines Codes geschrieben

    Code:
    Portc = 0
    Dies setzt die Pins an Port C auf Low. Die LEDs auf dem RN-Control sind Low-active, was also bedeutet, dass diese Leuchten, wenn der Pins auf Low-level liegen, und aus sind, wenn die Pins auf High liegen. Deshalb leuchten die LEDs schon zu beginn deines Programms

    MfG

    Torrentula
    MfG Torrentula

  3. #3
    Benutzer Stammmitglied
    Registriert seit
    26.02.2009
    Beiträge
    86
    Ahh, Ok. Vielen Dank, dass hatte ich nicht beachtet!

    gruß smusmut

Ähnliche Themen

  1. Back LEDs leuchten nicht
    Von Manulito im Forum Asuro
    Antworten: 5
    Letzter Beitrag: 11.02.2007, 15:06
  2. Es leuchten nicht alle LEDs
    Von salle im Forum C - Programmierung (GCC u.a.)
    Antworten: 3
    Letzter Beitrag: 28.10.2005, 11:53
  3. Leds leuchten anfangs wie sie wollen...
    Von jonas im Forum Robby CCRP5
    Antworten: 2
    Letzter Beitrag: 22.11.2004, 18:44
  4. LEDs Blinken statt einfach zu leuchten.
    Von klucky im Forum C - Programmierung (GCC u.a.)
    Antworten: 11
    Letzter Beitrag: 23.10.2004, 15:55
  5. ATmega128 Leds leuchten immer ...
    Von klucky im Forum Elektronik
    Antworten: 9
    Letzter Beitrag: 23.10.2004, 12:06

Berechtigungen

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