hmmm............... ja ok! Danke ich werds mal versuchen!!! Danke!!

Bild  

Habs jetzt mal so gemacht!! Stimmt des so oder gibts noch verbesserungsvorschläge? also funzen tuts!!!

Code:
$regfile = "m8def.dat"
$crystal = 3686400
Config Portb = Output

Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Dim W As Word , Channel As Byte
Channel = 0
A:
Do
  W = Getadc(channel)
Goto B
Loop
End

B:
Portb.1 = 1
Waitms W
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms W
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms W
Portb.1 = 0
Waitms 70
Portb.1 = 1
Waitms W
Portb.1 = 0
Waitms 400
Goto A
Mfg

Nrg