praxinoscope

Bonsoir

Un programme qui permet l'animation de plusieurs fichiers .Bmp créés avec un programme de dessin.
Mettre tous les fichiers de dessins dans le répertoir Calques numérotés en ordre d'affichage( voir les fichiers dans Calques ).
les fichiers Bouton_xxxx au même niveau que le programme *.bas.
pour charger les boutons et rep "Calques"

http://dl.free.fr/uHrUR3ZnM

Le programme :

Code:: Label Sub_to_background, Sub_Choix_Bouton, Sub_run , Label_Visu,Sub_Boucle
Label Sub_Stop

dim Largeur%,Hauteur%

dim i% , J%, hnd10%,trans%,trans2%,hnd20% ,hnd30%,hnd40% ,Layer01% ,Frise_Bouton%,hndparent%

dim main_form% , Panneau_droite% ,Menu_01%,Menu_02%,Menu_03%,Menu_04%,Menu_05%
dim Button_file%,Button_Run%, Button_Quit%,Button_Boucle%,Button_Stop%
Dim Nom_Fichier$,Flag_stop%,TM_Stop%
hide 0

Largeur%=screen_X
Hauteur%=screen_Y

Main_form% = 2000
Panneau_droite% = 2001
Layer01% = 2002
Frise_Bouton% = 2003

Menu_01% = 2101
Menu_02% = 2102
Menu_03% = 2103
Menu_04% = 2104
Menu_05% = 2105

Button_File% = 2201
Button_Run% = 2202
Button_Quit% = 2203
Button_Boucle% = 2204
Button_Stop% = 2205
TM_Stop% = 2206

form Main_form%
height Main_form%,0
width Main_form%,600
Left Main_form%,(Largeur%-600)/2
top Main_form%,100
Color Main_form%,0,0,0
Border_hide Main_form%
to_background Main_form%

Command_Target_is Main_form%

Main_Menu Menu_01%
Sub_Menu Menu_02%
Parent Menu_02%,Menu_01%
Caption Menu_02%,"Project"

Sub_Menu Menu_03%
Parent Menu_03%,Menu_02%
Caption Menu_03%,"Configuration..."

' -----------------------------------------------------------------------------
' Initialisation variables et autres

trans% = 127
trans2% =-126
Flag_stop% = 0

form Panneau_droite%
height Panneau_droite%,600
width Panneau_droite%,42
top Panneau_droite%,100
left Panneau_droite%,(Largeur%/2)+300
Border_hide Panneau_droite%
Color Panneau_droite%,0,0,0

Command_Target_is Panneau_droite%

Main_Menu Menu_04%
Sub_Menu Menu_05%
Parent Menu_05%,Menu_04%

' ------------------------------------------------------------------------------
' Frise pour les boutons

2D_target_is Panneau_droite%

scene2d Frise_Bouton%
height Frise_Bouton%,125
width Frise_Bouton%,42
top Frise_Bouton%,120
left Frise_Bouton%,50

sprite Button_Run%
sprite_file_load Button_Run%,"bouton_Run.bmp"
sprite_y_position Button_Run%,0

sprite Button_Boucle%
sprite_file_load Button_Boucle%,"bouton_boucle.bmp"
sprite_y_position Button_Boucle%,32

sprite Button_Stop%
sprite_file_load Button_Stop%,"bouton_Stop.bmp"
sprite_y_position Button_Stop%,64

sprite Button_Quit%
sprite_file_load Button_Quit%,"bouton_Quit.bmp"
sprite_y_position Button_Quit%,96

' ------------------------------------------------------------------------------
' Fenetre calque

form Layer01%
height Layer01%,580
width Layer01%,600
top Layer01%,120
left Layer01%,(Largeur%/2)-300
border_hide Layer01%

command_target_is Layer01%

picture 20
height 20,580
width 20,600
top 20,20
left 20,0
'
command_target_is Layer01%
' -----------------------------------------------------------------------------

On_Click Main_form%, Sub_to_background
On_Click Frise_Bouton%, Sub_Choix_Bouton

end

Sub_to_background:
to_background Main_form%

return

Sub_Choix_bouton:

If Mouse_left_down(Frise_Bouton%)=1

IF Mouse_Y_Position(Frise_Bouton%)>0 and Mouse_Y_Position(Frise_Bouton%)<32
Gosub Sub_run
End_If

IF Mouse_Y_Position(Frise_Bouton%)>32 and Mouse_Y_Position(Frise_Bouton%)<64
Gosub Sub_Boucle
End_If

IF Mouse_Y_Position(Frise_Bouton%)>64 and Mouse_Y_Position(Frise_Bouton%)<96
Gosub Sub_Stop
End_If

IF Mouse_Y_Position(Frise_Bouton%)>96 and Mouse_Y_Position(Frise_Bouton%)<128
Terminate
End_If
End_If

