Win3x.Org

Windows & DOS Community

Route [fr]

Répondre   Page 1 sur 2  [ 18 messages ]
Aller sur la page 1 2 »
Auteur Message
LE CONSEIL GRIS
Sujet du message : Route [fr]
Publié : 11 juil. 2012 02:39
Membre d'honneur
Avatar de l’utilisateur
Hors-ligne
 
Messages : 508
Inscription : 27 avr. 2012 15:15
 
Route
MS-DOS

Description

Petit programme en Basic appelé ''ROUTE''. Tous les logiciels que je propose sont issus d'originaux personnels sous Qbasic. Un petit frère de Autoroute Express pour calculer vos temps de trajets et découvrir le Basic et ses possibilités.

Téléchargement
[fr] Route (5 Ko) Clics : 65 [dos]

LISTING DE ''ROUTE.BAS''
5 REM *************************************
6 REM * PAGE D’ACCUEIL *
7 REM *************************************
10 MODE 0
20 LOCATE 5, 5: PRINT "BONJOUR"
30 LOCATE 3, 10: PRINT "JE VOUS SOUHAITE "
40 LOCATE 3, 15: PRINT "BONNE ROUTE..."
50 LOCATE 1, 20: PRINT "TAPER UNE TOUCHE SVP"
60 IF INKEY$ = "" THEN GOTO 60
70 MODE 1
75 REM ************************************
76 REM * INITIALISATION VARIABLES PRINCIPALES*
77 REM ************************************
80 LET j = 0
90 LET M = 0
100 LET H = 0
110 LET T = 0
120 LET A = 0
130 LET N = 0
140 LET V = 0
150 LET PD = 0
160 LET PR = 0
170 LET PA = 0
180 CLS
185 REM *************************************
186 REM * PRISE EN COMPTE DU JOUR DE DEPART *
187 REM *************************************
190 PRINT "LE JOUR DE VOTRE DEPART EST-IL ?"
200 LOCATE 5, 5: PRINT "1: UN JOUR DE SEMAINE."
210 LOCATE 5, 10: PRINT "2: UN WEEKEND."
220 LOCATE 5, 15: PRINT "3:UN JOUR DE GRANDS DEPARTS."
230 LOCATE 5, 20: INPUT "VOTRE CHOIX,PUIS ENTER'"; j
240 IF j < 1 OR j > 3 THEN GOTO 230
250 CLS
255 REM *************************************
256 REM * PRISE EN COMPTE CONDITIONS METEO *
257 REM *************************************
260 PRINT "PARLONS UN PEU METO."
270 LOCATE 5, 3: PRINT "PENSEZ-VOUS TROUVER UN TEMPS:"
280 LOCATE 5, 10: PRINT "1: SEC."
290 LOCATE 5, 12: PRINT "2: PLUVIEUX."
300 LOCATE 5, 14: PRINT "3: AVEC RISQUE DE VERGLAS."
310 LOCATE 5, 16: PRINT "4: A LA NEIGE."
320 LOCATE 5, 20: INPUT "VOTRE CHOIX, PUIS 'ENTER'"; M
330 IF M < 1 OR M > 4 THEN GOTO 320
340 CLS
345 REM **************************************
346 REM * PRISE EN COMPTE DE L'HEURE DE DEPART *
347 REM **************************************
350 PRINT "VERS QUELLE HEURE PENSEZ-VOUS"
360 LOCATE 5, 3: PRINT "PRENDRE LA ROUTE:"
370 LOCATE 5, 10: PRINT "1: ENTRE 0 H ET 6 H."
380 LOCATE 5, 12: PRINT "2: ENTRE 18 H ET 24 H."
390 LOCATE 5, 14: PRINT "3: ENTRE 6 H ET 12 H."
400 LOCATE 5, 16: PRINT "4: ENTRE 12 H ET 18 H."
410 LOCATE 5, 20: INPUT "VOTRE CHOIX, PUIS 'ENTER'"; H
420 IF H < 1 OR H > 4 THEN GOTO 410
430 CLS
435 REM **************************************
436 REM * LIEU DE DEPART ET D'ARRIVEE *
437 REM **************************************
440 PRINT "VOTRE TRAJET S'EFFECTUERA:"
450 LOCATE 5, 10: PRINT "1: DE GRANDE VILLE A GRANDE VILLE."
460 LOCATE 5, 12: PRINT "2: DE GRANDE VILLE A PROVINCE."
470 LOCATE 5, 14: PRINT "3: DE PROVINCE A GRANDE VILLE."
480 LOCATE 5, 16: PRINT "4: DE PROVINCE A PROVINCE."
490 LOCATE 5, 20: INPUT "VOTRE CHOIX, PUIS 'ENTER'"; T
500 IF T < 1 OR T > 4 THEN GOTO 490
510 CLS
515 REM **************************************
516 REM * PRISE EN COMPTE DU TYPE DES ROUTES *
517 REM **************************************
520 PRINT "COMBIEN VOTRE TRAJET COMPORTERA-T-IL ?"
530 LOCATE 1, 10: INPUT "DE Km D'AUTOROUTE "; A
540 LOCATE 1, 10: INPUT "DE Km ROUTE NATIONALE"; N
550 LOCATE 1, 10: INPUT "DE Km ROUTE DEPARTEMENTALE"; V
555 REM **************************************
556 REM * CALCUL DE LA DUREE NECESSAIRE *
557 REM * POUR QUITTER LE LIEU DE DEPART *
558 REM **************************************
560 IF T = 1 OR T = 2 THEN LET PD = 15 * j * H
567 REM * *
570 IF T = 1 OR T = 2 THEN LET PD = 5 * j * H
575 REM **************************************
576 REM * CALCUL DE LA DUREE DU PARCOURS *
577 REM **************************************
580 LET PW = 0: LET PX = 0: LET PY = 0
590 LET PW = A * .205 * (1 + (j / 2)) * (1 + (M / 2))
600 LET PX = N * .41 * (1 + (j / 2)) * (1 + (M / 2))
610 LET PY = V * .5 * (1 + (j / 2)) * (1 + (M / 2))
620 LET PR = PW + PX + PY
625 REM **************************************
626 REM * CALCUL DE LA TRANCHE HORAIRE *
627 REM * D'ARRIVEE EN FONCTION DUREE PARCOURS *
628 REM **************************************
630 LET HA = 0: LET HV = 0
640 LET HV = INT((PD + PR) / 360)
650 IF HV > 3 THEN LET HV = HV - 4
660 LET HA = H + HV
670 IF HA > 4 THEN LET HA = HA - 4
675 REM **************************************
676 REM * CALCUL DE LA DUREE NECESSAIRE *
677 REM * POUR ATTEINDRE LE LIEU D'ARRIVEE *
678 REM **************************************
680 IF T = 1 OR T = 3 THEN LET PA = 15 * j * HA
690 IF T = 2 OR T = 4 THEN LET PA = 5 * j * HA
700 CLS
705 REM **************************************
706 REM * CALCUL DE LA DUREE TOTAL DU VOYAGE *
707 REM **************************************
710 LET DH = 0: LET DM = 0: LET SM = 0
720 LET SM = INT(PD + PR + PA)
725 REM **************************************
726 REM * CONVERSION EN HEURE ETE MINUTES *
727 REM **************************************
730 LET DH = INT(SM / 60)
740 LET DM = SM - (DH * 60)
745 REM **************************************
746 REM * AFFICHAGE DU RESULTAT *
747 REM **************************************
750 LOCATE 1, 5: PRINT "VOTRE VOYAGE DEVRAIT DUREE ENVIRON:"
760 LOCATE 1, 20: PRINT DH; "Heures;DM;"; Minutes.; ""
770 LOCATE 1, 20: PRINT "TAPER UNE TOUCHE S.V.P."
780 IF INKEY$ = "" THEN GOTO 780
790 GOTO 80

