' BASCOM-Programm
' Stefan Hoffmann 2009
' Poti-Spannungsteiler an ADC1 5V -- Poti -- Masse
'Poti z.B. 47k
' oder
' LDR-Spanungsteiler an ADC1 5V -- LDR --+-- 10k -- Masse
'
'
' In: B.2: Poti-Mittelabgriff
' oder LDR-Spannungsteiler an ADC1
' Out: LED C.4 (rot) hoch
' Led C.2 (grün) Mittel
' LED C.3 (gelb)niedrig
'
$regfile = "m8adef.dat"
$crystal = 1200000
Config Portd.2 = Input 'Poti/LDR
Config Portc.4 = Output 'LED rot
Config Portc.2 = Output 'LED gruen
Config Portc.3 = Output 'LED gelb
Ledrot Alias Portc.4
Ledgruen Alias Portc.2
Ledgelb Alias Portc.3
Dim Analogwandler As Integer 'Variable zur Aufnahme des Wertes vom Analogwandler
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'Analogwandler definieren
'Start Adc 'AD-Wandler starten (nach Config automatisch)
Do
Analogwandler = Getadc(1) 'AD-Wandler einlesen. Werte zwischen 0 und 1023
Analogwandler = Analogwandler
Ledrot = 0
Ledgruen = 0
Ledgelb = 1
Waitms Analogwandler
Ledrot = 0
Ledgruen = 1
Ledgelb = 0
Waitms Analogwandler
Ledrot = 1
Ledgruen = 0
Ledgelb = 0
Waitms Analogwandler
Loop
End
Lesezeichen