ARKANIUM (CASSE-BRIQUE+EDITEUR DE NIVEAU+BONUS) !!!

DHKold Messages postés 153 Date d'inscription vendredi 6 décembre 2002 Statut Membre Dernière intervention 29 mai 2005 - 28 déc. 2002 à 19:17
Bricomix Messages postés 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 février 2005 - 27 janv. 2003 à 19:01
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/5468-arkanium-casse-brique-editeur-de-niveau-bonus

Bricomix Messages postés 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 février 2005
27 janv. 2003 à 19:01
Merci styge et Womby !
cs_stryge Messages postés 5 Date d'inscription mardi 7 janvier 2003 Statut Membre Derniè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és 69 Date d'inscription jeudi 29 août 2002 Statut Membre Dernière intervention 27 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és 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 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és 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 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és 153 Date d'inscription vendredi 6 décembre 2002 Statut Membre Dernière intervention 29 mai 2005 2
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

puis r = sndPlaySound("FILENAME", 1)


Allez @+, DHKold
Rejoignez-nous