Bricomix
Messages postés340Date d'inscriptionvendredi 11 octobre 2002StatutMembreDernière intervention14 février 2005 27 janv. 2003 à 19:01
Merci styge et Womby !
cs_stryge
Messages postés5Date d'inscriptionmardi 7 janvier 2003StatutMembreDernière intervention 8 janvier 2003 27 janv. 2003 à 18:37
je savais pas qu'on pouvait faire ça avec vb,félicitation!!
cs_Womby
Messages postés69Date d'inscriptionjeudi 29 août 2002StatutMembreDernière intervention27 avril 2007 30 déc. 2002 à 17:50
C est vraiment pas mal comme projet vraiment sympa reste que ca manque de texture tout de meme(esthtiquement parlant c'est sommaire) Mais question jeux c'est assez sympa en bref bravo tout simplement :)
Bricomix
Messages postés340Date d'inscriptionvendredi 11 octobre 2002StatutMembreDernière intervention14 février 2005 28 déc. 2002 à 21:19
Oups, j'ai voulu mettre du HTML dans mon message, mais ça marche pas !!!
Bricomix
Messages postés340Date d'inscriptionvendredi 11 octobre 2002StatutMembreDernière intervention14 février 2005 28 déc. 2002 à 21:16
Eh DHKold, j'ai uploadé ma source, et y'a des sons et la souris !!! ...
Quoi, seulement 28 affichages !!! Oh non ..., ma chere source !!!
DHKold
Messages postés153Date d'inscriptionvendredi 6 décembre 2002StatutMembreDernière intervention29 mai 20052 28 déc. 2002 à 19:17
C'est pas mal, juste quelques petits trucs à ajouter sans doute:
-bouger avec la souris + démarrer avec un click
-souris invisible pendant le jeu
-quelques sons??? ;-)
Ce sont des trucs que je trouverais sympa mais c'est toi qui voit...
voilà ce que moi j'ai ajouté pour le contrôle à la souris:
Private Sub Form_Click()
MoveBall = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
shpBarre.Left = X - shpBarre.Width / 2
End Sub
Private Sub lblBonusType_Click()
MoveBall = True
End Sub
Private Sub lblBonusType_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
shpBarre.Left = X - shpBarre.Width / 2
End Sub
puis aussi un peit truc, j'ai mis un mouseicone transparent et lorsque le jeu démarre, je règle frmgame.mousepointer = 99
et enfin les petits sons là le plus simple c'est:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SounName As String, ByVal uFlags As Long) As Long
27 janv. 2003 à 19:01
27 janv. 2003 à 18:37
30 déc. 2002 à 17:50
28 déc. 2002 à 21:19
28 déc. 2002 à 21:16
Quoi, seulement 28 affichages !!! Oh non ..., ma chere source !!!
28 déc. 2002 à 19:17
-bouger avec la souris + démarrer avec un click
-souris invisible pendant le jeu
-quelques sons??? ;-)
Ce sont des trucs que je trouverais sympa mais c'est toi qui voit...
voilà ce que moi j'ai ajouté pour le contrôle à la souris:
Private Sub Form_Click()
MoveBall = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
shpBarre.Left = X - shpBarre.Width / 2
End Sub
Private Sub lblBonusType_Click()
MoveBall = True
End Sub
Private Sub lblBonusType_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
shpBarre.Left = X - shpBarre.Width / 2
End Sub
puis aussi un peit truc, j'ai mis un mouseicone transparent et lorsque le jeu démarre, je règle frmgame.mousepointer = 99
et enfin les petits sons là le plus simple c'est:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SounName As String, ByVal uFlags As Long) As Long
puis r = sndPlaySound("FILENAME", 1)
Allez @+, DHKold