چراغ راهنمايي قابل تنظيم

[navid_sa_198]

با سلام خدمت همه دوستان
من يه برنامه چراغ راهنمايي دارم كه چراغ سبز و قرمز 30 ثانيه وبه صورت معكوس شمار است.(30 ثانيه سبز 3 ثانيه زرد و 30 ثانيه قرمز)
ميخواستم يه حالتي به مدار اضافه كنم كه مدت زمان چراغ ها قابل تنظيم با كيپد باشند به طوريكه هنگام شروع عددي را با كيپد وارد كنيم و شمارش از اين عدد تا 0 باشه بعد 3 ثانيه زرد و دوباره به همان مقدار وارد شده قرمز.

اينم برنامه خودمه بدون كيپد:

کد php:

$regfile = "m32def.dat"
$crystal = 8000000

Ddrb = &HFF
Portb = 0

Ddrc = &H07
Portc = 0

Dim I As Byte

Do
 Set Portc.0
 For I = 30 To 0 Step -1
 Portb = Makebcd(i)
 Waitms 1000
 Next I
 Reset Portc.0

 Set Portc.1
 Portb = 0
 Waitms 2000
 Reset Portc.1


 Set Portc.2
 For I = 25 To 0 Step -1
 Portb = Makebcd(i)
 Waitms 1000
 Next I
 Reset Portc.2

Loop
End' 


ممنون ميشم از اساتيد كمكم كنند