Forum studentów Informatyki Zaocznej na Uniwersytecie Opolskim
Może się komuś przyda.
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)
Offline
Użytkownik
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)
Offline
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
Offline