ADC Ansteuerung durch einen Taster an den Atmega32l

[Jannis P. (jannis94)]

Hallo,
erstmal im Vorraus danke das Sie versuchen mir zu helfen.
Nun zu meinem Problem: Ich habe einen Taster über den Port PA7/ADC7 an 
den Atmega32L angeschlossen. Nun möchte ich, auf meiner Platine eine Led 
zu testzwecken laufenlassen. Das Problem ist allerdings die Umsetzung in 
Bascom.
Ich möchte z.b. wenn ich den Taster drücke, das danach die Led an Pin 
PC6 angeht. Es ist nur ein Taster an den ADC angeschlossen.
Hier einmal das Programm:

$regfile = "m32def.dat"


Config Adc = Single , Prescaler = Auto

Start Adc

Dim Sensor As Word

Sensor = Getadc(1)

Config Portc.6 = Output


    Do
      If Sensor > 500 Then
         Portc.6 = 1
      Else
         Portc.6 = 0
      End If

    Loop

    End
--------------------------------------------------------------
Vielen Dank für Ihre Hilfe.
Ps: Wenn sie noch weitere Informationen brauchen fragen sie ruhig.

Mit freundlichen Grüßen
Jannis

[holger (Gast)]

Do
      Sensor = Getadc(1)

      If Sensor > 500 Then
         Portc.6 = 1
      Else
         Portc.6 = 0
      End If

    Loop

    End

[Jannis P. (jannis94)]

Hallo, vielen Dank ersteinmal für Ihre hilfe.
Leider funktioniert es noch nicht. Da die gewünschte Led immer noch 
nicht eingeschaltet wird. Nur wenn der Atmega32l einmal an den Strom 
angeschlossen wird leuchtet sie kurz auf. Ist eventuell der Wert 500 
falsch? Der Stromverlauf ist ja so: Eine Leitung vom ADC zum Taster und 
eine 5Volt Spannung die mit einem 10 Kilo-Ohm Widerstand nahezu 
neutralisiert wird. Wenn der Taster gedrückt wird, dann ist er mit dem 
Ground verbunden.

[Mirko (Gast)]

Jannis P. schrieb:
> falsch? Der Stromverlauf ist ja so: Eine Leitung vom ADC zum Taster und
> eine 5Volt Spannung die mit einem 10 Kilo-Ohm Widerstand nahezu
> neutralisiert wird. Wenn der Taster gedrückt wird, dann ist er mit dem
> Ground verbunden.

neutralisiert?????

Schaltplan!!! als Bild!

[Jannis P. (jannis94)]

Ja, beim Reset Taster hat es so funktioniert. Leider bin ich nicht so 
bewandert in diesem Bereich. Warscheinlich hätte man sich die 5 Volt 
Leitung sparen können. Einfach ADC -> Taster -> Ground oder?

[Jannis P. (jannis94)]

Hab das obige Problem jetzt gelöst.
Habe aber noch ein anderes.
Ich würde jetzt gerne mit dem Atmega32l und 7 an ADC0 angeschlossenen 
Tastern die Led-Matrix steuren.
Ersteinmal der Code:

x ist der Wert den ich noch ausrechnen muss.

$regfile = "m32def.dat"
Config Portc = Output
Config Portd = Output
Config Portb = Output

Disable Jtag

Config Adc = Single , Prescaler = Auto

Start Adc

Dim Sensor As Word




    Do

      Sensor = Getadc(0)

      If Sensor < X Then                                    'Taster 7
         Portc.5 = 1
         Portd.0 = 1

         Elseif Sensor < X Then                             'Taster 6
         Portc.5 = 1
         Portd.1 = 1

         Elseif Sensor < X Then                             'Taster 5
         Portc.5 = 1
         Portd.2 = 1

         Elseif Sensor < X Then                             'Taster 4
         Portc.5 = 1
         Portd.3 = 1

         Elseif Sensor < X Then                             'Taster 3
         Portc.5 = 1
         Portd.4 = 1

         Elseif Sensor < X Then                             'Taster 2
         Portc.5 = 1
         Portd.5 = 1

         Elseif Sensor < X Then                             'Taster 1
         Portc.5 = 1
         Portd.6 = 1


      Else
         Portc = 0
         Portd = 0

      End If
    Loop

    End