Return

Sub_Run:

dir_Change "Calques"

print file_find_first$

Nom_Fichier$=file_find_next$

command_target_is Layer01%

picture 3000
height 3000,580
width 3000,600
top 3000,20
left 3000,0
' charger une image

file_load 3000,Nom_Fichier$
delete 3000
i%=1

while Nom_Fichier$<>"_"

' print Nom_Fichier$
Nom_Fichier$=file_find_next$

picture 3000
height 3000,580
width 3000,600
top 3000,20
left 3000,0

if Nom_Fichier$<>"_" then file_load 3000,Nom_Fichier$

if Nom_Fichier$<>"_" then I%=I%+1

show 3000
wait 1000/9
delete 3000

end_while

Label_Visu:

i%=i%+3000

file_find_close

Return

Sub_Boucle:
print "Boucle"
while Flag_Stop%=0
gosub Sub_Run
gosub Sub_Choix_bouton
end_while
Flag_Stop%=0
return

Sub_Stop:
print "stop"
Flag_Stop%=1
return

Mise a jour le 13 Avril 2011

Bonsoir minifly,
Ou peut on trouver SetWindowButtons.dll ?
Neutral

Salut
C'est une DLL de Klaus.
A+

Merci,
Je viens de lancer le prog et je ne sais pas comment l'utiliser :
Le seul bouton qui a une action, c'est le bouton Quit...
J'ai du oublier quelque chose non ?

As-tu télécharger le buttons.rar
install les boutons_... dans le même rep
install le rep "Calques" au même niveau que le programme
dans le rep calques tu as plusieurs fichiers ?
tu lance le programme "Run" pour un passage simple
Boucle pour répéter
stop pour arreter
quit pour quitter
c'est tout

c'est un programme pour simuler un dessin animé.

Oui j'ai decompressé le rar :
praxinoscope Capture4

dans nouveau.bas jai le programme récupéré sur le forum...
Peut etre parce que je suis sous 7?...
Le repertoire Calques contient 10 fichiers bmp...

cela devrait fonctionner
Attention peut être fait un run en direct.....
j'avais oublier la dll mais dans cette version je ne m'en sert pas. C'est très simple comme prog.
En faisant Run on va directement charger les fichiers du rep Calques et on les affiches au fur et a mesure.

j'ai remis la dll dans le .rar

Ci-joint ce que j'obtiens :

capture video

confused

c'est bien ta video.
mais j'ai recharger le tout chez moi et cela fonctionne.
t'aurai pas un problème de protection avec antivirus ou quelque chose comme cela ou version de panoramic
mais ce qui est bizarre c'est le manque de message d'erreur.
remet le hide 0 en rem au début du prog.

En réfléchissant ( pour changer )
je pense que ce pourrait être avec le on_timer car c'est lui qui lance l'autorisation des boutons.

J'ai rajouté un timer_on avant le end : rien n'y fait...
bizarre...
par contre les boutons quit et stop sont bien pris en compte....

Le temps de réponse est assez lent quand même.
car il y a :
le on_timer qui lance la tache pour la scrutation des boutons +
la vérification si la touche gauche de la souris a été appuyée.Essaye de réduire le timer il est a 1000 pour le moment.

Les lignes 170 et 172 font double emploi
tu peu mettre en rem la ligne 170 et apres la ligne 172

J'ai mis en commentaire le hide 0
et j'ai rajouté au tout debut de Sub_Choix_bouton ceci:
caption 0,str$(Mouse_Y_Position(Frise_Bouton%)) +" "
je vois bien les coordonnées cha,ger sur les 2 boutons du bas mais pas les autres...

EDIT:
Je maitrise pas bien les scene 2D :
comment fait on pour changer la couleur de celle-ci ?

color "nomscene2d",R,G,B

A oui peut etre bien un probleme de la frise pour les boutons

panneau_droite% et frise_bouton% a voir les dimensions.

J'ai essayé ceci pour
scene2d Frise_Bouton%
color Frise_Bouton%,255,0,0

et j'obtiens un message d'erreur... j'ai le cerveau en marmelade ce soir ? Smile

sinon aucune coordonnée de Y en dessous de 60 dans frise_bouton
et pourtant je ne vois rien qui cloche dans le code.
Les 2 sprites du haut sont déclarés de la meme maniere que stop et quit

Oui moi aussi je vais faire un gros roupillon a +

ok A+
J'ai trouvé : sot que je suis !!!
l'histoire du 60 pixels aurait dû me titiller les méninges plus tôt !!
ça marche mieux avec la dernière version rev.i5 !!!
Embarassed

sympa, c'est toi qui a fait les sketchs ?

Non ça vient de pap4. un programme pour faire des dessins animés gratuit.