Bild auf Kommando mit einstellbarer Geschwindigkeit drehen

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>

TrayTip("ACHTUNG!","Durch Klick auf dieses Symbol lässt sich das Programm beenden!!",1000)
$hGUI = GUICreate("Elektromotor", 704, 780);,$DS_SETFOREGROUND))
GUICtrlCreateLabel("Multiplikator",610,640)
$combo = GUICtrlCreateCombo("",610,660,50,20)
$slider = GUICtrlCreateSlider(200,660,400,30)
$start = GUICtrlCreateButton("Strom an",50,660,100,30)
GUICtrlCreateLabel("Anmerkungen:"&@CRLF&" -Das Programm lässt sich nicht durch Klick auf X oder 'Strom aus' beenden"&@CRLF&" -Durch den Slider lässt sich die Geschwindigkeit einstellen"&@CRLF&"DIESES PROGRAMM IST NOCH IM BETA-ZUSTAND; DIESE PROBLEME WERDEN GEFIXT!!",10,700)
GUICtrlSetData($combo,"|1|2|3|4|5|6|","1")

_GDIPlus_StartUp()
$hImageStator = _GDIPlus_ImageLoadFromFile("Stator.png")
$hImageKontakt = _GDIPlus_ImageLoadFromFile("Schleifkontakte.png")
$hGraphic1 = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hImageRotor = _GDIPlus_ImageLoadFromFile("rotor_small.png")
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hImageRotor)

$hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix,0,0)

_GDIPlus_MatrixRotate($hMatrix, 180, "False")
_GDIPlus_GraphicsSetTransform($hGraphic, $hMatrix)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImageRotor, 100, 100)

GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
GUISetState()

Func MY_WM_PAINT($hWnd, $Msg, $wParam, $lParam)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
_GDIPlus_GraphicsDrawImage($hGraphic1, $hImageStator, 0, 0)
_GDIPlus_GraphicsDrawImage($hGraphic1, $hImageKontakt, 0, 0)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImageRotor, 100, 100)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc

While 1
$msg = GUIGetMsg()
Select
Case $msg = $start

GUICtrlSetData($start,"Strom aus")

Do
$multi = GUICtrlRead($combo)
$msg = GUIGetMsg()
$speed = 100-GUICtrlRead($slider)
Sleep($speed*$multi)
$msg = GUIGetMsg()
Sleep($speed*$multi)
$msg = GUIGetMsg()
Sleep($speed*$multi)
$msg = GUIGetMsg()
Sleep($speed*$multi)
$msg = GUIGetMsg()
Sleep($speed*$multi)
$msg = GUIGetMsg()
Sleep($speed*$multi)
$msg = GUIGetMsg()
Until $msg = $start
If $msg = $GUI_EVENT_CLOSE Then Exit
GUICtrlSetData($start,"Strom an")
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

#include <GDIplus.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
Opt("GUIOnEventMode", 1)

_GDIPlus_Startup()
Global $Stator = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\Stator.png")
Global $Rotor = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\Rotor_small.png")
Global $Schleifkontakte = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\Schleifkontakte.png")
Global $width = _GDIPlus_ImageGetWidth($Stator)
Global $height = _GDIPlus_ImageGetHeight($Stator)

Global $dx = _GDIPlus_ImageGetWidth($Rotor)
Global $dy = _GDIPlus_ImageGetHeight($Rotor)

Global $i

Global $hWnd = GUICreate("Elektromotor by Jan Scheiper mit freundlicher Mithilfe von UEZ & name22", 704, 780, -1, -1, Default)
GUICtrlCreateLabel("Wert:",50,733)
$slider = GUICtrlCreateSlider(50,670,604,34)
$speed = GUICtrlCreateInput("0",80,730,30,20,$ES_READONLY)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState()

Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hWnd)
Global $hBitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphics)
Global $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

Global $hFGBitmap = _GDIPlus_BitmapCreateFromGraphics($dx, $dy, $hGraphics)
Global $hFGBackbuffer = _GDIPlus_ImageGetGraphicsContext($hFGBitmap)

Global $hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, $dx / 2, $dy / 2)
_GDIPlus_GraphicsClear($hBackbuffer, 0xFFFFFFFF)

Global $FG_x = 163
Global $FG_y = 221
Global $mid_x = $dx * 0.5
Global $mid_y = $dy * 0.5

$i = 0

While Sleep(20)
GUICtrlSetData($speed,GUICtrlRead($slider))
$i = GUICtrlRead($speed)
_GDIPlus_GraphicsDrawImage($hBackbuffer, $Stator, 0, 0) ;draw background
_GDIPlus_GraphicsClear($hFGBackbuffer, 0xFFFFFFFF) ;clear backbuffer from foreground graphics

_GDIPlus_MatrixRotate($hMatrix, $i, 0) ;rotate foreground graphic
_GDIPlus_GraphicsSetTransform($hFGBackbuffer, $hMatrix)
_GDIPlus_GraphicsDrawImage($hFGBackbuffer, $Rotor, -$mid_x, -$mid_y)

_GDIPlus_GraphicsDrawImageRect($hBackbuffer, $hFGBitmap, $FG_x, $FG_y, $dx, $dy) ;copy foreground backbuffer to main backbuffer
_GDIPlus_GraphicsDrawImage($hBackbuffer, $Schleifkontakte, 0, 0)
_GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $width, $height) ;copy full drawn image to main screen

WEnd

Func _Exit()
_GDIPlus_BitmapDispose($Stator)
_GDIPlus_BitmapDispose($Rotor)
_GDIPlus_BitmapDispose($Schleifkontakte)
_GDIPlus_BitmapDispose($hFGBitmap)
_GDIPlus_GraphicsDispose($hFGBackbuffer)
_GDIPlus_MatrixDispose($hMatrix)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hBackbuffer)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Exit
EndFunc