Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

Calcul Mental

Voir le sujet précédent Voir le sujet suivant Aller en bas

Calcul Mental

Message par Dylan Gadacha le Dim 19 Jan 2014, 22:25

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.
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: Calcul Mental

Message par FRED92G le Dim 19 Jan 2014, 23:50

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

_________________
____________________________________________________________________________________________________________________________
 [Vous devez être inscrit et connecté pour voir cette image] [Vous devez être inscrit et connecté pour voir cette image] [Vous devez être inscrit et connecté pour voir cette image]
 
ICI PAS DE TOURISME ON A AUTRE CHOSE A FAIRE ET AUCUN DROIT A L ERREUR ET PERMI OR MIE D' AVOIR UN BON DICO OU DECODEUR
SURTOUT APRES QUE LE GRAND DOCTEUR ET PARLER.
avatar
FRED92G
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 260
Data de inscrição : 04/06/2013
Idade : 31
Localização : FRANCE

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum