Forum Liberty Basic France

Général » Date et Temps affichage de la date exacte par rapport à un décalage horaire.
Le 22/03/2019 à 10h18

Libertynaute

Groupe: Membre

Inscrit le: 10/10/2017
Messages: 65
Hello, bonjour à tous.
Voilà quelque temps que je suis sur ce petit programme et je n'en vient pas à bout.
Suivant l'heure de mon PC et le décalage horaire une ville dans un autre pays du monde, l'heure est juste mais pas la date.
De plus lorsque le programme démarre les boutons bop n'apparaissent pas sur la droite des textboxs.
Mais dès qu'on click sur la droite du textboxs le bouton bop apparait.
J'aimerais avoir un avis sur ces deux problèmes et comment solutionner.
Ci-dessous le zip. fuseau3.zip
Merci, Bonne journée.
Castel.

fuseau3.zip
____________________
Castel

   
Le 22/03/2019 à 12h39

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2081
Concernant les boutons, je n'en eu aucuns; normal il sont out of no where.
Ajoute des pixels à la fenêtre (moi j'ai ajouté 100).
Et dispose les boutons aux bons endroits
Dans ton code je trouve les textbox de droite à 510 (+ les 70 du textbox), j'ai mis le premier bouton à 610, et il sort très bien.
Pour les dates, je vais regarder ton code et tu peux aller voir du Cassiope01 où il est question de dates et temps:
Là-->: Gadget_Biorythm_Zodiac.zip
Et là-->: Jet lag.zip
Dans le "jet lag" il y a le changement de date, mais bon, c'est du Cassiope, va falloir faire fumer le cerveau.
Il y a aussi la procédure de date en bandeau que voici:
Code VB :
 
 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)
............
    open "    Z'Animaux"+space$(20)+date$ FOR WINDOW AS #w
..........
 
