PureBasic

salut a tous,
dans un projet, je souhaite pouvoir envoyer un fichier a lire sur winamp,
j'ai tout bien fait avec les exemples vu a droite a gauche, j'ai la main sur tout winamp ... sauf un element.
quand je lis demande de jouer un fichier, winamp ne recoit que la premiere lettre de la chaine de ...

c'est bizarre, parce que ton code marche mais de mon coté si je change mes KeyboardPushed par KeyboardReleased, ca ne marche pas.
quoiqu'il en soit, l'effet fonctionne correctement maintenant et merci pour vos reponses

finalement je viens de trouver une solution de bon matin.
j'ajoute ca juste après le ExamineKeybaord():

If KeyboardReleased(#PB_Key_O): Key_O_Released=#True :EndIf

et je modifie ma condition

If KeyboardPushed(#PB_Key_O) And CheatCode=2 And Key_O_Released: CheatCode+1 :EndIf

et là ca marche ...

je mets la portion du code complète au cas où mais bien sur le 2e repeat est imbriqué dans le 1er (donc ca marhce ^^)

Repeat
Repeat
;wait(5) ;keyboard ok mais coordonnées souris lag
Event = WindowEvent()
Select Event
Case #PB_Event_Timer
If EventTimer() = #MainTimer : DisplayTimedFX ...

merci pour ta reponse.
vue que j'utilise de If séparés, pas besoin d'aller voir l'etat released (au pire j'ai essayé mais l'effet reste le même). a noter que le code marche, c'est juste la touche O qui passe a 3 en une seule pression, alors qu'avant il fallait vraiment appuyer 2 fois sur la touche ...

Bonjour à tous,
Ca fait un moment que je bidouille en pb, mais depuis peu, j'ai changé le mode d'affichage de mes petites applis.
Avant j'ouvrais un Canvas dans une fenetre et pour tester l'appui de touches pour activer un cheatcode par exemple, j'avais placé un eventtype dans mon code et ca ...

Wouahou, et ca marche. J'avoue ne pas comprendre pourquoi mais je vais noter ça comme une astuce
merci,

Ben non ca marche pas.


;Canvas Clic Test

Enumeration
#MainForm : #MainCanvas
#sndCarillon
EndEnumeration

Global MouseClicAvailable.b = 1

Procedure MouseDown()
MouseClicAvailable = 0
PlaySound(#sndCarillon)
Delay(5000)
EndProcedure

OpenWindow(#MainForm, 0, 0, 720, 408, "Clic test", #PB ...

re-Bonjour,

Je reviens vers vous pour une info.
J'ai quasi terminé mon premier projet, tout est clean est sans bug d'affichage, ouf.

Cependant, j'ai un soucis avec la souris. (a noter que je ne passe pas par DirectX).

Ma routine d'"attente" se presente comme suit :


;Boucle principale
Repeat ...

je ne sais pas trop comment je dois prendre ton message mais t'inquietes, m'en faut plus pour me vexer :p

En tout cas, merci quand meme, GrabDrawingImage() est exactement ce qu'il me manquait et ca marche niquel.
Desole de ne pas connaitre toutes les commandes de Fred, je debute en PB :/

Merci,
Toutes mes images sont soit CatchImage ou CreateImage, pas de soucis.
En isolant les constantes, c'est le GetGadgetAttribute(#MainCanvas,#PB_Canvas_Image) qui me renvoi une valeur null.
Comme je suis un noob et que je m'eparpille, j'ai pas lu la ligne dans le doc precisant que #PB_Canvas ...

Oups, erreur de ma part, j'ai oublié le ImageID et là c'est le drame car meme la partie du code


StartDrawing(ImageOutput(#STBackBuffer)) : DrawingMode(#PB_2DDrawing_Default)
DrawImage(ImageID(GetGadgetAttribute(#MainCanvas,#PB_Canvas_Image)),0,380,720,28)
StopDrawing()


Me renvoi l'erreur ...

Bonjour,
Après pas mal de cheveux perdus, j'arrive presque au bout. Cependant, je me heurte a une incompréhension.

Pour ne pas vous mettre tout le code, je vous explique.
Je cherche a sauvegarder un bout de l'image de mon MainCanvas avant l'ajout d'element.

Si j'insere dans mon code ...

Super, merci, je vais pouvoir aéré mon code
(j'ai vu le Not juste après avoir posté)

Bonjour,
Je suis tout nouveau ici et sur PureBasic. Je m'y suis mis dimanche et j'ai trouvé pb tellement intéressant que je peste de ne pas l'avoir découvert plus tôt ;)

Bref, je m'attele à porter mes softs vb6 en pb. Jusque là, tout va bien (à part un effet que je n'arrive pas.encore à reproduire ...