Logos

Interamerican University Logo

Here we have the Interamerican University Logo created with Visual Basic. Utilizing the DrawRectangle and FillRectangle, DrawEllipse and FillEllipse 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

e.Graphics.FillEllipse(Brushes.Green, 80, 10, 40, 40)

e.Graphics.DrawEllipse(Pens.Black, 80, 10, 40, 40)

e.Graphics.FillRectangle(Brushes.Green, 30, 60, 140, 160)

e.Graphics.DrawRectangle(Pens.Black, 30, 60, 140, 160)

e.Graphics.FillRectangle(Brushes.Yellow, 70, 60, 60, 100)

e.Graphics.DrawRectangle(Pens.Black, 70, 60, 60, 100)

End Sub

End Class

BMW Logo

Here we have the BMW Logo using Visual Basic. Utilizing the FillEllipse, DrawPie and FillPie 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

'Logo de BMW

e.Graphics.FillEllipse(Brushes.Black, 20, 20, 160, 160) 'Color de circulo exterior

e.Graphics.FillEllipse(Brushes.White, 40, 40, 120, 120) 'Color de circulo interior

e.Graphics.FillPie(Brushes.Blue, 40, 40, 120, 120, 180, 90) 'Contorno de pie azul superior

e.Graphics.DrawPie(Pens.Black, 40, 40, 120, 120, 180, 90) 'Contorno de pie azul superior

e.Graphics.FillPie(Brushes.Blue, 40, 40, 120, 120, 0, 90) 'Contorno de pie azul superior

e.Graphics.DrawPie(Pens.Black, 40, 40, 120, 120, 0, 90) 'Contorno de pie azul inferior

End Sub

End Class

Android Logo (Andy)

Here we have the Android logo, Andy, using Visual Basic. Utilizing FillEllipse, FillRectangle and FillPie methomethods.

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

'Android Andy

e.Graphics.FillPie(Brushes.LimeGreen, 50, 70, 100, 100, 0, -180) 'Cabeza de Andy

e.Graphics.FillRectangle(Brushes.LimeGreen, 75, 55, 5, 30) 'Antena de izquierda

e.Graphics.FillRectangle(Brushes.LimeGreen, 120, 55, 5, 30) 'Antena de izquierda

e.Graphics.FillEllipse(Brushes.White, 75, 90, 10, 10) 'Ojo izquierdo

e.Graphics.FillEllipse(Brushes.White, 115, 90, 10, 10) 'Ojo derecho

e.Graphics.FillRectangle(Brushes.LimeGreen, 50, 125, 100, 80) 'Cuerpo de Andy

e.Graphics.FillPie(Brushes.LimeGreen, 70, 220, 20, 20, 0, 180) 'Pie de pierna izquierda

e.Graphics.FillRectangle(Brushes.LimeGreen, 70, 200, 20, 35) 'Pierna izquierda

e.Graphics.FillPie(Brushes.LimeGreen, 110, 220, 20, 20, 0, 180) 'Pie de pierna derecha

e.Graphics.FillRectangle(Brushes.LimeGreen, 110, 200, 20, 35) 'Pierna derecha

e.Graphics.FillPie(Brushes.LimeGreen, 25, 120, 20, 20, 0, -180) 'Punta brazo superior izquierdo

e.Graphics.FillPie(Brushes.LimeGreen, 25, 180, 20, 20, 0, 180) 'Punta brazo inferior izquierdo

e.Graphics.FillRectangle(Brushes.LimeGreen, 25, 130, 20, 60) 'Brazo izquierdo

e.Graphics.FillPie(Brushes.LimeGreen, 155, 120, 20, 20, 0, -180) 'Punta brazo superior derecho

e.Graphics.FillPie(Brushes.LimeGreen, 155, 180, 20, 20, 0, 180) 'Punta brazo inferior derecho

e.Graphics.FillRectangle(Brushes.LimeGreen, 155, 130, 20, 60) 'Brazo derecho

End Sub

End Class