____________________
Roro

   
Le 22/03/2019 à 13h05

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2081
Suite: Après passage en graphicbox (window nf), on s'aperçoit que les textbox sont plus grands qu'ils n'en ont l'air et cachent les boutons, il faut aérer tout ça (si tu avais fait en coordonnées relatives y aurait eu moins de boulot (pour l'aération).
____________________
Roro

   
Le 22/03/2019 à 14h33

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2081
Re suite: Pour l'aération il y a ça qui te génère un fichier dans le même dossier
A adapter à ta convenance
Tu n'a plus qu'à copier la tartine de textbox et la coller
Code VB :
 
OPEN "Code.BAS" FOR OUTPUT AS #1
PRINT #1, "NOMAINWIN"
PRINT #1, ""
 
x = 20: y = 20: w = 100: h = 25: dh = 10: dv = 10
x$ = STR$(x + dh) + ", " : w$ = STR$(w) + ", ":  h$ = STR$(h)      'y$ est adapté dans la boucle

FOR i = 1 TO 10
    y$ = STR$(i * 30 + dv) + ", "
    CMD$ = "TEXTBOX " + "#w." + STR$(i) + ", " + x$ + y$ + w$ + h$
    PRINT #1, CMD$
NEXT i
'----------
PRINT #1, "WindowWidth = 800"
PRINT #1, "WindowHeight = 500"
PRINT #1, "UpperLeftX = 10 'INT(DisplayWidth - WindowWidth) / 2"
PRINT #1, "UpperLeftY = 10 'INT(DisplayHeight - WindowHeight) / 2"
PRINT #1, ""
PRINT #1, "OPEN " + CHR$(34) + "Multi-Contrôles" + CHR$(34) + " FOR WINDOW AS " + "#w"
PRINT #1, ""
PRINT #1, "PRINT #w, " + CHR$(34) + "TrapClose [EXIT]" + CHR$(34)
PRINT #1, ""
PRINT #1, "wait"
PRINT #1, "[EXIT]"
PRINT #1, "CLOSE #w"
PRINT #1, "END"
CLOSE #1
'---------------
print "Fichier code.bas dispo dans dossier"
  wait
PRINT #w, "TrapClose [EXIT]"
  [EXIT]
CLOSE #w
END
 
____________________
Roro

   
Le 24/03/2019 à 19h05

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 515
Bonsoir Castel et Roland et les autres,

A priori, l'horloge devrait fonctionner.

Je n'ai pas tout capté, notamment comment on est aiguillé sur la sub afheure1 lorsqu'on clique sur un point bleu.

Cependant, dans cette même sub, lorsque je modifie newdate$ en newdate$="décalage="+str$(z), et que j'essaie avec Tokio (décalage de +8 heures par rapport à notre heure si je ne me trompe pas dans les datas) le textbox qui affiche newdate$ affiche "décalage=4". Si on ajoute 4 heures à l'heure actuelle, 19h, on obtient 23, il n'y a donc pas de changement de date, même si l'horloge Tokyo affiche trois heures du mat.

Ce pourrait-il que ce soit le problème ?
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Le 26/03/2019 à 15h27

Libertynaute

Groupe: Membre

Inscrit le: 10/10/2017
Messages: 65
Hello Bonjour Christophe, bonjour à tous,
Au départ il y a :
timer 1000, {AfficheHeure}
celle-ci appelle la sub afheure1
Ce programme est un sac de noeuds, donc mal fait!
J'ai fait des tas d'essais (sans succès) pour le faire fonctionner.
Bien sur, je n'aurai pas dû poster un tel code sans l'avoir au préalable nettoyé
de toutes choses inutiles.
Cela a démontré que parfois lorsqu'on ne voit pas la solution,
on part dans tous les sens.
malheureusement, je serai absent un peu plus deux semaines.
A mon retour, je reprendrais ce programme, avec les conseils de Roland .
Bonne continuation à Tous, bonne soirée.
Merci, Castel.
____________________
Castel

   
Le 26/03/2019 à 16h35

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2081
Citation:
je n'aurai pas dû poster un tel code

Si on ne poste que des codes parfait, y a plus matière à discussion; mais c'est vrai que là tu n'a pas cherché la simplicité, y a du grain à moudre.
____________________
Roro

   
Le 28/03/2019 à 17h48

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 515
Castel:
Au départ il y a :
timer 1000, {AfficheHeure}
celle-ci appelle la sub afheure1
J'avais bien vu cet appel toutes les secondes mais je n'avais pas percuté sur le fait que, puisque le programme était toujours à l'heure, il n'y avait pas besoin de la recalculer lorsqu'on cliquait sur un bouton.

Citation:
Ce programme est un sac de noeuds, donc mal fait!
J'ai fait des tas d'essais (sans succès) pour le faire fonctionner.

Nonobstant ce petit souci de date, je ne l'ai pas trouvé si mal ficelé, mais en effet on voit qu'il y a eu plusieurs tentatives.

Pour ma part lorsque j'explore une nouvelle voie, je donne un nouveau nom au fichier, et j'explore la nouvelle voie à partir du nouveau fichier : le programme est plus clair, et on peut revenir à la version précédente sans faire le ménage (en contrepartie, dans la flopée de fichiers générés, il est parfois difficile, quelques mois plus tard, de retrouver le bon).

Je n'ai pas cherché à faire fonctionner le changement de date, mais à mon avis, tu devrais pouvoir y arriver sans refondre le programme en profondeur : il y a probablement confusion quelque part entre entre deux variables, ou une lecture de data qui ne s'arrête pas sur la bonne valeur.

Citation:
...lorsqu'on ne voit pas la solution, on part dans tous les sens.

Après avoir subi quelques mémorables prises de tête de ce genre là, j'en suis arrivé à la conclusion qu'on aime terminer un projet dans un temps qu'on estime décent, mais que, ne pas y arriver veut simplement dire qu'on a sous-estimé nos capacités du moment, et qu'il faut savoir l'accepter.

A partir de ce constat, on peut revenir plus tard, à tête reposée, ou "partir dans tous les sens", volontairement : le résultat direct et palpable n'est certes pas garanti, mais tant qu'on ne s'énerve pas, on fait beaucoup de manipulations et de réflexions qui, au final, consolident notre culture.

C'est mon coté philosophe^^



Edité par Christophe Le 28/03/2019 à 17h54
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Le 06/04/2019 à 23h34

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 341
j'ai pas tout lu mais perso dans mon code j'utilise ca pour la date ^^ :


Code VB :
 
   mois$ = "Janvier Février Mars Avril Mai Juin Juillet Aout Septembre Octobre Novembre Décembre"
    today$ = date$("mm/dd/yyyy")
    j = date$(today$)
    jsem$ = word$("lundi Mardi Mercredi Jeudi Vendredi Samedi Dimanche",int((j/7-int(j/7))*10)+1)
    date$ = jsem$+" "+mid$(today$,4,2)+" "+word$(mois$, val(today$))+" "+right$(today$,4)
    aDate$= date$
 




Edité par atomose Le 06/04/2019 à 23h34
____________________
Yo !

MSN Web    
Le 08/04/2019 à 18h04

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 515
C'est normal, j'en écris toujours une tartine, je n'arrive pas à faire bref ;)
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Le 15/04/2019 à 16h09

Libertynaute

Groupe: Membre

Inscrit le: 10/10/2017
Messages: 65
Hello, bonjour à Tous,
Un grand merci pour les conseils et bonne paroles.
Castel
____________________
Castel

   
Général » Date et Temps affichage de la date exacte par rapport à un décalage horaire.  

 |  |

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