Exercice 1:
Créez une structure appelée « Personne » qui contient les champs « nom », « prénom » et « âge ». Ensuite, créez une instance de cette structure et assignez des valeurs à ses champs. Affichez les valeurs des champs dans une boîte de message.
Structure Personne
Dim nom As String
Dim prenom As String
Dim age As Integer
End Structure
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim personne As Personne
personne.nom = TextBox1.text
personne.prenom = TextBox2.text
personne.age = Cint(TextBox3.text)
MessageBox.Show("Nom : " & personne.nom & vbCrLf & "Prénom : " & personne.prenom & vbCrLf & "Age : " & personne.age)
End Sub
Exercice 2:
Créez une structure appelée « Point » qui contient les champs « x » et « y ». Ensuite, créez deux instances de cette structure et assignez des valeurs à leurs champs. Calculez la distance entre les deux points en utilisant la formule mathématique appropriée et affichez le résultat dans une boîte de message.
Structure Point
Dim x As Integer
Dim y As Integer
End Structure
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim point1 As Point
point1.x = Cint(textBox1.text)
point1.y = Cint(textBox2.text)
Dim point2 As Point
point2.x = Cint(textBox3.text)
point2.y = Cint(textBox4.text)
Dim distance As Double = Math.Sqrt((point2.x - point1.x) * (point2.x - point1.x) + (point2.y - point1.y) * (point2.y - point1.y))
MessageBox.Show("Distance : " & distance)
End Sub
Exercice 3:
Créez une structure appelée « Rectangle » qui contient les champs « largeur » et « hauteur ». Ensuite, créez une instance de cette structure et assignez des valeurs à ses champs. Calculez le périmètre et la surface du rectangle en utilisant les formules mathématiques appropriées et affichez les résultats dans des boîtes de message séparées.
Structure Rectangle
Dim largeur As Integer
Dim hauteur As Integer
End Structure
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim rectangle As Rectangle
rectangle.largeur = Cint(TextBox1.text)
rectangle.hauteur = Cint(TextBox2.text)
Dim perimetre As Integer = 2 * (rectangle.largeur + rectangle.hauteur)
Dim surface As Integer = rectangle.largeur * rectangle.hauteur
MessageBox.Show("Périmètre : " & perimetre & vbCrLf & "Surface : " & surface)
End Sub
Exercice 4:
Créez une structure appelée « Rectangle » qui contient les champs « largeur » et « hauteur ». Ensuite, créez une instance de cette structure et assignez des valeurs à ses champs. Calculez le périmètre et la surface du rectangle en utilisant les formules mathématiques appropriées et affichez les résultats dans des boîtes de message séparées.
Structure Cercle
Dim rayon As Integer
End Structure
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cercle As Cercle
cercle.rayon = Cint(TextBox1.text)
Dim circonference As Double = 2 * Math.PI * cercle.rayon
Dim surface As Double = Math.PI * cercle.rayon * cercle.rayon
MessageBox.Show("Circonférence : " & circonference & vbCrLf & "Surface : " & surface)
End Sub
