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:
Außerdem ist bei dem kleinen Kaffeeklatsch auch noch ein anderer Fehler. Dann fragt er nach der Versionsnummer, ich sag 42Code:$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 Loopund im Terminal kommt dann: 42îß, dann macht er anscheinend Reset (aber das Lauflicht bleibt dabei aus)







Zitieren

Lesezeichen