Gif Animation abspielen

[Laurin]

also ich habe purebasic 3.30 (einige sgaen, es sie eine "verdammte" version)

kann es sein das es (wieder ) daran liegt?

Jep, es liegt daran. PB 3.3 ist uralt. Aktuell sind wir bei 3.93 Beta 3. Mach mal ein Update (gibts auf www.purebasic.com)

Solltest du dein PB bei Topos gekauft haben, muss die erst eine Update-Berechtigung erwerben. Schau dazu am Besten auch mal auf www.purebasic.com nach.

Mit dem Update dann kannst du dir hier gezeigten Beispiele und noch Vieles mehr dann ausführen.


Greetz Laurin

[Leo]

Wtf? Bei mir gibts #PB_Window_ScreenCentered -_-" Ich arbeite aber auch noch mit PB 3.92

[DarkDragon]

Wtf? Bei mir gibts #PB_Window_ScreenCentered -_-" Ich arbeite aber auch noch mit PB 3.92

LOL, er hat aber die version 3.3(steinzeitalt) und nicht 3.92(noch ziemlich neu im vergleich zu 3.3)

[Leo]

Wtf? Bei mir gibts #PB_Window_ScreenCentered -_-" Ich arbeite aber auch noch mit PB 3.92

LOL, er hat aber die version 3.3(steinzeitalt) und nicht 3.92(noch ziemlich neu im vergleich zu 3.3)

Achso...

[MVXA]

Diese Version gehört aus den Ladenregalen genommen -_-. Kann man nicht Topos dazu bringen ne neuere Version zu verkaufen o_O?

[Green Snake]

Hallo

habe an dem code:

Code: Alles auswählen

InitMovie() ;Muss vor den Movie Befehlen aufgerufen werden ._. 
hWnd = OpenWindow(0,0,0,640,480,#PB_Window_BorderLess,"") ;Öffnet ein Borderloses Fenster in der Mitte des Screens 
deinegif.s = "earth_s.gif" ;Weg zu deiner Gif >_> 
LoadMovie(0,"C:\nygfjgfyjffkmyfgk\bjhj.gif") ;laden 
PlayMovie(0,hWnd)  ;und auf dem Fenster abspielen 
;ResizeMovie(0,0,640,480) ;Passt das Movie an die Fenstergröße an (längere Wartezeit..) 
Repeat 
    WaitWindowEvent() 
    If GetAsyncKeyState_(#VK_ESCAPE) ;Wartet solange bis Escape gedrückt wird und setzt dann Quit auf True 
        Quit = #True 
    EndIf 
Until Quit = #True 

ein bischen rumgebastelt, er geht jetzt.

nur die funktion windowed screen centred ging bei mir nicht

aber jetzt will ich, des die animation im vollbild modus (1024,768,32)
abgespielt wird


wisst ihr da eine lösung?

[125]

Easy
Das 1024/768 muss durch die jeweilige Screenresolution dann ersetzt werden

Code: Alles auswählen

InitMovie() ;Muss vor den Movie Befehlen aufgerufen werden ._. 
LoadMovie(0,"C:\Dokumente und Einstellungen\Alexander\Eigene Dateien\Ships.mpg") ;laden 
hWnd = OpenWindow(0,0,0,1024,768,#PB_Window_BorderLess,"") ;Öffnet ein Borderloses
PlayMovie(0,hWnd)  ;und auf dem Fenster abspielen 
ResizeMovie(0,0,1024,768) ;Passt das Movie an die Fenstergröße an (längere Wartezeit..) 
Repeat 
  Delay(1)
  If GetAsyncKeyState_(#VK_ESCAPE) ;Wartet solange bis Escape gedrückt wird und setzt dann Quit auf True 
    Quit = #True 
  EndIf 
Until Quit = #True

[Green Snake]

hallo

danke, der code funktioniert einwandfrei, jedoch möchte ich das die gif auf dem openscreen(1024*768) abgespielt wird, und das ganze in der mitte des bildschirms.

geht das etwa nicht?