Hallo,
ich hab ein bisschen an meiner RN-Control rumgeprogt und plötzlich faselt der sich da was von Label not found und external routine not found zusammen. Was soll datn jetz heißen? Hier mein Code:
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
'Sound Portd.7 , Hertz, Millisekunden
Config Pinc.0 = Output
Leda Alias Portc.0
Config Pinc.1 = Output
Ledb Alias Portc.1
Config Pinc.2 = Output
Ledc Alias Portc.2
Config Pinc.3 = Output
Ledd Alias Portc.3
Config Pinc.4 = Output
Lede Alias Portc.4
Config Pinc.5 = Output
Ledf Alias Portc.5
Config Pinc.6 = Output
Ledg Alias Portc.6
Config Pinc.7 = Output
Ledh Alias Portc.7
Dim I As Integer
Dim Name As String * 20
Dim Vnummer As Double
Echo On
Waitms 1000
Sound Portd.7 , 400 , 400
Sound Portd.7 , 400 , 250
Sound Portd.7 , 400 , 450
Leda = 1
Sound Portd.7 , 100 , 100
Waitms 1000
Ledb = 1
Sound Portd.7 , 200 , 100
Waitms 1000
Ledc = 1
Sound Portd.7 , 300 , 100
Waitms 1000
Ledd = 1
Sound Portd.7 , 400 , 100
Waitms 1000
Lede = 1
Sound Portd.7 , 500 , 100
Waitms 1000
Ledf = 1
Sound Portd.7 , 600 , 100
Waitms 1000
Ledg = 1
Sound Portd.7 , 700 , 100
Waitms 1000
Ledh = 1
Sound Portd.7 , 800 , 100
Print "Hallo, ich heisse RN-Control. Meine Versionsnummer ist 1.4."
Input "Und wie heisst du? " , Name
Print "Hallo " ; Name
Input "Und wie lautet deine Versionsnummer? " , Vnummer
Print "Aha! Deine Versionsnummer lautet also " ; Vnummer ; "!"
If Vnummer > 1.4 Then
Print "Deine Versionsnummer ist hoeher als meine :-("
Else
Print "Meine Versionsnummer ist hoeher als deine :-)"
End If
Do
Waitms 500
Leda = 1
Waitms 50
Ledb = 1
Waitms 50
Ledc = 1
Waitms 50
Ledd = 1
Waitms 50
Lede = 1
Waitms 50
Ledf = 1
Waitms 50
Ledg = 1
Waitms 50
Ledh = 1
Waitms 500
Ledh = 0
Waitms 50
Ledg = 0
Waitms 50
Ledf = 0
Waitms 50
Lede = 0
Waitms 50
Ledd = 0
Waitms 50
Ledc = 0
Waitms 50
Ledb = 0
Waitms 50
Leda = 0
Loop
Außerdem ist bei dem kleinen Kaffeeklatsch auch noch ein anderer Fehler. Dann fragt er nach der Versionsnummer, ich sag 42 und im Terminal kommt dann: 42îß, dann macht er anscheinend Reset (aber das Lauflicht bleibt dabei aus)
Lesezeichen