AutoIt Français

Code : Tout sélectionner

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

Global $libelleLatin
Global $libelleFrancais
Global $sortie = 0
Global $boutonSortie
Global $Latin[9]
Global $Francais[9]

$Latin[0] = "cogi, is, ere, coegi, coactum"
$Francais[0] = "rassembler"
$Latin[1] = "educo, is, ere, eduxi, eductum"
$Francais[1] = "faire sortir"
$Latin[2] = "volito, as, are, volitavi, atum"
$Francais[2] = "voler"
$Latin[3] = "nato, as, are, navi, natum"
$Francais[3] = "nager"
$Latin[4] = "quiesco, cis, cere, quievi, quietum"
$Francais[4] = "se reposer"
$Latin[5] = "fingo, is, ere, finxi, fictum"
$Francais[5] = "fabriquer"
$Latin[6] = "do, das, dare, dedi, datum"
$Francais[6] = "donner"
$Latin[7] = "immitto, is, ere, immisi, immissum"
$Francais[7] = "envoyer"
$Latin[8] = "detraho, is, ere, traxi, tractum"
$Francais[8] = "retirer"

$Form1 = GUICreate("Lexique",200, 200, 192, 124)
$libelleLatin = GUICtrlCreateLabel("", 20, 20 , 200 , 50)
$libelleFrancais = GUICtrlCreateLabel("", 20, 80 , 200 , 50)
$boutonSortie = GUICtrlCreateButton("Exit", 60, 150, 89, 41)
GUISetState(@SW_SHOW)
Boucler()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $boutonSortie
            $sortie = 1
            Exit
    EndSwitch
WEnd

Func Boucler()
while $sortie = 0
    GUICtrlSetData($libelleLatin,"")
    GUICtrlSetData($libelleFrancais,"")
    Local $hasard = Random(0,8)
    GUICtrlSetData($libelleLatin,$Latin[$hasard])
        Sleep(2000)
        GUICtrlSetData($libelleFrancais,$Francais[$hasard])
        Sleep(2000)
Wend
EndFunc
 

Code : Tout sélectionner

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

Global $libelleLatin
Global $libelleFrancais
Global $sortie = 0
Global $Latin[9]
Global $Francais[9]

$Latin[0] = "cogi, is, ere, coegi, coactum"
$Francais[0] = "rassembler"
$Latin[1] = "educo, is, ere, eduxi, eductum"
$Francais[1] = "faire sortir"
$Latin[2] = "volito, as, are, volitavi, atum"
$Francais[2] = "voler"
$Latin[3] = "nato, as, are, navi, natum"
$Francais[3] = "nager"
$Latin[4] = "quiesco, cis, cere, quievi, quietum"
$Francais[4] = "se reposer"
$Latin[5] = "fingo, is, ere, finxi, fictum"
$Francais[5] = "fabriquer"
$Latin[6] = "do, das, dare, dedi, datum"
$Francais[6] = "donner"
$Latin[7] = "immitto, is, ere, immisi, immissum"
$Francais[7] = "envoyer"
$Latin[8] = "detraho, is, ere, traxi, tractum"
$Francais[8] = "retirer"

$Form1 = GUICreate("Lexique",200, 200, 192, 124, -1,$WS_EX_TOPMOST)
GuiSetOnEvent(-3, "_Close", $Form1)
$libelleLatin = GUICtrlCreateLabel("", 20, 20 , 200 , 50)
$libelleFrancais = GUICtrlCreateLabel("", 20, 80 , 200 , 50)

GUISetState(@SW_SHOW)

Opt("GUIOnEventMode", 1)  ; Passe en mode événement

Boucler()

Func Boucler()
while $sortie = 0
    GUICtrlSetData($libelleLatin,"")
    GUICtrlSetData($libelleFrancais,"")
    Local $hasard = Random(0,8)
    GUICtrlSetData($libelleLatin,$Latin[$hasard])
        Sleep(2000)
        GUICtrlSetData($libelleFrancais,$Francais[$hasard])
        Sleep(2000)
Wend
EndFunc

Func _Close()
    $sortie = 1
   GuiDelete(@GUI_WinHandle)
EndFunc