Public Class Form1
------------------------------------------------------------------
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vaisseau1.Click
End Sub
------------------------------------------------------------------
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vaisseau2.Click
End Sub
------------------------------------------------------------------
Public Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
Dim vaisseauxattaqueattaquant, vaisseauxbouclierattaquant, v1bouclierattaquant, v2bouclierattaquant, v3bouclierattaquant, v1attaqueattaquant, v2attaqueattaquant, v3attaqueattaquant, v4attaqueattaquant, v5attaqueattaquant, v6attaqueattaquant, v7attaqueattaquant, v8attaqueattaquant, v9attaqueattaquant, v10attaqueattaquant As Integer
' une variable "vaisseauxattaqueattaquant" est la puissance total de l'attaquant :
vaisseauxattaqueattaquant = v1attaqueattaquant + v2attaqueattaquant + v3attaqueattaquant + v4attaqueattaquant + v5attaqueattaquant + v6attaqueattaquant + v7attaqueattaquant + v8attaqueattaquant + v9attaqueattaquant + v10attaqueattaquant
' test pour le totale
'MessageBox.Show("L'attaquant a une puissance de " & vaisseauxattaqueattaquant.ToString())
'MessageBox.Show("L'attaquant a un bouclier de " & vaisseauxbouclierattaquant())
End Sub
------------------------------------------------------------------
Public Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
'Il reste la même chose que TabPage un a faire mais pour le défenseur
End Sub
------------------------------------------------------------------
Public Sub v1attaqueattaquant_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles v1attaqueattaquant.TextChanged
' Ici c'est la première TextBox avec ca variable -v1attaqueattaquant-
End Sub
------------------------------------------------------------------
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Ici le bouton qui enclenche la boucle pour le combats
MessageBox.Show("Les vaisseaux attaquant ont une puissance totale de " & vaisseauxattaqueattaquant.ToString() & " et des bouclier de ")
' Les calculs pour le simulateur se font ici !
End Sub
-----------------------------------------------------------------
Public Sub v2attaqueattaquant_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles v2attaqueattaquant.TextChanged
End Sub
-----------------------------------------------------------------
Private Sub v3attaqueattaquant_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles v3attaqueattaquant.TextChanged
End Sub
-----------------------------------------------------------------
Private Sub v1bouclierattaquant_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles v1bouclierattaquant.TextChanged
End Sub
-----------------------------------------------------------------
Partager