C kel langage ???
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