------------------------------------------------
Das Problem ist jetzt X auszurechnen.
Mein Netzteil hat 9V und  400mA
Spannungsregler: µA 7805 :: Spannungsregler 1,5A positiv, TO-220 bei
Ausgangsspannung: 4,8…5,2 VDC
Reichelt.de
Muss ich jetzt um X auszurechnen die am ADC Pin anliegende Spannung mal 
die Versorgungsspannung (4,8 - 5,2) rechnen und das dann durch 1024 
teilen?

Vielen Dank für eine Antwort.

[Jannis P. (jannis94)]

Hab die Werte jetzt, aber es leuchtet immer nur die Led für Taster 7, 
wenn ich die anderen Taster drücke. Was ist im Code falsch?

 
$regfile = "m32def.dat"
Config Portc = Output
Config Portd = Output
Config Portb = Output

Disable Jtag

Config Adc = Single , Prescaler = Auto

Start Adc

Dim Sensor As Word




    Do

      Sensor = Getadc(0)

      If Sensor < 900 Then                                  'Taster 7
         Portc.5 = 1
         Portd.0 = 1

         Elseif Sensor < 750 Then                           'Taster 6
         Portc.5 = 1
         Portd.1 = 1

         Elseif Sensor < 600 Then                           'Taster 5
         Portc.5 = 1
         Portd.2 = 1

         Elseif Sensor < 450 Then                           'Taster 4
         Portc.5 = 1
         Portd.3 = 1

         Elseif Sensor < 325 Then                           'Taster 3
         Portc.5 = 1
         Portd.4 = 1

         Elseif Sensor < 175 Then                           'Taster 2
         Portc.5 = 1
         Portd.5 = 1

         Elseif Sensor < 25 Then                            'Taster 1
         Portc.5 = 1
         Portd.6 = 1


      Else
         Portc = 0
         Portd = 0

      End If
    Loop

    End

[Jannis P. (jannis94)]

Taster Testlauf:

' ADC 7 Taster Testlauf

$regfile = "m32def.dat"
Config Portc = Output
Config Portd = Output
Config Portb = Output
Disable Jtag
Config Adc = Single , Prescaler = Auto
Start Adc
Dim Sensor As Integer

    Do
     Portc.7 = 1
      Sensor = Getadc(0)

      If Sensor > 0 Then

       Select Case Sensor

         Case Is < 25                                       'Taster 1
         Portc.5 = 1
         Portd.6 = 1

         Case Is < 175                                      'Taster 2
         Portc.5 = 1
         Portd.5 = 1

         Case Is < 325                                      'Taster 3
         Portc.5 = 1
         Portd.4 = 1

         Case Is < 450                                      'Taster 4
         Portc.5 = 1
         Portd.3 = 1

         Case Is < 600                                      'Taster 5
         Portc.5 = 1
         Portd.2 = 1

         Case Is < 750                                      'Taster 6
         Portc.5 = 1
         Portd.1 = 1

         Case Is < 900                                      'Taster 7
         Portc.5 = 1
         Portd.0 = 1

         End Select
         End If

    Loop
    End

------------------------------------------------------------------------
Starttaster Testlauf:

' Spieleanzeige Testlauf

$regfile = "m32def.dat"


Config Adc = Single , Prescaler = Auto

Start Adc

Dim Sensor As Integer


Config Portc.6 = Output


    Do
     Sensor = Getadc(7)
      If Sensor < 500 Then
         Portc.6 = 1
      Else
         Portc.6 = 0
      End If

    Loop

    End

------------------------------------------------------------------