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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Hier à 23:55

» KGF_dll - nouvelles versions
par pascal10000 Hier à 17:27

» Mah-Jong européen new-look
par Minibug Mar 12 Déc 2017 - 22:31

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Bouton

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



MessageSujet: Bouton   Dim 8 Aoû 2010 - 16: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 : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 18: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 : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 19: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 : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 19: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 : 1626
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 8 Aoû 2010 - 20: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 : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 21: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 : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Bouton   Dim 8 Aoû 2010 - 21: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 : 1626
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 9 Aoû 2010 - 0: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 : 1626
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 9 Aoû 2010 - 0: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 : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Bouton   Lun 9 Aoû 2010 - 12: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 : 1626
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 9 Aoû 2010 - 18: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 : 1626
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 9 Aoû 2010 - 19: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 : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Bouton   Lun 9 Aoû 2010 - 21: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
Voir le sujet précédent Voir le sujet suivant 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
» Le bouton Résolu

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: