Program przsuwający kwadrat i koło

dawid1989 · 2008-11-09 01:04:00

Może się komuś przyda.

Kod:

Public Class Form1
    Dim cache_x, cache_y As Integer


   'ta procedura ładuje nam domyślnie położone koło i kwadrat, zaraz po uruchomieniu programu.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        Dim Kartka As Graphics = Me.CreateGraphics

        Kartka.Clear(Color.Azure)

        Kartka.FillEllipse(Brushes.Black, 165, 0, 50, 50)
        Kartka.FillRectangle(Brushes.Black, 0, 165, 50, 50)
    End Sub


   'procedura przesuwania figur.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        Dim Kartka As Graphics = Me.CreateGraphics

        Kartka.Clear(Color.Azure)

        x = cache_x + CInt(TextBox1.Text)
        cache_x = x

        y = cache_y + CInt(TextBox2.Text)
        cache_y = y

        Kartka.FillEllipse(Brushes.Black, 165, y, 50, 50)
        Kartka.FillRectangle(Brushes.Black, x, 165, 50, 50)
    End Sub
End Class

Przykładowa formatka:

Spoiler:

A tu już działający, na konkretnych przykładach:

Spoiler:

To akurat moja koncepcja, jeśli komuś udało się opracować ten program w inny sposób, niech tu zamieści. Ktoś już wczoraj powiedział, że programowania najlepiej nauczyć się czytając gotowy kod, zatem do dzieła

Pozdrawiam,
Dawid C.

Ostatnio edytowany przez dawid1989 (2008-11-09 01:07:01)

katarzyna6226 · 2008-11-09 17:56:55

tu kółko i kwadrat wracają
Public Class Form1
Dim kartka As Graphics = Me.CreateGraphics
Dim kwadratX As Integer
Dim kolkoY As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kartka.Clear(Me.BackColor)
kartka.FillRectangle(Brushes.Black, kwadratX, 130, 30, 30)
kartka.FillEllipse(Brushes.Brown, 130, kolkoY, 30, 30)
If kwadratX > Me.Size.Width Then
kwadratX = 0
Else
kwadratX = kwadratX + CInt(TextBox1.Text)
End If
If kolkoY > Me.Size.Height Then
kolkoY = 0
Else
kolkoY = kolkoY + CInt(TextBox2.Text)
End If
End Sub
End Class

Ostatnio edytowany przez katarzyna6226 (2008-11-11 11:58:03)

slowik84 · 2008-11-14 11:35:56

ja mam tak chociaz ja nic nie umiem to jakos chodzi

Public Class Form1

Dim k As Integer = 20
Dim pk As Integer
Dim o As Integer = 20
Dim po As Integer
Dim p As Integer = 20

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Kartka As Graphics = Me.CreateGraphics

Kartka.FillRectangle(Brushes.Gold, 20, 280, 40, 40)
Kartka.FillEllipse(Brushes.LightGreen, 380, 20, 40, 40)

End Sub

Private Sub przesuniecie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles przesuniecie.Click

Dim Kartka As Graphics = Me.CreateGraphics
Kartka.Clear(Color.Azure)

Kartka.FillRectangle(Brushes.Gold, k, 280, 40, 40)
If k > Me.Size.Width Then
k = 20
Else

pk = kwadrat.Text
k = k + (pk)
End If

Kartka.FillEllipse(Brushes.LightGreen, 380, p, 40, 40)

If p > Me.Size.Height Then
p = 20
Else

po = kolo.Text

p = p + (po)
End If

End Sub
End Class

#1 2008-11-09 01:04:00