Fehlermeldungen

[burkhard kainka]

Das ist mehreren Teilnehmern des Kurses so gegangen, die Teile aus den Beispiellistings isolieren wollten:

... habe Ihr beiliegendes Programm erfolglos zu kompilieren versucht: es kommt immer eine Fehlermeldung und die Kompilierung wird abgebrochen.

$regfile = "m8def.dat"
$crystal = 16000000
Baud = 9600

Declare Sub Voltage
Dim N As Byte
Config Adc = Single , Prescaler = 64 , Reference = Off
Start Adc

Do
N = 0: Voltage
Print "ADC(0) = "; U; " V"; ""
N = 1: Voltage
Print "ADC(1) = "; U; " V"; ""
Print
Waitms 500
Loop

Sub Voltage()
D = Getadc(N)
D = D * 5
U = D / 1023
End Sub


.........


Es fehlt die Dimensionierung von N und U. In dem Gesamtbeispiel Print.bas standen sie weiter oben. Wenn man einen Teil einzeln verwenden will müssen diese Zeilen hinzugefügt werden.

Dim D As Integer
Dim U As Single