VB.Net la Conversion de chaîne à double

J'ai un mal de bug dans mon programme, lorsqu'un utilisateur appuie sur le chèque(à calculer) bouton quand il n'y a pas d'entrée dans la zone de texte, le programme affiche cette erreur: "la Conversion de la chaîne "" de type 'Double' n'est pas valide." Je voudrais résoudre cela, mais je ne suis pas sûr de la façon de faire la conversion. Je pensais éventuellement CType mais j'entends parler de l'analyse. Comment puis-je aller à ce sujet? la zone de texte est appelé mskTxtInput et le bouton de l'objet est appelé btnCheck qui fait tout le calcul et le traitement.

Mise à jour: voici mon code à l'exception de la méthode d'analyse donc espérons que cela aide un peu!

Privé Sous btnCheck_Click(ByVal sender as System.Object, ByVal e as System.EventArgs) Handles btnCheck.Cliquez sur
pic1.Visible = False 'masquer l'image
pic1.Image = Ma.Les ressources.Un
note2.Image = Ma.Les ressources.F

    Dim value As Double
If Double.TryParse(mskTxtInput.Text, value) = Then
MsgBox("parsing success") ' parsing worked, so use the value in here 
Else
MsgBox("parsing failed") ' parsing failed, so alert the user to that fact 
End If
If radAdd.Checked = True Then
totalNum = num1 + num2
End If
If radSub.Checked = True Then
totalNum = num1 - num2
End If
If radMulti.Checked = True Then
totalNum = num1 * num2
End If
If mskTxtInput.Text = totalNum Then
lblAns.Text = ("Correct!")
lblAns2.Text = ("Answer is " & totalNum)
pic1.Visible = True
wins = wins + 1
nScore = wins
Else
lblAns.Text = ("Incorrect")
lblAns2.Text = ("Answer should be " & totalNum)
pic2.Visible = True
End If
attempts = attempts + 1
If attempts = 5 Then
MessageBox.Show("Game Finished! ", "End Of Game", _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
lblAns.Text = ("You scored " & wins & " Out of 5")
btnSpin.Enabled = False
pic1.Visible = False
pic2.Visible = False
lblAns2.Text = ""
lblAns2.Text = "Play again?"
btnCheck.Enabled = False
btnNew.Enabled = True
attempts = 0
wins = 0
End If
mskTxtInput.Clear()
mskTxtInput.Focus()
End Sub
  • Merci de partager un peu de code où ce problème se pose.
  • Ce n'est pas directement pertinentes à votre question, mais il semble que vous ne l'utilisez pas Option Strict. Je vous recommande de vous tourner que sur: le compilateur génère alors des avertissements sur le code dangereux qui vous fera économiser temps dans le long terme.
InformationsquelleAutor William Mc | 2010-11-18
  1. 3

    Utiliser le TryParse méthode pour faire de l'analyse pour éviter de se faire une exception si le traitement échoue:

    Dim value As Double
If Double.TryParse(mskTxtInput.Text, value) Then
' parsing worked, so use the value in here
Else
' parsing failed, so alert the user to that fact
End If
    • Hey! J'ai utilisé votre code, mais le fait messagebox modifications de "parsing passé" et "l'analyse a échoué" et continue de recevoir le "parsing" échec de l', je peux montrer le code, évidemment, et j'espère que ça aide un peu!
    • Mc: Vous avez mis un = opérateur avant Then dans le code que vous avez posté, donc il ne sera pas exécuté. Supprimer cela et cela fonctionne. J'ai vérifié que le code affiche la boîte de message si le traitement réussit.
    • J'ai enlevé l'opérateur=, mais il n'a toujours pas de travail 🙁 VS toujours faits saillants de cette ligne en jaune: Si mskTxtInput.Texte = totalNum Alors
    • Ceci, cependant, a déclaré l'analyse travaillé: Si mskTxtInput.Text = "" Then Dim valeur as Double Double.TryParse(mskTxtInput.Texte, valeur) MsgBox("analyse travaillé") ' analyse travaillé, donc l'utilisation de la valeur ici Else MsgBox("l'analyse a échoué") ' l'analyse a échoué, alors alerter l'utilisateur qui en fait la Fin de Si
    • Mc: Vous êtes juste vérifier si l'entrée est vide. Puisque vous ne pouvez pas faire n'importe quoi avec la valeur de retour de la TryParse méthode, vous êtes ignorant si le traitement a fonctionné ou pas. Le messagte case est toujours montré, même si le traitement échoue.
    • Ah, je vois. Merci beaucoup Guffa! Bien que quand je lance le programme à partir de la " dossier bin\debug, je reçois le message "exception non gérée s'est produite dans l'application" quand je l'ai tester mais il me permet de continuer sans s'écraser. Est-il un moyen pour éviter que, globalement, si? Mais encore une fois, merci beaucoup Guffa! 🙂
    • Mc: Si vous êtes encore en train de faire la comparaison mskTxtInput.Text = totalNum vous obtiendrez une exception parce que vous êtes à l'aide de la chaîne, au lieu de la valeur analysée, et parce que vous faites la comparaison, même si le traitement a échoué. Comme vous comparez une chaîne avec un nombre, il sera implicitement essayer de convertir la chaîne en nombre, et d'échouer.

    InformationsquelleAutor Guffa
  2. 4

    Essayez d'utiliser Double.Méthode TryParse (String, Double) plutôt

    Quelque chose comme

    Dim s As String
Dim result As Double
Dim returnValue As Boolean
returnValue = Double.TryParse(s, result)
    InformationsquelleAutor Adriaan Stander
  3. 0

    dim iVar as integer
    dim sStr comme une chaîne de caractères

    sstr=""

    ivar = val(sstr)

    InformationsquelleAutor PradeepGB
  4. 0

    Utiliser la méthode statique Double.TryParse(). Si elle retourne true alors l'analyse a été un succès, et vous pouvez procéder à l'opération. Si elle retourne false, alors l'analyse n'a pas réussi, et vous devriez voir un message d'erreur (à l'aide de MessageBox si vous le désirez) et abandonner l'opération.

    InformationsquelleAutor cdhowie