Convertir la valeur d'une textebox en integer
Résolu/Fermé
A voir également:
- Convertir la valeur d'une textebox en integer
- Convertir youtube en mp3 avec audacity - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Convertir epub en kindle - Guide
- Convertir audio en texte word - Guide
- Convertir clavier qwerty en azerty - Guide
8 réponses
choubaka
Messages postés
39409
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
24 décembre 2024
2 104
30 oct. 2010 à 17:55
30 oct. 2010 à 17:55
salut
Quel language ?
Quel language ?
salut en vb.net =)
voilà l'exemple du code :
Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click
Dim random As New Random
Dim alea As Integer
alea = random.Next(0, 10)
Timer.Enabled = True
TB1.Enabled = True
TB1.BackColor = Color.White
PB1.Value = 0
If TB1.Text < alea Then
TB6.Text = "+"
If TB1.Text > alea Then
TB6.Text = "-"
If TB1.Text = alea Then
TB6.Text = "0k"
TB2.Enabled = True
If TB2.Text < alea Then
TB7.Text = "+"
If TB2.Text > alea Then
TB7.Text = "-"
If TB2.Text = alea Then
TB7.Text = "0k"
TB3.Enabled = True
If TB3.Text < alea Then
TB8.Text = "+"
If TB3.Text > alea Then
TB8.Text = "-"
If TB3.Text = alea Then
TB8.Text = "0k"
TB4.Enabled = True
If TB4.Text < alea Then
TB9.Text = "+"
If TB4.Text > alea Then
TB9.Text = "-"
If TB4.Text = alea Then
TB9.Text = "0k"
TB5.Enabled = True
If TB5.Text < alea Then
TB10.Text = "+"
If TB5.Text > alea Then
TB10.Text = "-"
If TB5.Text = alea Then
TB10.Text = "0k"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Comme dit précédemment je suis loin d'être brillant en programmation, donc ce code peu paraitre tout à fait risible, j'en suis conscient ;)
voilà l'exemple du code :
Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click
Dim random As New Random
Dim alea As Integer
alea = random.Next(0, 10)
Timer.Enabled = True
TB1.Enabled = True
TB1.BackColor = Color.White
PB1.Value = 0
If TB1.Text < alea Then
TB6.Text = "+"
If TB1.Text > alea Then
TB6.Text = "-"
If TB1.Text = alea Then
TB6.Text = "0k"
TB2.Enabled = True
If TB2.Text < alea Then
TB7.Text = "+"
If TB2.Text > alea Then
TB7.Text = "-"
If TB2.Text = alea Then
TB7.Text = "0k"
TB3.Enabled = True
If TB3.Text < alea Then
TB8.Text = "+"
If TB3.Text > alea Then
TB8.Text = "-"
If TB3.Text = alea Then
TB8.Text = "0k"
TB4.Enabled = True
If TB4.Text < alea Then
TB9.Text = "+"
If TB4.Text > alea Then
TB9.Text = "-"
If TB4.Text = alea Then
TB9.Text = "0k"
TB5.Enabled = True
If TB5.Text < alea Then
TB10.Text = "+"
If TB5.Text > alea Then
TB10.Text = "-"
If TB5.Text = alea Then
TB10.Text = "0k"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Comme dit précédemment je suis loin d'être brillant en programmation, donc ce code peu paraitre tout à fait risible, j'en suis conscient ;)
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
31 oct. 2010 à 15:32
31 oct. 2010 à 15:32
Bonjour,
Si j'ai bien compris !!...
Un nouveau projet avec ...
Un bouton > NouveauChallenge
Un bouton > Verifier
Un textbox et un label.
Colle le code ci-dessous dans la form.
A+
Si j'ai bien compris !!...
Un nouveau projet avec ...
Un bouton > NouveauChallenge
Un bouton > Verifier
Un textbox et un label.
Colle le code ci-dessous dans la form.
Dim random As New Random
Dim alea As Integer
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
ControleValeur()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
alea = random.Next(0, 10)
End Sub
Private Sub NouveauChallenge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouveauChallenge.Click
alea = random.Next(0, 10)
End Sub
Private Sub ControleValeur()
Dim Tp As Integer
Tp = Val(TextBox1.Text)
If alea < Tp Then
Label1.Text = "-"
ElseIf alea > Tp Then
Label1.Text = "+"
Else
Label1.Text = "OK"
Exit Sub
End If
TextBox1.Text = ""
TextBox1.Focus()
End Sub
Private Sub Verifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Verifier.Click
ControleValeur()
End Sub
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
salut et merci pour le code je ne vais pas l'intégré directement dans le mien car ce dernier est différent, cependant merci il m'a été très utile.
Une autre question se pose maintenant, comment faire pour que dans ma textbox la valeur, si elle n'est pas juste, puisse s'éffacer automatiquement lorsque que j'entre une autre valeur, tout cela sans avoir besoin de faire supp ?
Une autre question se pose maintenant, comment faire pour que dans ma textbox la valeur, si elle n'est pas juste, puisse s'éffacer automatiquement lorsque que j'entre une autre valeur, tout cela sans avoir besoin de faire supp ?
redonky
Messages postés
102
Date d'inscription
jeudi 2 avril 2009
Statut
Membre
Dernière intervention
31 octobre 2010
23
31 oct. 2010 à 16:58
31 oct. 2010 à 16:58
Est ce que la fonction : Cint(textbox.value) est une solution?
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
31 oct. 2010 à 18:03
31 oct. 2010 à 18:03
Cint(textbox.value)
Est une bonne solution, j'ai scindé dans le modèle pour plus de compréhention.
Pour ta 2èm question... voir cette astuce en partie.
A+
Est une bonne solution, j'ai scindé dans le modèle pour plus de compréhention.
Pour ta 2èm question... voir cette astuce en partie.
A+