Image wird nicht angezeigt in einer Function...

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

GeGenesis

Betreff: Image wird nicht angezeigt in einer Function...

BeitragFr, Nov 26, 2004 15:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Wieso wird das image nicht angezeigt?

Code: [AUSKLAPPEN]


Graphics 800,600,32



;---
Dim gui(100,4)

;---
   
button(1,"Start",350,300)

Repeat
SetBuffer BackBuffer()
Cls

showbutton(1)   
   
   
   Flip
Until KeyHit(1)


Function Button(id,t$,x,y)
   gui(id,1)=id
   gui(id,2)=t$
   gui(id,3)=x
   gui(id,4)=y
End Function


Function Showbutton(id)
If b=0
   Print "Sprite not found"
   WaitKey()
   End
   EndIf
   DrawImage b,gui(id,3),gui(id,4)
   
End Function
 

David

BeitragFr, Nov 26, 2004 15:08
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi!

Wo wird denn "b" zugewiesen??

Achja:

Code: [AUSKLAPPEN]

Repeat
 SetBuffer BackBuffer()


Kein SetBuffer in die Schleife!

grüße

Travis

BeitragFr, Nov 26, 2004 15:12
Antworten mit Zitat
Benutzer-Profile anzeigen
Wenn ich mal ganz scharf nachdenke, würde ich sagen, es liegt daran dass du das Bild überhaupt nicht lädst Rolling Eyes

Außerdem beendest du das Programm in deiner Funktion die zum anzeigen des Bildes dienen soll und zwar BEVOR du das Bild überhaupt anzeigst.

Und drittens hast du den SetBuffer BackBuffer() in der Hauptschleife! Rolling Eyes
www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.
 

-BB Noob-

BeitragFr, Nov 26, 2004 15:20
Antworten mit Zitat
Benutzer-Profile anzeigen
Wo soll man es denn dann hinschreiben??
Oder einfach anstatt Setbuffer backbuffer nochmal flip?

Jan_

Ehemaliger Admin

BeitragFr, Nov 26, 2004 15:23
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
Graphics 800,600,32
;---
Dim gui(100,4)
Global b = LOadimage("Button.bmp") ; <-- Lade das Bild!
;---
button(1,"Start",350,300)
SetBuffer BackBuffer()
Repeat
  Cls
   showbutton(1)   
   Flip
Until KeyHit(1)


Function Button(id,t$,x,y)
   gui(id,1)=id
   gui(id,2)=t$
   gui(id,3)=x
   gui(id,4)=y
End Function


Function Showbutton(id)
   If b=0
     Print "Sprite not found"
     WaitKey()
     End
   EndIf
   DrawImage b,gui(id,3),gui(id,4)
   
End Function
between angels and insects

Splinner

BeitragFr, Nov 26, 2004 16:24
Antworten mit Zitat
Benutzer-Profile anzeigen
Jan_ hat Folgendes geschrieben:
Code: [AUSKLAPPEN]
Graphics 800,600,32

Global b = LOadimage("Button.bmp") ; <-- Lade das Bild!


und wichtig auch das es Global sein muss wenn du es in einer funktion verwendest!

[edit]
LOadimage O_o

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group