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
» Planétarium virtuel.
par Pedro Alvarez Sam 21 Juil 2018 - 16:57

» Roues dentées
par jean_debord Sam 21 Juil 2018 - 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

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

Partagez | 
 

 Bouton

Aller en bas 
AuteurMessage
Invité
Invité



MessageSujet: Bouton   Dim 8 Aoû 2010 - 15:44

Salut!



J'ai fais un exemple de bouton avec deux images...



Le fichier zip ici
Revenir en haut Aller en bas
JL35



Nombre de messages : 6302
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 17:09

Bonjour Nicolas,
en reprenant ton code, on peut faire presque aussi bien, mais sans les images bmp:
Code:
label click,click2
dim lb, hb

lb = 114: hb = 30
picture 1: TOP 1, 10: LEFT 1, 20
width 1,lb
height 1,hb
2D_TARGET_IS 1
2D_FILL_COLOR 0,255,0: 2D_RECTANGLE 0,0,lb-1,hb-1
PRINT_TARGET_IS 1: FONT_NAME 1, "Verdana": FONT_SIZE 1, 16
PRINT_LOCATE 20,2:PRINT "Bouton"
2D_PEN_WIDTH 2
2D_PEN_COLOR 255,255,255: 2D_LINE 0,0,lb-2,1: 2D_LINE 0,0,1,hb-2
2D_PEN_COLOR 128,128,128: 2D_LINE 2,hb-1,lb-1,hb-1:2D_LINE lb-1,2,lb-1,hb-1

timer 2
timer_interval 2,1
on_timer 2,click

timer 3
timer_interval 3,1
on_timer 3,click2
timer_off 3

end

click:
if mouse_left_down(1)=1
    2D_PEN_COLOR 128,128,128: 2D_LINE 0,0,lb-2,1: 2D_LINE 0,0,1,hb-2
    2D_PEN_COLOR 255,255,255: 2D_LINE 2,hb-1,lb-1,hb-1: 2D_LINE lb-1,2,lb-1,hb-1
    timer_on 3:timer_off 2
end_if
return

click2:
if mouse_left_up(1)=1
    2D_PEN_COLOR 255,255,255: 2D_LINE 0,0,lb-2,1: 2D_LINE 0,0,1,hb-2
    2D_PEN_COLOR 128,128,128: 2D_LINE 2,hb-1,lb-1,hb-1:2D_LINE lb-1,2,lb-1,hb-1
    timer_on 2:timer_off 3: ' terminate
END_IF
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 18:06

Les 2 sont intéressants.

Une remarque JL35:
Citation :
PRINT_LOCATE 20,2:PRINT "Bouton"
C'est pas très bon çà, un Alpha serait préférable...

sunny Fait chaud, je vais piquer une tête sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6302
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 18:40

T'as p'têt raison !
pour les deux...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1761
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 8 Aoû 2010 - 19:01

C'est sûr que c'est bien,
au sens où c'est beaucoup plus joli en couleur,
ça je n'en disconviens pas.
Mais enfin, quand même,
40 lignes pour gérer un bouton, c'est lourd !
Mad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

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

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 20:15

C'est très vrai, qu'en utilisant une image le code s'en trouve fortement diminué, EX:
Code:
picture 100:width 100,25:height 100,25:top 100,5:left 100,355
file_load 100,"croixrouge2.bmp":on_click 100,fin:hint 100,"Quitter
Extrait du code que j'ai publié dans le sujet de JL35 "dessine moi un bouton"

J'aime bien ce concours de boutons, la guerre des boutons fait rage ! Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6302
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 20:20

Ben oui, c'est un peu lourd, mais je préfère 40 lignes de code que de trimballer un fichier bmp annexe, dont on ne sait jamais où il doit être. D'une part.
Et d'autre part c'est exceptionnel, il reste quand même les boutons classiques.

@Jean Claude, et pourquoi un Alpha serait préférable au Print ? C'est plus lourd en code, ça fait créer un objet supplémentaire, et le print fait parfaitement l'affaire, non ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1761
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 8 Aoû 2010 - 23:08

N'empêche,
je vois que Jean Claude est finalement devenu un pro des alpha !
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
jjn4

avatar

Nombre de messages : 1761
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 8 Aoû 2010 - 23:23

Et d'ailleurs, il a raison,
c'est quand même plus léger et plus élégant avec des alpha.

Code:
label clic
alpha 1 : left 1,38 : top 1,18 : width 1,102 : height 1,27 : color 1,199,199,199
alpha 2 : left 2,40 : top 2,20 : width 2,102 : height 2,27 : color 2,99,99,99
alpha 3 : left 3,40 : top 3,20 : width 3,100 : height 3,25 : color 3,0,255,0
alpha 4 : left 4,60 : top 4,24 : color 4,0,255,0 : font_size 4,10
caption 4,"BOUTON" : on_click 3,clic : on_click 4,clic

end

clic:
color 1,99,99,99 : color 2,199,199,199 : top 4,25 : wait 200
color 1,199,199,199 : color 2,99,99,99 : top 4,24
return
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

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

MessageSujet: Re: Bouton   Lun 9 Aoû 2010 - 11:18

Le pro des ALPHA(s), c'est pas moi, vu la démonstration. 8 lignes de code et 4 objets pour un bouton, çà reste important, mais le résultat est nickel.

Mon système, c'est 2 lignes (en réalité c'est une ligne) et un seul Objet.
Bon d'accord il faut charger une image, c'est pas la mer à boire.

Et puis à qoi çà sert que JL35 est fabriqué un éditeur d'icones, c'est pour s'en servir...

Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1761
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 9 Aoû 2010 - 17:55

Et dans la foulée, voici un bouton rond :
Hélas, il est plus long car je ne vois pas comment le faire avec des alpha.

Code:
rem ' Bouton-rond
label clic
picture 1
left 1,30 : top 1,20 : width 1,80 : height 1,80
color 1,236,233,216 : on_click 1,clic
2d_target_is 1 : print_target_is 1
2d_pen_color 199,199,199 : 2d_fill_color 199,199,199
2d_circle 40,40,39
2d_pen_color 199,199,199 : 2d_fill_color 199,199,199
2d_circle 38,38,36
2d_pen_color 99,99,99 : 2d_fill_color 99,99,99
2d_circle 42,42,36
2d_pen_color 0,255,0 : 2d_fill_color 0,255,0
2d_circle 40,40,36
print_locate 17,33 : print "BOUTON"

end

clic:
2d_pen_color 99,99,99 : 2d_fill_color 99,99,99
2d_circle 38,38,36
2d_pen_color 199,199,199 : 2d_fill_color 199,199,199
2d_circle 42,42,36
2d_pen_color 0,255,0 : 2d_fill_color 0,255,0
2d_circle 40,40,36
print_locate 18,35 : print "BOUTON"
wait 200
2d_pen_color 199,199,199 : 2d_fill_color 199,199,199
2d_circle 38,38,36
2d_pen_color 99,99,99 : 2d_fill_color 99,99,99
2d_circle 42,42,36
2d_pen_color 0,255,0 : 2d_fill_color 0,255,0
2d_circle 40,40,36
print_locate 17,33 : print "BOUTON"
return
jocolor
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
jjn4

avatar

Nombre de messages : 1761
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 9 Aoû 2010 - 18:41

Finalement, j'ai réussi à faire un bouton rond avec des alpha,
et dont la programmation est plus légère,
mais il est un peu moins bien car on ne peut rien écrire dessus :

Code:
dim a : label clic
alpha 1 : left 1,30 : top 1,20 : width 1,80 : height 1,80
font_name 1,"Wingdings 2" : font_size 1,30 : font_color 1,0,255,0
caption 1,chr$(152) : on_click 1,clic
alpha 2 : left 2,38 : top 2,9 : caption 2,"ON"

end

clic:
a=1-a
left 1,31 : top 1,22 : font_color 1,0,250,0
beep : wait 200 : caption 2,"ON"
left 1,30 : top 1,20 : font_color 1,0,255,0
if a=1 then caption 2,"OFF"
return
geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

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

MessageSujet: Re: Bouton   Lun 9 Aoû 2010 - 20:07

chr$(152) faillait y penser, cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Bouton   

Revenir en haut Aller en bas
 
Bouton
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» bouton cliquable
» [RESOLU] une action en sortant d'un bouton (type onmouseout)
» Le bouton suite de qcm-drag
» Roll-over comme bouton
» Comment jouer un son des que je presse un bouton

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