hi,
ich habe probleme mit meinem adc... vielleicht könnt ihr euch das mal angucken?
es kommt immer wieder die gleiche zahl wenn der adc eigentlich aus ist (stop adc) und immer 1023 wenn der adc on ist (start adc)
Code:
$regfile = "m8def.dat"
$crystal = 8000000
Duogn Alias Portb.0
Duort Alias Portd.2
Odosend Alias Portd.7
Linie Alias Portd.6
Dim W(10) As Word
Dim T(10) As Word
Dim I As Byte
Config Portd = Output
Config Portb = Output
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 1
Config Adc = Single , Prescaler = Auto
Start Adc
Portd.3 = 1
Enable Interrupts
Baud = 2400
Do
For I = 1 To 10
W(i) = Getadc(5)
T(i) = Getadc(4)
Waitms 500
Next
Duogn = 1
Waitms 500
Duogn = 0
Duort = 1
Waitms 500
Duort = 0
Linie = 1
Waitms 500
Linie = 0
Print "Batterie: " ; W(1) ; " " ; W(2) ; " " ; W(3) ; " " ; W(4) ; " " ; W(5) ; " " ; W(6) ; " " ; W(7) ; " " ; W(8) ; " " ; W(9) ; " " ; W(10)
Print "Tasten: " ; T(1) ; " " ; T(2) ; " " ; T(3) ; " " ; T(4) ; " " ; T(5) ; " " ; T(6) ; " " ; T(7) ; " " ; T(8) ; " " ; T(9) ; " " ; T(10)
Loop
End
Martin
Lesezeichen