Carica le 10 immagini
e le anima in sequenza con il Timer per contare i decimi di secondo
Aggiunge i pulsanti di Start e Stop
Carica le 12 immagini
e le anima in sequenza con il Timer
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
PERCORSO=Program.Directory For i=0 To 11 IMG[i]=ImageList.LoadImage(PERCORSO + "\a" + i + ".gif") EndFor DIMX =ImageList.GetWidthOfImage (IMG[0]) DIMY =ImageList.GetHeightOfImage(IMG[0]) SPAZIO=10 POSX =SPAZIO POSY =SPAZIO GraphicsWindow.Title ="Animazione 0" GraphicsWindow.BackgroundColor="Black" GraphicsWindow.Width =DIMX+2*SPAZIO GraphicsWindow.Height =DIMY+2*SPAZIO Timer.Interval=250 Timer.Tick =AGGIORNA frame=0 Sub AGGIORNA frame=frame+1 If frame=12 Then frame=0 EndIf GraphicsWindow.DrawImage(IMG[frame],POSX,POSY) EndSub |
Aggiunge i pulsanti di Start e Stop
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
POSX1=DIMX+2*SPAZIO POSY1=SPAZIO POSX2=DIMX+2*SPAZIO POSY2=2*SPAZIO+DIM_CMD cmd_start=Controls.AddButton("START",POSX1,POSY1) cmd_stop =Controls.AddButton("STOP" ,POSX2,POSY2) Controls.SetSize(cmd_start,DIM_CMD,DIM_CMD) Controls.SetSize(cmd_stop ,DIM_CMD,DIM_CMD) GraphicsWindow.Width =DIMX+3*SPAZIO+DIM_CMD GraphicsWindow.Height=DIMY+2*SPAZIO Controls.ButtonClicked=CONTROLLO Sub CONTROLLO cmd=Controls.LastClickedButton If cmd=cmd_start Then START() ElseIf cmd=cmd_stop Then STOP() EndIf EndSub Sub START Timer.Resume() EndSub Sub STOP Timer.Pause() EndSub |