Un menu sympa et original de forme circulaire

Sujet: Un menu sympa et original de forme circulaire Lun 13 Jan 2014 - 19:22

Bonjour à tous Smile

J'ai vite bricolé aujourd'hui un petit programme pour faire un petit menu de forme circulaire.
Ça pourrait surement s'améliorer encore et ce n'est pas réservé uniquement à faire un menu. On peut envisager d'autres applications.
On peut élargir le cercle principal et rajouter d'autres options au menu en changeant les données x%+140 et y%+140 en +200 par exemple et calculer un pas de boucle plus serré afin de rajouter d'autres 2d_circle. On peut aussi faire les 2d_circle plus gros et ainsi avoir plus d'espace pour afficher ses options.
On peut aussi n'afficher que la moitié du cercle aussi avec moitié moins d'options.
Enfin, je pense que c'est plus un gadget, mais qui offre pas mal de possibilités...

Code:: ' "MENU SYMPA & ORIGINAL"
' "==========================="
' " créé le 13 janvier 2014"
' " par bignono"
' "==========================="
' " Version 1.00"
' "==========================="

label menu
dim n$(13),i,nt,mmo
   border_small 0 : width 0,380 : height 0,380
Init()
end

  data "Outils","Trier","Insert","Suppr","Aide","Infos","Ouvrir","Sauver","Fermer","Couper","Copier","Coller"
' objet 1 2 3 4 5 6 7 8 9 10 11 12
' ***********************************************************************************************************

menu:
   nt=number_click
   font_color nt,255,0,0
   2d_target_is nt
   2d_flood width(nt)/2,3,255,190,0
   2d_fill_color 255,190,0
   print_target_is nt
   print_locate (width(nt)/2)-(text_width(n$(nt),nt)/2),(height(nt)/2)-(text_height(n$(nt),nt)/2)
   print n$(nt)
   select nt
   case 1:outils(): ' Outils
   case 2:trier(): ' Trier
   case 3:insert(): ' Insert
   case 4:suppr(): ' Suppr
   case 5:aide(): ' Aide
   case 6:infos(): ' Infos
   case 7:ouvrir(): ' Ouvrir
   case 8:sauver(): ' Sauver
   case 9:fermer(): ' Fermer
   case 10:couper():' Couper
   case 11:copier():' Copier
   case 12:coller():' Coller
   end_select
   font_color nt,0,0,0
   2d_target_is nt
   2d_flood width(nt)/2,3,190,190,255
   2d_fill_color 190,190,255
   print_target_is nt
   print_locate (width(nt)/2)-(text_width(n$(nt),nt)/2),(height(nt)/2)-(text_height(n$(nt),nt)/2)
   print n$(nt)
return

sub outils()
   message "Action Outils"
end_sub

sub trier()
   message "Action Trier"
end_sub

sub insert()
   message "Action Insertion"
end_sub

sub suppr()
   message "Action Suppression"
end_sub

sub aide()
   clear mmo
   show mmo
   item_add mmo,"Vous affichez ici l'aide du programme"
   message "Aide"
   hide mmo
end_sub

sub infos()
   clear mmo
   show mmo
   item_add mmo,"MENU SYMPA & ORIGINAL"
   item_add mmo,"==========================="
   item_add mmo," créé le 13 janvier 2014"
   item_add mmo," par bignono"
   item_add mmo,"==========================="
   item_add mmo," Version 1.00"
   item_add mmo,"==========================="
   message "Menu Infos OU À Propos"
   hide mmo
end_sub

sub ouvrir()
   message "Action Ouvrir un fichier"
end_sub

sub sauver()
   message "Action Enregistrer un fichier"
end_sub

sub fermer()
   message "Action Fermeture du programme"
   terminate
end_sub

sub couper()
   message "Action Couper"
end_sub

sub copier()
   message "Action de Copie"
end_sub

sub coller()
   message "Action de Collage"
end_sub

