Bouton

Invité

Salut!

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

Le fichier zip ici

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

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

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

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

T'as p'têt raison !
pour les deux...

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

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

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

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

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 ?

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

N'empêche,
je vois que Jean Claude est finalement devenu un pro des alpha !
Laughing

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

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

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

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

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

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

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

chr$(152) faillait y penser, cheers

» Dessine-moi un bouton...
» Un bouton qui bouge
» bouton roll-over
» Problème de bouton qui ne réagit plus.
» Modèle de bouton-poussoir