Dernière modification par Big Monstro le 18 sept. 2014 13:49, modifié 32 fois.

Haut
Profil Citer
gm86
Sujet du message : Re: ROUTE 1.0 - BASIC - MS-DOS - [FR]
Publié : 11 juil. 2012 20:29
Membre inscrit
Avatar de l’utilisateur
Hors-ligne
 
Messages : 630
Inscription : 01 sept. 2008 19:07
 
Il y a une faute au mot accueil.

À quel interprète BASIC est destiné ce programme ?

_________________

C:\ONGRTLNS.W95


Haut
Profil Citer
LE CONSEIL GRIS
Sujet du message : Re: ROUTE 1.0 - BASIC - MS-DOS - [FR]
Publié : 11 juil. 2012 21:34
Membre d'honneur
Avatar de l’utilisateur
Hors-ligne
 
Messages : 508
Inscription : 27 avr. 2012 15:15
 
QBASIC et probablement GWBASIC en modifiant un peut ou pas, car je ne l'est pas encore essayé avec GWBASIC.

Je viens d’écrire le poste, ça fait le troisième cette semaine, je m’attendais pas à une réponse pendant que je peaufinais celui la, lol.

J'ai encore des captures d'écrans à faire, mais c'est prêt.

Oui j'avais pas imaginé une faute dans le programme, je l'est vue trop tard, c'est modifié.

