Visual Basic 2010 Glücksrad drehend programmieren SelMcKenzie Selzer-McKenzie

Visual Basic 2010 Glücksrad drehend programmieren SelMcKenzie Selzer-McKenzie

Author D.Selzer-McKenzie

Video http://www.youtube.com/watch?v=lywJ7_pgvwY

Heute zeige ich Ihnen ein Beispiel, wie man z.B. ein drehendes Glücksrad mit ganz einfachen Mitteln programmieren kann. Ich habe es hier nur mit 8 Drehbildern gemacht, aber das kann natürlich wesentlich erhöht werden.

Die Form sieht so aus und ich lege mir dort 4 Bilder rein, die teilweise sogar auch nur stückweise ausgelesen werden, weshalb man also eigentlich sehr wenige Bilder braucht.

Dann setze ich noch einen Butten, um zu starten oder zu stoppen und einen Taktgeber, in den ich die Schnelligkeit der Umdrehungen angeben kann.

Den Code habe ich vorgeschrieben und für dieses kleine Glücksrad können Sie ja das Video anhalten und sich den Code abschreiben. Natürlich kann man das auch für alles andere Animierte benutzen.

Sie sehen, das Glücksrad startet und läuft wie geschmiert.

Das wars dann.

Selzer-McKenzie

Der Code ist:

   Private Sub KnopfStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KnopfStart.Click

        Start$ = "START" : Stop$ = "STOP"

        If KnopfStart.Text = Start$ Then

            Taktgeber.Enabled = True

            Taktgeber.Interval = 220

            KnopfStart.Text = Stop$

        ElseIf KnopfStart.Text = Stop$ Then

            Taktgeber.Enabled = False

            KnopfStart.Text = Start$

        End If

    End Sub

    Private Sub Taktgeber_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Taktgeber.Tick

        Zeichnen = Me.CreateGraphics

        Static intDrehen As Integer

        For a = 0 To 3

            intDrehen = intDrehen + 1

            If intDrehen > 3 Then intDrehen = intDrehen - 3

        Next a

        Select Case intDrehen

            Case 0

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild1.BackgroundImage), 30, 130, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild4.BackgroundImage), 30, 190, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild2.BackgroundImage), 230, 30, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 230, 90, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild4.BackgroundImage), 430, 130, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 430, 190, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild1.BackgroundImage), 230, 230, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild2.BackgroundImage), 230, 290, 200, 60)

            Case 1

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 30, 130, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild2.BackgroundImage), 30, 190, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild1.BackgroundImage), 230, 30, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 230, 90, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild4.BackgroundImage), 430, 130, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild1.BackgroundImage), 430, 190, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 230, 230, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild4.BackgroundImage), 230, 290, 200, 60)

            Case 2

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild4.BackgroundImage), 30, 130, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild2.BackgroundImage), 30, 190, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 230, 30, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild4.BackgroundImage), 230, 90, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild1.BackgroundImage), 430, 130, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild2.BackgroundImage), 430, 190, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild2.BackgroundImage), 230, 230, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 230, 290, 200, 60)

            Case 3

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 30, 130, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild1.BackgroundImage), 30, 190, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild1.BackgroundImage), 230, 30, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 230, 90, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild4.BackgroundImage), 430, 130, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild3.BackgroundImage), 430, 190, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild2.BackgroundImage), 230, 230, 200, 60)

                Zeichnen.FillEllipse(New TextureBrush( _

                Bild1.BackgroundImage), 230, 290, 200, 60)

        End Select

    End Sub