LES CONVERSIONS ENTRE NOMBRES ET CHAÎNES DE CARACTÈRES

nombre -> chaîne nombre.ToString ou "" & nombre ou CType(nombre,String)
objet -> chaîne objet.ToString
chaine -> Integer Integer.Parse(chaine) ou Int32.Parse
chaîne -> Long Long.Parse(chaine) ou Int64.Parse
chaîne -> Double Double.Parse(chaîne)
chaîne -> Single Single.Parse(chaîne)
La conversion d'une chaîne vers un nombre peut échouer si la chaîne ne représente pas un nombre valide. Il y a alors génération
d'une erreur fatale appelée exception en VB.NET. Cette erreur peut être gérée par la clause try/catch suivante :
try
appel de la fonction susceptible de générer l'exception
catch e as Exception
traiter l'exception e
end try
instruction suivante
Si la fonction ne génère pas d'exception, on passe alors à instruction suivante, sinon on passe dans le corps de la clause catch puis à
instruction suivante. Nous reviendrons ultérieurement sur la gestion des exceptions. Voici un programme présentant les
principales techniques de conversion entre nombres et chaînes de caractères. Dans cet exemple la fonction affiche écrit à l'écran la
valeur de son paramètre. Ainsi affiche(S) écrit la valeur de S à l'écran.
' directives
Option Strict On
' espaces de noms importés
Imports System
Les bases de VB.NET 9
' le module de test
Module Module1
Sub Main()
' procédure principale
' données locales
Dim S As String
Const i As Integer = 10
Const l As Long = 100000
Const f As Single = 45.78F
Dim d As Double = -14.98
' nombre --> chaîne
affiche(CType(i, String))
affiche(CType(l, String))
affiche(CType(f, String))
affiche(CType(d, String))
'boolean --> chaîne
Const b As Boolean = False
affiche(b.ToString)
' chaîne --> int
Dim i1 As Integer = Integer.Parse("10")
affiche(i1.ToString)
Try
i1 = Integer.Parse("10.67")
affiche(i1.ToString)
Catch e As Exception
affiche("Erreur [10.67] : " + e.Message)
End Try
' chaîne --> long
Dim l1 As Long = Long.Parse("100")
affiche("" + l1.ToString)
Try
l1 = Long.Parse("10.675")
affiche("" & l1)
Catch e As Exception
affiche("Erreur [10.675] : " + e.Message)
End Try
' chaîne --> double
Dim d1 As Double = Double.Parse("100,87")
affiche(d1.ToString)
Try
d1 = Double.Parse("abcd")
affiche("" & d1)
Catch e As Exception
affiche("Erreur [abcd] : " + e.Message)
End Try
' chaîne --> single
Dim f1 As Single = Single.Parse("100,87")
affiche(f1.ToString)
Try
d1 = Single.Parse("abcd")
affiche(f1.ToString)
Catch e As Exception
affiche("Erreur [abcd] : " + e.Message)
End Try
End Sub
' affiche
Public Sub affiche(ByVal S As String)
Console.Out.WriteLine("S=" + S)
End Sub
End Module
Les résultats obtenus sont les suivants :
S=10
S=100000
S=45,78
S=-14,98
S=False
S=10
S=Erreur [10.67] : Le format de la chaîne d'entrée est incorrect.
S=100
S=Erreur [10.675] : Le format de la chaîne d'entrée est incorrect.
Les bases de VB.NET 10
S=100,87
S=Erreur [abcd] : Le format de la chaîne d'entrée est incorrect.
S=100,87
S=Erreur [abcd] : Le format de la chaîne d'entrée est incorrect.
On remarquera que les nombres réels sous forme de chaîne de caractères doivent utiliser la virgule et non le point décimal. Ainsi on
écrira Dim d As Double = -14.98 mais Dim d1 As Double = Double.Parse("100,87")

je comprens rien la dans mais je vois que c'est un travail exelent que ta fais bravo ........