Problem mit Bytes

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

yrul

Betreff: Problem mit Bytes

BeitragFr, Apr 25, 2008 19:06
Antworten mit Zitat
Benutzer-Profile anzeigen
Weshalb wird bei diesem kleinen Program nicht Dasselbe gelesen wie gschrieben? Confused

Währe nett wenn mir jemand helfen könnte...


Code: [AUSKLAPPEN]
bnkTest=CreateBank(11)

PokeShort bnkTest,0,17
PokeShort bnkTest,1,1877
PokeShort bnkTest,2,12
PokeShort bnkTest,3,123
PokeShort bnkTest,4,1234
PokeShort bnkTest,5,12345
PokeShort bnkTest,6,12346
PokeShort bnkTest,7,1237
PokeShort bnkTest,8,128
PokeShort bnkTest,9,129
PokeShort bnkTest,10,321

file=WriteFile("hightscore")
WriteBytes bnkTest, file, 0, 11
CloseFile file

Color 255,255,255
file=ReadFile ("hightscore")
bank=CreateBank(12)
ReadBytes(bank,file,0,12)

Text 50,65,"Hightscore: "

For z=0 To 10
Text 50,85+(15*z),(z+1)+"  "+PeekShort(bank,z)
Next

hectic

Sieger des IS Talentwettbewerb 2006

BeitragFr, Apr 25, 2008 19:11
Antworten mit Zitat
Benutzer-Profile anzeigen
Ein Short hat 2 Bytes und muss dementsprechend auch in die Bank eingesetzt werden. Das heisst, in zweier Schritten.

PokeShort bnkTest,0,17
PokeShort bnkTest,2,1877
...

Dann noch, sollte man auch WriteShort statt WriteBytes nutzen.

CreateBank muss auch doppelt so groß erstellt werden.
Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D
 

yrul

BeitragFr, Apr 25, 2008 19:18
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke vielmals, funktioniert jetzt.... Very Happy

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group