AutoIt Français

Code : Tout sélectionner

GUICreate("Chess", 8*$caselen, 8*$caselen, -1, -1)
        GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")

Dim $hButton[8][8]
Global $chess = _GetBoard(false)

        For $i = 0 To 7
            For $j = 0 To 7
                $hButton[$i][$j] = GUICtrlCreateButton("", $j*$caselen, $i*$caselen, $caselen, $caselen, $BS_ICON)
                If $chess[_Get1DPosFrom2D($i, $j)] Then
                    For $k = 0 To UBound($IMG, 1)-1
                        If $chess[_Get1DPosFrom2D($i, $j)] = $IMG[$k][$IMG_valu] Then
                            If FileExists($IMG[$k][$IMG_form]) Then
                                _GUICtrlButton_SetImage($hButton[$i][$j], @ScriptDir&"\img\"&$IMG[$k][$IMG_form]&".bmp")
                            Endif
                            Exitloop
                        Endif
                    Next
                Else
                    $hexColor = 0x0   ;0xCECECE
                    If $color[_Get1DPosFrom2D($i, $j)] Then $hexColor = 0xffffff
                    GUICtrlSetBkColor($hButton[$i][$j], $hexColor)
                Endif
            Next
        NExt

GUISetState(@SW_SHOW)
 

Code : Tout sélectionner

#include <GUIButton.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
 

Code : Tout sélectionner

        Global $IMG[12][3] = [      [   "bp",   "Pion",     $BP], _     
                                    [   "wp",   "Pion",     $WP], _
                                    [   "br",   "Tour",     $BR], _
                                    [   "wr",   "Tour",     $WR], _
                                    [   "bn",   "Cavalier", $BN], _
                                    [   "wn",   "Cavalier", $WN], _
                                    [   "bb",   "Fou",      $BB], _
                                    [   "wb",   "Fou",      $WB], _
                                    [   "bk",   "Roi",      $BK], _
                                    [   "wk",   "Roi",      $WK], _
                                    [   "bq",   "Reine",    $BQ], _
                                    [   "wq",   "Reine",    $WQ]     ]
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
HotKeySet("{ESC}", "Terminate")
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 2)

$w = 40    ; <<< échelle

$gui = GuiCreate("", 8*$w, 8*$w, -1, 100, BitOr($WS_POPUP, $WS_BORDER), BitOr($WS_EX_LAYERED, $WS_EX_COMPOSITED))
GuiSetFont(($w/10)*6, 600, 0, "Arial Unicode MS")
$x = 0
$y = 0
$blanc = 0
Dim $cases[64]
For $i = 0 to 63
   $blanc = not $blanc
   $cases[$i] = GuiCtrlCreateLabel("", $x, $y, $w, $w, -1, $GUI_WS_EX_PARENTDRAG)
   If $blanc Then
        GUICtrlSetBkColor(-1, 0xffffff)
   Else
        GUICtrlSetBkColor(-1, 0xbbbbbb)
   EndIf
   $x += $w
   If $x >$w*7 Then 
       $blanc = not $blanc
       $x = 0
       $y += $w
   EndIf
Next

Dim $pieces[32]
; noirs
$pieces[0] = GuiCtrlCreateLabel(ChrW(9820), $w*0, 0, $w, $w, 0x0201)
$pieces[1] = GuiCtrlCreateLabel(ChrW(9822), $w*1, 0, $w, $w, 0x0201)
$pieces[2] = GuiCtrlCreateLabel(ChrW(9821), $w*2, 0, $w, $w, 0x0201)
$pieces[3] = GuiCtrlCreateLabel(ChrW(9819), $w*3, 0, $w, $w, 0x0201)
$pieces[4] = GuiCtrlCreateLabel(ChrW(9818), $w*4, 0, $w, $w, 0x0201)
$pieces[5] = GuiCtrlCreateLabel(ChrW(9821), $w*5, 0, $w, $w, 0x0201)
$pieces[6] = GuiCtrlCreateLabel(ChrW(9822), $w*6, 0, $w, $w, 0x0201)
$pieces[7] = GuiCtrlCreateLabel(ChrW(9820), $w*7, 0, $w, $w, 0x0201)
For $i = 8 to 15
  $pieces[$i] = GuiCtrlCreateLabel(ChrW(9823), $w*($i-8), $w, $w, $w, 0x0201)
