turbo pas?

[invite5be2bad6]

salut a tous
je suis débutant en prog
j’essaye de recopier un pti prog en turbo pascal sous Windows impossible de faire les crochets lol
une personne a t il une idée
merci
+
-----

[invite5be2bad6]

re
j'ai trouver en fouinant ça ne fonctionne pas sous Windows
merci pour tout je laisse tomber
desolé
+

[Jack]

impossible de faire les crochets

??? Je ne comprends pas ce que tu veux dire ...

j'ai trouver en fouinant ça ne fonctionne pas sous Windows

bizarre, j'avais essayé il y a quelque temps de refaire tourner turba pascal sous une version récente de windows et ça avait fonctionné.

merci pour tout je laisse tomber

Si tu veux à tout prix faire du Pascal, il faut te tourner vers des compilateurs plus modernes.

A+

[invite5be2bad6]

bonsoir a tous

merci pour ta reponse jack

je reviens sur mon pti language turbo pascal j'ai plus ou moins réussi pour les crochets avant de me lancer sur ce language

j'ai décortiqué plus ou moins le code j'ai vu que dans la section du port.

Mon code est paramétré sur un port joystick sachant que les pc de nos jours non plus de joystick mais les pc ont du port sub d 25

le code dit

e:=port[513];
until e and 32 = 0;
t[k]:e;
repeat
until port[513] and 32 = 32;
end;
si je change en 888 dans les [] est mettre .d. à la place de .e. fonctionnera t il où le code est t-il plus complexe que ça sachant que je suis débutant en la matière le 32 = 32 me demande a quoi ça correspond
je ne trouve pas d'exemple
merci a tous
+

[A voir en vidéo sur Futura]

[Jack]

j'ai plus ou moins réussi pour les crochets avant de me lancer sur ce language

Je n'ai toujours pas compris quel était le problème avec les crochets.

Ton code ne fonctionnera pas sous windows NT et ses descendants (2000, Xp, vista et 7) car l'accès aux registres des ports n'est plus autorisé. Il existe bien des drivers qui le permettent, mais ils ne fonctionnent pas toujours. Inpout32.dll le permet également, mais je ne vois pas comment charger cette DLL qui est en 32 bits avec du code compilé en 16 bits avec ce vieux turbo pascal.

Tu peux t'en sortir avec une machine qui tourne sous W98 par exemple.

.d. à la place de .e. fonctionnera t il

Je ne vois pas ce que changer le nom à une variable peut apporter.

le 32 = 32 me demande a quoi ça correspond

il faut prendre en compte ce qu'il y a devant. Avec des parenthèses c'est plus clair:
(port[513] and 32) = 32;

32 = 0010 0000 en binaire. Faire un ET avec cette valeur permet de connaitre l'état du bit correspondant au 1. Bref, la boucle attend que ce bit passe à 1. Ca doit correspondre à l'appui sur un bouton du joystick.

A+

[invite5be2bad6]

re
merci jack pour ta reponse
si j'ai bien compris j'ai juste a changer 513 par 888 la direction se fera vers le port sub d25 non?
le code que je vois c'est sous 98 je pense ya pas de parenthèses que des crochets port [513] and 32 = 32;
merci

[Jack]

si j'ai bien compris j'ai juste a changer 513 par 888 la direction se fera vers le port sub d25 non?

non! 888, ou $378 (notation hexadécimale) correspond à un port de sortie sur une interface parallèle standard. Le port d'entrée est à l'adresse suivante: $379.
Que veux-t brancher sur ce port parallèle? Un joystick? Ce ne sont pas les mêmes connecteur.
Tu devrait te renseigne davantage sur la programmation du por parallèle. Je t'ai trouvé un lien ici qui a l'avantage d'utiliser turbo pascal.

ya pas de parenthèses que des crochets port [513] and 32 = 32;

Essaie de faire des phrases correctes (sujet, verbe, complément, ponctuation) parce j'ai du mal à comprendre ce que tu veux dire exactement. Si tu veux une réponse précise, il faut que la question le soit aussi.