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?


Code:
$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