Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 243094 (4530)

| Suchen
| Zurück zur Übersicht

Autor | Thema: profanneuling bittet um übersetzungshilfe aus basic
ulrich
| Datum:19.05.01 20:14 (ul.boett@t-online.de) |
hallo an alle profaner, ich schreibe meine q-basic programme um.manchmal klemmt es jedoch für mich als profan anfänger.wer "übersetzt" mir folgende zeilen bitte: A=ASC(INPUT$(1,#1)) P=SGN(A AND 2^X) (X stammt aus einer for...next schleife,ist mit while ...schon erledigt) vielen dank schon mal uli
Heinz Kaiser
| Datum: 20.05.01 11:47 (info@noten-checker.de) |
Hallo Ulrich, A=ASC(INPUT$(1,#1)) ASC heißt in Profan ORD, der Befehl zum Lesen eines einzelnen Bytes aus einer Datei heißt in Profan Getbyte(#N), die Datei muß vorher mit OPENRW geöffnet worden sein. Damit auch eine schreibgeschützte Datei gelesen werden kann, muß vor dem RESET-Befehle der FILEMODE 0 (nur lesen) eingestellt werden. P=SGN(A AND 2^X) 2^X => POW(2,X%) A AND B => AND(A%,B%) SGN gibts in Profan nicht (oder?) könnte man folgendermaßen ersetzen: let vorz%=0 case gt(n%,0): let vorz%=1 case lt(n%,0): let vorz%=-1 Viele Grüße Heinz

| Zurück zur Übersicht