Calcul Mental

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.

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