|
Pozdrav,
Za malu vezbu, treba da nacrtam semafor i na tom semaforu treba jedno (bilo koje) svetlo da menja boju, na primer neka to bude zuto. Medjutim, ja neznam kako da postavim timer koji ce svake sekunde menjati zuto-crno itd.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim papir1 As Graphics
papir1 = PictureBox1.CreateGraphics()
Dim cetkaCrna As Brush = Brushes.Black
Dim cetkaZuta As Brush = Brushes.Yellow
Dim cetkaZelena As Brush = Brushes.Green
Dim olovkaSiva As Pen = New Pen(Color.Gray)
Dim cetkaCrvena As Brush = Brushes.Red
papir1.DrawRectangle(olovkaSiva, 1, 17, 110, 220)
papir1.FillRectangle(cetkaCrna, 2, 18, 109, 219)
papir1.FillEllipse(cetkaCrvena, 20, 20, 70, 70)
papir1.FillEllipse(cetkaZuta, 20, 92, 70, 70)
papir1.FillEllipse(cetkaZelena, 20, 164, 70, 70)
End Sub
End Class
Kontam da treba da se napravi jos jedan crni krug preko zutog, i samo da se izmenjuju svakog intervala, tako da kad se pojavi crni nevidi se krug, nego izgleda kao da se zuta ugasila.
Moze mala pomoc oko ovoga? 
Dopuna: 27 Okt 2007 15:52
|
