Projects

A collection of my work across various technologies and domains

Computer Graphics Portfolio

We did some projects for computer graphics: Projects for computer graphics

Smily Face in VB.NET

A code snippet that draws a smily face in VB.NET.

C#System.Drawing2D Graphics

Code Snippet: Smily Face in VB.NETvbnet

1Sub DrawSmileFace(e As PaintEventArgs)
2  e.Graphics.FillEllipse(Brushes.Yellow, 50, 100, 500, 500)
3  e.Graphics.DrawEllipse(Pens.Black, 50, 100, 500, 500)
4  e.Graphics.FillEllipse(Brushes.Blue, 150, 250, 100, 100)
5  e.Graphics.FillEllipse(Brushes.Blue, 350, 250, 100, 100)
6  e.Graphics.FillEllipse(Brushes.Red, 200, 400, 200, 100)
7        
8  e.Graphics.DrawLine(Pens.Black, 190, 180, 260, 260)
9  e.Graphics.DrawLine(Pens.Black, 420, 180, 330, 260)
10End Sub

S drawed in VB.NET

A code snippet that draws a S in VB.NET.

C#System.Drawing2D Graphics

Code Snippet: S drawed in VB.NETvbnet

1Sub DrawS(e As PaintEventArgs)
2  e.Graphics.FillRectangle(Brushes.Violet, new Rectangle(30, 30, 300, 20))
3  e.Graphics.FillRectangle(Brushes.Violet, new Rectangle(30, 50, 20, 150))
4  e.Graphics.FillRectangle(Brushes.Violet, new Rectangle(30, 180, 300, 20))
5  e.Graphics.FillRectangle(Brushes.Violet, new Rectangle(320, 180, 20, 150))
6  e.Graphics.FillRectangle(Brushes.Violet, new Rectangle(40, 320, 300, 20))
7End Sub

Inter American University of Puerto Rico Logo drawed in VB.NET

A code snippet that draws the logo in VB.NET.

C#System.Drawing2D Graphics

Code Snippet: Inter American University of Puerto Rico Logo drawed in VB.NETvbnet

1Sub DrawInterLogo(e As PaintEventArgs)
2  e.Graphics.DrawRectangle(Pens.Yellow, new Rectangle(50, 40, 30, 70))
3  e.Graphics.FillRectangle(Brushes.Yellow, new Rectangle(50, 40, 30, 70))
4        
5  e.Graphics.DrawRectangle(Pens.Green, new Rectangle(30, 40, 20, 70))
6  e.Graphics.FillRectangle(Brushes.Green, new Rectangle(30, 40, 20, 70))
7        
8  e.Graphics.DrawRectangle(Pens.Green, new Rectangle(80, 40, 20, 70))
9  e.Graphics.FillRectangle(Brushes.Green, new Rectangle(80, 40, 20, 70))
10        
11  e.Graphics.DrawRectangle(Pens.Green, new Rectangle(50, 90, 30, 20))
12  e.Graphics.FillRectangle(Brushes.Green, new Rectangle(50, 90, 30, 20))
13        
14  e.Graphics.FillEllipse(Brushes.Yellow, new Rectangle(50, 5, 30, 30))
15End Sub