Ich écris in Bascom.

Hier mal le code:

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

DDRC.1=0 ' Ich verwende den AD Port 1. Also: Eingang.

Config Adc=Single, Prescaler=Auto, Reference=Avcc ' Adc einstellen

Config Lcd=20*2
Config Lcdpin=pin, E= Portb etc. etc. ' LCD einstellen

Start adc ' Adc anwerfen
Dim W as Long

Do
cls ' Display leeren
W= Getadc(1) ' den Wert vom Port 1 holen
Locate 2,1
lcd W 'Zur Kontrolle mal diesen Wert aufm LCD zeigen.

W=5000*W
W=W/1024

locate 1, 1
Lcd W

Loop
End

So krieg ich 2500 aufm LCD... Jetzt bräuchte man noch ein Komma dazwischen und es wäre perfekt. Wie macht man das?


Greets Mario