Gif Animation abspielen

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
Green Snake
Beiträge: 1394
Registriert: 22.02.2005 19:08

Gif Animation abspielen

Beitrag von Green Snake »

Hallo

ich möchte mich erst einmla für diese frage entschuldigen.
aber es ist mir sehr wichtig, dass ich den code so schnell wie möglich habe.
also
weis jemand, wie man eine GIF animation in der mitte des bildschirmes abspielt?
also ich meine mit dem code

Code: Alles auswählen

OpenScreen(800,600)
also mit diesem code öffne ich ein vollbild, un dann soll in der mitte die gif animation zu sehen sein.
ich hoffe ihr kennt den code
bitte helft mir

gruss greensnake
Zuletzt geändert von Green Snake am 22.04.2005 23:20, insgesamt 1-mal geändert.
-.-"
Leo
Beiträge: 420
Registriert: 26.10.2004 18:26

Beitrag von Leo »

PlayMovie() ?!
Benutzeravatar
Green Snake
Beiträge: 1394
Registriert: 22.02.2005 19:08

Ganzer code

Beitrag von Green Snake »

hallo

währe es möglich, dass du mir den ganzen code posten würdest?

ich bin noch ein blutiger anfänger
-.-"
Benutzeravatar
Green Snake
Beiträge: 1394
Registriert: 22.02.2005 19:08

hallo

Beitrag von Green Snake »

Leo hat geschrieben:PlayMovie() ?!
was soll ich mit dem code genau machen?
also, ich habe eine gifanimation auf dem pfad : C:\bla\blabla\desktop\animation.gif

und jetzt will ich wie vorhin beschrieben, dass sich die animation in der mitte des desktops abspielt

ich währe wirklich froh, wenn einer von euch profis mir helfen könnte.

hoffe auf antwort, gruss greensnake
-.-"
Leo
Beiträge: 420
Registriert: 26.10.2004 18:26

Beitrag von Leo »

Code: Alles auswählen

InitMovie() ;Muss vor den Movie Befehlen aufgerufen werden ._.
hWnd = OpenWindow(0,0,0,640,480,#PB_Window_BorderLess|#PB_Window_ScreenCentered,"") ;Öffnet ein Borderloses Fenster in der Mitte des Screens
deinegif.s = "earth_s.gif" ;Weg zu deiner Gif >_>
LoadMovie(0,deinegif) ;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 
Benutzeravatar
Green Snake
Beiträge: 1394
Registriert: 22.02.2005 19:08

Fehler

Beitrag von Green Snake »

hallo

danke für deine antwort
jedoch funktioniert der code bei mir nicht

Code: Alles auswählen

hWnd = OpenWindow(0,0,0,640,480,#PB_Window_BorderLess|#PB_Window_ScreenCentered,"") ;Öffnet ein 
es kommt eine fehlermeldung:

Code: Alles auswählen

Zeile 2: constand not found : #PB_Window_Screen_Centred


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

kann es sein das es (wieder ) daran liegt?

hoffe du/ ihr wisst eine antwort
-.-"
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

ne, leo hat gepfuscht. In wahrheit heißt die Konstante [c]#PB_Window_ScreenCentered[/c]
Bild
Benutzeravatar
Green Snake
Beiträge: 1394
Registriert: 22.02.2005 19:08

sorry

Beitrag von Green Snake »

hallo

tut mir leid, aber es geht immer noch nicht
währst du so nett, und würdest mir den ganzen code einmal posten

ich hoffe ddu währst so nett danke
-.-"
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

Sry, aber ich werde den Code nicht unterstüzen, da ich nicht sicher bin ob er auch wirklich funktioniert. Leider weiß ich selber nicht so genau wie man GIF Animationen abspielen soll...
Bild
Benutzeravatar
125
Beiträge: 1322
Registriert: 19.09.2004 16:52
Wohnort: Neu Wulmstorf (Hamburg)
Kontaktdaten:

Beitrag von 125 »

also mit Play Movie funzt das definitiv....
Habs hier gerade getestet Leos Code funzt wenn man die Constante ändert. :)
Antworten