Wie müsste folgendes Programm unter Bascom aussehen:
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
Liste der Anhänge anzeigen (Anzahl: 1)
jungejunge, dafür ist der µC doch viel zu schade, ne einfache Transistorschaltung tuts doch au!!!!!!
Re: Wie müsste folgendes Programm unter Bascom aussehen:
Hallo,
Zitat:
Zitat von 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.
hier mal für mega8, Poti an ADC, geht mit Fotowiderstand genau so:
(+5V --> Foto R --> AVR Pin --> 2,7k --> GND oder umgekehrt!)
Code:
' 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.
Zitat:
Zitat von ricoderrichter
Mit freundlichen Grüßen und schönes Wochenende
RicoDerRichter
Danke gleichfalls