La géométrie s'est également s'amuser à faire des dessins à l'apparence mathématique. Un des classiques dans ce genre, c'est bien sûre dessiner un «Treillis». Voici le code Visual Basic .NET (VB .NET) :
- Public Class Form1
-
- Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
- Dim x As Integer = 30
- Dim y As Integer = 40
- Dim t As Integer = 240
- Dim i As Integer
- For i = 0 To t Step 5
- e.Graphics.DrawLine(New Pen(Color.Black), x, y + i, x + i, y + t)
- Next
- End Sub
-
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- MyBase.Text = "Trellis"
- MyBase.Width = 300
- MyBase.Height = 320
- MyBase.BackColor = Color.White
- End Sub
-
- End Class
Voici en terminant un exemple du résultat de se petit programme :
Dernière mise à jour : Samedi, le 22 octobre 2016