Message d'erreur lors du lancement du programme.

Question

Bonjour &#224; tous

Je suis en train de tester Visual Basic 2005 avec un petit programme de conversion Euro et Franc

Voici mon petit code

Public 
Class Convert



Dim Mtt 
As 
Double



Dim R&#233;sultat 
As 
Double



Dim MySTR 
As 
String



Private 
Sub EuroBoutton_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles EuroBoutton.Click


Mtt = TextMontant.Text


R&#233;sultat = Mtt / 6.55957


MySTR = Format(R&#233;sultat, 
"###0.00")


TextR&#233;sultat.Text = MySTR



End 
Sub



Private 
Sub FrancButton_Click(
ByVal sender 
As 
Object, 
ByVal e 
As System.EventArgs) 
Handles FrancButton.Click


Mtt = TextMontant.Text


R&#233;sultat = Mtt * 6.55957


MySTR = Format(R&#233;sultat, 
"###0.00")


TextR&#233;sultat.Text = MySTR



End 
Sub



Private 
Sub TextMontant_KeyPress(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.KeyPressEventArgs) 
Handles TextMontant.KeyPress



If e.KeyChar = Chr(System.Windows.Forms.Keys.Back) 
Then



Exit 
Sub



ElseIf e.KeyChar = Chr(46) 
Then


e.KeyChar = Chr(44)



ElseIf e.KeyChar = Chr(44) 
Then



Exit 
Sub



ElseIf e.KeyChar > Chr(57) 
Then


e.KeyChar = Chr(0)



ElseIf e.KeyChar <= Chr(48) 
Then


e.KeyChar = Chr(0)



End 
If



End 
Sub



Private 
Sub Convert_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles 
MyBase.Load


TextMontant.Focus()



End 
Sub


End 
Class


A chaque fois que je lance le programme, j'ai les messages suivants qui apparaissent. 
Pouvez-vous m'expliquer ce qui se passe ? 

Une exception de premi&#232;re chance de type 'System.FormatException' s'est produite dans Microsoft.VisualBasic.dll


Une exception de premi&#232;re chance de type 'System.FormatException' s'est produite dans Microsoft.VisualBasic.dll


Une exception de premi&#232;re chance de type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dLL

Merci par avance pour vos r&#233;ponses.

minimarch · Answer

Salut,



je ne t'apprendrais rien en disant que c'est une erreur de formatage ;-)

Commence d&#233;j&#224; par regarder sur quelle ligne se produit l'erreur (un
petit debugage en mode pas &#224; pas te serait &#224; mon avis d'un grand
secours). Tu pourras notamment en profiter pour voir la valeur de
chacune des variables.



Petit d&#233;tail: es tu s&#251;r que Visual Basic apprecie les noms de variables
avec accent ? Je ne sais pas si c'est grave, mais la convention veut
que l'on ne mette pas d'accent...

MiniMarch'

minimarch · Answer

Je viens de relire ton code rapidement:



au lieu de faire Mtt = TextMontant.Text

fait plut&#244;t : Mtt = CDbl(TextMontant.text)



Je ne pense pas que VB fasse une concersion automatiquement


MiniMarch'

cs_CanisLupus · Answer

Salut,


En vb.net, si tu as l'option Strict On (par d&#233;faut), tu ne peux faire des conversions implicites du genre :


Mtt = TextMontant.Text
Mtt &#233;tant du double


Mtt = ctype(TextMontant.Text, double)
serait plus judicieux, l'&#233;quivalent du cdbl de vb6.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Message d'erreur lors du lancement du programme.

3 réponses

Discussions similaires