BANG.WAV, GUN.WAV,  INTRO.WAV, OH!!.WAV, PASSPORT.MID,  SHOT.WAV, VICTORY.WAV

1. Commencez par ouvrir le Ex_26xx.vbp (s'il n'est pas déjà ouvert).

2. La première étape consiste à faire appel aux fonctions déjà présentes dans un module. Créez donc un nouveau module et ajoutez-lui le script suivant.

'Appel de la fonction permettant de jouer des sons
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'Déclaration de la structure de données tRect
'Vous comprendrez mieux son utilité lors de son utilisation dans le projet
Type tRect
         Left As Long
         Top As Long
         Right As Long
         Bottom As Long
End Type

'Appel de la fonction reliée au type déclaré précédemment
Declare Function IntersectRect Lib "user32" (lpDestRect As tRect, lpSrc1Rect As tRect, lpSrc2Rect As tRect) As Long

'Déclaration d'une constante pour le son
Global Const SND_ASYNC = &H1

3. Il faut aussi déclarer les variables et les constantes qui seront utilisées dans la section Général de la feuille. Voici le script à y ajouter.

'Déclaration des constantes
Const C_ECARTJOUEUR = 250
Const C_BALLES = 6
Const C_ECARTBALLE = 300

'Déclaration des variables
Dim V_Vie As Integer
Dim V_ennemi As Boolean
Dim V_z As Integer, V_m As Integer, V_y As Integer
Dim V_tir As Boolean
Dim V_rc As Integer
Dim V_RoiVie As Integer
Dim V_Bonds As Integer

4. Voilà les déclarations terminées. Passons maintenant aux procédures. La première va dans l'événement FORM_LOAD. C'est la mise en place pour le début du jeu.

Private Sub Form_Load()
   'Déclaration de variables locales
   Dim V_i As Integer

   'Initialisation des variables
   Minu_1.Interval = 22
   V_tir = False
   V_ennemi = True
   V_Vie = 3
   ZT_1.Text = 3
   ZT_2.Text = 0
   ZT_3.Text = 1
   V_RoiVie = 7
   IM_Explose.Visible = False
   IM_Rip.Visible = False
   V_y = 0

   'Désactivation des minuteries 6 et 7
   Minu_6.Enabled = False
   Minu_7.Enabled = False

   'Initialisation du son
   V_rc = sndPlaySound(App.Path & "\intro.WAV", SND_ASYNC)

   'Chargement des balles
   For V_i = 1 To C_BALLES - 1
      Load IM_BalleG(V_i)
      Load IM_BalleD(V_i)
   Next

   'Activation des minuteries 1 et 2
   Minu_1.Enabled = True
   Minu_2.Enabled = True

   'Cacher les 7 cercles
   For V_i = 0 To 7
      IM_cercle(V_i).Visible = False
   Next
End Sub

5. Enregistrez votre programme et testez-le. Vous devriez entendre la petite musique d'ouverture et les zones de texte indiquant le nombre de vies, le nombre de victoires et le niveau auquel vous vous trouvez devraient être initialisées.

SUITE...