Next
; blancs
For $i = 16 to 23
  $pieces[$i] = GuiCtrlCreateLabel(ChrW(9817), $w*($i-16), $w*6, $w, $w, 0x0201)
Next
$pieces[24] = GuiCtrlCreateLabel(ChrW(9814), $w*0, $w*7, $w, $w, 0x0201)
$pieces[25] = GuiCtrlCreateLabel(ChrW(9816), $w*1, $w*7, $w, $w, 0x0201)
$pieces[26] = GuiCtrlCreateLabel(ChrW(9815), $w*2, $w*7, $w, $w, 0x0201)
$pieces[27] = GuiCtrlCreateLabel(ChrW(9813), $w*3, $w*7, $w, $w, 0x0201)
$pieces[28] = GuiCtrlCreateLabel(ChrW(9812), $w*4, $w*7, $w, $w, 0x0201)
$pieces[29] = GuiCtrlCreateLabel(ChrW(9815), $w*5, $w*7, $w, $w, 0x0201)
$pieces[30] = GuiCtrlCreateLabel(ChrW(9816), $w*6, $w*7, $w, $w, 0x0201)
$pieces[31] = GuiCtrlCreateLabel(ChrW(9814), $w*7, $w*7, $w, $w, 0x0201)

For $i = 0 to 31
   GUICtrlSetBkColor($pieces[$i], $GUI_BKCOLOR_TRANSPARENT) 
   GUICtrlSetState($pieces[$i], $GUI_ONTOP)
   GUICtrlSetOnEvent($pieces[$i], "_Drag")
Next
GuisetState()


While 1
    Sleep(10)
Wend


Func _Drag()
Local $MousePos = MouseGetPos()
Local $pPos = ControlGetPos($gui, "", @GUI_CtrlId)
$x_pos0 = Round($pPos[0]/$w)
$y_pos0 = Round($pPos[1]/$w)
Local $diff[2]
$diff[0] = $MousePos[0]-$pPos[0]
$diff[1] = $MousePos[1]-$pPos[1]
 Do
    $MPos = MouseGetPos()
    ControlMove($gui, "", @GUI_CtrlId, $MPos[0]-$diff[0], $MPos[1]-$diff[1])
    Sleep(10)
 Until not _IsPressed("01")
$pPos = ControlGetPos($gui, "", @GUI_CtrlId)
$x_pos = Round($pPos[0]/$w)
$y_pos = Round($pPos[1]/$w)
ControlMove($gui, "", @GUI_CtrlId, $x_pos*$w, $y_pos*$w)

msgbox(0,"", "case de départ : " & _NumCases($x_pos0, $y_pos0) & _ 
        @crlf& "case d'arrivée : " &  _NumCases($x_pos, $y_pos))
EndFunc

Func _NumCases($x, $y)
  Return Chr(97+$x) & (8-$y)
EndFunc 
  
Func Terminate()
    Exit
EndFunc 

 

Code : Tout sélectionner

$hGui = GUICreate("Chess", 8*$caselen, 8*$caselen, -1, -1, BitOr($WS_POPUP, $WS_BORDER), BitOr($WS_EX_LAYERED, $WS_EX_COMPOSITED))
        ;GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")

Global $hLabel[64]
        For $i = 0 To UBound($hLabel)-1
            Local $aTmp = _Get2DPosFrom1D($i)
            $hLabel[$i] = GuiCtrlCreateLabel("", $aTmp[1]*$caselen, $aTmp[0]*$caselen, $caselen, $caselen, -1, $GUI_WS_EX_PARENTDRAG)
            GUICtrlSetBkColor(-1, $color[$i] ? 0xFFFFFF : 0x0)
        Next

