Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [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

ZeigBild - Prozedur zum Anzeigen von BMP-Bildern

Uploader:AdministratorSebastian
Datum/Zeit:20.06.2008 15:36:25

'BMP-Dateien in FreeBASIC anzeigen - gebrauchsfertige Prozedur
'20.06.2008, getestet mit FB 0.20.0 SVN
'nach Voltas Tutorial auf
'  http://www.freebasic-portal.de/index.php?s=tutorials&id=16&seite=1

Declare Sub ZeigBild (ByVal Datei As String, ByVal X As Integer, ByVal Y As integer)

ScreenRes 640,480,32

ZeigBild "bild.bmp",100,100
ZeigBild "bild2.bmp",300,300

SLEEP
END


Sub ZeigBild (ByVal Datei As String, ByVal X As Integer, ByVal Y As Integer)
    Dim As Integer breit, hoch, ff = Freefile
    Dim bild As Any Ptr
    Open Datei For Binary Access Read As #ff
    Get #ff, 19, breit
    Get #ff, 23, hoch
    Close #ff
    bild = ImageCreate(breit,hoch)
    Bload Datei, bild
    Put (X,Y), bild
    If bild <> 0 Then ImageDestroy bild
End Sub