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
» amelioration de digit1
par pascal10000 Aujourd'hui à 8:25

» Crash récurent de l'éditeur
par Oscaribout Aujourd'hui à 8:19

» Demande de correction de la commande instr_right.
par pascal10000 Aujourd'hui à 7:54

» Et encore un éditeur...
par Minibug Aujourd'hui à 7:06

» Recherche de texte AVANT/ARRIERE dans un SYNEDIT
par silverman Hier à 18:51

» molette de la souris
par Fredisland Hier à 17:57

» Plusieurs fonctions pour la souris
par Fredisland Hier à 17:47

» resulta incomplet
par Marc Hier à 13:33

» Make_exe
par JL35 Dim 22 Avr 2018 - 20:10

» [RÉSOLU] MESSAGE_ERROR_YES_NO idem à deux autres
par Fredisland Dim 22 Avr 2018 - 14:29

» Logiciel de traduction: dernières avancées.
par pascal10000 Dim 22 Avr 2018 - 9:43

» Convertir un fichier BAS panoramic en fichier EXE
par Klaus Sam 21 Avr 2018 - 23:16

» Astuce dans un string
par Marc Sam 21 Avr 2018 - 18:42

» TRACE_ON problème
par Oscaribout Sam 21 Avr 2018 - 17:55

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par Minibug Sam 21 Avr 2018 - 17:43

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Avril 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
30      
CalendrierCalendrier

Partagez | 
 

 potentiomètre de volume

Aller en bas 
AuteurMessage
Mumu



Nombre de messages : 172
Localisation : 45
Date d'inscription : 20/12/2012

MessageSujet: potentiomètre de volume   Mer 25 Sep 2013 - 15:57

Pour ma console d'éclairages en attente de devenir, et n'étant pas satisfait de l'aspect de la track bar de Panoramic, j'ai commis le petit code suivant

Code:

scene2D 1
left 1,100
top 1,0
width 1,100
height 1,450
file_load 1,"fader.bmp"

scene2D 2
left 2,300
top 2,0
width 2,100
height 2,450
file_load 2,"general.bmp"
 dim s
 s=1
sprite_target_is s
sprite 1
sprite_file_load 1,"Bout_off.bmp"
sprite_position 1,21,12


dim j,k,x
j=0
x=12


   while  j =0
      while  mouse_left_down(s)=0
         if  mouse_right_up(s)=1
            j = 1
            exit_while
         end_if
      end_while
      if j = 1 then exit_while
      while mouse_left_up(s) = 0
         k = mouse_y_position(s)
         if k < 415 and k > 30 and ( k > x and k < (x +40) )
            sprite_position 1,21,k - 20
            x= k - 20
         end_if
      end_while
   end_while
terminate
changer la variable s permet de changer de potentiomètre
click droit pour sortir
les fichier image sont sur mon webdav rubrique images
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5911
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 16:32

Je testerais ça ce soir, ça à l'air sympa.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8043
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 25 Sep 2013 - 17:41

Ouahou !!! je ne sais pas si cela fonctionne tel quel chez toi
mais chez moi, c' est un bataillon de messages plus violents les uns que les autres.Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mumu



Nombre de messages : 172
Localisation : 45
Date d'inscription : 20/12/2012

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 18:06

J'ai retesté chez moi en bricolant un peu le programme je n'arrive pas à le faire planter!!!
J'ai modifié les valeurs des test et ai obtenu un florilège d'effets, mais pas de message d'injures du système...
Tu as quoi comme OS ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5289
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 18:22

Il est sympa ce curseur,

Je l'ai un peu bricolé, essai çà
Code:
dim s,j,k,x,valeur : label fin
ON_CLOSE 0,fin
scene2D 1
 left 1,100 : top 1,0 : width 1,100 : height 1,450
 file_load 1,"fader.bmp"

scene2D 2
 left 2,300 : top 2,0 : width 2,100 : height 2,450
 file_load 2,"general.bmp"

s=1 : sprite_target_is s
sprite 1
 sprite_file_load 1,"Bout_off.bmp"
 sprite_position 1,21,12

