Das deutsche QBasic- und FreeBASIC-Forum

[Matz]

Hallo. Ich hoffe mir kann hir jemand helfen.
Also eigentlich programiere ich nur in BlitzBasic, aber ich möchte gerne ein Programm schreiben das InselMaps (8Bit Bmp) Packt\Entpackt.
BlitzBasic erzeugt immer Exe Datein die sind mindestens immer 850KB
groß.

QuikBasic macht viel kleinere exe Datein.
nun ist die Frage wie speichert mann genau 1Byte in einer Direcktzugrifsdatei. (SeekFile)

[MisterD]

du musst die datei einfach im Binärmodus öffnen (OPEN bla FOR BINARY), dann kannst du mit PUT und GET schreiben wo, wie und was du willst, schau mal in der QB-Hilfe (im programm F1 drücken) nach den befehlen.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Matz]

Habe ich schon gemacht, aber irgendwie soll da eine Datei ausgelesen werden die ich nicht habe.

Das soll am liebsten so irgendwie funktionieren.
Dim Feld(1000)
For ZZ=0 to 9999:Feld(ZZ)=rnd(255):next

open "TestDatei" for Random as #1
For ZZ=0 to 1000:put ZZ,Feld(ZZ):next ZZ
close #1

so ungefär

[MisterD]

du solltest vielelicht nach einem Dim Feld(1000) nicht versuchen, das teil bis 9999 aufzufüllen. Außerdem solltest du Feld(1000) vielleicht als STRING*1 (ein byte) deklarieren, so hast du ne single variable mit 4 byte, integer hat 2. also probier ma irgendwie so:

[Matz]

Danke für deine Antwort.
Leider functionirt es immer noch nicht.
Bei der Put# anweisung kommt imer falsche datensatznummer.
Was mache ich blos falsch ????

[Michael Frey]

MisterD hat den Code nicht getestet und Datesatz 0 gibt es nicht

[MisterD]

mao heißt misterd und wusste das nich weil er dateien, insbesondere binary, eigentlich nie benutzt
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Michael Frey]

Chaos aus X Sachen gleichzeitig machen .
Sorry für den falschen Namen.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight