besoin d'aide SVP Fermé

Question

Bonjour, j'ai un programme que j'ai récupéré sur Internet, je voudrais bien le faire fonctionner mais avec kel logiciel ??? J'ai microsoft Visual Basic mais ça ne marche pas. kel programme faut-il ???Merci d'avanceprogramme : Screen 12                      '   Passage en mode graphiqueCls                                    ' Effacer l'écranDo                                      'Début de la bouclea = INP(&H379)                 ' Port parrallèle de l'imprimanteb = a And 16                     ' Récupération selectc = a And 32                     ' PEd = a And 64                     ' ACKE = a And 128                   ' BUSY(inversé) ' LOCATE 1, 5'PRINT ct = t + 0.1If t > 640 Then t = 0If b = 16 Then     LOCATE 1, 5     Print "0"     PSet (t, 50), 4     PSet (t, 10), 0Else      LOCATE 1, 5      Print "1"      PSet (t, 10), 5      PSet (t, 50), 0End IfIf c = 32 Then       LOCATE 2, 5Print 303PSet (t, 150), 4PSet (t, 100), 0    Else       LOCATE 2, 5       Print "1"PSet (t, 100), 5PSet (t, 150), 0End IfIf d = 64 Then      LOCATE 3, 5      Print "0"PSet (t, 250), 4PSet (t, 200), 0Else        L0CATE 3, 5     Print "1"PSet (t, 200), 5PSet (t, 250), 0End IfIf E = 128 Then     LOCATE 4, 5     Print "1"   PSet (t, 300), 5PSet (t, 350), 0Else   LOCATE 4, 5   Print "0"  PSet (t, 350), 4  PSet (t, 300), 0End IfLoop

neutrinos · Answer

SalutIl faudrait savoir de quel programme il sagit?et il compiler oui ou non?si c'est du pascal ou autres à titre d'exemple il ne peut pas etre compatiblesur visuel basic je ne peux pas plus t'aider pour l'instant.

teebo · Answer

Salut ca ressemble bigrement a du Basic, que te dis VB quand tu compiles?.  .    If you knew Peggy Sue,\_/   then you'd know why I feel blue

Utilisateur anonyme · Answer

Ouais, c du basic, je viens de l'exécuter avec QB, ça marche (par contre, je sais pas ça sert à quoi à part me dessiner 4 traits sur l'écran et 3 chiffres), et il y a une boucle infinie...@+

Utilisateur anonyme · Answer

Autre chose, il y a une faute de frappe, donc si tu as fais un copier coller, c que la faute est dans le programme, et là c normal que ça ne passe pas...A ce paragraphe :L0CATE 3, 5 Print "1" PSet (t, 200), 5 PSet (t, 250), 0 il s'agit de LOCATE (un o et non pas un zéro)@+

Cyrill · Answer

normalement c un programme pour simuler un ouvre-portail mais c bizarre quand meme que ça affiche 4 lignes comme ça. J'ai téléchargé Qbasic et ça me fé ça. Je vais essayer de me renseigner sur le prgramme.@+, Cyrill

lazer230 · Answer

Bonjour, je suis etudiant 1er anee DTS en informatique de gestion et je veux savoire un site qui me prepose des cours de soutien                                                                              merci beaucoup

Besoin d'aide SVP

6 réponses