Anasayfa > Kodlar > Visual Basic 6 ile Trafik ışıkları örneği

Visual Basic 6 ile Trafik ışıkları örneği


Verilen saniyelere göre yeşil, sarı ve kırmızı ışıkları yanan trafik lambası.
Eklenecek nesneler; shape1(yeşil), shape2(sarı), shape3(kırmızı)
Text1, Text2,Text3, Timer1, Timer2, Timer3, Command1
(Timer'ların Interval özelliğini 1000 yapıyoruz)
(Shape' lerin shape özelliğini Circle seçiyoruz)

NOT: Shape' lerin renklerini beyaz veya siyah yapın, butona tıklandığında renk değiştiriyor..

Belki araba yarışı programlarsınız 🙂

Dim a, b, c
Private Sub Command1_Click()
i = 0
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
i = 0
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static i
i = i + 1
If i = a Then
Shape1.BackColor = &HFFFFFF
Timer1.Enabled = False
Timer2.Enabled = True
i = 0
Else
Shape1.BackColor = &HC000&
End If
End Sub

Private Sub Timer2_Timer()
Static i
i = i + 1
If i = b Then
Shape2.BackColor = &HFFFFFF
Timer2.Enabled = False
Timer3.Enabled = True
i = 0
Else
Shape2.BackColor = &HFFFF&
End If
End Sub

Private Sub Timer3_Timer()
Static i
i = i + 1
If i = b Then
Shape3.BackColor = &HFFFFFF
Timer3.Enabled = False
i = 0
Else
Shape3.BackColor = &HFF&
End If
End Sub


TD Software


  1. murat
    25/12/2013, 11:09

    Hocam 25 pinli konnektor ile bu devreyi yapmam lazim. 4 yol ciftli yonlu bir yol icin trafik isiklari kontrolu olcak yardim edebilirmisiniz.

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: