Bonjour,

Je me suis lancé dans Visual Basic et après avoir créer quelques application, je me suis lancé dans la création d'un simulateur de combats spatial.

Après plusieurs test, cela ne fonctionnais pas !
J'ai donc essayé de faire simplement apparaitre le résultat de l'attaque totale de l'attaquant
Mais c'était sans effet, le chiffre qu'il m'indiquait restais "0"

Je vous demande donc votre aide !

Si quelqu'un s'y connais en simulateur, ou simplement en VB, qu'il m'aide ...

Ou si vous avez envie, je vous donne le fichier et vous pouvez le complété

Voici mon code ... :
Mais ce n'est qu'un début

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
-----------------------------------------------------------------
ETC ... avec les autres variable du genre ...

Voici une petite image de mon fichier :