IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Windows Forms Discussion :

[VB.Net]Comment implémenter un Simulateur de combats?


Sujet :

Windows Forms

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    35
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Mars 2006
    Messages : 35
    Par défaut [VB.Net]Comment implémenter un Simulateur de combats?
    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 :

  2. #2
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    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 !

  3. #3
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    voir titre du forum :
    Citation Envoyé par Nom du forum
    (pour VB2003 et supérieurs, voir la rubrique Dotnet)

  4. #4
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Je déplace sur VB.NET
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    35
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Mars 2006
    Messages : 35
    Par défaut
    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 !

  6. #6
    Expert confirmé
    Avatar de smyley
    Profil pro
    Inscrit en
    Juin 2003
    Messages
    6 270
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 6 270
    Par défaut
    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 )

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 23/07/2006, 15h07
  2. Réponses: 4
    Dernier message: 19/06/2006, 21h32
  3. [VB.Net] Comment implémenter un ScrollableControl ?
    Par souaddemaroc dans le forum Windows Forms
    Réponses: 5
    Dernier message: 09/05/2006, 16h34
  4. Réponses: 2
    Dernier message: 05/05/2006, 16h44
  5. Réponses: 4
    Dernier message: 07/04/2006, 18h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo