Discussion :

[stargatejojo]

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 :

[jmfmarques]

L'une, et pas la moindre, des règles de ce forum est telle que tu dois dire, avec précision, la difficulté ponctuelle que tu peux rencontrer !
Pas ton problème complet !
Dis-nous donc clairement quelle est cette difficulté (et sur quel point en particulier) S'il Te Plait !

[SfJ5Rpw8]

voir titre du forum :

(pour VB2003 et supérieurs, voir la rubrique Dotnet)

[AlainTech]

Je déplace sur VB.NET

[stargatejojo]

Bonjour, merci de m'avoir répondu,
je vais donc précisé ma question :

Dans le script, il y a des TextBox et j'essais de les additionner (chaque textbox est une variable)

Dans ce paragraphe de mon code j'ai additionner les variable des tesxtBox et j'ai envoyé un message a l'utilisateur si il presse sur la tabPage, mais le resultat ne change jamais, il reste 0
Voici le code :

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

' la 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())

Puis j'ai aussi essayé de faire apparaitre le même résultat (la variable vaisseauxattaqueattaquant) avec le bouton "Démarrer la simulation"
Voici le code :

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

Merci si vous pouvez m'aider !

[smyley]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim vaisseauxattaqueattaquant, vaisseauxbouclierattaquant, v1bouclierattaquant, v2bouclierattaquant, v3bouclierattaquant, v1attaqueattaquant, v2attaqueattaquant, v3attaqueattaquant, v4attaqueattaquant, v5attaqueattaquant, v6attaqueattaquant, v7attaqueattaquant, v8attaqueattaquant, v9attaqueattaquant, v10attaqueattaquant As Integer
 
        ' la variable "vaisseauxattaqueattaquant" est la puissance total de l'attaquant :
vaisseauxattaqueattaquant = v1attaqueattaquant + v2attaqueattaquant + v3attaqueattaquant + v4attaqueattaquant + v5attaqueattaquant + v6attaqueattaquant + v7attaqueattaquant + v8attaqueattaquant + v9attaqueattaquant + v10attaqueattaquant

Tu additionnes quoi en fait ? car toutes les variables que tu a déclaré ne sont jamais initialisées donc portent toujours leur valeur par défaut 0

il faudrait plutot un code qui ressemble à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextBoxFinal.Text = (  Convert.ToInt32( v1attaque.. ) + ... ).ToString();

( en C#, je connais pas le VB )