hmmm............... ja ok! Danke ich werds mal versuchen!!! Danke!!
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
Lesezeichen