Back

VB.Net Types principaux

  • Types principaux
  • Entiers

[ultimatetables 1 /]

  • Réels

[ultimatetables 3 /]

  • Autres…

[ultimatetables 4 /]

Déclaration de variables
Les variables sont nécessaires pour stocker (conserver) une valeur dynamique et réutilisable. C’est en fait une simple zone mémoire qui porte un nom choisi par le programmeur. Le nom de la variable est une adresse mémoire. Si l’on veut une programmation cohérente, il faut déclarer chaque variable en précisant le type de celle-ci. La déclaration se fait avec le mot réservé Dim.

 Syntaxe : Dim NomVariable As Type

Pour la lisibilité du code, on peut ajouter un commentaire après une apostrophe ( ‘ )

Exemples :
Dim prenom as String = “Mohamed”
 Dim quantiteStq as Integer = 36 Mod 25 ‘Soit 11
Constantes :
 Syntaxe : Const nomConstante As nomType = expression
 Exemple : Const  CONSTANTE_PI  As Single = 3.14

Conversion  de   types
Les conversions entre nombres et chaînes de caractères
Nombre -> chaîne : nombre.ToString ou CType(nombre,String)
Objet -> chaîne : objet.ToString
Chaine -> Integer : Integer.Parse(chaine)
Chaîne -> Long : Long.Parse(chaine)
Chaîne -> Double : Double.Parse(chaîne)
Chaîne -> Single : Single.Parse(chaîne)
De manière générale a -> b : CType(variableTypeA,TypeB)

variableTypeA est la variable à modifier, TypeB est le type à obtenir.
La conversion d’une chaîne vers un nombre peut échouer si la chaîne ne représente pas un nombrevalide. Il y a alors génération d’une erreur fatale appelée exception en VENET.

vb1

Exemple

Télécharger Exécutable

Code Source Bouton Conversion_implicite

Conversion_implicite

Private Sub Button_Conversion_implicite_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button_Conversion_implicite.Click

        Dim debut As Date = Now

        Dim b As Byte

        Dim s As Short

        Dim fin As Date

        Me.TextBox_Durée_conversion_implicite.Text= «  »

        For j As Integer = 1 To Me.TextBox_Nombre_itérations.Text

            For l As Long = Byte.MinValue To Byte.MaxValue

                b = l

            Next

            For l As Long = Int16.MinValue To Int16.MaxValue

                s = l

            Next

        Next

        fin = Now

        Me.TextBox_Durée_conversion_implicite.Text
= fin.Subtract(debut).TotalMilliseconds()

End Sub

Code Source Bouton Conversion_explicite

Conversion_explicite

Private Sub Button_Conversion_explicite_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Button_Conversion_explicite.Click

        Dim debut As Date = Now

        Dim b As Byte

        Dim s As Short

        Dim fin As Date

        Me.TextBox_Durée_conversion_explicite.Text= «  »

        For j As Integer = 1 To CInt(Me.TextBox_Nombre_itérations_explicite.Text)

            For l As Long = Byte.MinValue To Byte.MaxValue

                b = CByte(l)

            Next

            For l As Long = Short.MinValue
To Short.MaxValue

                s = CShort(l)

            Next

        Next

        fin = Now

        Me.TextBox_Durée_conversion_explicite.Text
= fin.Subtract(debut).TotalMilliseconds.ToString()

    End Sub