Besoin d'aide SVP
Cyrill27
-
lazer230 Messages postés 3 Statut Membre -
lazer230 Messages postés 3 Statut Membre -
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
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
-
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. -
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 -
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...
@+ -
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)
@+ -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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
