Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
funkeld gesperrt
Anmeldungsdatum: 10.10.2009 Beiträge: 179
|
Verfasst am: 11.12.2010, 14:35 Titel: DIR in -lang qb |
|
|
Hallo, habe dort dieses im Basic-code gefunden:
Code: |
IF DIR$("DIC.MEM") <> "" THEN KILL "DIC.MEM"
IF DIR$("EXEC.MEM") <> "" THEN KILL "EXEC.MEM"
IF DIR$("MISC.MEM") <> "" THEN KILL "MISC.MEM"
|
Wie kann man das in Freebasic umsetzen?
Folgende Fehlermeldung kommt :
Array not dimensioned, before '('
IF DIR("DIC.MEM") <> "" THEN KILL "DIC.MEM"
Danke.
gruss
Editiert durch Moderator: Ursprünglichen Titel "Forth mit Freebasic" geändert. (Sebastian) |
|
Nach oben |
|
 |
Sebastian Administrator

Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
 |
funkeld gesperrt
Anmeldungsdatum: 10.10.2009 Beiträge: 179
|
Verfasst am: 11.12.2010, 15:44 Titel: |
|
|
Ähm..., ich muss es in "QB Console" compilieren, unter "Windows Gui" läuft es, muss aber unter "QB Console" laufen.
Gibt es da etwas anderes?
Gruss |
|
Nach oben |
|
 |
Sebastian Administrator

Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
 |
funkeld gesperrt
Anmeldungsdatum: 10.10.2009 Beiträge: 179
|
Verfasst am: 12.12.2010, 13:53 Titel: |
|
|
jup danke.
gruss |
|
Nach oben |
|
 |
funkeld gesperrt
Anmeldungsdatum: 10.10.2009 Beiträge: 179
|
Verfasst am: 12.12.2010, 15:16 Titel: |
|
|
Wie kann man das "DEF SEG = a \ 16" als Variable zum "POKE" umsetzen ?
Muss ja irgendeine grössere variable sein, die das alte Basic nicht packen kann?
DEF SEG = a \ 16: POKE a AND 15, b AND 255
danke.
gruss |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 12.12.2010, 16:41 Titel: |
|
|
FB hat keine Speichersegmente, sondern linear einen adressierbaren Adressraum. Du kannst überall hin"poken". Ist aber unsauber und sollte lieber mit Pointern, die direkt auf Variablenadressen zeigen, gelöst werden. _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
|