AutoIt Français

Code : Tout sélectionner

#include <WinAPI.au3>
#include <GDIPlus.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

$iW = 500
$iH = 300
$gui = GuiCreate("dd", $iW, $iH, 300, 50)
GuiSetBkColor(0x000000)
GUISetOnEvent( -3, "_Exit")
GuiSetState()

    _GDIPlus_Startup()

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($gui)
$hMatrix = _GDIPlus_MatrixCreate()
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW*5, $iH, $hGraphic)
$hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
 _GDIPlus_GraphicsSetSmoothingMode($hBackbuffer, 2)
 _GDIPlus_GraphicsClear($hBackbuffer) ;, 0xFFFFFFFF)
$hPen = _GDIPlus_PenCreate(0xFF00FF00, 3)

Dim $pixels, $iTotalReplace, $Count = 0

    ;_GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile("ecgNB.bmp")
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height = _GDIPlus_ImageGetHeight($hImage)
    $hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $aSize = DllCall('gdi32.dll', 'int', 'GetBitmapBits', 'ptr', $hBmp, 'int', 0, 'ptr', 0)
    If $aSize[0] Then
        $tBits = DllStructCreate('byte[' & $aSize[0] & ']')
        DllCall('gdi32.dll', 'int', 'GetBitmapBits', 'ptr', $hBmp, 'int', $aSize[0], 'ptr', DllStructGetPtr($tBits))
        $sHex = Hex(DllStructGetData($tBits, 1))
        $sHex = StringRegExpReplace($sHex, "([[:xdigit:]]{6})(FF)", "\1 ")

        Local $pix[$height][$width], $aTemp
        Local $aArr = StringRegExp($sHex, "(.{" & ($width * 7) & "})", 3)
   ;    _ArrayDisplay($aArr)    ; array à 123 lignes et 1 col de 193 caract

  For $x = 0 To UBound($aArr)-1    ; pour chacune des 123 lignes
        $aTemp = StringRegExp($aArr[$x] & " ", "(.{6}) ", 3)   ; array à 123 lignes et 1 col
    For $y = 0 To UBound($aTemp) - 1  ; 192
                $pix[$x][$y] = $aTemp[$y]
    Next
   Next

   _WinAPI_DeleteObject($hBmp)
    _GDIPlus_ImageDispose($hImage)
 ;   _GDIPlus_Shutdown()
EndIf

$k = 0
$horiz = 0
$vert = 100

AdlibRegister("Draw", 100)

While Sleep(10000)
WEnd



Func Draw()
_GDIPlus_GraphicsClear($hBackbuffer)  ; , 0xFFFFFFFF)

While 1

For $i = 0 to UBound($pix, 2)-1
    For $j = 0 to UBound($pix)-1
        If StringLeft($pix[$j][$i], 1) = "F" Then
            Sleep(1)

            If $i+($k*$width) >=400 Then
                _GDIPlus_MatrixTranslate($hMatrix, -1, 0)  
                _GDIPlus_GraphicsSetTransform($hGraphic, $hMatrix)
            EndIf

            _GDIPlus_GraphicsDrawLine($hBackbuffer, $horiz , $vert+50 , $i+($k*$width), $j+50, $hPen)  
            $horiz = $i+($k*$width)
            $vert = $j
            Exitloop
        EndIf
    Next

     _GDIPlus_GraphicsDrawImage($hGraphic, $hBitmap, 0, 0)  
   Next

$k += 1
Wend
   
EndFunc


;--------------------------------------------------------

Func _Exit()
    AdlibUnRegister("Draw")
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_GraphicsDispose($hBackbuffer)
    _GDIPlus_BitmapDispose ($hBitmap)
    _GDIPlus_GraphicsDispose($hGraphic)
 _GDIPlus_MatrixDispose($hMatrix)
    _GDIPlus_Shutdown()
    GUIDelete($gui)
    Exit
EndFunc