Dernière modification par LE CONSEIL GRIS le 08 janv. 2019 01:33, modifié 2 fois.


Haut
Profil Citer
gm86
Sujet du message : Re: ROUTE 1.0 - QBASIC - MS-DOS - [FR]
Publié : 19 juil. 2012 23:14
Membre inscrit
Avatar de l’utilisateur
Hors-ligne
 
Messages : 630
Inscription : 01 sept. 2008 19:07
 
Qu'est-ce que la commande MODE aux lignes 10 & 70 ?

_________________

C:\ONGRTLNS.W95


Haut
Profil Citer
missingno
Sujet du message : Re: ROUTE 1.0 - QBASIC - MS-DOS - [FR]
Publié : 20 juil. 2012 01:07
Membre inscrit
Avatar de l’utilisateur
Hors-ligne
 
Messages : 166
Inscription : 13 janv. 2011 17:45
 
Bonjour,
Je possède un Tandy TRS 80 color computer 2 sous Basic étendu, ce programme marcherait t'il ?
Si oui je pourrais l'uploader en .wav pour les (rares) utilisateurs de cette machine, histoire de ne pas à avoir à tout retaper à chaque fois...
D'ailleurs quelqu'un sait-il où trouver des jeux pour cette machine (en audio de préférence...) ?

_________________

Moi je dis que le plus fort entre l'hippopotame et l'éléphant, c'est encore le rhinocéros !


Haut
Profil Citer
LE CONSEIL GRIS
Sujet du message : RÉPONSE POUR GM86 ET MISSINGN - ROUTE 1.0 - QBASIC
Publié : 20 juil. 2012 01:25
Membre d'honneur
Avatar de l’utilisateur
Hors-ligne
 
Messages : 508
Inscription : 27 avr. 2012 15:15
 
["RÉPONSE POUR GM86 ET MISSINGNO"]

Salut gm86

MODE pour MODE 0 et MODE 1

Ce sont des commandes pour signifier une entré ou une sortie : des variables pour ajouter ou initialisé une "entré, exemple : (clavier)" ou une "sortie, exemple : (écran, imprimante)".
La variable est dépendante des quelques lignes à sa suite en générale ou des demandes et exigences dans la programmation.
Si il ni à pas de variable à sa suite elles peuvent êtres ajouter ou modifier.


*

Salut missingno.

Tu sait, le basic est une programmation assez simple et d'un interpréteur à un autre, souvent il y à que quelques modifications insignifiantes à faire sur le programme pour qu'il fonctionne avec un autre type de bécane, je ne vais pas m’avancer de trop car mes connaissances en basic s’arrête à quelques machines et interpréteurs seulement, dont le GFA Basic de l'Atari, le PC avec GWBasic et QBasic, le Commodore 64 ou l'Amstrad CPC, aussi du Thomson, la programmation est souvent assez similaire, c'est bien pour cela que le basic est agréable comme langage, on peut souvent bien adapter le programme d'une machine à une autre, même si il est assez spécifique, comme celui du MSX et du GFA, car on retrouve souvent grand nombre de variables identiques, même si il vaut mieux ne pas pratiquer tout ces basic ensembles pour éviter d’être dans les choux, lol.

Je pense qu'il ne devrais pas y avoir une grande difficulté à le faire fonctionner avec ton Tandy en basic étendu.

Je vais mettre un lien dans une édition en wav pour que d'autres l'essaient, mais n'oublie pas de me dire si il fonctionne avec ton basic, normalement il y à juste besoin de renommer le fichier pour qu'il soit utilisable ou modifiable en wav.


*

UN PEUT DE DÉTENTE DANS CE MONDE DE BRUTE.

Petite Anecdote, je me rappel d'un collègue dans un endroit incongru qui n'a rien à voir avec le secteur de l'informatique, à vrai dire j’étais chauffeur pour Truffaut une jardinerie à l'époque et ou je ne croyez que jamais on ne me poserait une question pareil, un jour... le gars s'avance vers moi et me dit! tu sait je vais écrire un programme d'intelligence artificiel en basic, il ne savait même pas que j'avais la moindre connaissance en informatique et surtout à cette endroit là! cela aurait été curieux, et je lui est répondu, tu sait la mécanique quantique demande un peut plus que quelques ligne en basic pour fonctionner, je crois que tu rentre dans des problèmes dont tu n'imagine pas la portée, même si cela reste intéressant dans le concept.
Je crois que même lui ne s'attendait pas à ce genre de réponse de ma part non plus lol.

