Programme a faire evoluer

Programmation d'applications complexes
Répondre
Kasp9arov
Messages : 43
Inscription : jeu. 03/nov./2005 11:41

Programme a faire evoluer

Message par Kasp9arov »

C'est pas vraiment un programme utile puisqu'il ne fait rien dans cette version, sa a etait mon premier programme en Purebasic.

But: avoir une fenetre qui apparait par simple combinaison de touche et qui demarre tout programme qu'on juge utile ou qu'on se sert souvent.

En faite je m'en servait beaucoup, je recuperer par exemple des sources en pure que je compiler et que je demarer par ce panneau de control, ainsi qu'un tas d'autres programmes assez rapidement et surtout compresser en une seul fenetre.

Voilà la premiere partie que je nomme : Code-Fenetre-Principal.pb

Code : Tout sélectionner

IncludeFile "Header-Control-001.pb"

InitKeyboard()
Centre_de_Control_0()
HideWindow(#Window_0,1)
GetActiveWindow()



Boucle_Invisible()
Boucle_Visible()
et voici l'autre partie que je nomme : Header-Control-001.pb

Code : Tout sélectionner

; Centre de Control

Declare Boucle_Invisible()
Declare Boucle_Visible()

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_1
  #Button_2
  #Button_3
  #Button_4
  #Button_5
  #Button_6
  #Button_7
  #Button_8
  #Button_9
  #Button_10
  #Button_11
  #Button_12
  #Button_13
  #Button_14
  #Button_15
  #Button_16
  #Button_17
  #Button_18
  #Button_19
  #Button_20
  #Button_21
  #Button_22
  #Button_23
  #Button_24
  #Button_25
  #Button_26
  #Button_27
  #Button_28
  #Button_29
  #Button_30
  #Button_31
  #Button_32
  #Button_33
  #Button_34
  #Button_35
  #Button_36
  #Button_37
  #Button_38
  #Button_39
  #Button_40
  #Button_41
  #Button_42
  #Button_43
  #Button_44
  #Button_45
  #Button_46
  #Button_47
  #Button_48
  #Button_49
  #Button_50
  #Button_51
  #Button_52
  #Button_53
  #Button_54
  #Button_55
  #Button_56
  #Button_57
  #Button_58
  #Button_59
  #Button_60
  #Button_61
  #Button_62
  #Button_63
  #Button_64
  #Button_65
  #Button_66
  #Button_67
EndEnumeration


Procedure Centre_de_Control_0()
  If OpenWindow(#Window_0, 415, 128, 600, 320, "Centre de Controle", #PB_Window_TitleBar | #PB_Window_ScreenCentered)
    If CreateGadgetList(WindowID(0))
      ButtonGadget(#Button_1, 0, 0, 100, 40, "Calculatrice")
      ButtonGadget(#Button_2, 0, 40, 100, 40, "")
      ButtonGadget(#Button_3, 0, 80, 100, 40, "")
      ButtonGadget(#Button_4, 0, 120, 100, 40, "")
      ButtonGadget(#Button_5, 0, 160, 100, 40, "")
      ButtonGadget(#Button_6, 0, 200, 100, 40, "")
      ButtonGadget(#Button_7, 0, 240, 100, 40, "")
      ButtonGadget(#Button_8, 0, 280, 100, 40, "")
      ButtonGadget(#Button_9, 100, 0, 100, 40, "")
      ButtonGadget(#Button_10, 100, 40, 100, 40, "")
      ButtonGadget(#Button_11, 100, 80, 100, 40, "")
      ButtonGadget(#Button_12, 100, 200, 100, 40, "")
      ButtonGadget(#Button_13, 100, 240, 100, 40, "")
      ButtonGadget(#Button_14, 100, 280, 100, 40, "")
      ButtonGadget(#Button_15, 200, 0, 100, 40, "")
      ButtonGadget(#Button_16, 200, 40, 100, 40, "")
      ButtonGadget(#Button_17, 200, 80, 100, 40, "")
      ButtonGadget(#Button_18, 200, 200, 100, 40, "")
      ButtonGadget(#Button_19, 200, 240, 100, 40, "")
      ButtonGadget(#Button_20, 200, 280, 100, 40, "INVISIBLE",#PB_Button_MultiLine)
      ;PureCOLOR_SetButtonColor(#Button_20, RGB(255,0,0), RGB(0,0,51))
      ButtonGadget(#Button_21, 300, 0, 100, 40, "")
      ButtonGadget(#Button_22, 300, 40, 100, 40, "")
      ButtonGadget(#Button_23, 300, 80, 100, 40, "")
      ButtonGadget(#Button_24, 300, 200, 100, 40, "")
      ButtonGadget(#Button_25, 300, 240, 100, 40, "")
      ButtonGadget(#Button_26, 300, 280, 100, 40, "ARRET",#PB_Button_MultiLine)
      ;PureCOLOR_SetButtonColor(#Button_26, RGB(255,0,0), RGB(0,0,51))
      ButtonGadget(#Button_27, 400, 0, 100, 40, "")
      ButtonGadget(#Button_28, 400, 40, 100, 40, "")
      ButtonGadget(#Button_29, 400, 80, 100, 40, "")
      ButtonGadget(#Button_30, 400, 200, 100, 40, "")
      ButtonGadget(#Button_31, 400, 240, 100, 40, "")
      ButtonGadget(#Button_32, 400, 280, 100, 40, "")
      ButtonGadget(#Button_33, 500, 0, 100, 40, "")
      ButtonGadget(#Button_34, 500, 40, 100, 40, "")
      ButtonGadget(#Button_35, 500, 80, 100, 40, "")
      ButtonGadget(#Button_36, 500, 120, 100, 40, "")
      ButtonGadget(#Button_37, 500, 160, 100, 40, "")
      ButtonGadget(#Button_38, 500, 200, 100, 40, "")
      ButtonGadget(#Button_39, 500, 240, 100, 40, "")
      ButtonGadget(#Button_40, 500, 280, 100, 40, "")
      ButtonGadget(#Button_41, 170, 130, 20, 20, "A1")
      ButtonGadget(#Button_42, 170, 150, 20, 20, "A2")
      ButtonGadget(#Button_43, 170, 170, 20, 20, "A3")
      ButtonGadget(#Button_44, 200, 130, 20, 20, "A4")
      ButtonGadget(#Button_45, 200, 150, 20, 20, "A5")
      ButtonGadget(#Button_46, 200, 170, 20, 20, "A6")
      ButtonGadget(#Button_47, 230, 130, 20, 20, "A7")
      ButtonGadget(#Button_48, 230, 150, 20, 20, "A8")
      ButtonGadget(#Button_49, 230, 170, 20, 20, "A9")
      ButtonGadget(#Button_50, 260, 130, 20, 20, "B1")
      ButtonGadget(#Button_51, 260, 150, 20, 20, "B2")
      ButtonGadget(#Button_52, 260, 170, 20, 20, "B3")
      ButtonGadget(#Button_53, 290, 130, 20, 20, "B4")
      ButtonGadget(#Button_54, 290, 150, 20, 20, "B5")
      ButtonGadget(#Button_55, 290, 170, 20, 20, "B6")
      ButtonGadget(#Button_56, 320, 130, 20, 20, "B7")
      ButtonGadget(#Button_57, 320, 150, 20, 20, "B8")
      ButtonGadget(#Button_58, 320, 170, 20, 20, "B9")
      ButtonGadget(#Button_59, 350, 130, 20, 20, "C1")
      ButtonGadget(#Button_60, 350, 150, 20, 20, "C2")
      ButtonGadget(#Button_61, 350, 170, 20, 20, "C3")
      ButtonGadget(#Button_62, 380, 130, 20, 20, "C4")
      ButtonGadget(#Button_63, 380, 150, 20, 20, "C5")
      ButtonGadget(#Button_64, 380, 170, 20, 20, "C6")
      ButtonGadget(#Button_65, 410, 130, 20, 20, "C7")
      ButtonGadget(#Button_66, 410, 150, 20, 20, "C8")
      ButtonGadget(#Button_67, 410, 170, 20, 20, "C9")
      
    EndIf
  EndIf
EndProcedure

;__________________________________________________________________________________________________


Procedure Commande_Bouton_Window_0()

Select EventGadget()

Case #Button_1
Select EventType()
Case #PB_EventType_LeftClick        :  RunProgram("calc.exe")
EndSelect 
            
Case #Button_2
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_3
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_4
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_5
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_6
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_7
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_8
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_9
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_10
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_11
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_12
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_13
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_14
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_15
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_16
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_17
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_18
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_19
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_20
Select EventType()
Case #PB_EventType_LeftClick        : HideWindow(#Window_0,1) And Boucle_Invisible()
EndSelect

Case #Button_21
Select EventType()
Case #PB_EventType_LeftClick        :  
EndSelect 
            
Case #Button_22
Select EventType()
Case #PB_EventType_LeftClick        :  
EndSelect 

Case #Button_23
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_24
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_25
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_26
Select EventType()
Case #PB_EventType_LeftClick        : End
EndSelect 

Case #Button_27
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_28
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_29
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_30
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_31
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_32
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_33
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_34
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_35
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_36
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_37
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_38
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_39
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_40
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_41
Select EventType()
Case #PB_EventType_LeftClick        :  
EndSelect 
            
Case #Button_42
Select EventType()
Case #PB_EventType_LeftClick        :  
EndSelect 

Case #Button_43
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_44
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_45
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_46
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_47
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_48
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_49
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_50
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_51
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_52
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_53
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_54
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_55
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_56
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_57
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_58
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_59
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_60
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_61
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect 

Case #Button_62
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_63
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_64
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_65
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_66
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

Case #Button_67
Select EventType()
Case #PB_EventType_LeftClick        : 
EndSelect

EndSelect

EndProcedure

;__________________________________________________________________________________________________
 
Procedure Commande_Fenetre_Visible_Invisible()

ExamineKeyboard()

If KeyboardPushed(#PB_Key_V) And KeyboardPushed(#PB_Key_F9) And KeyboardPushed(#PB_Key_F12)
HideWindow(#Window_0,0) And Boucle_Visible()
EndIf
    
If KeyboardPushed(#PB_Key_I) And KeyboardPushed(#PB_Key_F9) And KeyboardPushed(#PB_Key_F12)
HideWindow(#Window_0,1) And Boucle_Invisible()
EndIf

EndProcedure

;__________________________________________________________________________________________________

Procedure Boucle_Invisible()

Repeat


WindowEvent()

Delay(1)

Commande_Fenetre_Visible_Invisible()

Commande_Bouton_Window_0()

ForEver 

EndProcedure

;__________________________________________________________________________________________________

 Procedure Boucle_Visible()

Repeat

WaitWindowEvent()

Commande_Fenetre_Visible_Invisible()

Commande_Bouton_Window_0()

ForEver 

EndProcedure
 
;_________________________________________________________________________________________________
_
Voilà, c'est long et pas optimiser, celui je j'avais finis et raccourci puis colorer je l'ai supprimer.
Je posterai d'autre creation inutile et utile, faut que je fasse le tris dans ma sauvegarde.
J'ai aussi trouver un bon code qu'il faut actualiser sur la surveillance de processus qui avait etait poster par un bon codeur, si sa interesse quelqu'un. [/quote]

j'oublier, pour rendre visible la fenetre c'est f9 + f12 + v
Avec l'esperance de creer un trés bon module pour les echecs.
Haut
itoly
Messages : 6
Inscription : sam. 15/nov./2008 19:24

Message par itoly »

Salut Kasp' !


Ch'ui impressionné par la longueur de ton code :P, même si y'a personne qu'a intervenu je trouve ça quand même pas très utile ^^ ; mais bon pour d'autres ça devrait être très utile comme tu dit ...

:roll:

Plus Plus :!:
Haut
Répondre

Revenir à « Applications »