Bilder in Screen12

[Vylqun]

:blink: Wie lese ich BMP-Bilder in QBasic ein (Screen 12)? :unsure:

[Marwin]

Hier ein Programmteil zum Anzeigen einer bestimmten BMP-Grafik an einer bestimmten Position, wobei die Grafik eine bestimmte Größe haben muss. Weiterhin kann eine transparente Farbe angegeben werden.

Das Hauptprogramm:

Code: Alles auswählen

DECLARE FUNCTION GrafikLaden (Dateiname$, Breite, Hoehe, xLinks, yOben, Transparenz)

SCREEN 12
DIM Karten(5) AS STRING
Karten(1) = "01.bmp"
Karten(2) = "02.bmp"
Karten(3) = "03.bmp"
Karten(4) = "04.bmp"
Karten(5) = "05.bmp"

FOR Grafik = 1 TO 5
    Wert = GrafikLaden(Karten(Grafik), KartenBreite, KartenHoehe, (10 + KartenBreite) * (Grafik - 1), 10, 15)
NEXT

Die Funktion GrafikLaden:

Code: Alles auswählen

FUNCTION GrafikLaden (Dateiname$, Breite, Hoehe, xLinks, yOben, Transparenz)

  Parameter:
  Breite -> wenn das Bild nicht diese Breite besitzt, wird mit einem Fehler beendet
  Hoehe -> wenn das Bild nicht diese Höhe besitzt, wird mit einem Fehler beendet
  xLinks, yOben -> Position der linken oberen Ecke des zu zeichnenden Bildes
  Transparenz -> wenn >= 0 und <=15 dann wird diese Farbe nicht gezeichnet, dass
  heißt der Hintergrund bleibt bei diesen Pixeln erhalten (vorgetäuschte Transparenz)


  nächste freie Dateinummer ermitteln
 Dateinummer = FREEFILE

  der Dateikopf einer Bitmap-Grafik ist 54 Byte lang
 Dateikopf$ = SPACE$(54)

 OPEN Dateiname$ FOR BINARY AS Dateinummer

    wenn die Datei leer ist, dann mit einem Fehler beenden
   IF LOF(Dateinummer) = 0 THEN GOTO Fehler
  
    Dateikopf holen
   GET Dateinummer, 1, Dateikopf$

    die ersten zwei Byte müssen die Zeichen "BM" sein, um zu kennzeichnen,
    dass diese Datei eine BMP-Datei ist
   IF LEFT$(Dateikopf$, 2) <> "BM" THEN GOTO Fehler
          
    weitere Daten überprüfen
   IF CVL(MID$(Dateikopf$, 15, 4)) <> 40 THEN GOTO Fehler
   IF CVI(MID$(Dateikopf$, 27, 2)) <> 1 THEN GOTO Fehler
   IF CVI(MID$(Dateikopf$, 29, 2)) <> 4 THEN GOTO Fehler
   IF CVL(MID$(Dateikopf$, 31, 4)) <> 0 THEN GOTO Fehler

    prüfen, ob die Bildbreite korrekt ist
   BildBreite = CVL(MID$(Dateikopf$, 19, 4))
   BildHoehe = CVL(MID$(Dateikopf$, 23, 4))
   IF BildBreite <> Breite THEN GOTO Fehler
   IF BildHoehe <> Hoehe THEN GOTO Fehler
  
    die Bilddaten auslesen
   SEEK Dateinummer, CVL(MID$(Dateikopf$, 11, 4)) + 1
   Daten$ = SPACE$((((BildBreite - 1) OR 7) + 1) \ 2)
   Laenge = (BildBreite \ 2) - 1
 
   FOR Y = (BildHoehe - 1) TO 0 STEP -1
     GET Dateinummer, , Daten$
     FOR X = 0 TO Laenge
       Byte = ASC(MID$(Daten$, X + 1, 1))
        und auf dem Bildschirm ausgeben
       IF (Byte \ 16) <> Transparenz THEN
          PSET (X * 2 + xLinks, Y + yOben), Byte \ 16
       END IF
       IF (Byte AND 15) <> Transparenz THEN
          PSET (X * 2 + 1 + xLinks, Y + yOben), Byte AND 15
       END IF
     NEXT
   NEXT

 GrafikLaden = TRUE
 GOTO Fertig

Fehler:
 GrafikLaden = FALSE

Fertig:
 CLOSE Dateinummer

END FUNCTION

Wenn die Grafik ohne Beachtung der Abmessungen gezeichnet werden soll, dann nehmt einfach die Parameter Breite und Hoehe heraus, und löscht diese Zeilen:

Code: Alles auswählen

   IF BildBreite <> Breite THEN GOTO Fehler
   IF BildHoehe <> Hoehe THEN GOTO Fehler

^_^ Marwin

[Vylqun]

Danke, werd mal sehen ob es klappt.