vous devez calculez?

[gadjet35]

j'ai créer une nouvelle calculette qui calcule avec tous les operateurs!
(que je vais même améliorer) si vous la voulez:

Code : Tout sélectionner

;--------------------------------
;calculette de gadjet35 2005
;--------------------------------
If ExamineDesktops()
    borx = DesktopWidth(0)
    bory = DesktopHeight(0)
EndIf

OpenWindow(0,0,0,borx,bory,#PB_Window_BorderLess,"")
  CreateGadgetList(WindowID(0))
   ButtonGadget(1,borx - 200,bory - 700,50,25,"quitter")
   ButtonGadget(2,50,50,100,50,"valider")
   ButtonGadget(5,575,475,100,25,"multiplication")
   ButtonGadget(6,575,525,100,25,"addition")
   ButtonGadget(8,575,500,100,25,"soustraction")
   ButtonGadget(9,575,550,100,25,"division")
   StringGadget(3,500,400,200,25,"")
   StringGadget(4,500,600,200,25,"")
   TextGadget(7,500,200,200,200,"attention si vous calculer une fenetre debug s'ouvre si vous la fermer vous ne pouvez plus calculer")
 Repeat 
  Select WaitWindowEvent()
   Case #PB_EventGadget
    Select EventGadgetID()
      Case 1 
       quit = 1
      Case 5
       ope = 1
      Case 6
       ope = 2
      Case 8
       ope = 3
      Case 9
       ope = 4
      Case 2
       If ope = 1
        result = Val(GetGadgetText(3))*Val(GetGadgetText(4))
       EndIf
       If ope = 2
        result = Val(GetGadgetText(3))+Val(GetGadgetText(4))
       EndIf
       If ope = 3
        result = Val(GetGadgetText(3))-Val(GetGadgetText(4))
       EndIf
       If ope = 4
        result = Val(GetGadgetText(3))/Val(GetGadgetText(4))
       EndIf
       Debug result      
    EndSelect
  EndSelect
 Until quit = 1

[Anonyme]

Je préfère la calculette Windows ^^
elle est plus petite ^^

Bonne continuation

@++

[Chris]

T'as pas l'impression que tes gadgets ont l'air un peu perdus, au milieu de cette grande fenêtre!

[gadjet35]

si il sont perdu on peu les agrandir.
j'ai expres fais une fenetre sans bordure car quand je l'aurai
ameliorer il y auras une image de fond...

[Chris]

Rien ne t'empèche de faire une fenêtre sans bordure plus petite!

Avec ton systeme, celui qui se sert de ta calculette ne peut pas faire autre chose sur son PC, tant qu'il n'a pas fermé le programme.

Mais bon... Tu fais comme tu veux, c'est ton programme

[Anonyme]

Tiens, v'la une plus p'tite ^^
Elle fonctionne pas, à toi d'ajouter les fonctions si t'en as envie.

Code : Tout sélectionner

Enumeration
  #Window_0
EndEnumeration


Enumeration
  #Button_7
  #Button_8
  #Button_9
  #Button_4
  #Button_5
  #Button_6
  #Button_1
  #Button_2
  #Button_3
  #Button_17
  #Button_EGAL
  #Button_ADD
  #Button_SUB
  #Button_MULT
  #Button_DIVIDE
  #Frame3D_1
  #String_Resultat
EndEnumeration



Declare Open_Window_0()

Open_Window_0()

Repeat 
  
  Event = WaitWindowEvent() 
  
  WindowID = EventWindowID()
  
  GadgetID = EventGadgetID() 
  
  EventType = EventType() 

  
  If Event = #PB_EventGadget
    
    If GadgetID = #Button_7
      
    ElseIf GadgetID = #Button_8
      
    ElseIf GadgetID = #Button_9
      
    ElseIf GadgetID = #Button_4
      
    ElseIf GadgetID = #Button_5
      
    ElseIf GadgetID = #Button_6
      
    ElseIf GadgetID = #Button_1
      
    ElseIf GadgetID = #Button_2
      
    ElseIf GadgetID = #Button_3
      
    ElseIf GadgetID = #Button_17
      
    ElseIf GadgetID = #Button_EGAL
      
    ElseIf GadgetID = #Button_ADD
      
    ElseIf GadgetID = #Button_SUB
      
    ElseIf GadgetID = #Button_MULT
      
    ElseIf GadgetID = #Button_DIVIDE
      
    ElseIf GadgetID = #String_Resultat
      
    EndIf
    
  EndIf
  
Until Event = #PB_Event_CloseWindow 

End






Procedure Open_Window_0()
  If OpenWindow(#Window_0, 497, 163, 179, 203,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Calculatrice")
    If CreateGadgetList(WindowID())
      ButtonGadget(#Button_7, 20, 60, 30, 30, "7")
      ButtonGadget(#Button_8, 50, 60, 30, 30, "8")
      ButtonGadget(#Button_9, 80, 60, 30, 30, "9")
      ButtonGadget(#Button_4, 20, 90, 30, 30, "4")
      ButtonGadget(#Button_5, 50, 90, 30, 30, "5")
      ButtonGadget(#Button_6, 80, 90, 30, 30, "6")
      ButtonGadget(#Button_1, 20, 120, 30, 30, "1")
      ButtonGadget(#Button_2, 50, 120, 30, 30, "2")
      ButtonGadget(#Button_3, 80, 120, 30, 30, "3")
      ButtonGadget(#Button_17, 20, 150, 30, 30, "0")
      ButtonGadget(#Button_EGAL, 50, 150, 60, 30, "=")
      ButtonGadget(#Button_ADD, 130, 60, 30, 30, "+")
      ButtonGadget(#Button_SUB, 130, 90, 30, 30, "---")
      ButtonGadget(#Button_MULT, 130, 120, 30, 30, "X")
      ButtonGadget(#Button_DIVIDE, 130, 150, 30, 30, "/")
      Frame3DGadget(#Frame3D_1, 10, 50, 160, 140, "", #PB_Frame3D_Single)
      StringGadget(#String_Resultat, 10, 20, 160, 20, "", #PB_String_Numeric)
      
    EndIf
  EndIf
EndProcedure

@++

[Pierre]

oula c vrai j'm'attendais pas ce qu'elle fasse l'ecran lol..... avec les bouton éparpillés un peu partout...lol..