Besoin d'aide SVP

Cyrill27 -  
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

6 réponses

  1. neutrinos
    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.
    0
    1. teebo Contributeur
      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
      0
      1. Utilisateur anonyme
        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...
        @+
        0
        1. Utilisateur anonyme
          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)
          @+
          0
          2. Cyrill
            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
            0
            1. lazer230
              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
              0