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.
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ı...
Senin yerinde olsam bu konuyu aramazdım yazmaya başlardım :)
MK102 tavsiyen için teşekkürler!Ancak, sanırım artık çok geç...
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::