FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Yannick Aujourd'hui à 1:58

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Hier à 19:26

» Compilateur FBPano
par Mike Hier à 13:52

» un nouveau editeur panobasic
par Jean Claude Hier à 10:18

» Le compilateur.
par Pedro Alvarez Hier à 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 praxinoscope

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: praxinoscope   Mar 12 Avr 2011 - 21:04

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"

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


Dernière édition par 659_minifly le Mer 13 Avr 2011 - 9:39, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 21:38

Bonsoir minifly,
Ou peut on trouver SetWindowButtons.dll ?
Neutral
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 21:57

Salut
C'est une DLL de Klaus.
A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 22:04

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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 22:41

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é.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 22:52

Oui j'ai decompressé le rar :

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...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 22:57

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 23:31

Ci-joint ce que j'obtiens :

capture video

confused
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 23:41

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.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mar 12 Avr 2011 - 23:55

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: praxinoscope   Mer 13 Avr 2011 - 0:16

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....


Dernière édition par Nardo26 le Mer 13 Avr 2011 - 0:24, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mer 13 Avr 2011 - 0:23

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


Dernière édition par 659_minifly le Mer 13 Avr 2011 - 0:41, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: praxinoscope   Mer 13 Avr 2011 - 0:28

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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mer 13 Avr 2011 - 0:43

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.


Dernière édition par 659_minifly le Mer 13 Avr 2011 - 0:47, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: praxinoscope   Mer 13 Avr 2011 - 0:46

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


Dernière édition par Nardo26 le Mer 13 Avr 2011 - 0:49, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mer 13 Avr 2011 - 0:49

Oui moi aussi je vais faire un gros roupillon a +
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: praxinoscope   Mer 13 Avr 2011 - 0:50

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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
659_minifly



Nombre de messages : 590
Age : 68
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: praxinoscope   Mer 13 Avr 2011 - 21:22

Non ça vient de pap4. un programme pour faire des dessins animés gratuit.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: praxinoscope   

Revenir en haut Aller en bas
 
praxinoscope
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Les inutilitaires-
Sauter vers: