Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

2.3: Leveldaten über eine Binär-Datei einlesen

Uploader:Redakteurnemored
Datum/Zeit:24.09.2011 11:35:29
Hinweis: Dieser Quelltext ist Bestandteil des Projekts OpenBook: 2D-Spieleprogrammierung, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

' *** CODE 2.3: Leveldaten über eine Binär-Datei einlesen

DIM AS INTEGER f = FREEFILE
DIM AS UBYTE felddata(20, 10) ' Speicherung jetzt in UBYTEs

OPEN "level1.dat" FOR BINARY AS #f
FOR zeile AS INTEGER = 0 TO 10
  FOR spalte AS INTEGER = 0 TO 20
    ' Inhalt des aktuellen Feldes auslesen
    GET #1,, felddata(spalte, zeile)
    ' weitere Auswertungen ...
  NEXT
NEXT
CLOSE #f