Forum Liberty Basic France

Le 14/08/2013 à 19h10

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Reprise du message précédent

Wouahou! Tu fais baver avec ton "simulateur d'assemblage atomique ! :p " Tu concurrence "Pymol".

Comment ça, c'est fait ? ! ? Fais voir la bête !!! :miam !!! Promis ..Je ne pose aucune questions. :d

Dis donc: Le:Citation:
:top

C'est pour le jeu; ou pour la tablette ? Que je courre en quérir une.
____________________
Roro

   
Le 15/08/2013 à 08h22

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Bonjour Anne-so,
J'ai testé l'idée de Jagang (réduction des cases et zoom pour la saisie).
Et ban, c'est pas bon. :( Le risque de confondure est trop grand.
Mais..mhéé..mééeh, j'ai aussi testé le scroll vertical; qui lui, est en très bonne voie. :)
Il va permettre un nombre infini de critères, et un nombre astronomique de personnes.
Seule ombre au tableau: Il faudra scroller pour atteindre les habitants des galaxies les plus lointaines.
Plus il y aura de critères, et plus cela "dilatera "le système, éloignant les "banlieusards" du centre; et donc, plus il faudra scroller.

Par contre; comme tes participants ont accès au planning, et qu'ils ont l'air d'avoir des "gros doigts", ils peuvent, en l'état actuel, modifier le planning d'autrui en pensant modifier le leur; et fermer sans s'êtres rendu compte de leur bévue.
Il faudrait peut-être mettre un obstacle à la saisie (clic sur son propre nom), ce qui permettrait de déclencher une sirène alerte, assortie d'un coup de fouet d'une interdiction; en cas de modif illégale du planning d'autrui.
On peut y ajouter un clic "secret" donnant accès à tout le planning, pour la chef en chef.

Bon... Comme tu a pu le constater plus haut, Cassiope01, qui maîtrise ce langage comme il n'est pas possible; fait son "taquin".
Son code, il finira bien par le lâcher tôt ou tard.
Mais gardons nous de regretter cette attitude regrettable...
En effet, Cassiope01, utilise à l'envie deux choses d'une redoutable puissance.
Les "sub's", et les "fonctions".
Quand dans mon code, je réécris autant de fois la même procédure qu'il y a de critères ( [blue]; [red]; [yellow]...ext).
Lui, avec une sub de la mort qui tue, et en cinq lignes: sort les meubles, passe le balai, la serpillere, un coup de peinture, sèche le tout à la paille, rentre les meubles, et salue en sortant.
Le problème c'est que: Quand un débutant débarque dans un de ses codes; il a deux choix: la corde ou le revolver.
Purée...On pianote, on pianote...Et ça vous fait un "pavé". :s
Il est d'usage de faire des excuses pour les "pavés"..Et ben pô moi.
Z'avez qu'à lire en travers si vous êtes préssés. :D
____________________
Roro

   
Le 16/08/2013 à 12h49

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Bon, je crois que cette fois c'est la bonne.
Comme ce n'est pas la peine de cliquer 36 fois pour faire défiler la page;
J'ai fais 2 pages de 5 noms avec 6 critères plus un blanc (?)
En bas à droite, en petit; sont les noms de la page masquée.
Les deux boutons: "1-2-3-4-5" et: "6-7-8-9-10" permutent les pages.
A tester....et remonter les bugs éventuels (y'en a pas) Planning.zip

Et ouvrir l'aide (elle n'est pas longue).
____________________
Roro

   
Le 16/08/2013 à 13h53

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
J'aurais bien une petite question bête plutôt pour Anne-so:
- Est-ce qu'une demi journée peut satisfaire à plusieurs critères à la fois ???

Non pas que je veuille m'en mêler plus que ça, mais par simple curiosité... car Roland est déjà presque au bout, mais si la réponse est non, cela faciliterait énormément les choses !!!

@+



Edité par cassiope01 Le 16/08/2013 à 13h55
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 16/08/2013 à 15h38

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Bah, je pense que les critères sont exclusifs.
On ne peut pas être en même temps malade et en formation; ou en arrêt et en RTT.
Il n'y a que la prévision de congé qui peut chevaucher les autres.

Ah ! Ouais, Je te vois venir..Les 6 lignes font double emploi avec la légende.
Il suffirait d'une ligne, la couleur indiquant le critère. Quel couillon je suis... :heink

