Image animation element running continuously

[Rechard_Long]

Currently they have 51 so- called same image is BF_001.PNG By BF_0051.PNG . Now when you want to create GUI opens its first load runs continuously ( think Sleep ( 80 ) is it rather a new image ) is dc but I did it twitched. I give up with this ,

. 

Thanks for all 

[mLipok]

Please try to make your description of your problem more readable.

[Rechard_Long]

15 hours ago, mLipok said:

Please try to make your description of your problem more readable.

Sorry . I am Vietnamese. I used Google Translate to describe , I do not know english

[mikell]

Hum probably mLipok's comment meant also : please post your code 

[Rechard_Long]

15 hours ago, mikell said:

Hum probably mLipok's comment meant also : please post your code 

 

I can send you one archive includes photographs should run continuously .PNG format

15 hours ago, mikell said:

 

[mLipok]

I'm Polish.
I'm using Google Translate too (very often, but less and less - matter of practice).

Just you must try to use other wording, and try to organize them in horizontal not vertical statement.

 

@mikell is quite right.

If you had problem with english try to use AutoIt language to describe what you want to do.
Of course you must add comments to your example code.

 

btw.
In this case combination of AutoIt+English is much more universal language in comparition to English

 

EDIT2:

If you want a good use GOOGLE Translate

then you need to do multiple translation.
VIETNAMESE> ENGLISH> VIETNAMESE

Then you'll see what others see (those reading)

Edited February 17, 2016 by mLipok

[Rechard_Long]

15 hours ago, mLipok said:

I'm Polish.
I'm using Google Translate too.

Just you must try to use other wording, and try to organize them in horizontal not vertical statement.

 

@mikell is quite right.

If you had problem with english try to use AutoIt language to describe what you want to do.
Of course you must add comments to your example code.

 

btw.
In this case combination of AutoIt+English is much more universal language in comparition to English

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Icons.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)

$ANIMATED = GUICtrlCreatePic("", 30, 30, 264, 90)
_SETIMAGE(-1, @ScriptDir & "\REZ_Systems\UI\UI_BI_FX\BI_FX001.PNG")
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###
$time = TimerInit()
$id_gui = 1
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit

   EndSwitch
   If TimerDiff($time) > 70 Then ; 3s loading image
      $id_gui += 1
      If $id_gui = 52 Then $id_gui = 1
      $time = TimerInit()
      _SETIMAGE($ANIMATED,@ScriptDir & "\REZ_Systems\UI\UI_BI_FX\BI_FX0" & $id_gui & ".PNG")
   EndIf
WEnd
 

[mLipok]

Please read this:

 How to post code on the forum 

[Rechard_Long]

 

I run it smoothly

[UEZ]

Hmm, your operating system is in English but you don't understand English.

 

Maybe you can provide also the images in a zip archive.

[Rechard_Long]

15 hours ago, UEZ said:

Hmm, your operating system is in English but you don't understand English.

 

Maybe you can provide also the images in a zip archive.

 

15 hours ago, mLipok said:

Please read this:

 How to post code on the forum 

 

Sorry, I lost too polite

UI_BI_FX.zip

[UEZ]

Ok, the animation runs properly. What is your problem now?

 

[Rechard_Long]

15 hours ago, UEZ said:

15 hours ago, UEZ said:

Ok, the animation runs properly. What is your problem now?

 

 

It runs not smooth , but it kept twitching

[UEZ]

Try this:

expandcollapse popup

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)

$ANIMATED = GUICtrlCreatePic("", 30, 30, 264, 90)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

Global Const $STM_SETIMAGE = 0x0172
_GDIPlus_Startup()
Global $i, $aFrames[51]
For $i = 1 To 51
    $aFrames[$i - 1] = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\REZ_Systems\UI\UI_BI_FX\BI_FX0" & $i & ".PNG")
Next
Global $iClear = 0xFFF0F0F0
Global $hBitmap = _GDIPlus_BitmapCreateFromScan0(264, 90), $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap)
AdlibRegister("Play_Anim", 70)


While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
       Case $GUI_EVENT_CLOSE
            AdlibUnRegister("Play_Anim")
            GUIDelete()
            For $i = 0 To 50
                _GDIPlus_ImageDispose($aFrames[$i])
            Next
            _GDIPlus_GraphicsDispose($hGfx)
            _GDIPlus_ImageDispose($hBitmap)
            _GDIPlus_Shutdown()
            Exit
   EndSwitch
