scream!!!!
30.08.2005, 18:32
Hallo,
ich habe da ein Problem mit dem Einlesen eines Analogwertes mit Bascom.
Das Programm sollte eigendlich den Wert am Port c0.0 einlesen und am Terminalfenster ausgeben. Mein Problem ist halt, das überhaupt keinen Wert einlesen kann, als wenn der Port nicht aktiviert ist, aber ich weiss einfach nicht weshalb. Kann das was mit den Fusebits zu tun haben?
Ich selber habe das Board von Myavr.de und den Mega8.
Kann mir da vielleicht jemand einen heissen Tip geben, was das Problem sein könnte?
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Dim Result As Word
Dim Sresult As Single
Dim Channel As Byte
Config Portb = Output
Portb = &HFF
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Set Sfior.adhsm
Channel = 0
Start Adc
Do
Gosub Flash
Result = Getadc(channel)
Print "Ch:" ; Channel ; "count:" ; Result ;
Sresult = Result * 5
Sresult = Result / 1024
Print "Volt: " ; Fusing(sresult , "#.###")
Waitms 50
Loop
End
Flash:
Reset Portb.0
Waitms 10
Set Portb.0.0
Return
ich habe da ein Problem mit dem Einlesen eines Analogwertes mit Bascom.
Das Programm sollte eigendlich den Wert am Port c0.0 einlesen und am Terminalfenster ausgeben. Mein Problem ist halt, das überhaupt keinen Wert einlesen kann, als wenn der Port nicht aktiviert ist, aber ich weiss einfach nicht weshalb. Kann das was mit den Fusebits zu tun haben?
Ich selber habe das Board von Myavr.de und den Mega8.
Kann mir da vielleicht jemand einen heissen Tip geben, was das Problem sein könnte?
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Dim Result As Word
Dim Sresult As Single
Dim Channel As Byte
Config Portb = Output
Portb = &HFF
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Set Sfior.adhsm
Channel = 0
Start Adc
Do
Gosub Flash
Result = Getadc(channel)
Print "Ch:" ; Channel ; "count:" ; Result ;
Sresult = Result * 5
Sresult = Result / 1024
Print "Volt: " ; Fusing(sresult , "#.###")
Waitms 50
Loop
End
Flash:
Reset Portb.0
Waitms 10
Set Portb.0.0
Return