Postez vos codes disjonctés ici !!! :)

[RV]

@venom

L'effet est vraiment sympa!
Faut pas bouger la souris sinon ça le fait moins chez moi!

[venom]

oui je sais sa demande beaucoup de puissance ce code c'est domage.

si non j'avais fait sa il y a longtemps

Code : Tout sélectionner

;-----------------------------------------------------------------------------------------------------
Enumeration
  #afficher = 0
  #enlever = 1
EndEnumeration
;-----------------------------------------------------------------------------------------------------
If OpenWindow(0, 0, 0, 280, 30, "effaceur d'icones", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  If CreateGadgetList(WindowID(0))
    ButtonGadget(#afficher, 2, 1, 140, 30, "enlever les icones")
      GadgetToolTip(0, "ceci va enlever les icones")
    EndIf
  EndIf
  ButtonGadget(#enlever, 142, 1, 140, 30, "afficher les icones ")
  GadgetToolTip(1, "ceci va remetre les icones enlever")
;-----------------------------------------------------------------------------------------------------
Repeat
  Event = WaitWindowEvent()
  If Event = #PB_Event_Gadget
    Select EventGadget()
        
      Case #afficher
        AniLib = OpenLibrary(1, "user32.dll")
        barre = 0
        Value = CallFunction(1, "FindWindowA", "Shell_TrayWnd", "")
        a = CallFunction(1, "ShowWindow", Value, barre)
        
        icone = 0
        value = CallFunction(1, "FindWindowA", "Progman", "Program Manager")
        a = CallFunction(1, "ShowWindow", value, icone)
        
      Case #enlever
        AniLib = OpenLibrary(1, "user32.dll")
        barre = 1
        Value = CallFunction(1, "FindWindowA", "Shell_TrayWnd", "")
        a = CallFunction(1, "ShowWindow", Value, barre)
        
        icone = 1
        value = CallFunction(1, "FindWindowA", "Progman", "Program Manager")
        a = CallFunction(1, "ShowWindow", value, icone)
;-----------------------------------------------------------------------------------------------------        
    EndSelect
  EndIf
Until Event = #PB_Event_CloseWindow

MessageRequester("Information", "j'espert que sa vous a plus meme si c'est nul :-D . VENOM", #PB_MessageRequester_Ok)

attention a compiler et executer sur le bureau.



@++

[RV]

mais ça le fait, j'aime bien!
En tout cas pour moi c'est super fluide!

[venom]

si tu parle du code ou sa fait des effect rouge jaune tout sa sa ne vien pas de moi c'est Frenchy Pilou qui la poster et je l'ai re modifier en pb v4.



@++

[RV]

bah pareil, celui d'après je garde!!!

(tellement de bordel des fois sur le bureau)

[Frenchy Pilou]

@venon :Merci pour la modif

[venom]

mais de rien il y avait juste 2 ou 3 lignes a modifier .
j'aime bien ton code sinon


@++

[bernard13]

ça serait bien un tuto complet sur vos codes disjoncté ....

[venom]

oui c'est sur .

voici un effect avec des lignes rien d'extraordinaire .

Code : Tout sélectionner

If OpenWindow(0, 100, 200, 800, 600, "2D Drawing Test")
 SetWindowColor(0, RGB(0,0,0))
   
 If CreateGadgetList(WindowID(0))
    
     TrackBarGadget(1, 10,  570, 780, 20, 0, 800)
      SetGadgetState(1, 0)
      
 EndIf   
  
  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
       Case 1
    If CreateImage(0, 800, 570)
    If StartDrawing(ImageOutput(0))

     For k=0 To 300
     r = GetGadgetState(1)
      FrontColor(RGB(k, 0, k))
      Line(0, Random(k), Random(r), Random(R))
      LineXY(Random(r), 0, Random(k), k, RGB(k,0,k))
     Next 
    
      StopDrawing()
    EndIf
  EndIf
   ImageGadget(0, 0, 0, 0, 0, ImageID(0))
        

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow
EndIf 

petite question est t'il possible que for next se fasse automatiquement avec un delay entre chaque valeur?
ex:
pour aller de 0 a 300 on met

Code : Tout sélectionner

for a = 0 to 300

mais que entre 0 et 300 il y et un delay de 1 seconde par exemple.
et la le resultat pour aller de 0 a 300 serait de 300 secondes

bon c'est pas tres clair je l'accorde .



@++

[Frenchy Pilou]

Syntaxe

Delay(Temps)
Description

Suspend totalement l'exécution du programme pendant la durée 'Temps' spécifiée en millisecondes.

donc tu calcules combien il y a de millisecondes dans 300 secondes et t'as pas besoin de boucle for next
çà doit pas être loin de 1 000 * 300
tu mets le résultat de ce que tu veux calculer juste après

[Backup]

sinon il y a les timers !!

  Procedure TimerProc(hwnd.l, uMsg.l, idEvent.l, dwTime.l)
     Select uMsg
         Case #WM_TIMER
             Select idEvent
                 Case 1
                     Debug "--------------------1 seconde"
                     ; Ici, le code à executer toutes les secondes
                 Case 2
                     Debug "0.2 secondes"
                     ; Ici, le code à executer toutes les 200 millisecondes
                 Case 3
                     Debug "-------------------------------------------3 secondes"
                     ; Ici, le code à executer toutes les 3 secondes
             EndSelect
     EndSelect
EndProcedure


If OpenWindow (0, 100, 100, 100, 100, "" , #PB_Window_SystemMenu )
    Handle = WindowID (0)
    
     SetTimer_ (Handle, 1, 1000, @TimerProc()) ; envoie un evenement toutes les 1000 millisecondes
     SetTimer_ (Handle, 2, 200, @TimerProc()) ; envoie un evenement toutes les 200 millisecondes
     SetTimer_ (Handle, 3, 3000, @TimerProc()) ; envoie un evenement toutes les 3000 millisecondes
    
     Repeat
     Until WaitWindowEvent () = #PB_Event_CloseWindow
   EndIf

[venom]

ok merci pour vos reponses je vais surement trouvé mon bonheur .
sur ce bon soir



@++

[bernard13]

vous etes trop fort pour moi snif snif