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.
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
. . 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)
@+
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