trafic ışıkları

kryptex
10-01-2009, 16:43   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
18 mesaj
Kayıt Tarihi:Kayıt: May 2008

 

Herkese selam.Arkadaşlar çok acil trafik ışıklarının sırayla yanmasını sağlayan  assembly dilinde yazılmış programa ihtiyacım var, yardımcı olursanız sevinirim.Şimdiden teşekkürler.

kryptex
12-01-2009, 09:33   |  #2  
OP Taze Üye
Teşekkür Sayısı: 0
18 mesaj
Kayıt Tarihi:Kayıt: May 2008

program şöyle olacak:
       kuzey-güney    doğu-batı

yeşil      75sn        28sn
sarı       2sn         2sn
kırmızı    30sn        77sn
8085 microprocessor kullanılacak.24 saat boyunca traffic akışı olacak.TTl uyumlu olmalı...

MK102
15-01-2009, 17:02   |  #3  
Taze Üye
Teşekkür Sayısı: 0
3 mesaj
Kayıt Tarihi:Kayıt: Oca 2009

Senin yerinde olsam bu konuyu aramazdım yazmaya başlardım :)

Son Düzenleme: MK102 ~ 15 Ocak 2009 17:03
kryptex
15-01-2009, 21:24   |  #4  
OP Taze Üye
Teşekkür Sayısı: 0
18 mesaj
Kayıt Tarihi:Kayıt: May 2008

MK102 tavsiyen için teşekkürler!Ancak, sanırım artık çok geç...

01apachi
15-01-2009, 21:29   |  #5  
Yıllanmış Üye
Teşekkür Sayısı: 1
1,618 mesaj
Kayıt Tarihi:Kayıt: Ağu 2008

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..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


alıntı::

burada belki işine yarar::

Son Düzenleme: 01apachi ~ 15 Ocak 2009 21:34
kryptex
15-01-2009, 21:38   |  #6  
OP Taze Üye
Teşekkür Sayısı: 0
18 mesaj
Kayıt Tarihi:Kayıt: May 2008

01 apachi,verdiğin kod programı benim için iyi bir fikir oldu, yanıt için teşekkürler.:-)