Eh Cassiope, fais péter ton code...Ou je te môdêre :lol :lol :lol
____________________
Roro

   
Le 16/08/2013 à 19h21

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Tu as tout compris ;)
Reste à savoir ce qu'en penserait Anne-So qui semble avoir disparue, tu l'as fait fuir avec ton usine à gaz avec plein de couleurs qu'on arrive plus à enlever et des clics à gauche des clics à droite sur fond noir ?? :hum
Le code à l'arrache affiche juste ce que tu as vu :siffle il n'est pas fonctionnel tu penses bien :lol en si peu de temps :top
Mais pour afficher 12 cadres avec les mois dedans, calculer les jours de la semaine pour visualiser les WE, une grande grille sur un joli fond de couleur pastel, une ligne par bonhomme, un choix des couleurs à utiliser avec légende, et mixer tout ça, c'est un peu long mais pas vraiment complexe Roland :clap
Aller : au boulot, moi je continue sur Android...
C'est bien, t'as eu une promo, t'es admin maintenant 8-) :lol
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 16/08/2013 à 20h20

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Citation:
plein de couleurs qu'on arrive plus à enlever
des clics à gauche des clics à droite sur fond noir ?? :hum

Là tu parle du code sec qui est sur le forum. C'était un essai.
Le software (oui oui oui) qui est dans le zip est parfaitement fonctionnel. :top :)

Anne-so doit être occupée.... Comme quelqu'un qui bosse...Qui a peut-être 11 enfants, un mari, un amant, et une vieille maman à aider. Pfiou..! Il vaut mieux être un homme à la retraite qu'une femme en activité

Je vais faire une nouvelle mouture, en tenant compte de tes stupéfiantes remarques.
Mais pour cela, il faut qu'Anne-so précise les critères qui peuvent êtres associés (au même moment).
Par exemple: RTT inclus dans congé, ou dans formation
Citation:
c'est un peu long mais pas vraiment complexe

Je dirai que c'est juste hyper chiadé. :)

Tu parle d'une promo...Si un " pédonazi de l'internet " débarque sur le site; c'est moi qui vais charger. :\'(
____________________
Roro

   
Le 16/08/2013 à 20h35

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Si t'as les moyens tu t'achètes une Galaxy Note 8, tu y installes RFO BASIC! trouvable très facilement sur PlayStore, et hop le tour est joué... :lol
J'y ai déjà transposé quelqu'uns de mes codes JB...
Je n'ai pas de smartphone et une tablette 10" me semblait trop encombrant à transporter facilement : la NEXUS 7 est un bon compromis et la meilleure tablette 7 pouces... mais la Galaxy Note 8 qui vient de sortir est encore mieux, un peu plus grande (8 pouces ça devient trop grand pour une poche de veste de moto :s ) et bien mieux équipée...



Edité par cassiope01 Le 16/08/2013 à 20h40
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 16/08/2013 à 22h05

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
ok, c'est noté. Il faut que j'aille me renseigner en magasin.
Je ne sais Rien de ce que sont ces tablettes.
Je suis le: "has been" type :( Pour la mobilité, je fais avec un petit Sony/Windows. :p
____________________
Roro

   
Le 17/08/2013 à 07h39

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Une tablette c'est pas fait pour téléphoner (bien que l'on puisse avec Skype ou autre...).
Cependant tous les opérateurs vendent une deuxième carte SIM associée à ton N° mobile, mais qui n'utilisera QUE la partie DATA de ton abonnement c'est à dire internet en 3G/4G. Tu gardes donc ton tel et moyennant l'abonnement qui va bien (en général 40€ pour surfer normalement) tu utilises la 2ième carte SIM dans la tablette.
Pour ma part je n'utilise que le Wifi, je n'ai pas de n° mobile et encore moins d'abonnement :top
Tu pourrais être tenté par les Smartphones qui font TOUT mais ils ne dépassent pas les 5,5" (il y a 8 jours on m'a offert un Galaxy Note II qui plus performant que ma tablette et aussi bien équipé que la Galaxy Note 8) et pour coder dessus c'est quasi impossible...ou bien sur PC puis transfert puis test, etc...pas cool !
En plus mes vieux yeux me font comprendre qu'ils préfèrent la tablette :nex



Edité par cassiope01 Le 17/08/2013 à 07h42
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 17/08/2013 à 11h43

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Citation:
Pour ma part je n'utilise que le Wifi,

