Figures

Emojis

Here we have two emojis created using Visual Basic. Utilizing the DrawEllipse and FillEllipse, DrawLine and DrawArc methods to create this designs.

REMINDER: NOT ALL MEASUREMENTS ARE EXACT WITH THE SKETCH

Code

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

'Emoji #1

e.Graphics.FillEllipse(Brushes.Yellow, 40, 40, 150, 150) 'Color de emoji #1

e.Graphics.DrawEllipse(Pens.Black, 40, 40, 150, 150) 'Contorno de emoji #1

e.Graphics.FillEllipse(Brushes.White, 60, 70, 45, 45) 'Color de ojo izquierdo #1

e.Graphics.DrawEllipse(Pens.Black, 60, 70, 45, 45) 'Contorno de ojo izquierdo #1

e.Graphics.FillEllipse(Brushes.Black, 75, 77, 30, 30) 'Color de pupila izquierdo #1

e.Graphics.DrawEllipse(Pens.Black, 75, 77, 30, 30) 'Contorno de pupila izquierdo #1

e.Graphics.FillEllipse(Brushes.White, 120, 70, 45, 45) 'Color de ojo derecho #1

e.Graphics.DrawEllipse(Pens.Black, 120, 70, 45, 45) 'Contorno de ojo derecho #1

e.Graphics.FillEllipse(Brushes.Black, 135, 77, 30, 30) 'Color de pupila derecho #1

e.Graphics.DrawEllipse(Pens.Black, 135, 77, 30, 30) 'Contorno de pupila derecho #1

e.Graphics.DrawLine(Pens.Black, 80, 120, 150, 120) 'Contorno de linea emoji #1

'Emoji #2

e.Graphics.FillEllipse(Brushes.Yellow, 250, 40, 150, 150) 'Color de emoji #2

e.Graphics.DrawEllipse(Pens.Black, 250, 40, 150, 150) 'Contorno de emoji #2

e.Graphics.FillEllipse(Brushes.White, 270, 70, 45, 45) 'Color de ojo izquierdo #2

e.Graphics.DrawEllipse(Pens.Black, 270, 70, 45, 45) 'Contorno de ojo izquierdo #2

e.Graphics.FillEllipse(Brushes.Black, 280, 77, 30, 30) 'Color de pupila izquierdo #1

e.Graphics.DrawEllipse(Pens.Black, 280, 77, 30, 30) 'Contorno de pupila izquierdo #1

e.Graphics.FillEllipse(Brushes.White, 335, 70, 45, 45) 'Color de ojo derecho #2

e.Graphics.DrawEllipse(Pens.Black, 335, 70, 45, 45) 'Contorno de ojo derecho #2

e.Graphics.FillEllipse(Brushes.Black, 340, 77, 30, 30) 'Color de pupila derecho #2

e.Graphics.DrawEllipse(Pens.Black, 340, 77, 30, 30) 'Contorno de pupila derecho #2

e.Graphics.DrawArc(Pens.Black, 285, 110, 80, 50, 0, 180) 'Sonrisa de emoji #2

End Sub

End Class

Owl in the night sky

Here we have an owl in the night sky with the moon, perched on a branch using Visual Basic. Utilizing Me.BackColor, DrawEllipse and FillEllipse, DrawPolygon and FillPolygon, DrawPie and FillPie, DrawRectangle and FillRectangle methods.

REMINDER: NOT ALL MEASUREMENTS ARE EXACT WITH THE SKETCH

Code

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

'Buho

Me.BackColor = Color.Black

'Cuerpo y ojos de buho

e.Graphics.FillRectangle(Brushes.Blue, 40, 30, 80, 120) 'Cuerpo de buho azul

e.Graphics.FillEllipse(Brushes.Yellow, 30, 50, 50, 50) 'Color de ojo izquierdo

e.Graphics.DrawEllipse(Pens.Black, 30, 50, 50, 50) 'Contorno de ojo izquierdo

e.Graphics.FillEllipse(Brushes.Black, 40, 60, 20, 30) 'Pupila de ojo derecho

e.Graphics.FillEllipse(Brushes.Yellow, 80, 50, 50, 50) 'Color de ojo derecho

e.Graphics.DrawEllipse(Pens.Black, 80, 50, 50, 50) 'Contorno de ojo derecho

e.Graphics.FillEllipse(Brushes.Black, 100, 60, 20, 30) 'Pupila de ojo izquierdo

'Pico de buho

Dim pico As Point() = {

New Point(70, 90), ' Punto superior

New Point(90, 100), ' Esquina izquierda

New Point(70, 110) ' Esquina derecha

}

e.Graphics.FillPolygon(Brushes.Orange, pico) 'Pico naranja de buho

e.Graphics.DrawPolygon(Pens.Black, pico) 'Contorno de pico

'Sonrisa de buho

e.Graphics.DrawPie(Pens.Black, 60, 110, 40, 20, 0, 180) 'Contorno de sonrisa

e.Graphics.FillPie(Brushes.Red, 60, 110, 40, 20, 0, 180) 'Color rojo de sonrisa

'Tronco de buho

e.Graphics.FillRectangle(Brushes.Brown, 20, 150, 120, 20) 'Color de tronco

e.Graphics.DrawRectangle(Pens.Black, 20, 150, 120, 20) 'Contorno de tronco

'Garras de buho

e.Graphics.FillRectangle(Brushes.Orange, 40, 140, 10, 20) 'Garra izquierda (izquierda)

e.Graphics.FillRectangle(Brushes.Orange, 52, 140, 10, 20) 'Garra del medio (izquierda)

e.Graphics.FillRectangle(Brushes.Orange, 65, 140, 10, 20) 'Garra derecha (izquierda)

e.Graphics.FillRectangle(Brushes.Orange, 83, 140, 10, 20) 'Garra derecha (derecha)

e.Graphics.FillRectangle(Brushes.Orange, 96, 140, 10, 20) 'Garra derecha (derecha)

e.Graphics.FillRectangle(Brushes.Orange, 110, 140, 10, 20) 'Garra derecha (derecha)

'Luna

e.Graphics.FillEllipse(Brushes.Yellow, 150, 30, 50, 50) 'Color de la luna

e.Graphics.FillEllipse(Brushes.Black, 140, 30, 50, 50) 'Circulo de la luna

End Sub

End Class

Written Code