Trafik Işıkları

15-03-2010, 00:01:32

~~sRc~~

Merhaba arkadaşlar trafik işıkları yapmam gerek şu şekil ; ımageList1 ' e resim ekliyeceğim 3 tane yeşil , sarı , kırmızı diye + bunları picturebox ' dan göstereceğim şu şekil PictureBox1.BackgroundImage = ımageList1.Images(0) , PictureBox2.BackgroundImage = ımageList1.Images(1) , PictureBox2.BackgroundImage = ımageList1.Images(2) bunları ekledik den sonra yesil 7 saniye yanacak sonra yesil sönecek sarı 5 saniye yanacak sonra ise kırmızı 3 saniye yanacak yesil yanarken sarı ve kırmıznın durumu görünmeyecek 1 timerle nasıl yapabilirim.

Teşekkür Ediyorum

s-r-c@hotmail.com.tr

16-03-2010, 20:33:14

#2

YukSoft

Public Class Form1
Dim sayac As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
sayac += 1
If sayac Mod 4 = 1 Then
pbkirmizi.Image = imglist.Images(1)
pbsari.Image = imglist.Images(2)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 3000
ElseIf sayac Mod 4 = 2 Then
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(3)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 1000
ElseIf sayac Mod 4 = 3 Then
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(2)
pbyesil.Image = imglist.Images(5)
Timer1.Interval = 3000
Else
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(3)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 1000
End If
End Sub
End Class

Buyur kardeşim bu şekilde çalışıyor.

16-03-2010, 22:01:04

#3

~~sRc~~

YukSoft adlı üyeden alıntı: mesajı görüntüle

Public Class Form1
Dim sayac As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
sayac += 1
If sayac Mod 4 = 1 Then
pbkirmizi.Image = imglist.Images(1)
pbsari.Image = imglist.Images(2)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 3000
ElseIf sayac Mod 4 = 2 Then
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(3)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 1000
ElseIf sayac Mod 4 = 3 Then
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(2)
pbyesil.Image = imglist.Images(5)
Timer1.Interval = 3000
Else
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(3)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 1000
End If
End Sub
End Class

Buyur kardeşim bu şekilde çalışıyor.

Teşekkür ederim

18-03-2010, 20:27:37

#4

~~sRc~~

Burada da güzel bir şekilde anlatışmış anlatan kişiye teşekkür ederim