Calcul Mental

[Dylan Gadacha]

Un programme qui affiche des calcules aléatoires sujet A et B:

Code:

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", Close)

$Form1 = GUICreate("Calcul Mental - Par Dylan Gadacha", 720, 320)
GUISetState(@SW_SHOW)

$Blue = GUICtrlCreateLabel("", 0, 0, 360, 320)
GUICtrlSetBkColor(-1, "0x6699FF")
$Pink = GUICtrlCreateLabel("", 360, 0, 360, 320)
GUICtrlSetBkColor(-1, "0xCC33CC")

$Sleep = 10

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
     Case $GUI_EVENT_CLOSE
       Exit
  EndSwitch
  $Cl1_Nb1 = Round(Random(1, 10), 0)
  $Cl1_Nb2 = Round(Random(1, 10), 0)
  Local $DOpp1;
  $Opp1 = Round(Random(0, 400), 0)
  If $Opp1 > "0" And $Opp1 < "100" Then $Draw_Opp1 = "+"
  If $Opp1 > "100" And $Opp1 < "200" Then $Draw_Opp1 = "-"
  If $Opp1 > "200" And $Opp1 < "300" Then $Draw_Opp1 = "x"
  If $Opp1 > "300" And $Opp1 < "400" Then $Draw_Opp1 = "/"
  $Draw_Cl1 = GUICtrlCreateLabel("" & $Cl1_Nb1 & "" & $Draw_Opp1 & "" & $Cl1_Nb2, 0, 100, 350, 110, $SS_CENTER)
  GUICtrlSetColor(-1, "0x0066FF")
  GUICtrlSetBkColor(-1, "0x6699FF")
  GUICtrlSetFont(-1, 72, 0, 0, "Arial Rounded MT Bold")

  $Cl2_Nb1 = Round(Random(1, 10), 0)
  $Cl2_Nb2 = Round(Random(1, 10), 0)
  $Opp2 = Round(Random(0, 400), 0)
  If $Opp2 > "0" And $Opp2 < "100" Then $Draw_Opp2 = "+"
  If $Opp2 > "100" And $Opp2 < "200" Then $Draw_Opp2 = "-"
  If $Opp2 > "200" And $Opp2 < "300" Then $Draw_Opp2 = "x"
  If $Opp2 > "300" And $Opp2 < "400" Then $Draw_Opp2 = "/"
  $Draw_Cl2 = GUICtrlCreateLabel("" & $Cl2_Nb1 & "" & $Draw_Opp2 & "" & $Cl2_Nb2, 370, 100, 350, 110, $SS_CENTER)
  GUICtrlSetColor(-1, "0x990066")
  GUICtrlSetBkColor(-1, "0xCC33CC")
  GUICtrlSetFont(-1, 72, 0, 0, "Arial Rounded MT Bold")

  $Time = 200
  $Current_Time = 0
  $Draw_CurrentTime = GUICtrlCreateLabel("", 720/2-10, 320/2-100, 20, $Current_Time)
  $Draw_Time = GUICtrlCreateLabel("", 720/2-12, 320/2-102, 24, $Time+4, $SS_SUNKEN)
  GUICtrlSetBkColor(-1, "0x660066")
  While $Current_Time < 200
       $nMsg = GUIGetMsg()
       Switch $nMsg
         Case $GUI_EVENT_CLOSE
           Exit
       EndSwitch
       Sleep(1000)
       $Current_Time+=200/$Sleep
       GUICtrlDelete($Draw_CurrentTime)
       $Draw_CurrentTime = GUICtrlCreateLabel("", 720/2-10, 320/2-100, 20, $Current_Time)
  WEnd
  GUICtrlDelete($Draw_Cl1)
  GUICtrlDelete($Draw_Cl2)
  GUICtrlDelete($Draw_Time)
WEnd

Func Close()
  Exit
EndFunc

[Vous devez être inscrit et connecté pour voir ce lien]

Exécutable: http://www.sendspace.com/file/kvfsim

C'est une version de test, pas de menu, le programme tourne en boucle et les calculs s'actualisent toute les 10 secondes.

ECHAP pour fermer le programme.

Dylan.

[FRED92G]

UNE PTION POUR RENTRE LA REPONCE SERAI TOP AVEC AU BOUT DE 10 ROTATION UNE NOTE DE BONNE REPONCE