Ping pong time 2

Soyez le premier à donner votre avis sur cette source.

Vue 2 975 fois - Téléchargée 191 fois

Description

Un Filtre en plus par rapport au 1
Maj Depassement

Source / Exemple :


Public texte As String
Public PosX As Integer
Public PosY As Integer
Public PosV As Boolean
Public PosH As Boolean
Private Sub Form_Activate()
Timer1.Enabled = True
End Sub
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
Timer1.Interval = 1
Form1.ScaleMode = 2
'Form1.BorderStyle = 5
PosV = True
PosH = True
PosX = 0
PosY = 0
LineH.X1 = 0
LineH.X2 = Form1.ScaleWidth
LineH.Y1 = Form1.ScaleHeight
LineH.Y2 = Form1.ScaleHeight
LineV.X1 = Form1.ScaleWidth
LineV.X2 = Form1.ScaleWidth
LineV.Y1 = 0
LineV.Y2 = Form1.ScaleHeight
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LineV.X1 = X
LineV.X2 = X
LineV.Y2 = Form1.ScaleHeight
LineH.X2 = Form1.ScaleWidth
LineH.Y1 = Y
LineH.Y2 = Y
End Sub
Private Sub Timer1_Timer()
Cls
'On peut l'adapter pour afficher autre chose
texte = Time
If PosY > LineH.Y1 - 8 Then
PosY = LineH.Y1 - 9
PosV = False
End If
If PosX > LineV.X1 - 31 Then
PosX = LineV.X1 - 32
PosH = False
End If
If PosX < 0 Then PosH = True
If PosY < 0 Then PosV = True
If PosH Then PosX = PosX + 1 Else PosX = PosX - 1
If PosV Then PosY = PosY + 1 Else PosY = PosY - 1
Form1.CurrentX = PosX
Form1.CurrentY = PosY
Print texte
End Sub

Conclusion :


Si quelq'un connait un technique pour eviter le scintillement, je suis preneur
A+ ;-)#

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
Mwais...
Le label cogne seulement à gauche du vertical, pas a droite!
Et seulement en haut de l'horizontal, pas en bas!

Et si il se cogne à gauche du vertical en allant vers la droite, par exemple, il rebondit vers la gauche... Si on le rattrape avec la souris, il n'accélère pas et on passe au travers! (même chose pour la barre horizontale)

C'est bien quand même! ... Mais c'est un début!

Le code est pas très compliqué... Ça vaut un 6/10 ;)
cs_Valentino
Messages postés
81
Date d'inscription
vendredi 19 juillet 2002
Statut
Membre
Dernière intervention
3 août 2010
-
Je ne comprend pas ce que tu as voulu dire par :
Le label cogne seulement à gauche du vertical, pas a droite!
Et seulement en haut de l'horizontal, pas en bas!
????????????

En ce qui concerne le dépassement du filtre sur le label, c'est vrai que je n'ai pas géré sont accélération mais je suis au job et je n'ai u que 10 min. pour faire cette exemple(entre un café et une clop) et c'est aussi vrai que le code est très simple c'est pour cela qu'il est niveau 1. Merci pour ta note indulgente.
A+ ;-)#

P.S.: Par contre j'ai posé une question après la source qui elle m'intéresse(en C, en Java et en ABAL je sais comment faire sans API mais pas sous VB!!!)
TheSaib
Messages postés
2369
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
12 -
Tu aurais pu mettre les deux sources au mm endroit au lieu d'en faire deux separement alors que c quasiment les memes. C pas malin de vouloir augmenter ton compteur de sources comme çà .
cs_Valentino
Messages postés
81
Date d'inscription
vendredi 19 juillet 2002
Statut
Membre
Dernière intervention
3 août 2010
-
Désolé thesaib mais c'etait pas prevu!!!!
Je voulais mettre à jour le premier mais j'ai fais une fausse manip.
A+ :-)#

P.S.: Pour ton info je ne fais pas la course aux sources ni aux clics ;-)#

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.