Dernière modification par LE CONSEIL GRIS le 08 janv. 2019 01:32, modifié 1 fois.


Haut
Profil Citer
missingno
Sujet du message : Re: RÉPONSE POUR GM86 ET MISSINGN - ROUTE 1.0 - QBASIC
Publié : 24 juil. 2012 21:30
Membre inscrit
Avatar de l’utilisateur
Hors-ligne
 
Messages : 166
Inscription : 13 janv. 2011 17:45
 
LE CONSEIL GRIS a écrit :
il y à juste besoin de renommer le fichier pour qu'il soit utilisable ou modifiable en wav.
Le fichier .wav n'est pas utilisé tel quel dans le Tandy, celui-ci ne possédant qu'une entrée pour lecteur cassette ; il faut donc convertir le basic en audio ou alors le taper sur le clavier pour l'enregistrer sur cassette ensuite.
Je l'ai converti, je testerais dès que je pourrais (lien mort)
C'est bien à écouter !

_________________

Moi je dis que le plus fort entre l'hippopotame et l'éléphant, c'est encore le rhinocéros !


Haut
Profil Citer
LE CONSEIL GRIS
Sujet du message : Re: RÉPONSE POUR GM86 ET MISSINGN - ROUTE 1.0 - QBASIC
Publié : 24 juil. 2012 23:42
Membre d'honneur
Avatar de l’utilisateur
Hors-ligne
 
Messages : 508
Inscription : 27 avr. 2012 15:15
 
Moi mon tandy, il a des lecteurs de disquettes, comme je ne savait pas qu'il était avec cassette le tien, j'imaginais pas le problème pour toi.

Le mien c'est celui là :

[ img ]

Tu à du bol le programme est pas trop long à taper.

J'ai plusieurs machine sur cassette et je tape mes programmes à la main sur mon msx, zx81, mon sinclair spectrum ou mon commodore, ça fait bien longtemps maintenant, comme le temps passe vite, lol.

Dernière modification par LE CONSEIL GRIS le 08 janv. 2019 01:26, modifié 1 fois.


Haut
Profil Citer
missingno
Sujet du message : Re: ROUTE 1.0 - QBASIC - MS-DOS - [FR]
Publié : 25 juil. 2012 00:44
Membre inscrit
Avatar de l’utilisateur
Hors-ligne
 
Messages : 166
Inscription : 13 janv. 2011 17:45
 
Le mien est moins évolué :lol:

_________________

Moi je dis que le plus fort entre l'hippopotame et l'éléphant, c'est encore le rhinocéros !


Haut
Profil Citer
LE CONSEIL GRIS
Sujet du message : Re: ROUTE 1.0 - QBASIC - MS-DOS - [FR]
Publié : 25 juil. 2012 01:07
Membre d'honneur
Avatar de l’utilisateur
Hors-ligne
 
Messages : 508
Inscription : 27 avr. 2012 15:15
 
Je voie çà, mais j'en est quelques uns aussi avec des lecteurs de cassette et en plus le ZX81 lui j'ai aucun lecteur sur celui là, il faut se retaper le listing à chaque fois que tu veut utiliser un programme lol.

Moi non plus la photo est pas contractuel, je l'est piquer à oldcomputeur, j’avais pas le courage de le sortir de dessus de l'armoire et de faire des photos, j'ai déjà commencé à les photographier tous, mais c'est du boulot et en plus elles rendent pas toujours comme je veut, alors beaucoup sont à refaire, mais je ne doute pas d'arriver à la fin des séances de photographies, d'ici quelques temps, ne serais-ce que pour exposer ma collection sur mon site.

J'en est un qui fait au moins 35 kilos, celui-ci, ça va être sport pour le sortir et prendre des photos.

Au moins si ça fonctionne, même avec quelques changement, ont sauras si le programme fonctionne en partie avec ce basic, merci à toi.

J'ai vue que certains réalisait des sauvegardes de K7 au format "tape" sur disque avec l’extension "*.tap"

Dernière modification par LE CONSEIL GRIS le 08 janv. 2019 01:25, modifié 1 fois.


Haut
Profil Citer
Afficher : Trier par : Ordre :
Répondre   Page 1 sur 2  [ 18 messages ]
Revenir à « Applications » | Aller sur la page 1 2 »
Aller :