sub Init()
   dim_local pi,x%,y%
   pi=acos(-1)
   x%=width(0)/2 : y%=(height(0)/2)-17
   restore : for i=1 to 12 : read n$(i) : next i

   2d_pen_width 2
   for i=0 to (2*pi)-(pi/6) step pi/6
   picture number_objects+1 :' objets 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
   width number_objects,52 : height number_objects,52
   color number_objects,240,240,240
   left number_objects,x%+140*sin(i)-26
   top number_objects ,y%+140*cos(i)-26
   cursor_point number_objects
   2d_target_is number_objects
   2d_fill_color 190,190,255
   2d_circle width(number_objects)/2,height(number_objects)/2,26
   font_name number_objects,"Consolas"
   font_size number_objects,10
   font_bold number_objects
   if n$(number_objects)="Ouvrir" then nt=number_objects
   print_target_is number_objects
   print_locate (width(number_objects)/2)-(text_width(n$(number_objects),number_objects)/2),(height(number_objects)/2)-(text_height(n$(number_objects),number_objects)/2)
   print n$(number_objects)
   on_click number_objects,menu
   next i

   memo number_objects+1 : hide number_objects
   left number_objects,(width(0)/2)-(width(number_objects)/2)
   top number_objects,height(0)/4
   height number_objects,height(number_objects)+height(number_objects)/1.5
   mmo=number_objects
end_sub

A+

Sujet: Re: Un menu sympa et original de forme circulaire Lun 13 Jan 2014 - 19:31

Impressionnant !

Sujet: re Lun 13 Jan 2014 - 19:37

C' est original...

Tu devrais essayer de le coupler avec les fonctions de la dll de klaus
qui fait des trous et autres bizarrerie du genre cela ferai un menu type flash... Laughing

Sujet: Re: Un menu sympa et original de forme circulaire Lun 13 Jan 2014 - 19:50

Bonne idée, Ygeronimi. Tu pourrais créer une fenêtre composée d'autant de régions circuraires que de cercles cliquables. On aurait alors des bulles représentant une seule fenêtre, mais étant transparente entre les bulles (et on peut cliquer à-travers...).

Sujet: re Lun 13 Jan 2014 - 19:54

Pauvre Bignono...
...si il aurait su, il serait pas venu.

lol!

Invité

C'est sympha!
Mais cela ne me rajeunit pas. J'avais fait la même chose avec mon Atari Mega STxxxx. C'était à l'époque pour m'en servir avec un pendule. Il y avait un cercle en plus au centre avec des traits de liaison du centre à chaque cercle.
Oui je sais, un pendule, le pauvre! bom

Sujet: Re: Un menu sympa et original de forme circulaire Lun 13 Jan 2014 - 22:47

Original

Je suis sûr que tu avais une idée derrière la tête quand tu as imaginé ton menu, mais je n'ai pas d'idée sur ce que ça pouvait être.

Sujet: Re: Un menu sympa et original de forme circulaire Mar 14 Jan 2014 - 11:03

Bonjour Jicehel, Smile

En effet, ce menu répond à un besoin particulier. J'ai fait un petit programme de musique, un arpégiateur pour être exact, avec les instruments midi. Un arpège en musique, est le reflet d'un accord dont les notes peuvent être jouées de différentes façons. J'ai donc placé les 12 notes de la gamme (do, do#, ré, mi bémol, mi, fa, fa#, sol, sol#, la, si bémol et si) sur un cercle dans une espèce de couronne. Elle sont représentées par des alphas cliquables qui associés à d'autres alphas (maj, min, maj7, min7, etc...) me donnent un certain type d'accord dont je peux extraire les notes. Ces notes vont pouvoir ensuite être jouées de différentes façons, sur 1, 2 ou 3 octaves avec une durée choisie.
Le problème, c'est qu'il m'arrive de cliquer maladroitement dans le secteur de ma couronne de note, à coté de l'alpha, et ainsi de ne pas sélectionner l'accord voulu au bon moment.
Avec ce programme de menu, je vais pouvoir mettre mes 12 notes dans les cercles prévus à cet effet, et même si je clique à coté de l'alpha voulu, si je suis à l'intérieur du cercle, je sélectionne quand même mon accord à coup sûr. Cette manière de procéder me semble maintenant plus facile et plus ergonomique à utiliser.
Je vais ouvrir un autre sujet où je vais publier mon programme arpégiateur que je modifierai plus tard avec cette méthode.
A+ Wink

Sujet: Re: Un menu sympa et original de forme circulaire Mar 14 Jan 2014 - 11:40

Merci pour ta réponse Bignono. Je testerais ton arpégiateur ce soir et bonne balade en province Wink

» Menu personalisé avec icones et menu contextuel
» Sub-menu is not menu avec Panoramic.exe
» TRIGONOMETRIE CIRCULAIRE
» track_bar circulaire
» Trigonométrie circulaire et hyperbolique