Global $chess = _GetBoard()
Dim $pieces[1]

        Local $iTmp = 0
        For $i = 0 To UBound($chess, 1)-1
            If ($chess[$i]) Then
                For $k = 0 To UBound($IMG, 1)-1
                    If ($chess[$i] = $IMG[$k][$IMG_valu]) Then              ; $IMG_valu est une constante qui vaut 2 (Afin de retourner la valeur de la piece)
                        If FileExists(_Access($IMG[$k][$IMG_form])) Then    ; $IMG_format est la une constante qui vaut 0 (Elle me retourne le nom de mon fichier Exemple: "bb".bmp)
                                                                            ; Ma fonction Access($var) me renvoie juste [@ScriptDir&"\img\"&$var&".bmp"]
                            ReDim $pieces[$iTmp+1]
                            Local $aaTmp = _Get2DPosFrom1D($i)              ; Fonction qui me renvoi les coordonnées X et Y d'un tableau 2D à partir de la coordonnée unique d'un tableau 1D
                            $pieces[$iTmp] = GuiCtrlCreateLabel("", $aaTmp[1]*$caselen, $aaTmp[0]*$caselen, $caselen, $caselen, 0x0201)
                            GUICtrlSetImage($pieces[$iTmp], ($color[$i]) ? _Access($IMG[$k][$IMG_form]) : _Access($IMG[$k+1][$IMG_form]))  
                                                                            ; Si la piece est blanche ou noire
                            $iTmp+= 1
                        Endif
                    Endif
                Next
            Endif
        Next

        For $i = 0 To Ubound($pieces)-1
            GUICtrlSetBkColor($pieces[$i], $GUI_BKCOLOR_TRANSPARENT)
            GUICtrlSetState($pieces[$i], $GUI_ONTOP)
            GUICtrlSetOnEvent($pieces[$i], "_Drag")
        Next
GUISetState(@SW_SHOW)
 

Code : Tout sélectionner

$hGui = GUICreate("Chess", 8*$caselen, 8*$caselen, -1, -1, BitOr($WS_POPUP, $WS_BORDER), BitOr($WS_EX_LAYERED, $WS_EX_COMPOSITED))
        ;GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")

Global $hLabel[64]
        For $i = 0 To UBound($hLabel)-1
            Local $aTmp = _Get2DPosFrom1D($i)
            $hLabel[$i] = GuiCtrlCreateLabel("", $aTmp[1]*$caselen, $aTmp[0]*$caselen, $caselen, $caselen, -1, $GUI_WS_EX_PARENTDRAG)
            GUICtrlSetBkColor(-1, $color[$i] ? 0xFFFFFF : 0x000000)
        Next

Global $chess = _GetBoard()
Dim $pieces[0]

        Local $iTmp = 0
        For $i = 0 To UBound($chess, 1)-1
            If ($chess[$i] <> 0) Then
                For $k = 0 To UBound($IMG, 1)-1
                    If ($chess[$i] = $IMG[$k][$IMG_valu]) Then
                        If FileExists(_Access($IMG[$k][$IMG_form])) Then
                            ReDim $pieces[$iTmp+1]
                            Local $aaTmp = _Get2DPosFrom1D($i)
                            $pieces[$iTmp] = GUICtrlCreatePic(_Access($IMG[$k][$IMG_form]), $aaTmp[1]*$caselen, $aaTmp[0]*$caselen, $caselen, $caselen)
                                                    GUICtrlSetBkColor($pieces[$iTmp], $color[$i] ? 0xFFFFFF : 0x000000 )
                                                    GUICtrlSetState($pieces[$iTmp], $GUI_ONTOP)
                                                    GUICtrlSetOnEvent($pieces[$iTmp], "_Drag")
                            $iTmp+= 1
                            Exitloop
                        Endif
                    Endif
                Next
            Endif
        Next

GUISetState(@SW_SHOW)

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

HotKeySet("{ESC}", "Terminate")
Opt("GUIOnEventMode", 1)

$w = 40    ; <<< échelle

$gui = GuiCreate("", 8*$w, 8*$w, -1, 100, BitOr($WS_POPUP, $WS_BORDER))
Local $x = 0, $y = 0, $blanc = 0
Dim $cases[64]
For $i = 0 to 63
   $blanc = not $blanc
   $cases[$i] = GuiCtrlCreateLabel("", $x, $y, $w, $w, -1, $GUI_WS_EX_PARENTDRAG)
   $blanc ? GUICtrlSetBkColor(-1, 0xffffee) : GUICtrlSetBkColor(-1, 0xbbbbbb)
   $x += $w
   If $x >$w*7 Then
       $blanc = not $blanc
       $x = 0
       $y += $w
   EndIf
Next
GuisetState()

Dim $pieces[32]
; noirs
For $i = 8 to 15
   $pieces[$i] = _Pieces($w*($i-8), $w, "bq.bmp")
Next



While 1
    Sleep(10)
Wend


Func _Pieces($left, $top, $img)
   Local $_gui = GuiCreate("", $w, $w, $left, $top, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui)
   GuiCtrlCreatePic($img, 0, 0, $w, $w)
   GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_Drag", $_gui)
   GuisetState()
   Return $_gui
EndFunc


Func _Drag()
Local $guiPos = WinGetPos($gui)
Local $hWndPos = WinGetPos(@GUI_WinHandle)
Local $WinPos[2]

; case de départ
$WinPos[0] = $hWndPos[0]-$guiPos[0]
$WinPos[1] = $hWndPos[1]-$guiPos[1]
$x_pos0 = Round($WinPos[0]/$w)
$y_pos0 = Round($WinPos[1]/$w)

; drag
Local $MousePos = MouseGetPos()
$WinPos[0] = $MousePos[0]-$hWndPos[0]
$WinPos[1] = $MousePos[1]-$hWndPos[1]
 Do
    $hWndPos = MouseGetPos()
    WinMove(@GUI_WinHandle, "", $hWndPos[0]-$WinPos[0], $hWndPos[1]-$WinPos[1])
    Sleep(10)
 Until not _IsPressed("01")

; case d'arrivée
$hWndPos = WinGetPos(@GUI_WinHandle)
$WinPos[0] = $hWndPos[0]-$guiPos[0]
$WinPos[1] = $hWndPos[1]-$guiPos[1]
$x_pos = Round($WinPos[0]/$w)
$y_pos = Round($WinPos[1]/$w)

; positionneur
WinMove(@GUI_WinHandle, "", $x_pos*$w+$guiPos[0], $y_pos*$w+$guiPos[1])

msgbox(0,"", "case de départ : " & _NumCases($x_pos0, $y_pos0) & _
        @crlf& "case d'arrivée : " &  _NumCases($x_pos, $y_pos))
EndFunc


Func _NumCases($x, $y)
  Return Chr(97+$x) & (8-$y)
EndFunc
 
Func Terminate()
    Exit
EndFunc

Code : Tout sélectionner

Func _Pieces($left, $top, $img)
   Local $_gui = GuiCreate("", $w, $w, $left, $top, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui)
   GuiCtrlCreatePic($img, 0, 0, $w, $w, -1, $GUI_WS_EX_PARENTDRAG)
; The extended style $GUI_WS_EX_PARENTDRAG can be used to allow the dragging of the parent window for windows that do not have a titlebar 
   GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_Drag", $_gui) ; GUI_EVENT_PRIMARYUP à la place de GUI_EVENT_PRIMARYDOWN

   GuisetState()
   Return $_gui
EndFunc

Func _Drag()
; et là, plus besoin de la boucle While _IsPressed 
    Local $hWndPos = WinGetPos(@GUI_WinHandle)
    Local $WinPos[2]
    Local $guiPos = WinGetPos($gui)

    ; case de départ
    $WinPos[0] = $hWndPos[0]-$guiPos[0]
    $WinPos[1] = $hWndPos[1]-$guiPos[1]
    $x_pos0 = Round($WinPos[0]/$w)
    $y_pos0 = Round($WinPos[1]/$w)


    $WinPos[0] = $hWndPos[0]-$guiPos[0]
    $WinPos[1] = $hWndPos[1]-$guiPos[1]
    $x_pos = Round($WinPos[0]/$w)
    $y_pos = Round($WinPos[1]/$w)

    ; positionneur
    WinMove(@GUI_WinHandle, "", $x_pos*$w+$guiPos[0], $y_pos*$w+$guiPos[1])

    msgbox(0,"", "case de départ : " & _NumCases($x_pos0, $y_pos0) & _
            @crlf& "case d'arrivée : " &  _NumCases($x_pos, $y_pos))
EndFunc