ISP-Programmer ATmega8 Probleme mit Print Ausgabe

[Franz M. (shadow010)]

Guten Abend zusammen

Ich habe eine Schaltung wie im Anhang aufgezeichnet aufgebaut und dazu 
noch zwei Potis an ADC 0 und 1 mit GND zu D2. Nun meine Frage ich müsst 
doch nach meinem Code die Spannung zurück erhalten und nicht teuro 
Zeichen oder? Was habe ich falsch gemacht?

$crystal = 8000000
$regfile = "m8def.dat"
$hwstack = 64
$swstack = 64
$framesize = 64


Dim D As Integer
Dim U As Single
Dim Uref As Single

Open "comb.4:9600,8,n,1,inverted" For Output As #1
Open "comb.5:9600,8,n,1,inverted" For Input As #2


Config Adc = Single , Prescaler = 64 , Reference = Off
Start Adc

Ddrd.2 = 1                                                  'Poti Gnd


Print #1 , "AD-Wandler"
Do
  D = Getadc(14)
  Uref = 1.23 / D
  D = Getadc(0)
  U = Uref * D
  Print #1 , "AD0  " ; U ; " V "
  D = Getadc(1)
  U = Uref * D
  Print #1 , "AD1  " ; U ; " V "
  Waitms 500
Loop

End

Gruss und Danke im Voraus

[sowas (Gast)]

Mehrere Möglichkeiten.
1) kein Quarz angeschlossen.
2) Fusebits auf 8MHz eingestellt?
3) ich kenn das so, dass man auf dem TXD-Pin sendet - aber evtl. geht es 
auch auf der Miso..

Lass erstmal den ADC weg und teste das (Terminal-Eingang mal an TXD 
halten:)

$crystal = 8000000
$regfile = "m8def.dat"
$baud = 9600

do
   print "AD-Wandler"
loop

Wenn Du keinen Quarz verwenden willst, kannst Du ein bsichen tricksen, 
indem Du in 50000er Schritten andere crystal-Werte ausprobierst 
(7950000,8050000..)