Analogwert Auswerten Bascom

Matthias Gast #951453 
Hallo hab ein kleines Problem

hab an einem Atmega 8535 ein Poti. Nun will ich eine Led ansteuern wenn 
das Poti eine bestimmte Stellung hat. Das geht auch. Jetzt sollte aber 
das Poti nicht nur bei einem Wert von z.B 256 leuchten, sonder wenn der 
Wert zwischen 240 und 260 liegt.

Leider weis ich jetzt nicht wie ich das in Bascom am besten 
Programmieren soll.

Danke für Eure Hilfe

Gruß Matthias
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke
Wolf M. #951552 
Danke für die Antwort, aber leider geht das bei mir nicht.

Wenn der Wert X größer als 240 ist oder kleiner als 260 dann soll eine 
Led leuchten.


So sieht mein Programm aus

Do

Config Adc = Single , Prescaler = Auto , Reference = Internal

Start Adc

Config Portc = Output
Portc = 255



Dim W As Integer , Channel As Byte


'Analogwert einlesen

W = Getadc(1)
  Print "Channel 0 " ; " value " ; W
  'Incr Channel



'Analogwert 1


   If(w > 240 Or W < 260) Then
  Portc.0 = 0

End If





Loop
Antwort Zitieren Bearbeiten Löschen Melden Danke
Falk B. #951564 
@ Wolf Matthias (atmega8535)

>Danke für die Antwort, aber leider geht das bei mir nicht.

Tjaaaa, das soll vorkommen.

>Wenn der Wert X größer als 240 ist oder kleiner als 260 dann soll eine
>Led leuchten.

Das sagtest du bereits.
Besser vielleicht so.

1
' EINMALIGE Konfiguration!

2


3
Config Adc = Single , Prescaler = Auto , Reference = Internal

4


5
Start Adc

6


7
Config Portc = Output

8
Portc = 255

9


10
Dim W As Integer , Channel As Byte

11


12
' HIER geht die Endlosschleife los

13
Do

14


15
'Analogwert einlesen

16


17
W = Getadc(1)

18
  Print "Channel 0 " ; " value " ; W

19
  'Incr Channel

20


21
'Analogwert 1

22
   If(w > 240 Or W < 260) Then

23
     Portc.0 = 0

24
   else 

25
     Portc.0 = 1

26
   End If

27
Loop


MfG
Falk
Antwort Zitieren Bearbeiten Löschen Melden Danke
Jürgen C Gast #951771 
Hallo,
die Bedingung gröser 240 oder kleiner 260 ist immer wahr.
Ich glaube du meinst größer 240 und kleiner 260; diese Bedingung ist
nur im Bereich von 240 bis 260 wahr.

If W > 240 and W < 260 then

Ich habs jetzt noch nicht probiert, aber es sollte so gehen.
Antwort Zitieren Bearbeiten Löschen Melden Danke
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 18 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.