Exercice 5 : Programme Basic Date

Bonjour

Maintenant que vous avez fait vos premiers pas avec un petit programme simple dans le sujet "Exercice 4"

Pour ceux qui veulent le réaliser, voici un programme un peu compliqué à réaliser

C'est pour cela que je vous disais dans l'exercice précédent qu'il faut apprendre à se simplifier l'écriture d'un programme car lorsqu'on s'attaque à un programme compliqué, il faut bien écrire de manière claire, précise et simple afin de mieux s'y retrouver

Voici le programme
Le but du programme est de calculer le jour (Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi, Dimanche) en fonction de la date entrée sous forme de nombre : Jours, Mois, Année

Commencez par effacer l'écran
> Bonjour
> Quel est votre nom ?
(Nom), indiquez la date en nombre sous forme jours puis mois puis année
> Jour ?
> Mois ?
> Année ?
Afficher (par exemple) "Le jour de la date demandée est Mardi"
A bientôt (Nom)

=> La difficulté de ce programme réside dans les calculs à faire pour trouver le jour
Essayez déjà de faire les calculs sur papier avec un crayon ou un stylo
et voyez comment trouver le jour d'une date

J'avais réussi à faire ce programme sur une vieille calculatrice programmable des années 90
Il faudra que je retrouve l'équation mathématique mais ça me reviendra facilement

Bon courage

Bonjour

Voici un exemple de ce que je vous demande en version Web

http://therese.eveilleau.pagesperso-orange.fr/pages/hist_mat/textes/jour.html



Bon courage

Bonjour

Je vais re-essayer de retrouver la formule que j'avais trouvé car elle est complexe
Il y a plein de conditions, selon les années bissextiles, etc...
Sur des sites, il y a des formules mathématiques mais elles sont complexes

Quand j'aurai retrouvé la formule, je vous la donnerai et vous ferai le programme

Bonjour Loup,

Comme je n'ai encore pas réussi à sauvegarder le programme écrit avec l'émulateur TO9+ malgré le suivi, mot à mot de ce que tu as indiqué ICI, j'attendrai que tu aies trouvé la formule permettant de calculer le jour de la semaine en fonction de la date avant de l'écrire.

