Hallo,
habe in Bascom folgendes programm:
Code:
$regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Config Lcd = 16 * 1
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcdbus = 4
Config Adc = Single , Prescaler = Auto
Start Adc
Dim W As Word
Dim A As Single
Dim B As Single
Dim C As Single
Dim D As Single
Dim E As Single
Do
W = Getadc(1)
A = 5 / 1024
C = W * A
D = C * 100
D = Round(d)
E = D / 100
B = E
Cursor Off
Cls
Locate 1 , 1
Lcd B ; " V"
Wait 1
Loop
End
C sollte eigentlich 1,6 V ergeben.
Leider gibt das Display immer nur 1,615559 aus. Kein Volt-zeichen oder sonst was. Nur wenn ich z.b. schreibe A=10/1024, dann gibt er was anderes aus, aber sonst nicht.
mfg
Lesezeichen