Programalama > VISUAL BASIC

VISUAL BASIC / Trafik Lambası

Form Ekranına 1 Frame Içine 3 Tene Farklı Renklerde Shape Ekleyniz.1 Tanede Frame Içindekinden Farklı Renklerde Shape Ekleyiniz.1 Tene Timer 2 Tanede Label Ekleyiniz.Codları Aşağıda Veriyorum ...

Etiketler: trafik, lambası

Ort. 0

Puan ver:

hazirkod 14 June 19:33 0

0 kişiden 0 puan aldı

8573

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + 1
Label1.Caption = CStr(Timer1.Interval)
If Timer1.Interval = 1005 Then
Shape1.Shape = 3
Shape2.Visible = False
Shape3.Visible = False
End If
If Timer1.Interval = 1007 Then
Shape2.Shape = 3
Shape2.FillColor = RGB(255, 0, 0)
Shape1.Visible = False
Shape2.Visible = True
Shape3.Visible = False
Label2.Caption = "DöRtÇeLiK EmL."
Label2.Font.Size = "30"
Label2.Font.Italic = True


End If
If Timer1.Interval = 1009 Then
Shape3.Shape = 3
Shape3.FillColor = RGB(0, 255, 0)
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = True
End If
If Timer1.Interval = 1010 Then
Unload Form1
End If



End Sub


dörtçelik eml.veri tabanı programcılığı bölümü öğrencisi süleyman keskin/bursa-inegöl
alone_wolf_1117@hotmail.com