PureBasic

Code : Tout sélectionner

Global x2.f, y2.f, a.f = 17592186044416
Global.i XX = 10, YY = 0, Valeur


DrawText(XX, YY, "Racine carrée par la méthode de Babylone")
YY + TextHeight(" ")
YY + TextHeight(" ")

;DrawText(XX, YY, "Entrer la valeur de a: " + a)
;XX + TextWidth("Entrer la valeur de a: ")
;Valeur = StringGadget(#PB_Any, XX, YY, 40, 25, "")
;a = ValF(GetGadgetText(Valeur))
;XX = 10
;YY + TextHeight(" ")

x2 = 1
y2 = a

While (Abs(y2-x2) > 1e-8)
  x2 = (x2+y2)/2
    y2 = a/x2
  If (x2<y2)
    DrawText(XX, YY, StrF(x2) + " < racine < " + StrF(y2))
    yy + TextHeight(" ")
  Else
    DrawText(XX, YY, StrF(y2) + " <= racine <= "+ StrF(x2))
    yy + TextHeight(" ")
  EndIf
Wend  

Code : Tout sélectionner

...
AncienneValeur = Valeur
Valeur = ValF(GetGadgetText(...))
If Valeur <> AncienneValeur
; exécution de l'algo
EndIf
...

Code : Tout sélectionner

KeyboardInput()

Code : Tout sélectionner

;racine par la méthode de babylone
;- Initialisations
InitSprite()
InitKeyboard()
InitMouse()

Enumeration
  ;Fenetres
  #Fenetre_principale
  ;Actions
  #Sortie
  #Aucune
  ;Autres
EndEnumeration

Global Police =FontID(LoadFont(#PB_Any, "Brush Script MT", 20, #PB_Font_Italic))


Global x2.f, y2.f, a.f = 17592186044416
Global.i XX = 10, YY = 0, Valeur
Global Texte$, resultat$

ExamineDesktops() : Global Largeur_Ecran = DesktopWidth(0)+5, Hauteur_Ecran = DesktopHeight(0)+10, Profondeur = DesktopDepth(0)
Global x, y, Titre.s = "", h_Fenetre
;Largeur_Ecran-5 : Hauteur_Ecran-10


Declare A_la_ligne()
Declare A_la_suite(Texte.s)

;
; ouvrir une fenêtre maximisée de la même taille que le bureau et sans bordure
;
h_Fenetre = OpenWindow(#Fenetre_principale, 0, 0, Largeur_Ecran, Hauteur_Ecran, Titre, #PB_Window_BorderLess)
;
; ouvrir un écran de la même taille que la fenêtre
;
OpenWindowedScreen(h_Fenetre, 0, 0, Largeur_Ecran, Hauteur_Ecran, 0, 0, 0, #PB_Screen_SmartSynchronization)
ClearScreen($FF7272)

ShowCursor_(1)

;-Entrée de la valeur de a
Repeat
  FlipBuffers()
  ExamineKeyboard()
  
  ; Efface le dernier caractère si la touche 'Back' est appuyée
  ;
  If KeyboardReleased(#PB_Key_Back)
    Texte$ = Left(Texte$, Len(Texte$)-1)
  Else
    resultat$=KeyboardInkey()
    If FindString("1234567890.", resultat$) ; Ajouter vos propres caractères valides ici
      Texte$ + resultat$
    EndIf ; Ajouter le nouveau texte à l'actuel (le cas échéant)
  EndIf
  
  ; Affiche le résultat
  ;
  If StartDrawing(ScreenOutput())
    DrawingMode(#PB_2DDrawing_Transparent)
    FrontColor(RGB(128, 255, 0))
    DrawText(20, 20, "Entrez la valeur de a:")
    DrawText(170, 20, Texte$)
    StopDrawing()
  EndIf
Until KeyboardPushed(#PB_Key_Return)



ClearScreen($FF7272)
StartDrawing(ScreenOutput())
;- début de l'affichage
x=0 : y = 0 : BackColor(Point(0, 0))
DrawingFont(Police)
DrawingMode(#PB_2DDrawing_AlphaChannel)

a = ValF(Texte$)

DrawText(X, Y, "Racine carrée par la méthode de Babylone")
Y + TextHeight(" ")
DrawText(X, Y, "Racine de " + StrF(a))
Y + TextHeight(" ")
Y + TextHeight(" ")


x2 = 1
y2 = a

While (Abs(y2-x2) > 1e-8)
  x2 = (x2+y2)/2
  y2 = a/x2
  If (x2<y2)
    DrawText(X, Y, StrF(x2) + " < racine < " + StrF(y2))
    y + TextHeight(" ")
  ElseIf x2 = y2
    DrawText(X, Y, "racine = " + StrF(y2))
    y + TextHeight(" ")    
  Else
    DrawText(X, Y, StrF(y2) + " <= racine <= "+ StrF(x2))
    y + TextHeight(" ")
  EndIf
Wend  

StopDrawing()

;- gestion des événements en boucle sans fin
Global action.i = #Aucune
Repeat
  Global Evenement = WindowEvent()
  Select Evenement
    Case #PB_Event_CloseWindow
      action = #Sortie
    Case 0
      ;
      ; il n'y a pas d'événement, donc faisons nos trucs graphiques
      ExamineKeyboard()
      If KeyboardPushed(#PB_Key_Escape)
        action = #Sortie
      EndIf
      ExamineMouse()
      If MouseButton(#PB_MouseButton_Left) <> 0
        action = #Sortie
      EndIf
      If MouseButton(#PB_MouseButton_Middle) <> 0
        action = #Sortie
      EndIf
      If MouseButton(#PB_MouseButton_Right) <> 0
        action = #Sortie
      EndIf
      ;
      ; et montrons les choses sur l'écran
      ;
      FlipBuffers()
  EndSelect
Until action = #Sortie
;- fermeture de l'écran & de la fenêtre en douceur
CloseScreen()
CloseWindow(#Fenetre_principale)
;}

Procedure A_la_ligne()
  y + TextHeight(" ")
  ProcedureReturn y
EndProcedure

Procedure A_la_suite(Texte.s)
  X + TextWidth(Texte)
  ProcedureReturn X
EndProcedure