LED blinkt / gehen nicht aus? Warum?

[wiedereinsteiger (Gast)]

Hallo,

mein Programm sieht so aus:

'1 = GND
'2= +5V VCC
'3= heizt
'4= bereit
'5= zu heiss
$regfile = "atTiny45.dat"
$crystal = 1000000
$hwstack = 10
$swstack = 10
$framesize = 20


Kalt Alias Pinb.1
Config Kalt = Output

Warm Alias Pinb.2
Config Warm = Output

Heiss Alias Pinb.4
Config Heiss = Output
Dim Wert As Word



'Konfiguriert ADC
'Config Adc = Single , Prescaler = Auto , Reference = Aref
'Start Adc
Kalt = 1
Warm = 1
Heiss = 1
Waitms 1000
Kalt = 0
Warm = 0
Heiss = 0
Waitms 1000
Wert = 1100


Do
Wert = 1100
 'Wert = Getadc(3)
 Waitms 100
    If Wert < 754 Then
       Kalt = 1
       Warm = 0
       Heiss = 0
    End If
    If Wert > 754 And Wert < 943 Then
       Kalt = 0
       Warm = 1
       Heiss = 0
End If
If Wert > 943 Then
Kalt = 0
Warm = 0
Heiss = 1
End If
Loop

End

Der zugehörige Aufbau auf einem Steckbrett funktioniert soweit. Nur: 
Nachdem die "Hochfahrphase alle drei LEDs (die kalt, warm und heiß 
repräsentieren) angeschaltet wurden gehen sie nicht mehr aus. Es handelt 
sich um normale Wald- und Wiesen-Lowpower-LEDs.
Und: Je nach eingestelltem Wert blinkt die richtige LED - aber sie 
blinkt. Ich hätte gerne, dass nur die LED, deren Wertebereich getroffen 
wird statisch leuchtet, sonst keine.

Ich habe mir jetzt schon eine ganze Weile den Kopf zerbrochen. Fehler in 
der Schaltung kann ich ausschließen, da z.B. ein Lauflicht auf exakt 
demselben Aufbau keine Probleme macht.

Der Fehler muss also irgendwo im Programm liegen. Nur finde ich ihn 
nicht.

Danke im Voraus.

[wiedereinsteiger (Gast)]

Und ja, damit soll eine Spannung eingelesen werden. Aber solange ich den 
Fehler nicht beheben kann brauche ich mir nicht das nächste Problem 
einbrocken.

[Stefan S. (sschultewolter)]

Ich hab keine Ahnung von der Programmiersprache, ist das BASCOM??

Aber ich vermute den Fehler hier drin.

    If Wert < 754 Then
       Kalt = 1
       Warm = 0
       Heiss = 0
    End If
    If Wert > 754 And Wert < 943 Then
       Kalt = 0
       Warm = 1
       Heiss = 0
End If
If Wert > 943 Then
Kalt = 0
Warm = 0
Heiss = 1
End If

If Wert < 754 Then
Kalt = 1
Warm = 0
Heiss = 0
Else If Wert > 754 AND Wert < 943
Kalt = 0
Warm = 1
Heiss = 0
Else
Kalt = 0
Warm = 0
Heiss = 1
End If

 Ich gebe auf diesen Code keine Garantie, bin mir auch nicht der Syntax 
von BASCOM bewusst. Welche LED leuchtet/blinkt denn? Muss evtl. in 
Bascom auch noch eine Klammer um Wert > 754 AND Wert < 943 wenn mehr als 
1 Vergleich stattfindet?

[wiedereinsteiger (Gast)]

Danke,

ja, das ist Bascom.
Ich habe den Vorschlag mit der großen If-Schleife aufgenommen und 
eingearbeitet.
Es blinkt aber immer noch.
Aktuell blinkt die LED die warm repräsentiert.
Ändere ich den Wert zum Beispiel auf 1000 blinkt die heiße LED und bei 
500 blinkt die kalte LED. Soweit passt das ja, nur blinken sollte es 
halt nicht...

[wiedereinsteiger (Gast)]

Das Blinken muss eine andere Ursache haben.
Selbst beim Minimalcode

do
warm = 1 
waitms 200
loop

blinkt die LED.

[Peter II (Gast)]

wiedereinsteiger schrieb:
> Das Blinken muss eine andere Ursache haben.

Watchdog aktiviert?

[Beobachter #42 (Gast)]

wiedereinsteiger schrieb:
> mit der großen If-Schleife

http://www.if-schleife.de/

g
#42

[wiedereinsteiger (Gast)]

... schande über mich.
ich kann ja keine Pins als Output setzen, sondern das sind dann PORTS.
Problem gelöst.

[Werner W. (wam)]

BlinkLed?