WEnd

Func Play_Anim()
    Local Static $iFrame = 0
    _GDIPlus_GraphicsClear($hGfx, $iClear)
    _GDIPlus_GraphicsDrawImageRect($hGfx, $aFrames[$iFrame], 0, 0, 264, 90)
    Local $hGDIBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
    _WinAPI_DeleteObject(GUICtrlSendMsg($ANIMATED, $STM_SETIMAGE, $IMAGE_BITMAP, $hGDIBitmap))
    _WinAPI_DeleteObject($hGDIBitmap)
    $iFrame += 1
    If $iFrame > 50 Then $iFrame = 0
EndFunc

 

[mLipok]

@UEZ  Interesting implementation.

 

[Rechard_Long]

On 17/2/2016 at 6:13 AM, UEZ said:

Try this:

expandcollapse popup

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)

$ANIMATED = GUICtrlCreatePic("", 30, 30, 264, 90)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

Global Const $STM_SETIMAGE = 0x0172
_GDIPlus_Startup()
Global $i, $aFrames[51]
For $i = 1 To 51
    $aFrames[$i - 1] = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\REZ_Systems\UI\UI_BI_FX\BI_FX0" & $i & ".PNG")
Next
Global $iClear = 0xFFF0F0F0
Global $hBitmap = _GDIPlus_BitmapCreateFromScan0(264, 90), $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap)
AdlibRegister("Play_Anim", 70)


While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
       Case $GUI_EVENT_CLOSE
            AdlibUnRegister("Play_Anim")
            GUIDelete()
            For $i = 0 To 50
                _GDIPlus_ImageDispose($aFrames[$i])
            Next
            _GDIPlus_GraphicsDispose($hGfx)
            _GDIPlus_ImageDispose($hBitmap)
            _GDIPlus_Shutdown()
            Exit
   EndSwitch
WEnd

Func Play_Anim()
    Local Static $iFrame = 0
    _GDIPlus_GraphicsClear($hGfx, $iClear)
    _GDIPlus_GraphicsDrawImageRect($hGfx, $aFrames[$iFrame], 0, 0, 264, 90)
    Local $hGDIBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
    _WinAPI_DeleteObject(GUICtrlSendMsg($ANIMATED, $STM_SETIMAGE, $IMAGE_BITMAP, $hGDIBitmap))
    _WinAPI_DeleteObject($hGDIBitmap)
    $iFrame += 1
    If $iFrame > 50 Then $iFrame = 0
EndFunc

 

 

Thank you in advance for the code , but when you run it an error ?

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "F:\Dot Kich\Tester.au3"    
"F:\Dot Kich\Tester.au3" (50) : ==> Unknown function name.:
Global $hBitmap = _GDIPlus_BitmapCreateFromScan0(264, 90), $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap)
Global $hBitmap = ^ ERROR
>Exit code: 1    Time: 1.951

 

[Rechard_Long]

Wrong to right, I forgot to update its library so much error , your code right, thank you a lot , you really enthusiastic

 you more 

[UEZ]

Quote

In this topic , you gave me a standard source , and I should add , " this is important " that the background is transparent , and the present I do not know how handle @@ !

Handling transparent images is not easy. You have to adjust the $iClear value according to the background color.

$iClear must be in format ARGB -> AlphaRedGreenBlue

Further it is much easier to handle the color value in hex decimal format -> $iClear = 0xFFF0F0F0

Each color channel must be in the range of 0x00 until 0xFF which is in decimal 0 - 255. 0x is the prefix for hex decimal numbers.

If you clear the picture image first it will start to twitsching again.

Edited February 18, 2016 by UEZ

[Rechard_Long]

18 hours ago, UEZ said:

Handling transparent images is not easy. You have to adjust the $iClear value according to the background color.

$iClear must be in format ARGB -> AlphaRedGreenBlue

Further it is much easier to handle the color value in hex decimal format -> $iClear = 0xFFF0F0F0

Each color channel must be in the range of 0x00 until 0xFF which is in decimal 0 - 255. 0x is the prefix for hex decimal numbers.

If you clear the picture image first it will start to twitsching again.

Sorry. in my project , these elements it must be transparent , what I need is not being tugged it as source code I did, I hope you help me once again , I thank you very much

[UEZ]

If you can provide more information about your project then maybe.