AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

Global $Gui
Global $Labels = 300

$Gui = GUICreate("Random", 530, 310)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
RemplirLabels()
GUISetState()

While(True)
    Sleep(10)
WEnd

Func RemplirLabels()
    Local $x
    Local $y
    Local $Palier = 20
    For $i = 0 To $Labels
        $x = 5 + Floor($i/$Palier)*35
        $y = 5 + Mod($i, $Palier)*15
        GUICtrlCreateLabel(Random(0, 999, 1) & @CRLF & $i, $x, $y, 30, 13, $SS_CENTER)
        GUICtrlSetBkColor(-1, 0xFFAAAA)
        GUICtrlSetOnEvent(-1, "LabelClic")
    Next
EndFunc

Func LabelClic()
    Local $text = StringSplit(GUICtrlRead(@GUI_CtrlId), @CRLF, 1)
    ToolTip("Label numero " & $text[2]+1 & " : " & $text[1])
EndFunc

Func quit()
    Exit
EndFunc
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 267, 192, 192, 124)
Global $Button1 = GUICtrlCreateButton("Button1", 88, 40, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Local $hDLL = DllOpen("user32.dll")

While 1
    If _IsPressed("10", $hDLL) Then
        ConsoleWrite("_IsPressed - Shift Key was pressed." & @CRLF)

    ElseIf _IsPressed("11", $hDLL) Then
        ConsoleWrite("_IsPressed - Ctrl Key was pressed." & @CRLF)
    EndIf

    Sleep(250)
WEnd

Code : Tout sélectionner

Func _factoriel ( $number)
    Local $result = 1
    If Not IsNumber ( $number) Then Return SetError ( 1, Default, False)
    If $number < 1 Then Return SetError ( 2, Default, False)
    For $i = 1 To $number Step 1
        $result *= $i
    Next
    Return $result
EndFunc

Func _NthRoot ( $number, $nth)
    If Not IsNumber ( $number) Then Return SetError ( 1, Default, False)
    If $number < 1 Then Return SetError ( 2, Default, False)
    Return $number^(1/$nth)
EndFunc

; 10!
MsgBox(64, "10!", _factoriel(10))

; Racine cubique de 27
MsgBox(64, "Racine cubique de 27", _NthRoot(27, 3))