TÉLÉVISION
celiphane
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007
-
18 févr. 2002 à 14:04
varegue Messages postés 33 Date d'inscription mercredi 28 juillet 2010 Statut Membre Dernière intervention 28 juillet 2010 - 28 févr. 2002 à 19:42
varegue Messages postés 33 Date d'inscription mercredi 28 juillet 2010 Statut Membre Dernière intervention 28 juillet 2010 - 28 févr. 2002 à 19:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2627-television
https://codes-sources.commentcamarche.net/source/2627-television
28 févr. 2002 à 19:42
cela dit .... enfin comme dit Mugzy Mais c bien d'avoir participé.... :)
18 févr. 2002 à 15:53
mis à par pour les débutants, c sans intérêt...
Rassure toi, personne ne va sans servir dans le cadre professionnel.
Mais c bien d'avoir participé....
18 févr. 2002 à 15:36
si oui, ta réfléchit avant d'ecrire ca qui serait capable d'utiliser ce truc de débutant ?
mettre un controle media player et l'utiliser, c'est pas vrmt professionnel...
sinon pour ton super jeu, applique ça, déjà la "raquette" sera plus fluide :
'declaration supplementaires :
Dim Touches(1 To 2) As Boolean
'remplace ton pov'code de keydown par celui-ci
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If UCase(Chr(KeyCode)) = "A" Then
Touches(1) = True
Touches(2) = False
End If
If UCase(Chr(KeyCode)) = "P" Then
Touches(2) = True
Touches(1) = False
End If
End Sub
'copie-colle ce keyup
Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
If UCase(Chr(KeyCode)) "A" Then Touches(1) False
If UCase(Chr(KeyCode)) "P" Then Touches(2) False
End Sub
'et enfin rajoute ça dans ton timer, au début....
Private Sub Timer1_Timer()
If Touches(1) True Then Command1.Left Command1.Left - x
If Touches(2) True Then Command1.Left Command1.Left + x
...
///
Enfin voilà, j'espère que tu sauras comprendre ça.
tchao et bonne prog... (...ression)
18 févr. 2002 à 14:04
pas très explicite le nom, c surtout tres tape à l'oeil...