28)Write a VB program to design Traffic signal using shape control.

Option Explicit

Dim Cnt As Integer
Dim ca As Integer
Private Sub cmdchange_Click()
Timer1.Enabled = False
Timer2.Enabled = True
Timer2.Interval = 1000
txtcol.BackColor = vbWhite
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub

Private Sub Form_Load()
Cnt = 0
ca = 0
txtcol.BackColor = vbRed
txtcol.Enabled = False
End Sub

Private Sub Timer1_Timer()
Select Case Cnt
Case 0:
If Timer1.Interval = 2000 Then
txtcol.BackColor = RGB(0, 255, 0)
Cnt = 1
Else
Timer1.Interval = Timer1.Interval + 200
End If
Case 1:
If Timer1.Interval = 3000 Then
txtcol.BackColor = RGB(255, 0, 0)
Timer1.Interval = 1000
Cnt = 0
Else
Timer1.Interval = Timer1.Interval + 200
End If
End Select
End Sub Private Sub Timer2_Timer()
Select Case ca
Case 0:
If Timer2.Interval = 1500 Then
txtcol.BackColor = vbYellow
ca = 1
Else
Timer2.Interval = Timer2.Interval + 500
End If
Case 1:
If Timer2.Interval = 2000 Then
txtcol.BackColor = RGB(255, 255, 255)
Timer2.Interval = 1000
ca = 0
Else
Timer2.Interval = Timer2.Interval + 500
End If
End Select
End Sub

Search

Project Categories

Recent Posts

Mail Management System
Posted on 2019-07-18
Online food ordering system
Posted on 2019-07-18
Library Management System
Posted on 2019-07-17
Health center system project
Posted on 2019-07-17
Gym Management System
Posted on 2019-07-17
furniture management system
Posted on 2019-07-17
Electronic shop management system
Posted on 2019-07-17
Automobile Workshop Management
Posted on 2019-07-17
Online Visa Processing System
Posted on 2019-07-17
Inventory management System
Posted on 2019-07-17
petrol-management system
Posted on 2019-07-17
Cloths management system
Posted on 2019-07-17
Society Management system
Posted on 2019-07-17
Mall management system
Posted on 2019-07-17
school management system
Posted on 2019-07-17
Sales Order Processing System
Posted on 2019-07-17
Retail sales management
Posted on 2019-07-17
Raw Materials Management
Posted on 2019-07-17
railway reservation system
Posted on 2019-07-17
purchase and sales management system
Posted on 2019-07-17
Placement Management System
Posted on 2019-07-17
Pet Shop Management System
Posted on 2019-07-17
petrol pump management system
Posted on 2019-07-17
Patient Information System
Posted on 2019-07-17
news agency system
Posted on 2019-07-17
Cinema Booking System
Posted on 2019-07-17
Medical Store System
Posted on 2019-07-17
leave management System
Posted on 2019-07-17
Laboratory Information Management System
Posted on 2019-07-17
content management system
Posted on 2019-07-17
Inventory management System
Posted on 2019-07-17
Institute Management System
Posted on 2019-07-17
Hotel management System
Posted on 2019-07-17
Gym Management System
Posted on 2019-07-17
Garage Management System
Posted on 2019-07-17
Furniture shop management system
Posted on 2019-07-17
Fisheries management  System
Posted on 2019-07-17
Fertilizer scheduling system
Posted on 2019-07-17
online eye care system
Posted on 2019-07-17
Dental Clinic Management System
Posted on 2019-07-17
Cyber Café Management
Posted on 2019-07-17
Milk Billing System
Posted on 2019-07-17
Colddrink management system
Posted on 2019-07-17
Cable management System
Posted on 2019-07-17
Beauty parlor management system
Posted on 2019-07-17
Facebook Clone
Posted on 2019-05-28
Dance Class Management System
Posted on 2019-05-24
Library Management System
Posted on 2019-05-24
Cab Management System
Posted on 2019-05-23
Blood Bank Management system
Posted on 2019-05-23
Beauty Parlour Management System
Posted on 2019-05-23
vissa proccesing system
Posted on 2019-05-23
Toll Plazza
Posted on 2019-05-23
BILLING APPLICATION
Posted on 2019-05-23
FLORICULTURE MANAGEMENT SYSTEM
Posted on 2019-05-23
Car On Rent
Posted on 2019-05-23
E-commers Shop
Posted on 2019-05-23

Sign In