Comme, de plus, il ne semble pas possible de faire du copier/coller avec les émulateurs (ce n'était pas encore en vigueur avant Windows), je ne peut écrire le programme que dans la fenêtre de l'émulateur, l'essayer et enregistrer l'image de la fenêtre en BMP.

J'ai trouvé un OCR qui peut extraire un texte qui figure dans une image mais ce n'est pas très performant.

À bientôt.
Alain

P.S. Voici un lien  qui pourrait nous servir ! 

Salut Alain,

Cela m'étonne que tu n'arrives pas à enregistrer !

Pourtant, j'ai bien expliqué pas à pas ce qu'il fallait faire

Essaye d'effacer ton dossier où tu as enregistré l'émulateur et les ZIP
et re-télécharge l'émulateur que j'ai mis à jour avec le fichier disquette et les nouveaux paramétrages

=> http://ftpfsm.free.fr/basic/TO9+.zip

Pour l'exercice de la date, laissez tomber !
Certains sites utilisent des formules mathématiques complexes mais il y a plus simple
Je l'avais réalisé sur mon ancienne calculatrice graphique Casio qui avait un Mode Programmation genre Basic et je suis en train de retrouver la façon dont j'avais fait mais ça me prend du temps

Laissez tomber cela, je vais vous donner un autre exercice à faire plus simple et plus distrayant

PS : Pour la virgule, après le Bonjour, je pense que c'est mieux

J'avais trouvé un algorithme dont je t'ai envoyé le lien en message privé et on voit que c'est réalisable mais sûrement en se creusant les méninges plusieurs jours !

Pour la sauvegarde, je serais intéressé de savoir si d'autres parmi le groupe ont pu ou non la réaliser. 
_________________________________________________________
    Modif de ce message le 1er octobre à 17 h 35 :
Ça y est, j'ai repris le tutoriel de Loup et ça a très bien marché pour "Formater l'unité de disquette"


_________________________________________________________________
Bien entendu, j'ai déjà fait ce que tu me dis de faire, je l'ai même placé dans C:\TO9 qui m'a donné un dossier TO9+ en décompressant le zip.

J'ai aussi essayé de voir les modifications subies par le fichier dcmoto.ini à chaque fermeture de la fenêtre de l'émulateur mais je n'arrive jamais au pop-up qui permet le formatage de la disquette virtuelle.  

Et tout ça au moins une dizaine de fois !

À quand les prochains langages ?

Pour ceux qui sont intéressés par construire ce petit programme Basic de reconnaissance du Jour en fonction de la date, j'ai trouvé la formule grâce à Alain (Merci à lui)

Il y a un Mathématicien qui a écrit un Algorithme dans sa plus simple expression
J'ai d'ailleurs ajouté un texte sur cette méthode sur le site Wikibooks
https://fr.wikibooks.org/wiki/Trouver_le_jour_de_la_semaine_avec_une_date_donn%C3%A9e

J'avais construis un petit programme sur ma calculatrice et il y a des ressemblance à ces calculs
Dans le calcul, tout dépend de l'année Bissextile qui compte 29 jours pour Février au lieu de 28 pour les autres

Le Mathématicien est Mike Keith

Mike Keith déclare lui-même qu'il s'agit là de la "plus simple formule possible" pour le calcul du jour de la semaine, "la meilleure qui puisse être construite", ajoute-t-il.
Dans sa forme opérationnelle, son algorithme s'écrit :

Jour de semaine D = { [(23m)/9] + d + 4 + y + [z/4] - [z/100] + [z/400] - 2 (si m >= 3) } mod 7

Comme Mike Keith est un Mathématicien Américain, D = Day pour Jour ; M = Month pour Mois et Y = Year pour Année
Pour l'explication de la Division par 100 et par 400, c'est pour savoir si l'année est Bissextile  :
Si Y n'est pas divisible par 4, l'année n'est pas Bissextile.
Si Y est divisible par 4, l'année est Bissextile sauf si A est divisible par 100 et pas par 400.
D = Jour de semaine (D = 0 à 6; 0 = Dimanche, 1 = Lundi, ... , 6 = Samedi)
[x] signifie le nombre entier résultant de la division, le reste étant ignoré
m = Mois (m = 1 à 12; 1 = Janvier, 2 = Février, 3 = Mars, ... , 12 = Décembre) m >= 3 signifie m supérieur ou égal à 3
d = Jour (d = 1 à 31)
y = année
z = y - 1 si m < 3
z = y si m >= 3
Modulo 7 ou mod 7 = reste de la division par 7

---

La fonction Mathématique Modulo est disponible dans le langage Basic
http://gowap.free.fr/Prog/Basic/MEMO7.html

Il faut écrire par exemple : X MOD Y et mettre le résultat dans une mémoire =>  R = X  MOD Y

Pour la valeur entière de la division, c'est avec l'arobase, dont le signe en Basic est avec la touche Shift puis la touche en haut à gauche, à gauche du 1, le petit 2 en exposant

Merci à Alain pour le lien qu'il m'a donné en MP
Je n'avais pas trouvé cette page, je n'étais tombé que sur des pages complexes qui ne parlaient pas de l'Algorithme de Mike Keith

Bonjour

J'ai fini le programme

Pour ceux qui ont appris à se servir du lecteur de Disquette, voici la disquette fichier

Pour le téléchargement, faites un clic droit puis Enregistrer le lien sous... (et pas clic gauche)
http://ftpfsm.free.fr/basic/FD/JourDate.fd

Si celui ci ne fonctionne pas, j'ai zippé le fichier
http://ftpfsm.free.fr/basic/FD/JourDate.zip

Dans l'émulateur, vous allez dans Fichier puis Charger disquette...
Vous indiquez le fichier JourDate.fd
Et sous Dos, vous tapez la commande suivante : RUN "JOURDATE" ou RUN "JOURDATE.BAS"

---

Voici le programme en texte

10 CLS
20 PRINT "Affichage du jour d'une date"
30 PRINT " "
40 PRINT "Bonjour :-)"
50 PRINT " "
60 PRINT "Indiquez la date sous forme numérique"
70 PRINT " "
80 INPUT "Jour ? (1-31) : ",J
90 PRINT " "
100 INPUT "Mois ? (1-12) : ",M
110 PRINT " "
120 INPUT "Année ? (1500-999) : ",A
130 PRINT " "
140 REM Calcul du jour de la date
150 IF M>=3 THEN C=2 ELSE C=0
160 IF M<3 THEN Z=A-1 ELSE Z=A
170 R=(((23*3)@9)+J+4+A+(Z@4)-(Z@100)+(Z@400)-C)MOD7
180 PRINT "Le jour de la date recherchée est : "
190 PRINT " "
200 IF R=0 THEN PRINT "Dimanche"
210 IF R=1 THEN PRINT "Lundi"
220 IF R=2 THEN PRINT "Mardi"
230 IF R=3 THEN PRINT "Mercredi"
240 IF R=4 THEN PRINT "Jeudi"
250 IF R=5 THEN PRINT "Vendredi"
260 IF R=6 THEN PRINT "Samedi"
270 PRINT " "
280 PRINT "A Bientot"
290 PRINT " "
300 END

A bientôt

Salut Loup !

Je vais étudier ton programme avec attention mais je n'arrive pas à récupérer ton lien pour la disquette , je tombe sur une page de code.

@+

Salut Mandora (et les autres...)

Pour bien télécharger un fichier sur Internet avec n'importe quel Navigateur

Il ne faut pas faire un clic gauche sur le lien que vous avez sur la page
car lorsque vous faites un clic gauche, cela a tendance à exécuter le fichier dans le Navigateur

Donc pour bien sauvegarder un fichier sur votre PC qui est en lien sur un site Internet
il faut faire un clic droit sur le lien puis dans le Menu contextuel, choisir "Enregistrer le lien sous..."

Si vous cliquez aussi sur le Clic gauche sur un fichier zippé en lien, le navigateur aura tendance à dézipper le fichier dans le Navigateur (dans certains Navigateur)
Habituez vous donc à faire un Clic droit sur le lien puis dans le Menu contextuel, choisir "Enregistrer le lien sous.."

ah ba oui évidement pfff...je vais reprendre du café moi ! merci.

Mandora, tu postes une image humoristique de Geek avec les Navigateurs et leur rapidité

Si ça continue, on va t'appeler "Internet Explorer"

 

hé ho ! ça va on se moque pas Mifasol ! 

Enfin, ça y est, tout fonctionne.
J'ai placé le fichier JourDate.fd dans le sous-dossier SAVE du dossier TO9+, j'ai ouvert l'émulateur dcmoto, j'ai cliqué sur 1 BASIC 512 et quand la fenêtre Dos est apparue, je suis allé sur Fichier - Charger disquette - ouvert le dossier SAVE et cliqué 2 fois sur le nom du fichier JourDate.fd.
Puis, dans la fenêtre Dos, j'ai écrit RUN"JOURDATE" et le programme s'est lancé.

ATTENTION ! Il ne faut pas modifier le nom du fichier fd.
Si on le fait, il faut alors "charger la disquette" avec ce nouveau nom MAIS lancer le programme — RUN — avec le nom qu'il avait à l'origine.

J'ai voulu voir comment était le fichier fd mais on ne peut pas l'éditer en Windows, ni en texte, ni en hexadécimal. Ça nous montre tous les octets identiques.

Bon, je poste ce texte sans le vérifier car mon téléphone sonne.
Excusez les erreurs de frappe s'il y en a.

À plus tard.
Alain

Je reviens. La conversation téléphonique est terminée.

Je voudrais indiquer ce site d'initiation au Basic pour TO7 qui doit être proche du TO9.

Peut-être qu'avec cette aide, on pourrait reprendre le programme de l'exercice 3 en donnant une réponse "vous êtes né avant ou après" tenant compte de la date du jour.
Il suffirait de demander à l'opérateur d'indiquer la date à laquelle il répond.
Ensuite, on pourrait comparer cette date avec l'âge qu'il indique et écrire la réponse qui convient.

Qu'en penses tu, Loup ?
Mais je ne veux pas marcher sur tes plates-bandes !

À bientôt.
Alain

Bonsoir tout le monde,

je ne vous ai pas abandonné. Manque de temps, et maintenant je suis très en retard par rapport à vous.
Il faut que je lise ce qui c'est passé et faire le programme de date. J'ai survolé un petit peu et j'ai vue que M. Loup a posté la solution. Pour l'instant je ne la regarde pas car j'ai envie de le faire moi même. J'avais trouvé les différentes formule sur internet mais je me demandé s'il fallait trouvé seul sans l'aide du monde entier (internet). Ne pouvant résoudre cela j'avais commencé à transcrire la formule mais je en savais pas comment faire le modulo et de récupérer le reste de la division.
En programmation windev cela prend 5 seconde :
LeJour = EntierVersJourEnLettre(DateVersEntier("AAAAMMJJ"))

@+

On va revenir aux méthodes du Pensionnat de 1950

Vous allez répéter après moi : Respect, Travail, Obéissance sont les clés de l'Excellence

J'ai l'impression que vous ne prenez pas la peine de lire tout ce que j'écris

Vous êtes indiscipliné et on va ressortir la bonne vieille règle en bois pour vous taper sur les doigts

---

Pour répondre à Alain

Tu as dit dans ton post, je te cite

Je voudrais indiquer ce site d'initiation au Basic pour TO7 qui doit être proche du TO9.

J'ai déjà cité le lien que tu cites
http://gowap.free.fr/Prog/Basic/TO7-70.html

Toi aussi on va t'appeler Internet Explorer ? comme Mandora ?
qui a posté l'image d'Internet Explorer qui a un temps de retard ?
http://www.fosamobi.com/t5548p310-humour-en-images#73066

Réveillez vous les gars, on se réveille, vous êtes endormi du cerveau !!!

Si tu avais pris la peine de lire mon post Exercice 4 que j'ai pris la peine de rédiger
Tu aurais vu ce lien
http://www.fosamobi.com/t7237-exercice-4-premier-pas-dans-la-programmation-en-basic#73159

Dans mon post, en dessous du screen TO9, j'ai mis une section Instructions BASIC où j'ai cité ce lien
Il y a un autre lien sur ce site, sur le Mémento des Instructions
http://gowap.free.fr/Prog/Basic/MEMO7.html

Bon, on va faire comme au Pensionnat

1ere Punition pour Alain
Alain, tu me copieras 50 fois "Je dois bien lire ENTIEREMENT ce qu'écrit Loup dans ses messages avant de dire des bêtises !!!

---

Pour répondre à Patriste

Tu dis dans ton message, je te cite

En programmation windev cela prend 5 seconde :
LeJour = EntierVersJourEnLettre(DateVersEntier("AAAAMMJJ"))

C'est sûr, cela prend 5 secondes mais tu crois qu'en Windev, le calcul se fait par magie ?

Le calcul du jour d'une date se fait en fonction des années Bissextiles
Tu crois que dans ta formule que tu cites, il y a une prise en compte des années Bissextiles ? NON

Je cite la définition de WinDev de Wikipédia
http://fr.wikipedia.org/wiki/WinDev

WinDev est un atelier de génie logiciel (AGL) édité par la société française PC SOFT et conçu pour développer des applications, principalement orientées données pour Windows 8, 7, Vista, XP, 2008, 2003, 2000, mais également pour Linux, .NET et Java. Il propose son propre langage, appelé le WLangage, qui fait partie de la L4G (4ème génération), et qui permet le développement plus rapide d'applications par rapport à d'autres générations. La première version de l'AGL est sortie en 1993.

WinDev est donc un atelier de génie logiciel prévu pour fonctionner sur l'environnement Windows ou Linux

La date est déjà calculée par Windows ou par Linux dans son programme interne ou par la carte mère du PC

Comment fait tu pour appliquer ta ligne de commande sans Windows, tu peux me le dire ?

Dans le Basic, il n'y a pas de Windows, à l'époque des premiers ordinateurs familiaux, il n'y avait pas de Windows donc il fallait bien une formule Mathématique pour calculer le jour d'une date

1ere Punition pour Patriste
Patriste, tu me copieras 50 fois "Je dois bien réfléchir et tourner 7 fois ma langue dans ma bouche avant d'écrire des bêtises !!!

---

Remettez vous au travail et réfléchissez bien à ce que vous dites

Sinon, vous aurez une autre punition bien plus sévère


Essayez quand même de réfléchir à ce que vous dites

Je sait ce que c'est windev et bien sur derrière chaque fonction formater par windev y a des tas de lignes de programmations.
Je ne suis pas la pour dire qui est qui est meilleur (de soft de programmation) c’était juste pour dire qu'il fallait qu'une ligne c'est TOUT...

c'est juste et juste pour répondre à une question :

Tu dis dans ton message, je te cite :
Le calcul du jour d'une date se fait en fonction des années Bissextiles
Tu crois que dans ta formule que tu cites, il y a une prise en compte des années Bissextiles ? NON

Réponse : OUI cela prend en compte les années bissextiles.

Je répète c'est juste pour t'informer que cela gère le bissextiles.

Bon je vais maintenant me remettre sur le basic..

@+

Mon cher Patriste

Pour le calcul du jour d'une date, c'est très complexe
Je l'ai indiqué ici dans un message précédent
http://www.fosamobi.com/t7249-exercice-5-programme-basic-date#73312

C'est un Mathématicien, Mike Keith, qui a réussi à trouver l'Algorithme le plus simple

Il y a des conditions comme il ne faut pas que l'année soit divisible par 400 et par 100, en fonction de l'année Bissextile

Ce sont des calculs et des Algorithme complexes, j'avais mis une semaine pour faire plein de tests sur papier pour faire mon petit programme sur Calculatrice programmable

Il y a pleins de conditions et de tests pour bien calculer

S'il y a un Mathématicien qui s'est creusé la tête pendant longtemps et qui a réussi à trouver l'Algorithme le plus simple, c'est que ce n'est pas aussi simple que cela
sinon on se serait passé de l'intelligence des Mathématiciens

Toi tu cites une Formule, je te cite
LeJour = EntierVersJourEnLettre(DateVersEntier("AAAAMMJJ"))

D'après ce que je peux comprendre, cela prend la valeur entière du jour, d'une date

Il y a aussi la fonction Modulo qui est utilisé dans l'Algorithme, c'est une fonction mathématique
Je ne vois pas la fonction Modulo dans ta formule mais une valeur entière d'apparence

Je doute fort que ta formule fonctionne comme cela

A mon avis, la formule reprend une date donnée par Windows ou Linux

Mais ta formule peut elle calculer par exemple quel était le jour du 1er Juillet 1789 ?

Je ne connais pas le WinDev mais je doute fort d'après ce que peux me faire penser cette formule

Je ne pense pas que ta formule est une fonction pour déterminer n'importe quel jour de 1500 à 9999
et si elle le fait, il n'y a pas de calcul, ou alors tu n'as pas affiché les calculs qui se faisaient en amont

car il faut aussi demander à l'utilisateur le jour de la date voulue, ainsi que le mois et l'année

De toute façon, on ne va pas travailler avec le WinDev mais avec du C++

Le WinDev n'est qu'un logiciel pour faire des applications sous Windows ou Linux
mais ce n'est pas avec cela qu'on fait des applications sur Smartphones ou sur d'autres machines
Seul le C++ est un langage universel

Oui bien sur que c'est très complexe, je ne dit pas le contraire.

Je voulais juste faire une comparaison (qui n'est pas comparable au niveau développement) qu'il fallait une ligne avec windev et plusieurs en basic.

Bon Loup pour moi l'affaire est clos sur ce sujet.

Je veux continuer dans le sens que tu a commencé de faire un petit groupe sur du développement.

Bonne soirée,

@+

Bonjour

Pour la suite des événements, j'ai fais un nouveau sujet pour vous faire part de l'évolution de l'Enseignement
http://www.fosamobi.com/t7268-suite-de-l-enseignement#73369

On va continuer à bidouiller en Basic pour acquérir des modes de pensée au développement
et en parallèle, on apprendra le langage C++ ensemble