j=0
x=12
   while  j =0
     while mouse_left_down(s)=0
         k = mouse_y_position(s)
         if k < 415 and k > 30 and ( k > x and k < (x +40) )
         sprite_position 1,21,k - 20 : x= k - 20
         valeur=(x-21)+x: caption 0,"Ne cliquez pas sur le curseur - Valeur="+str$(valeur)
         end_if
     end_while
   end_while
fin:
terminate
A+

PS: @ygeronimi de mon coté je n'ai eu aucun message d'erreur
as-tu pris la précaution d'enregistrer le code dans le dossier image avant de lancer ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8043
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 25 Sep 2013 - 18:29

@ Jean Claude : Oui
@ mumu : W7
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mumu



Nombre de messages : 172
Localisation : 45
Date d'inscription : 20/12/2012

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 18:41

@ Jean Claude

c'est pas mal non plus mais c'est justement le fonctionnement que j'ai cherché à eviter, pour ne pas qu'un mouvement de souris involontaire ne vienne modifier (inadvertament) la position  du curseur.

@ ygeronimi  Question  quels messages d'erreur as tu ? J'ai aussi W7 et ça se passe sans problème
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5289
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 18:41

Le même avec valeur=0 en bas (comme tout curseur de volume qui se respecte)
Code:
dim s,j,k,x,valeur : label fin
ON_CLOSE 0,fin
scene2D 1
 left 1,100 : top 1,0 : width 1,100 : height 1,450
 file_load 1,"fader.bmp"

scene2D 2
 left 2,300 : top 2,0 : width 2,100 : height 2,450
 file_load 2,"general.bmp"

s=1 : sprite_target_is s
sprite 1
 sprite_file_load 1,"Bout_off.bmp"
 sprite_position 1,21,12

j=0
x=12
  while  j =0
    while mouse_left_down(s)=0
        k = mouse_y_position(s)
        if k < 415 and k > 30 and ( k > x and k < (x +40) )
        sprite_position 1,21,k - 20 : x= k - 20
        valeur=767-((x-10)*2)
        if valeur<0 then valeur=0
        caption 0,"Ne cliquez pas sur le curseur - Valeur="+str$(valeur)
        end_if
    end_while
  end_while
fin:
terminate
@Ygeronimi je précise que j'utilise la V.0.9.24 de mars 2013, est-ce là ton problème.



A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mumu



Nombre de messages : 172
Localisation : 45
Date d'inscription : 20/12/2012

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 18:43

J'utilise la même version que Jean Claude
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5289
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 18:43

On s'est croisé Mumu, effectivement dans ce cas il faut revoir la chose.

Je vais essayer avec un click.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8043
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 25 Sep 2013 - 19:09

Je suis en 25i4 Crying or Very sad

mais peut être est ce seulement un bout de code et faut il prendre tout DMX ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mumu



Nombre de messages : 172
Localisation : 45
Date d'inscription : 20/12/2012

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 19:16

Je viens de faire l'essai avec la version du 08 sept 2012, C'est la cata !!! affraid 
Y' a plein de violations...
Y aurait-il eu un lézard quelque part ???
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5854
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 19:24

Chez moi aussi, une série interminable d’Access violation ….
Je suis sur Panoramic Version 0.9.25i4 du 8 septembre 2013-09-25
Sur cette version, le simple code suivant déclenche l’access violation
Code:
scene2d 1
J’ai testé le programme sur la version 0.9.25i2 et ça marche
Donc le problème vient de la dernière version 0.9.25i4.
Jack, il y a du boulot !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8043
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 25 Sep 2013 - 19:25

Cela me rassure Laughing même si c'est genant.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5289
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: potentiomètre de volume   Mer 25 Sep 2013 - 20:33

J'ai fait une tentative en cliquant mais j'arrive pas à trouver ce qui ne va pas dans mon code.
Le premier click fonctionne mais pour bloquer le curseur il faut clicker 2 fois confused  et pour redémarrer il faut déplacer la souris en haut du scene_2D 1 confused 

Pour sortir cliquez sur la croix rouge.
Code:
dim s,j,k,x,valeur,flag : label fin,reglage_valeur,start,arret
caption 0,"cliquez sur le curseur et déplacez-le" : ON_CLOSE 0,fin
scene2D 1
 left 1,100 : top 1,0 : width 1,100 : height 1,450
 file_load 1,"fader.bmp" : on_click 1,start

