calculatrice

[gadjet35]

bonjour j'ai trouver quelque part sur le net un code source pour créer une calculatrice et je l'ai tester mais sa n'a pas marcher.
je vais vous donner ce code et pouriez-vous me donner les erreurs et le corriger. merci d'avance!!!

Code : Tout sélectionner

if openwindow(0,0,0,400,400,0,"test")
  creategadgetlist(windowid())
   stringgadget(1,400,400,100,100,0,"")
   stringgadget(2,400,500,100,100,0,"")
   buttongadget(3,400,600,25,25,0,"")
repeat
select eventgadgetid()
 case 1
   stringgadget = nb1
 case 2
   stringgadget = nb2
 case 3
   result = nb1 + nb2
endselect

debug result

endif

[Progi1984]

Code : Tout sélectionner

If OpenWindow(0,50,50,400,400,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Calc By Progi :p")
  CreateGadgetList(WindowID())
   StringGadget(1,40,40,100,30,"") ; Mauvais paramètre
   StringGadget(2,40,80,100,30,""); Mauvais paramètre
   ButtonGadget(3,40,120,100,30,"Resultat"); Mauvais paramètre
Repeat
Select EventGadgetID()
 Case 3
   result = Val(GetGadgetText(1))+Val(GetGadgetText(2))
   MessageRequester("Resultat", Str(result))
EndSelect

Until WaitWindowEvent()=#PB_Event_CloseWindow  Or result<>0  ;maquait le until
EndIf
End

[gadjet35]

ok sa marche encore merci!