Wie müsste folgendes Programm unter Bascom aussehen:

[ricoderrichter]

Der Microcontroller ist an Fotowiderstände und Led´s geschalten.
Der Microcontroller soll die Led´s leuchten lassen wenn kein Licht auf die Fotowiderstände fällt.Wenn LIcht auf den Controller fällt soll sie wieder ausgehen.
Habt ihr vielleicht Vorschläge?

Mit freundlichen Grüßen und schönes Wochenende
RicoDerRichter

[teslanikola]

jungejunge, dafür ist der µC doch viel zu schade, ne einfache Transistorschaltung tuts doch au!!!!!!

[schnuppel]

Hallo,


Der Microcontroller ist an Fotowiderstände und Led´s geschalten.
Der Microcontroller soll die Led´s leuchten lassen wenn kein Licht auf die Fotowiderstände fällt.Wenn LIcht auf den Controller fällt soll sie wieder ausgehen.
hier mal für mega8, Poti an ADC, geht mit Fotowiderstand genau so:
(+5V --> Foto R --> AVR Pin --> 2,7k --> GND oder umgekehrt!)



' Poti über ADW einlesen und über PWM ausgeben
' der Ausgang ist OC1A
' Poti an Channel5 (PortC5), LED an PortB1 (OC1A)
' laut Oszi ca. 3.333kHz

$crystal = 8000000
$regfile = "m8def.dat"

Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Off
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1
Portb = 255
Start Adc

Dim W As Word , Channel As Byte
Compare1a = 100
Channel = 5

Do
W = Getadc(channel)
Pwm1a = W
Loop
End


Allerdings nicht an/aus, sondern über PWM Helligkeit je nach Potistellung.
Falls nur an /aus, dann getadc auswerten und Port direkt schalten.


Mit freundlichen Grüßen und schönes Wochenende
RicoDerRichter
Danke gleichfalls