Quick links
FAQ
Register
LoginMS-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.
Capture d'écran
Téléchargement
![[fr]](./ext/win3x/customcode/images/fr.gif){kind=small} Route (5 KB) Hits : 125 ![[dos]](./ext/win3x/customcode/images/dos.gif){kind=small} LISTING DE ''ROUTE.BAS'' SPOILER Disabled 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 |
![[ img ]](http://www.old-computers.com/museum/photos/Tandy_Model4_Running_s1.jpg)
