Circles on the form

by M. Akram (7 Submissions)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Fri 8^th June 2007
Date Added: Mon 8^th February 2021
Rating: (1 Votes)
Circles on the form
Rate Circles on the form


    Private Sub tmrtimer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrtimer1.Tick
        tmrtimer1.Stop()
        tmrtimer1.Start()
    End Sub
    Private Sub lbldisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim lblcircle
        Dim tmrcounter
        tmrtimer1.Start()
        Select Case tmrcounter
            Case 2, 4
                'Create a Green Pen
                Dim greenPen As New Pen(Color.Green, 3)
                ' Draw ellipse to screen.
                lblcircle.CreateGraphics.DrawEllipse(greenPen, 42, 74, 60, 60)
                Dim redPen As New Pen(Color.Red, 3)
            Case 1, 3, 5
                'Draw the Circle
                Dim greenPen As New Pen(Color.FromArgb(255, 192, 192), 3)
                ' Draw ellipse to screen.
                lblcircle.CreateGraphics.DrawEllipse(greenPen, 42, 74, 60, 60)
                tmrcounter = tmrcounter
            Case 6
                ' Create a Red Pen
                Dim redPen As New Pen(Color.Red, 3)
                ' Draw Circle to screen.
                lblcircle.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
                tmrtimer1.Stop()
                Dim greenPen As New Pen(Color.Green, 3)
                lblcircle.CreateGraphics.DrawEllipse(greenPen, 42, 74, 60, 60)
        End Select
        tmrcounter = tmrcounter + 1
    End Sub
    Private Sub cmdstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstop.Click
        End
    End Sub
    Dim tmrcounter As Integer = +1
    Dim LightState, RedPen As Integer
    Private Sub lblcircle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbldisp.Click

        'Create a red pen
        Dim redPen As New Pen(Color.Red, 3)
        ' Draw circle to screen.
        lbldisp.CreateGraphics.DrawEllipse(redPen, 62, 94, 80, 80)
        Dim greenPen As New Pen(Color.Green, 3)
        lbldisp.CreateGraphics.DrawEllipse(greenPen, 72, 104, 90, 90)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)

        lbldisp.CreateGraphics.DrawEllipse(greenPen, 72, 104, 90, 90)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 62, 94, 80, 80)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 72, 104, 90, 90)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 62, 94, 80, 80)
        tmrcounter = (tmrcounter + 1)

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim redPen As New Pen(Color.Red, 3)
        ' Draw circle to screen.
        Dim blackPen As New Pen(Color.Black, 3)
        
        Dim yellowpen As New Pen(Color.Yellow, 3)

        Dim blackwpen As New Pen(Color.Black, 3)
        
        lbldisp.CreateGraphics.DrawEllipse(redPen, 62, 94, 80, 80)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 62, 94, 80, 80)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 72, 104, 90, 90)
        Dim greenpen As New Pen(Color.Green, 3)
        lbldisp.CreateGraphics.DrawEllipse(greenpen, 72, 104, 90, 90)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(greenpen, 82, 114, 100, 100)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        tmrcounter = (tmrcounter + 1)

        ' Draw circle to screen.

        tmrcounter = (tmrcounter + 1)

        lbldisplay.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        'Create a red pen

        ' Draw circle to screen.
        Dim purplePen As New Pen(Color.Purple, 3)

        lbldisplay.CreateGraphics.DrawEllipse(purplePen, 50, 82, 68, 68)

        tmrcounter = (tmrcounter + 1)
        ' Draw circle to screen.

        tmrcounter = (tmrcounter + 1)

        lbldisplay.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        'Create a red pen

        ' Draw circle to screen.


        lbldisplay.CreateGraphics.DrawEllipse(purplePen, 50, 82, 68, 68)

        tmrcounter = (tmrcounter + 1)

        lbldisplay.CreateGraphics.DrawEllipse(purplePen, 60, 92, 78, 78)
        ' Draw circle to screen.

        tmrcounter = (tmrcounter + 1)
    End Sub
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub lbldisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbldisplay.Click
        'Create a red pen
        Dim redPen As New Pen(Color.Red, 3)
        ' Draw circle to screen.
        lbldisp.CreateGraphics.DrawEllipse(redPen, 62, 94, 80, 80)
        Dim greenPen As New Pen(Color.Green, 3)
        lbldisp.CreateGraphics.DrawEllipse(greenPen, 72, 104, 90, 90)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        Dim purplePen As New Pen(Color.Purple, 3)
        lbldisplay.CreateGraphics.DrawEllipse(purplePen, 50, 82, 68, 68)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 62, 94, 80, 80)

        lbldisp.CreateGraphics.DrawEllipse(greenPen, 72, 104, 90, 90)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 62, 94, 80, 80)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        lbldisp.CreateGraphics.DrawEllipse(redPen, 72, 104, 90, 90)
        tmrcounter = (tmrcounter + 1)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Create a red pen
        Dim greenPen As New Pen(Color.Green, 3)
        ' Draw circle to screen.
        lbldisplay.CreateGraphics.DrawEllipse(greenPen, 50, 82, 68, 68)
        lbldisplay.CreateGraphics.DrawEllipse(greenPen, 60, 92, 78, 78)
        tmrcounter = (tmrcounter + 1)
        Dim redPen As New Pen(Color.Red, 3)
        lbldisplay.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        'Create a red pen
        lbldisplay.CreateGraphics.DrawEllipse(greenPen, 72, 104, 90, 90)
        ' Draw circle to screen.
        Dim purplePen As New Pen(Color.Purple, 3)

        lbldisplay.CreateGraphics.DrawEllipse(purplePen, 50, 82, 68, 68)

        tmrcounter = (tmrcounter + 1)
        'Create a red pen

        ' Draw circle to screen.
        lbldisplay.CreateGraphics.DrawEllipse(greenPen, 50, 82, 68, 68)
        lbldisplay.CreateGraphics.DrawEllipse(greenPen, 60, 92, 78, 78)
        tmrcounter = (tmrcounter + 1)

        lbldisplay.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
        'Create a red pen
        lbldisplay.CreateGraphics.DrawEllipse(greenPen, 72, 104, 90, 90)
        ' Draw circle to screen.


        lbldisplay.CreateGraphics.DrawEllipse(purplePen, 50, 82, 68, 68)

        tmrcounter = (tmrcounter + 1)

    End Sub
End Class
Download this snippet Add to My Saved Code
Circles on the form Comments

No comments have been posted about Circles on the form. Why not be the first to post a comment about Circles on the form.
Circles on the form

Circles on the form Comments

Post your comment

Difficulty
