
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hallo..... Du hast recht, die UNIT 2.0 hat hier einen Fehler, obwohl ich die INPUT Funktion ursprünglich getestet habe. Ich habe einen workaround geschrieben. Der Ersatz für INPUT ist ein Unterprogramm. Ich hoffe das hilft. -------------------------------------------------------------------------------------------------------- Define wert word[1] define inbyte byte[4] Wert=0 #loop 'input wert gosub INPUTEMULATION pause 50 Print "Ausgabewert" Print wert Goto loop #INPUTEMULATION wert=1 #INLOOP get INBYTE if INBYTE=&H2D then wert=-1 if INBYTE=&H2D then goto INLOOP WERT=(INBYTE and &H0F)*WERT #INLOOP2 get INBYTE:if INBYTE= &H0D then return INBYTE=INBYTE and &H0F if WERT<0 then WERT=WERT*10-INBYTE else WERT=WERT*10+INBYTE goto INLOOP2 |
| Antwort schreiben |