So, der Code fürs Lauflicht ist fertig.
Aber ich noch bekomme Errors mit den Set/Reset Befehlen.
"Variable can not be used with Set"
bzw
"Variable can not be used with Set"
Code:$regfile = "m16def.dat" $framesize = 32 $swstack = 32 $hwstack = 32 $crystal = 16000000 $baud = 9600 Waitms 50 'Einschwingzeit Config Portd = Output Config Portc = Output Portd.4 Alias Enable1 'low = active Set Enable1 Portc.4 Alias Enable2 'low = active Set Enable2 Dim I As Integer 'Laufvariable I = O Dim Time As Integer Time = 200 'Lauflicht Intervall 'Hauptprogramm Print "Starte Hauptprogramm" Do Reset Enable1 Print "Multiplexer 1 = an" Do For I = 0 To 15 Portd = I Print I Waitms Time Next I Loop Set Enable1 Print "Multiplexer 1 = aus" Reset Enable2 Print "Multiplexer 2 = an" Do For I = 0 To 11 Portd = I Print I Waitms Time Next I Loop Set Enable2 Print "Multiplexer 2 = aus" Loop End







Zitieren

Lesezeichen