scene2D 2
 left 2,300 : top 2,0 : width 2,100 : height 2,450
 file_load 2,"general.bmp"

s=1 : sprite_target_is s
sprite 1
 sprite_file_load 1,"Bout_off.bmp"
 sprite_position 1,21,12

END

start:
if flag=0 then goto reglage_valeur
return

arret:
if flag=1 then flag=0 : on_click 1,start
return

reglage_valeur:
on_click 1,arret
j=0 : x=12 :flag=1
   while  j=0
    while mouse_left_down(s)=0
         k = mouse_y_position(s)
         if k < 415 and k > 30 and ( k > x and k < (x +40) )
           sprite_position 1,21,k - 20 : x= k - 20
           valeur=767-((x-10)*2)
           if valeur<0 then valeur=0
           caption 0," Valeur="+str$(valeur)
         end_if
     end_while
   end_while
return

fin:
terminate
A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 400
Date d'inscription : 06/01/2012

MessageSujet: Re   Mer 25 Sep 2013 - 22:18

J'en suis au même point qu'Ygeronimi, access violation à tout va...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Yannick

avatar

Nombre de messages : 8043
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 26 Sep 2013 - 0:47

Crying or Very sad Je pense que l' on peut parler de BUG sur cette version.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mumu



Nombre de messages : 172
Localisation : 45
Date d'inscription : 20/12/2012

MessageSujet: Re: potentiomètre de volume   Jeu 26 Sep 2013 - 2:09

Je pense qu'il s'agit là effectivement d'un bug...

@ Jean Claude

pour le fait de devoir remonter en haut de la scène2D, il faut voir que dès qu'on clique, on reprend  à start; qui  renvoie sur reglage_valeur:, et là on retombe sur la ligne 28 où on remet cette Twisted Evil  de variable X à la valeur 12 !
donc il faut à la ligne 32 que mouse_y_position (par l'intermédiaire de k) soit < 12.

edit

il faut initialiser x = 12 avant reglage_valeur:. l' idéal serait de le faire avant le end dans ce cas là
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5911
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: potentiomètre de volume   Jeu 26 Sep 2013 - 6:55

Bonjour, pratique le potentiomètre.

Je vous livre ma version aussi Wink

Code:
label clic,clic2, affiche

dim s : s=1
dim x : x=12
dim k
dim h_boutton : h_boutton = 20

dim l_potentiometre(2) : l_potentiometre(1) = 100 : l_potentiometre(2) = 100
dim h_potentiometre(2) : h_potentiometre(1) = 450 : h_potentiometre(2) = 450

scene2D 1 : left 1,100 : top 1,0 : width 1,l_potentiometre(1) : height 1,h_potentiometre(1)
file_load 1,"fader.bmp"
scene2D 2 : left 2,300 : top 2,0 : width 2,l_potentiometre(2) : height 2,h_potentiometre(2)
file_load 2,"general.bmp"

sprite_target_is s
sprite 1 : sprite_file_load 1,"Bout_off.bmp" : sprite_position 1,h_boutton,x
on_click 1,clic
timer 3 : timer_interval 3,10 : on_timer 3,affiche : timer_off 3
end

clic:
timer_on 3
on_click 1,clic2
return

clic2:
timer_off 3
on_click 1,clic
return

affiche:
k = mouse_y_position(s)
if k < (h_potentiometre(1)-1.5*h_boutton) and k > 1.5*h_boutton+top(s) then x= k - 1.5*h_boutton : sprite_position 1, 21,x
caption 0,x
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5289
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: potentiomètre de volume   Jeu 26 Sep 2013 - 7:53

Bravo Jicehel,
Ta version prend en compte la hauteur de bouton du curseur et elle est plus claire à comprendre
grâce aux noms de variables qui sont explicites.

Mumu: à toi de jouer !

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5911
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: potentiomètre de volume   Jeu 26 Sep 2013 - 20:44

Merci pour le commentaire Jean-Claude, ça fait plaisir Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: potentiomètre de volume   

Revenir en haut Aller en bas
 
potentiomètre de volume
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» RAID 0 en stripping, 1 volume tombe en panne, HELP
» Volume son guide dans bluethooth
» volume oreillette
» controle du volume avec la télécommande
» Volume trop fort sur les 2 canaux TRACE TV

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: