effet sur image

venom · Message par **venom** » dim. 27/mai/2007 21:59

bonjour,

voila j'ai eu une idée pour faire des effets sur des images mais le probleme c'est que je ne doit pas utilisé la meilleur méthode

.
voila l'effet en question

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Image_0
EndEnumeration

  If OpenWindow(#Window_0, 0, 0, 150, 150, "exemple",  #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
     
     If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 30, 30, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 35, 35, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 40, 40, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 45, 45, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 50, 50, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 55, 55, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 60, 60, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 65, 65, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 70, 70, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 75, 75, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 80, 80, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 85, 85, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 90, 90, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 95, 95, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 100, 100, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf 
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 105, 105, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 110, 110, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 115, 115, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 120, 120, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 125, 125, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 130, 130, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 135, 135, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 140, 140, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 145, 145, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf
      Delay(10)
      If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
       ResizeImage(#Image_0, 150, 150, 0)
        ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
      EndIf

     
    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

compiler le vous verrez de quoi je parle

.
mais je pense qu'il y a moins long

.

@++

Backup · Message par **Backup** » dim. 27/mai/2007 22:10

a ton avis les boucle For next ça sert a quoi

Code : Tout sélectionner

Enumeration
    #Window_0
     #Image_0
EndEnumeration
If OpenWindow(#Window_0, 0, 0, 150, 150, "exemple",  #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
        For i=30 To 150 Step 5
            If LoadImage(#Image_0, "C:\WINDOWS\Bulles de savon.bmp", #Image_0)
                ResizeImage(#Image_0, i, i, 0)
                ImageGadget(#Image_0, 0, 0, 300, 300, ImageID(#Image_0))
            EndIf
            Delay(2)
        Next i
    EndIf
EndIf
Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
        Select EventGadget() 
        EndSelect
    EndIf
Until EventID = #PB_Event_CloseWindow

venom · Message par **venom** » dim. 27/mai/2007 22:46

ah!

je t'avoue que j'ai poster car j'ai essayer avec For next mais sa ne fonctionner pas

, mais je m'en douter que sa aurais était avec cette fonction

. ou un deriver.

bin merci encore dobro.

@++

Backup · Message par **Backup** » dim. 27/mai/2007 23:21

venom a écrit :ah!

je t'avoue que j'ai poster car j'ai essayer avec For next mais sa ne fonctionner pas , mais je m'en douter que sa aurais était avec cette fonction . ou un deriver.

bin merci encore dobro.

@++

ho bin de rien

brossden · Message par **brossden** » lun. 28/mai/2007 7:33

Pourquoi recharger à chaque fois l'image depuis le disque ??

Code : Tout sélectionner


Enumeration
  #Window_0
  #Image_0
  #image_1

EndEnumeration

If OpenWindow(#Window_0, 0, 0, 150, 150, "exemple",  #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar )
  If CreateGadgetList(WindowID(#Window_0))
    LoadImage(#Image_0, "C:\WINDOWS\Soap Bubbles.bmp", #Image_0)
    CopyImage(#Image_0,#image_1)
    For i=30 To 150 Step 2
      CopyImage(#Image_0,#image_1)
      ResizeImage(#image_1, i, i)
      ImageGadget(#image_1, 0, 0, 300, 300, ImageID(#image_1))
      Delay(1)
    Next i
  EndIf
EndIf

Repeat
  EventID = WaitWindowEvent()
  If EventID = #PB_Event_Gadget
    Select EventGadget()

    EndSelect
  EndIf
Until EventID = #PB_Event_CloseWindow

Backup · Message par **Backup** » lun. 28/mai/2007 9:09

[quote="brossden"]Pourquoi recharger à chaque fois l'image depuis le disque ??

pour eviter l'emploi de 2 images, peut etre ...
et gagner 2 lignes de prg