Par ici, tant que les corbeaux ne seront pas équipé de bornes: Pas de wifi.
Les deux choses qui me font hésiter:
1- Y'a pas de couvercle. et je ne suis pas soigneux.
2)- Si on la pose à plat sur une table, la position de travail n'est pas bonne (tête penchée en avant = bobo les muscles)
Mais je vais quand même tester. Y'a encore de la place dans le tiroir à rencard.
Les smartphones.....J'ai eu un Samsung... :heink J'ai repris mon petit Alcatel à clavier. :)

A part ça; tu avais raison . Ce n'est pas si compliqué que ça en avait l'air.
Mais qu'est-ce que tu a contre mon fond noir ? C'est le plus reposant pour les yeux; très "tendance" sur les blogs "in".
Le décalage des jours de la semaine est guéri.
Les cases se déplacent
Comme il n'y a pas le fichier, pas de sauvegarde.
Il reste un bug: Une case nouvellement crée, se décale au premier mouvement.
Comme l'autre code est loin en arrière; je le mets là.
J'ai vu qu'il y avait des nouveaux inscrits, alors j'ai commenté généreusement. je suis trop bon... Lol !
Salut......à+.
Note; Code fonctionnel dans: "Planning" de: " Projets Open Source"
Code VB :
 
 
   NOMAINWIN
    mois$ = "Jan Fév Mar Avr Mai Jun Jui Aou Sep Oct Nov Déc"
    today$ = date$("mm/dd/yyyy")
    j = date$(today$)
    jsem$ = word$("Mar Mer Jeu x Ven Sam x Dim Lun",int((j/7-int(j/7))*10)+1)
    date$ = jsem$+" "+mid$(today$,4,2)+" "+word$(mois$, val(today$))+"   "+left$(time$(),5)'right$(today$,4)
    gosub [calcjouran]
    'gosub [calcjoursem]
    '----------------------------- Planning 1 -----------------------
    ncx = 31  'nombre de case en X
    ncy = 24  'nombre de case en Y
     if moisactu$="Avr" or moisactu$="Jun" or moisactu$="Sep" or moisactu$="Nov" then
        ncx=30
     else
        ncx=31
     end if
     if moisactu$="Fév"  then ncx=28 ' y'aura un soucis pour les années bisextiles
    global Xcol,Ycol ' pas utile Lol!
    DIM info$(10,10) 'déclaration des tableaux
    'dim cell(ncx,ncy)
    'dim cell$(ncx,ncy)
    'dim liste$(8)
    dim cell(365,ncy)
    dim cell$(365,ncy)
 
    '***gosub [charge] 'chargement du fichier (mois en cours)
    '***gosub [backup]
    [retourouvre]
    dc = 30  'size of a cell in pixels
    MapWidth = ncx*dc 'Dimensions de la map (relative à N cellules*Dim cellules)
    MapHeight = ncy*dc/2
    WindowWidth = MapWidth+130  'Dimensions de la fenêtre (relative à la map)
    WindowHeight = MapHeight+175
    UpperLeftX = 20 'placement de la fenêtre'''(DisplayWidth-WindowWidth) / 3
    UpperLeftY = 50
   '--------------------------- Fin planning 1 -----------------------
    dim gene(365)
    for x=1 to 365
       gene(x)=x 'mise en tableau (ça peut servir)
    next x
 
    STATICTEXT #w.v, "Vitesse:", 5, 5, 55, 20
    STATICTEXT #w.m, "Mois:", 5, 30, 40, 20
    STATICTEXT #w.ja, "J/An:", 5, 53, 70, 20
    STATICTEXT #w.jm, "J/Mois:", 5, 78, 70, 20
    textbox #w.vit, 65, 5, 30, 20
    BUTTON #w.mv, "-", [moinsv], UL, 100, 5, 20, 20
    BUTTON #w.pv, "+", [plusv], UL, 125, 5, 20, 20
    BUTTON #w.gau, "<<--", [gauche], UL, 165, 5, 40, 20
    BUTTON #w.pa, "Pas à Pas", [pas], UL, 215, 5, 60, 20
    BUTTON #w.droi, "-->>", [droite], UL, 285, 5, 40, 20
 
    STATICTEXT #w.a, "\|/", 535, 5, 25, 20
    statictext #w.cd "( Clic Droit --> Supprime )",600,0,200 ,20
 
   ' BUTTON #w.cli, "Bug", [clic], UL, 580, 5, 40, 20
    GRAPHICBOX #w.g, 90, 30, 960, 105 '930
    graphicbox #w.map, 90, 136, MapWidth,  MapHeight
    open "  Essai de scrolling..."+space$(20)+date$ for window_nf as #w
     print #w, "trapclose [quit]"  ' Le print est facultatif
     #w.g, "down;fill black"
     #w.map "down; fill black"
    #w.map "when leftButtonMove [Mark]"
    #w.map "when leftButtonDown [Mark]"
    #w.map "when rightButtonMove [supress]"
    #w.map "when rightButtonDown [supress]"
     '------------------------ init var ------------------
     temp=200:v=3
     droi=1:gau=1:p=1
     x=0:y=30:xx=0
     a=jouran-15 'centrage du jour actuel
     gosub [nomjoura]'jour "a" au lancement retourne jsa$ et js(le N° d'ordre)
     '-------------------------init graph --------------
     #w.vit,str$(v)
     #w.a, "!font Comic_Sans_MS 12": #w.cd, "!font Comic_Sans_MS 12"
     #w.v, "!font Comic_Sans_MS 12":#w.m, "!font Comic_Sans_MS 12"
     #w.ja, "!font Comic_Sans_MS 12":#w.jm, "!font Comic_Sans_MS 12"
     #w.droi, word$("-->> Stop",droi)
     #w.gau, word$("<<-- Stop",gau)
     #w.pa, word$("Pas-à-Pas Continu",p)
      colsep$="pink"
 
     gosub [affiche]
    'gosub [displayopen] '*********
    gosub [grid]
    'gosub [boxname]***********

  wait
  [clic] ' pour débuggage
    #w.map "fill black"
    gosub  [dispscroll]
  wait
  [droite] ' incrémente les valeurs et gestion du pas à pas
          if pas=1 then [godr]
      #w.gau,"!disable"
      droi=droi+1
      if droi=3 then droi=1
      #w.droi, word$("-->> Stop",droi)
    [loopdr]
    if droi=1 then #w.gau,"!enable":wait
    [godr]
    a=a+1
    j=j+1 ' pour calcul nom  premier jour
    gosub [nomjoura] 'recalcule nom premier jour
    if a+31>365 then a=1 'fin année
    gosub [affiche]
    gosub [pause]
    if pas=1 then wait
    goto [loopdr]
 
  [gauche]
    if pas=1 then [gogau]
    #w.droi,"!disable"
    gau=gau+1
    if gau=3 then gau=1
    #w.gau, word$("<<-- Stop",gau)
    [loopgau]
    if gau=1 then #w.droi,"!enable":wait
    [gogau]
    a=a-1
    j=j-1
    gosub [nomjoura]
    if a<1 then a=334'début année
    gosub [affiche]
    gosub [pause]
    if pas=1 then wait
    goto [loopgau]
  wait
  [affiche] '---------affichage statique
    #w.g, "fill black" 'efface en remplissant de noir
     y=40:xx=0
     b=a+31
     #w.g, "color yellow;backcolor black"
     #w.g, "place ";xx;" ";y+50'--------aff Jour de la semaine initial
     #w.g, "\";jsa$
    for x=a to b
       #w.g, "place ";xx;" ";y+50'--------aff Jour de la semaine (suivants)
       #w.g, "\";semai$(js)
       gosub [testmoi]
       #w.g, "font courier_new 10 bold" '--------aff Jour de l'Année
       #w.g, "color green;backcolor black"
       #w.g, "place ";xx;" ";y
       #w.g, "\";gene(x)
       #w.g, "color cyan;backcolor black" '------aff Jour du mois
       #w.g, "place ";xx;" ";y+25
       #w.g, "\";jm
         js=js+ 1
         if js=8 then js=1 'fin de semaine
         xx=xx+30
      mx=xx-(jm*30) 'determine place MOIS'-------aff Mois
       #w.g, "font courier_new 12 bold"
       #w.g, "color cyan;backcolor black"
       #w.g, "place ";mx;" ";"15"
       #w.g, "\";m$ 
       #w.g, "font courier_new 10 bold"
    next x
    #w.g, "flush;discard" 'rafraîchi la fenêtre si couverte/découverte/déplacée
    gosub [dispscroll]
  return
 
  [dispscroll] '------------ affichage dynamique
       for y=1 to ncy
          xn=a
          for x=1 to 31
             if cell$(xn,y)<>"" then col$=cell$(xn,y)
             if cell$(xn,y)="" then col$="black"
             #w.map "backcolor ";col$;" ; color ";col$ ' la couleur est dans la variable col$
             #w.map "place ";(x-1)*dc+2;" ";(y-1)*dc/2+2;"; boxfilled ";(x-1)*dc+dc-1;" ";((y-1)*dc/2)+(dc/2)-1
             xn=xn+1
          next x
       next y
       #w.map "flush;discard"
       ' Note: Le: /2--> because cases carrées au départ
  return
  [testmoi]
    if x<32 then m$="Janvier  ":jm=x
    if x>31 and x<60 then m$="Février  ":jm=x-31
    if x>59 and x<91 then m$="Mars     ":jm=x-59
    if x>90 and x<121 then m$="Avril    ":jm=x-90
    if x>120 and x<152 then m$="Mai      ":jm=x-120
    if x>151 and x<182 then m$="Juin     ":jm=x-151
    if x>181 and x<213 then m$="Juillet    ":jm=x-181
    if x>212 and x<244 then m$="Aout     ":jm=x-212
    if x>243 and x<274 then m$="Septembre":jm=x-243
    if x>273 and x<305 then m$="Octobre  ":jm=x-273
    if x>304 and x<335 then m$="Novembre ":jm=x-304
    if x>334 and x<366 then m$="Décembre ":jm=x-334
  return
  [calcjouran] 'jour de l'année
    moi$=word$(date$,3)
    select case moi$
      case "Jan"
      nj=0
      case "Fév"
      nj=31
      case "Mar"
      nj=59
      case "Avr"
      nj=90
      case "Mai"
      nj=120
      case "Jun"
      nj=151
      case "Jui"
      nj=181
      case "Aou"
      nj=212
      case "Sep"
      nj=243
      case "Oct"
      nj=273
      case "Nov"
      nj=304
      case "Déc"
      nj=334
    end select
    jouran=nj+val(word$(date$,2))
    jpointe=nj+mX+1 'jour cliqué
  return
  [nomjoura] '----------premier jour
   k=j-15
   jsa$ = word$("Mar Mer Jeu x Ven Sam x Dim Lun",int((k/7-int(k/7))*10)+1)
    sem$="Lun Mar Mer Jeu Ven Sam Dim"
    for xs=1 to 7
       semai$(xs)=word$(sem$,xs)
    next xs
    for xs=1 to 7
       if jsa$=semai$(xs) then js=xs: exit for'N° d'ordre dans la semaine de base
    next xs
 return
  '------------------------ vitesse -----------------------
  [moinsv]
    temp=temp+100:v=v-1 'temps de pause
    if temp > 1000 then temp=1000 'butée temps max
    if v < 1 then v=1 'valeur arbitraire (la vitesse est inverse du temps de pause)
    #w.vit,str$(v) 'affiche v
  wait
  [plusv]
    temp=temp-100:v=v+1
    if temp < 50 then temp=50 'butée temps min
    if v > 10 then v=10
    #w.vit,str$(v)
  wait
  [pause]
        timer temp, [temps]
        wait
        [temps]
        timer 0
  return
 
  [pas] 'pas à pas
      p=p+1 'permutation affichage bouton
      if p=3 then p=1
      if p=2 then pas=1 'flag du pas à pas
      if p=1 then pas=0
      #w.pa, word$("Pas-à-Pas Continu",p) 'affichage bouton
  wait
 
  [Mark] 'on débarque ici quand on clique gauche
        mX = int(MouseX/dc)+1:Xcol=mX 'transformation des coords pixels en coord cellules
        mY = int(MouseY/dc*2)+1:Ycol=mY ' +1 because les tableaux commencent à "O"
        'cell$(mX,mY)=str$(mX)+" "+str$(mY)
        mXX = int(MouseX/dc)
        mYY = int(MouseY/dc*2)
        gosub [calcjouran]
        if mY=1 or mY=4 or mY=7 or mY=10 or mY=13 or mY=16 or mY=19 or mY=22 then goto [blue]
        if mY=2 or mY=5 or mY=8 or mY=11 or mY=14 or mY=17 or mY=20 or mY=23 then goto [red]
        if mY=3 or mY=6 or mY=9 or mY=12 or mY=15 or mY=18 or mY=21 or mY=24 then goto [yellow]
  [blue]
        #w.map "backcolor blue; color blue"
        #w.map "place ";mXX*dc+2;" ";mYY*dc/2+2;"; boxfilled ";mXX*dc+dc-1;" ";(mYY*dc/2)+(dc/2)-1
        cell$(jpointe,Ycol)="blue"'''''''''''''''''''''''''''
         #w.map "flush; discard"
    wait
  [red]
        #w.map "backcolor red; color red"
        #w.map "place ";mXX*dc+2;" ";mYY*dc/2+2;"; boxfilled ";mXX*dc+dc-1;" ";(mYY*dc/2)+(dc/2)-1
        cell$(jpointe,Ycol)="red"
         #w.map "flush; discard"
    wait
  [yellow]
        #w.map "backcolor yellow; color yellow"
        #w.map "place ";mXX*dc+2;" ";mYY*dc/2+2;"; boxfilled ";mXX*dc+dc-1;" ";(mYY*dc/2)+(dc/2)-1
        cell$(jpointe,Ycol)="yellow"
        #w.map "flush"
  wait
  [supress] ' on arrive ici quand on clique droite
        mX = int(MouseX/dc)+1:Xcol=mX 'transformation des coords pixels en coord cellules
        mY = int(MouseY/dc*2)+1:Ycol=mY ' +1 because les tableaux commencent à "O"
        mXX = int(MouseX/dc)
        mYY = int(MouseY/dc*2)
        #w.map "backcolor black; color black"
        #w.map "place ";mXX*dc+2;" ";mYY*dc/2+2;"; boxfilled ";mXX*dc+dc-1;" ";(mYY*dc/2)+(dc/2)-1
        cell$(jpointe,Ycol)=""
         #w.map "flush; discard"
  wait
  [grid] ' La grille
    #w.map, "color lightgray;backcolor black;size 1"
    xx=5:y=dc/2
    for x=1 to 25
       #w.map, "place ";xx;" ";y
       #w.map, "line ";xx;" ";y;" ";xx+MapWidth;" ";y
       y=y+dc/2
    next x
    xx=0:y=0
    for x=1 to ncx
       #w.map, "place ";xx;" ";y
       #w.map, "line ";xx;" ";y;" ";xx;" ";y+MapHeight
       xx=xx+dc
    next x
        xx=5:y=dc*3 '----------separateur
        #w.map, "color ";colsep$ 
        #w.map, "size 2"
        for x=1 to 8
           #w.map, "line ";xx;" ";y;" ";MapWidth;" ";y
           y=y+dc*3
        next x
    #w.map, "flush;discard"
  return
  [quit]
    CLOSE #w
    END
 
 
____________________
Roro

   
Le 19/08/2013 à 14h32

Libertynaute Débutant

Groupe: Membre

Inscrit le: 02/08/2013
Messages: 22
Bonjour à tous !!
Oui j'ai déserté le Forum ... Problème de changement de FAI + Déménagement pendant ces 4 jours! (fatiguant -_-')

Je vais répondre à @cassiope01 : Un seul critère est suffisant par demi journée :) Et je ne vais pas faire ma difficile ^^

@Roland : Super ta petite appli ^^ J'aimerai vraiment pouvoir développer autant que toi surtout dans ce langage... Je comprends quand même après le refaire moi-même ce serai autre chose je pense :/

Le seul bug qu'il peut y avoir c'est lorsque l'on réduit l'appli dans la barre des tâches, la légende s'en va faire un tour ^^ Mais bon c'est pas encore trop grave puisque lorsqu'on la relance elle revient.

En tout une belle appli avec pleins de bonnes idées !!
Merci :clap

Web    
Le 19/08/2013 à 15h10

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Ah oui ! En effet... J'ai oublié un "flush" à la légende.

Ce que Cassiope a soulevé. C'est le fait que: mis à part les RTT qui peuvent êtres inclus dans les congés.
Un seule ligne par personne suffirait. La couleur donnant le critère.
Je pense que d'une part ce serait moins facile à lire, et qu'en plus, il faudrait cliquer sur une couleur pour la choisir, avant de la déposer sur ligne.
Nez-en-moins, c'est faisable.
Il faut juste que tu dise quels critères peuvent êtres "associés" (en vigueur au même moment)
RTT et formation ?

A toi de voir si tu préfère les deux pages alternatives, ou le clic sur couleur (ou sur liste) pour donner la couleur à la case.
Je remettrai le lien du zip quand j'aurai mis le flush à la légende. ( dans 10 mn)

.............C'est bon La légende remonte avec l'appli de retour de la barre des taches. J'ai un peu foncé le rose qui ressemblait trop au blanc. Planning.zip ......à+.
____________________
Roro

   
Le 19/08/2013 à 15h39

Libertynaute Débutant

Groupe: Membre

Inscrit le: 02/08/2013
Messages: 22
Ben pour moi, y a pas de critères associés ...
RTT, Maladie,Congés validés, Prévisions congés, Stage/formation, Arrêt de travail... Aucun ne peut être associé à la même case au même moment ...
Oui comme ça une seule ligne suffirait ce serait plus ergonomique :)
Lol ça va pas trop grave :clap :clap :clap

Web    
Le 19/08/2013 à 20h20

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Anne-so:
une seule ligne suffirait ce serait plus ergonomique :)

Oui, mais actuellement la couleur est associée à la ligne.
Avec une seule ligne, il faudra pré-sélectionner:
Soit une couleur sur une palette.
Soit un nom de critère dans une liste.
Pour la poser sur la ligne.

Je vais faire un proto; pour voir ce que ça donne.
Je te laisse à tes cartons ;) .... à+..
____________________
Roro

   
Le 19/08/2013 à 22h30

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Le prototype est prêt.
Dans le soft, j'ai laissé 2 lignes par personnes à utiliser indifféremment.
Reviens dire ce que tu en pense (quand tu aura le temps of course...!)
Si ça te plaît, on peut y adjoindre un tableau de couleurs et faire une option: "choix des couleurs". Pour par exemple ajouter des critères. Planning.zip
Bon test...... @+.
____________________
Roro

   
Le 20/08/2013 à 09h05

Libertynaute Débutant

Groupe: Membre

Inscrit le: 02/08/2013
Messages: 22
Coucou, Testé et approuvé :)
Une très très bonne idée. Seulement je ne comprends pas le nombre de case .. Une case est
séparé en deux pour le même jour si jamais il y avait plusieurs critères je pense mais là nous n'en
auront pas besoin. Je pense que cette appli peut servir à beaucoup de monde ...
@Roland fait toi développeur!!
C'est merveilleux :top

Web    
Le 20/08/2013 à 10h37

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Ah ah ah :D
Les cases sont séparées en deux ? ? ? ? ! !
Et bé,...Comme la journée: " Il y eut un matin...Et il y eut un soir..." (Jean Yanne: La création du monde)

J'ai laissé 2 lignes par personne, because la hauteur des caractères des noms fait 2 lignes.
La deuxième ligne peut servir à faire du prévisionnel de tâches. (ou à mettre des "bons points" Lol !)

Le 1er Septembre, le soft devrait charger tout seul le mois de Septembre; Mais les noms ne suivrons pas.
Tu aura le choix entre:
Ouvrir le mois d'Août; tout effacer et le sauver en le nommant: "Septembre".
Ou: Changer les noms dans "Septembre" fraîchement chargé.
Je réfléchis à ce problème, mais je crains qu'il n'y ai pas de solution. à+.
____________________
Roro

   
Le 20/08/2013 à 10h59

Libertynaute Débutant

Groupe: Membre

Inscrit le: 02/08/2013
Messages: 22
ok ok pas de soucis ... Ne t'inquiète pas pour ça !!
Je m'occuperais du changement de nom ^^
C'est déjà très très bien comme ça :D

Web    
Le 20/08/2013 à 12h58

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Je suis sur un planning "à l'année" (dernier code "sec" du 17/08 11h43)
Mais je ne me dépatouille pas de la synchro: Cases demi-jours/Jours
Comme le dit Cassiope: Ce n'est pas compliqué... :d .Mais c'est pas simple non plus... :s
____________________
Roro

   
Le 20/08/2013 à 18h06

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Anne-so:
@Roland fait toi développeur!!

Tu rigole...J'ai assez bossé comme ça (43 ans). Maintenant, je m'amuse....
Développer... Oui ... Mais quoi ?
L'imagination ne se trouve pas sous le sabot d'un cheval le pneu d'une voiture.

____________________
Roro

   

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie