1. Les types de données principaux
A. Les Entiers (Nombres sans virgule)
B. Les Réels (Nombres à virgule)
C. Les Autres Types
2. Déclaration de variables et constantes
Les variables sont des zones mémoire permettant de stocker des valeurs dynamiques. La déclaration se fait avec le mot réservé Dim.
' Syntaxe de déclaration d'une variable
Dim NomVariable As Type = Valeur
' Exemples :
Dim prenom As String = "Mohamed"
Dim quantite As Integer = 36 Mod 25 ' Soit 11
Dim NomVariable As Type = Valeur
' Exemples :
Dim prenom As String = "Mohamed"
Dim quantite As Integer = 36 Mod 25 ' Soit 11
Pour les Constantes (valeurs qui ne changent jamais), on utilise le mot-clé Const:
' Syntaxe d'une constante
Const CONSTANTE_PI As Single = 3.14
Const CONSTANTE_PI As Single = 3.14
3. Conversion de types
La conversion permet de transformer un type de donnée en un autre (ex: transformer un texte "15" en un nombre entier 15). De manière générale, on utilise CType(variableA, TypeB) ou les méthodes de conversion directes.
| Nombre → Chaîne | nombre.ToString() ou CStr(nombre) |
| Chaîne → Integer | Integer.Parse(chaine) ou CInt(chaine) |
| Chaîne → Double | Double.Parse(chaine) ou CDbl(chaine) |
Attention : La conversion d'une chaîne vers un nombre peut échouer si la chaîne ne représente pas un nombre valide (ex: "Bonjour"). Cela génère une erreur fatale appelée Exception.
Code Source : Conversion Implicite et Explicite
' --- CONVERSION IMPLICITE ---
Private Sub Button_Conversion_implicite_Click(sender As System.Object, 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_Duree_implicite.Text = ""
For j As Integer = 1 To CInt(Me. TextBox_Nombre_iterations.Text)
For l As Long = Byte. MinValue To Byte. MaxValue
b = l ' Conversion implicite (Long vers Byte)
Next
For l As Long = Int16.MinValue To Int16.MaxValue
s = l ' Conversion implicite (Long vers Short)
Next
Next
fin = Now
Me. TextBox_Duree_implicite.Text = fin.Subtract(debut).TotalMilliseconds.ToString()
End Sub
' --- CONVERSION EXPLICITE ---
Private Sub Button_Conversion_explicite_Click(sender As System.Object, 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_Duree_explicite.Text = ""
For j As Integer = 1 To CInt(Me. TextBox_Nombre_iterations.Text)
For l As Long = Byte. MinValue To Byte. MaxValue
b = CByte(l) ' Conversion explicite avec CByte
Next
For l As Long = Short. MinValue To Short. MaxValue
s = CShort(l) ' Conversion explicite avec CShort
Next
Next
fin = Now
Me. TextBox_Duree_explicite.Text = fin.Subtract(debut).TotalMilliseconds.ToString()
End Sub