Pour rire, un peu de programmation

Bonjour,

Pour nous changer un peu et vu le temps pourri extérieur j'ai repris la programmation d'un réseau terminus que j'avais écris en 1990 en Tbasic. Comme il ne tournait que sous Windows 32 bits je l'avais oublié. Or il se trouve que j'ai pu trouver une version en QBasic qui tourne sous W10 64 bits. Alors j'ai ressorti mes vieux programme en Basic et me voilà reparti la dedans.

Le but du programme est de piloter une gare terminus avec 7 aiguilles et un signal à partir d'une interface 8 relais (qu'il faut que je retrouve) en branchant sur la sortie parallèle d'un PC. 

Y a quand même du boulot...



J'ai retrouvé l'interface. Problème, gérer le port // à partir d'un USB. Réponse sur la Bé, j'ai trouvé des adaptateurs USB-// qui peuvent aller.

Les ports parallèles sont devenus rares, voire inexistant sur les PC.
Faudrait porter cela sur un Sinclair ZX81 ! Pas besoin de Windows, le basic est natif sur cet ordi.
C'est bien, c'est du bricolage vintage ! J'aime !

J'ai toujours un PC XP 386 portable qui dort dans son sac. A part la batterie HS il doit encore fonctionner. Il a un port // et série. C'est d'ailleurs sur celui là que je connecte mon Intellibox et que je pilotais mon réseau N USA en 2005 avec Windigipet.

Sinon un Amstrad CPC 6128 est mieux qu'un ZX81. Et actuellement il existe des kits qui permet de brancher le clavier sur un écran plat avec une alim séparée. J'ai d'ailleurs bien programmé dessus en 1985 avec l'émulateur CPM et dBase. Mais aussi la programmation basic très puissante sur cet ordi sur lequel j'ai développé des programmes. EEt je suis passé sur PC en 1987/88 je crois.

Un avant goût de la programmation; C'est comme refaire un Commander 2  

Code:

'cornimon.bas
'H.MIRRA
'version 2.2
'3 fevrier 1990
'Decembre 2020 Mise a jour sur W10 en QB64 X64
'Reproduction gare de Cornimont dans les Vosges

'Mode VGA 640x480 12
SCREEN 12: COLOR 0, 7: CLS 'Noir/blanc

'Mode 800x600 a trouver

KEY OFF: CLS

'Initialise sortie parallele
OUT 888, 0: OUT 890, 255: OUT 890, 0

'COLOR 0, 7
CLS

'Initialise variables
r$ = "": rep$ = ""

FOR i = 0 TO 7
    d(i) = 0: s(i) = 0: r(i) = 0
NEXT

GOSUB symboles

GOSUB dessin

trait$ = STRING$(21, CHR$(205))

LOCATE 1, 30: PRINT CHR$(201) + trait$ + CHR$(187)
LOCATE 2, 30: PRINT CHR$(186) + "  Gare de CORNIMONT  " + CHR$(186)
LOCATE 3, 30: PRINT CHR$(200) + trait$ + CHR$(188)
LOCATE 5, 5: PRINT "Entrer une valeur 0 ou 1"
LOCATE 7, 6: PRINT "Etat des Aiguilles "
LOCATE 8, 6: PRINT "1  2  3  4  5  6  7  8"
LOCATE 11, 10: PRINT "Execution (O/R/F) :"
LOCATE 17, 10: PRINT "VVVV";
LOCATE 17, 28: PRINT "1";
LOCATE 17, 72: PRINT "2";
LOCATE 19, 25: PRINT "3";
LOCATE 19, 19: PRINT "5";
LOCATE 21, 28: PRINT "4";
LOCATE 24, 35: PRINT "6";
LOCATE 24, 27: PRINT "7";
LOCATE 28, 30: PRINT "Version QBasic sous W10"

Bonjour Murphy

Nous voilà revenu dans la préhistoire de l'informatique.    

@+
Eric