f(x) = 10^((x-1000)/70)
und daraus Listing 3 zum folgende Coding umgestaltet:
- Code: Select all
'-------------------------------------------------------------------------------
'Luxmeter nach eine Anregung von Burkhard Kainka
'-------------------------------------------------------------------------------
$regfile = "m328pdef.dat" 'ATmega328p
$crystal = 16000000 '16 MHz
$baud = 9600
Dim D As Word
Dim U As Single
Dim L As Long
Dim X As Single
Config Adc = Single , Prescaler = 64 , Reference = Avcc '5 V
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Cls
Cursor Off
Do
Locate 1 , 1
Lcd "Helligk."
Locate 2 , 1
D = Getadc(2) 'LED
D = D * 5.0
D = D - 1000
U = D / 70
X = 10
L = Power(x , U)
Lcd L
Waitms 1000
Lcd " "
Locate 1 , 1
Lcd "in Lux: "
Waitms 1000
Loop
Es ergibt ganz sicher kein Profigerät
aber im groben Zügen und als Übungsspass scheint es zu funktionieren.Viele Grüße,
