Page 4 sur 9

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : dim. 03/janv./2010 20:01
par Kwai chang caine
Mais si que je l'ai lu ton message..d'ailleur, je les lis pas ....tes messages.....je les hume...je les deguste....je les admire :mrgreen:
Ouaih, d'accord....mais j'ai tellement été ébouriffé par tout ces codes et ce monde 8O
J'me suis dit...voila encore un monde de PB que j'ai pas exploré, comme je le disait dans un autre post...c'est une catastrophe ce PB
Tu viens de traverser des centaines de pieces qui avaient chacune des dizaines de portes.
Tu crois en avoir vu pas mal....et paf ...on te donne un lien....
Et c'est de nouveau l'enfer avec des centaines de pieces et des dizaines de portes.

Mais moi, j'veux pas construire un chateau....j'veux une caravanne
Une petite ligne qui ecris sur une fenetre, ou un petit GIF avec une vache qui sautille de bonheur.
D'ailleur j'suis sur que si je montre ça a ma vache...j'aurais plus besoin de chercher un code qui gere ce qui est animé...ça va la stopper NETTE 8O

KCC...il est désespéré :(
En tout cas sincerement merci, de cette explication, meme si elle a rajouté un fardeau de plus sur le petit dos tout meurtri de KCC :roll:

J'arrette pas de dire au bureau, que les gens y imaginent pas ce qu'est le monde de la programmation....c'est monstrueux :twisted:

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : lun. 04/janv./2010 18:27
par Patrick88
ralala ce KCC une grande langue mais pas de mémoire... :mrgreen:
http://www.purebasic.fr/french/viewtopi ... anim%C3%A9
Afficher un GIF animé sans DLL ni API en VB Publié: par KCC le Jeu Nov 06, 2008 1:23 pm, surement pendant une crise de somnambulisme d'ou la perte de mémoire...

Solution de Jacobus: (ça marche je viens d'essayer, faut juste mettre le chemin complet du gif dans la variable Anim$

Code : Tout sélectionner

#TITRE = "GIF ANIME DANS UN WEBGADGET()"
Enumeration
#WinGif
#Animation
EndEnumeration
Global Anim$, UrlAnim$
Anim$ = "...Pictures\Animations\C3D.gif" ;indiquer le chemin complet de l'image animée (pas besoin de loadImage())
UrlAnim$  ="about:<html><body scroll='no' leftmargin='0' topmargin='0'><img src='"+Anim$+"'></img></body></html>" ;on vire les scrollbars et les marges
   

If OpenWindow(#WinGif, 100, 100, 400, 300, #TITRE, #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(#WinGif))
   ;mon image fait 130 x 136 pixels donc...
   WebGadget(#Animation,100,100,130,136,UrlAnim$) 
  EndIf
EndIf
Repeat
Event = WaitWindowEvent()
  Select Event 
   Case #PB_Event_Gadget
     Select EventGadget()
     
     
     EndSelect     
    Case #PB_Event_CloseWindow : Quitter = 1   
  EndSelect
Until Quitter

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : lun. 04/janv./2010 18:59
par Kwai chang caine
Mais oui mon bon patrick, je le savais qu'un WEBGADGET il peut afficher un GIF, puisqu'ils sont basés soit sur IE, soir sur Firefox qui est sur ta machine :wink:
Heureusement, autrement tu imagines, les pages HTML qui serait affichées par PB, à coté un corbillard ressemblerait à un car de touriste :lol:

Moi c'est pas les afficher que je voulais...mais les gerer.
En fait j'me rappelle plus le probleme, car entretemps, j'ai commencé 12 programmes...mais je voulais les inclure dans outlook et pour ça il fallait passer par le decodeur..et comme y'en a autant des decodeurs que des steaks dans une boucherie russe....et ben j'ai pas pu :(

Voila mon canard :D

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : lun. 04/janv./2010 20:14
par Patrick88
coincoin

un assistant dans l'éditeur ou en outils externe permettant de créer à partir d'un qcm simple, un programme fonctionnel et qui "tue sa race" afin que les nombreux débutants qui peuplent ce forum puissent "ce la péter grave" sans risquer "la honte".

:mrgreen:

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : lun. 04/janv./2010 23:22
par Kwai chang caine
J'ai rien compris.....t'as bu ????
On dirait du OLLIVIER :roll:

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mar. 05/janv./2010 13:04
par Backup
oui l'intérêt de la gestion du Gif et Gif animé par PureBasic
serai de pouvoir mettre un Gif Animé sur un Bouton image , de façon
a agrémenter une interface utilisateur de bouton bien explicite, par exemple

une animation de porte qui s'ouvre et se ferme sur un bouton permettant de quitter
un programme ... ;)
ou bien d'avoir une animation en Gadget image , qui tournerai en boucle
animation representant ton Logo par exemple ;)
nous aurions alors des interfaces utilisateur Dynamique, ce serai fun non ?

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mar. 05/janv./2010 16:48
par Ulix
Dobro a écrit
une animation de porte qui s'ouvre et se ferme sur un bouton permettant de quitter
un programme ... ;)
ou bien d'avoir une animation en Gadget image , qui tournerai en boucle
animation representant ton Logo par exemple ;)
+1 :idea: :P

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mer. 06/janv./2010 14:35
par flaith
Ajout dans la librairie Module :

Note = GetModuleNote(#Module, Position, Colonne)
Volume = GetModuleVolume(#Module, Position, Colonne)
Instrument = GetModuleInstrument(#Module, Position, Colonne)

permettant de récupérer la note jouée de la "position" (récupéré par GetModulePosition(#Module) :?: ) et de la "colonne"

:mrgreen:

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mer. 06/janv./2010 18:07
par cederavic
Je ne sais pas si ça à été proposé mais..

Code : Tout sélectionner

hGirlFriend.l = CreateGirlFriend(GirlFriendID.l, Name.s, Age.l, Measurements.GirlAnatomy, IntelligenceFactor.f)
Result.b      = DeleteGirlFriend(GirlFriendID.l, Reason.s="No reason, go away!")
Result.b      = DisableGirlFriend(GirlFriendID.l, State.b)
Result.b      = ShowGirlFriend(GirlFriendID.l, State.b)
Result.b      = SetGirlFriendAttribute(GirlFriendID.l, Attribute.l, Value.l)
Result.l      = GetGirlFriendAttribute(GirlFriendID.l, Attribute.l)
Result.b      = GiveGirlFriendOrder(GirlFriendID.l, Order.s)

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mer. 06/janv./2010 18:13
par TazNormand
tu as oublié quelques fonctions Cederavic :D

Code : Tout sélectionner

Result.b      = UndressGirlFriend(GirlFriendID.l)
Result.b      = CureGirlFriendHeadache(GirlFriendID.l)
Result.b      = ForwardGirlFriendPeriod(GirlFriendID.l)

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mer. 06/janv./2010 18:27
par cederavic
Je crois que le nombre de fonction serait illimité :twisted:

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mer. 06/janv./2010 19:12
par Kwai chang caine
cederavic a écrit :Je ne sais pas si ça à été proposé mais..

Code : Tout sélectionner

hGirlFriend.l = CreateGirlFriend(GirlFriendID.l, Name.s, Age.l, Measurements.GirlAnatomy, IntelligenceFactor.f)
Result.b      = DeleteGirlFriend(GirlFriendID.l, Reason.s="No reason, go away!")
Result.b      = DisableGirlFriend(GirlFriendID.l, State.b)
Result.b      = ShowGirlFriend(GirlFriendID.l, State.b)
Result.b      = SetGirlFriendAttribute(GirlFriendID.l, Attribute.l, Value.l)
Result.l      = GetGirlFriendAttribute(GirlFriendID.l, Attribute.l)
Result.b      = GiveGirlFriendOrder(GirlFriendID.l, Order.s)
Dis donc CEDERAVIC.....tu serais pas en train de me prendre pour un pruneau :?
J'ai failli le rajouter, déjà que la plupart des copains demandent des choses, que je comprend meme pas le titre :oops:
J'ai pas besoin de ça pour etre ridicule :lol:

Bon .......dizilemele si c'est du serieux et que y'a encore une subtilité du langage qui m'a échappé :D

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mer. 06/janv./2010 20:14
par TazNormand
arf sacré KCC

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : mer. 06/janv./2010 21:44
par Kwai chang caine
C'est vrai ça des fois je rigole, et quand je me retourne je m'apperçois que je suis le seul...
C'est donc un sujet serieux...me dis je... :roll:

C'est vraiment pas facile tous les jours d'etre ignare dans certains domaines :oops:
C'est un peu comme les trous de mémoire ...moi j'ai des trous de connaissance :roll:

Re: Nouvel an 2010,le temps des résolutions,TODO LIST et prieres

Publié : sam. 09/janv./2010 23:09
par kernadec
bonsoir

Il y a cette solution pour animer en images GIF les boites de dialogues.

Cordialement

Code : Tout sélectionner

;*********************************************
;avec le source "Load_GIF.pb" de code archive 
;*********************************************
InitMovie() 
OpenWindow(0,0,0,200,200,"Load_GIF",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_Invisible) 
ButtonGadget(5, 50,130,100,20,"Quitter")
OpenWindow(1,52,50,96,80,"",#PB_Window_BorderLess) 
SetParent_(WindowID(1),WindowID(0))
LoadMovie(1,"c:\purebasic\Examples\Graphics\Gfx\anim_surprize.gif") 
ResizeMovie(1,0,0,WindowWidth(1),WindowHeight(1)) 
PlayMovie(1, WindowID(1)) 
HideWindow(0, 0)
Repeat 
  even=WaitWindowEvent()
   Select even
    Case #PB_Event_Gadget
	   Select EventGadget()
	    Case 5
	     End
	   EndSelect
		 Case #PB_Event_CloseWindow
      End
	 EndSelect
Until Event = #PB_Event_CloseWindow