cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
22 août 2007 à 02:19
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
22 août 2007 à 20:41
Salut J'ai un Méga problème...
Quand j'utilise mon porgramme (programme codé sur VB.Net Compact Framework - Visual Sutio 2005) que j'ai importé sur mon iPaq J'appuis sur un bouton de mon programme et j'ai un messahge d'erreur (il ferme mon programe)
SVP aidez moi.. J'ai presque fini mon prog... et ca me dit qu'un bouton (mon bouton cmdCalcul) ne fonctionne pas. Je vous annexe l'enssemble de mon code... Si vous voyer d'ou peux venir le probleme..
Ca dit:
Calcul.exe InvalidCastException
à
Microsoft.VisualBasic.CompilerService.Conversions.ToDouble()
à
Microsoft.VisualBasic.CompilerService.Conversions.ToDouble()
à DataGrid.Form1.cdmCalcul_Click()
à
System.Windows.Forms.Control.OnClick()
à
System.Windows.Forms.Button.OnClick()
à
System.Windows.Forms.ButtonBase.WnProc()
à
System.Windows.Forms.Control._InteralWnProc()
àMicrosoft.AGL.Forms.EVL.EnterMainLoop()
à
System.Windows.Forms.Application.Run()
Imports
System.IO
Imports
System.Math
Public
Class Form1
Public FichierTexte
As
String
Public Tableau(0)
As
String
Public CoordYStation
As
Double
Public CoordXStation
As
Double
Public CoordYBack
As
Double
Public CoordXBack
As
Double
Public CompteurFormule
As
Integer
Public dbRadian
As
Double = (180 / System.Math.PI)
Public AppPath
As
String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)
Public LigneSplit(4)
As
String
Dim Etape1
As
Double, Etape2_Dx
As
Double, Etape2_Dy
As
Double, Etape3_X
As
Double, Etape3_Y
As
Double
Dim X1
As
Double, X2
As
Double, Y1
As
Double, Y2
As
Double, dX
As
Double, dY
As
Double
Dim aTan1
As
Double
Public aTan2
As
Double
Dim dbDistance
As
Double
Dim Degres
As
Single, Minutes
As
Long, Secondes
As
Long
Dim Degres_
As
Single, Minutes_
As
Single, Secondes_
As
Double
Dim Degres__
As
Single, Minutes__
As
Single, Secondes__
As
Double
If LigneSplit(0) = txtback.Text
ThenCoordYBack = LigneSplit(1)
CoordXBack = LigneSplit(2)
lblBack.Text = CoordYBack & Space(1) & CoordXBack
End
If
Next iGisementDepart()
lblAzimutConnu.Text = DegreDecimal_en_DMS
End
Sub
Private
Sub mnuFacteurGeodesique_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs) Handles mnuFacteurGeodesique.ClickmnuFacteurLocal.Checked FalsemnuFacteurGeodesique.Checked
TrueStatusBar1.Text =
"Facteur: 0,9999"
End
Sub
Private
Sub mnuFacteurLocal_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs) Handles mnuFacteurLocal.ClickmnuFacteurLocal.Checked TruemnuFacteurGeodesique.Checked
FalseStatusBar1.Text =
"Facteur: 1"
End
Sub
Private
Sub cmdTravAzimut_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles cmdTravAzimut.ClickCompteurFormule = 3
'Utilisé pour la Fonction GisementDepartCalculCoord()
GisementDepart()
lblAzimutSaisi.Text = DegreDecimal_en_DMS()
lblAzimutChange.Text =
"Azimut du Point" & Space(1) & txtPointSaisi.Text & Space(1) &
"vers le point" & Space(1) & txtStation.Text
Baguauda
Messages postés219Date d'inscriptionmercredi 31 août 2005StatutMembreDernière intervention28 novembre 20081 22 août 2007 à 08:42
tout est dans le message
Calcul.exe InvalidCastException
à
Microsoft.VisualBasic.CompilerService.Conversions.ToDouble()
Problème de conversion.
1) Vérifie tes conversion.
2) ajoute des try catch comme ca l'application ne se stoppera pas.
3) avant conversion vérifie les donnée, par exemple lors de la conversion string Double - une chaine vide ca passe pas.
