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

[navid_sa_198]

با سلام خدمت همه دوستان
من میخوام هر عددی که با کیپد زده میشه رو سون سگمنت ببینم یه برنامه واسش نوشتم اما سردر نمیارم فقط سطر اول کار میکنه یعنی هر دگمه 1و2و3وA را میزنم 0 نشون میده بقیه هم که کلا کار نمیکنند
ممنون میشم بازم راهنماییم کنید

$regfile = "m16def.dat"
$crystal = 8000000
Config Portb = Output
Config Kbd = Portd , Debounce = 50 , Delay = 1
Dim A As Byte
Dim B As Byte
Do
A = Getkbd()
If A < 16 Then
Select Case A
Case 0:
B = &B00000110
Case1:
B = &B01011011
Case2:
B = &B01001111
Case4:
B = &B01100110
Case5:
B = &B01101101
Case6:
B = &B01111101
Case8:
B = &B00000111
Case9:
B = &B01111111
Case10:
B = &B01101111
Case14:
B = &B00111111
End Select
Portb = B
End If
Loop
End

ضمنا پروتئوس هم این خطا را میده
LOGIC CONTENTIONS DETECTED ON NET 00015
LOGIC CONTENTIONS DETECTED ON NET 00011

[erfan m]

پاسخ : چراغ راهنمایی قابل تنظیم

سلام

اول صحفه کیلک رو تست کنید ببینید سالمه

$regfile = "m16def.dat"
$crystal = 8000000
Config Portb = Output
BAUD=9600
Config Kbd = Portd , Debounce = 50 , Delay = 1
Dim A As Byte
Dim B As Byte
Do
A = Getkbd()
If A < 16 Then
PRINT A
End If
Loop
End

[navid_sa_198]

پاسخ : چراغ راهنمایی قابل تنظیم

امتحان کردم سالمه مشکل از این جاست که باید تو پروتئوس بین کیپد و میکرو از مقاومت استفاده کنم

هر عددی که میزنم تو سگمنت نشون میده حالا میخوام بعد وارد کردن عدد و زدن دکمه set از کیپد شروع به شمارش معکوس تا 0 کنه دستورش جه چوری میشه؟
بازمم ممنمو ن از کمکتون

[erfan m]

پاسخ : چراغ راهنمایی قابل تنظیم

یه CASE دیگه یا شرط میزارید با دستور DECR VAR از متغیر VAR یک واحد کم میکنه بعد می تونید 1- هم بنویسید که از متغیر کم کنه با تابع های ریاضی

[navid_sa_198]

پاسخ : چراغ راهنمایی قابل تنظیم

برنامه را به صورت شکل زیر تغییر دادم ولی وقتی عدد را وارد میکنم بدون اینکه set را بزنم شروع به تغییر میکنه و درست نشون نمیده

$regfile = "m16def.dat"
$crystal = 8000000
Config Portb = Output
Config Kbd = Portd , Debounce = 50 , Delay = 1
Dim A As Byte
Dim B As Byte
Dim I As Byte
Do
A = Getkbd()
If A < 16 Then
Select Case A
Case 0:
B = &B00000110
Case 1:
B = &B01011011
Case 2:
B = &B01001111
Case 4 :
B = &B01100110
Case 5:
B = &B01101101
Case 6:
B = &B01111101
Case 8:
B = &B00000111
Case 9:
B = &B01111111
Case 10:
B = &B01101111
Case 13:
B = &B00111111
Case 12:
For I = B To 0 Step -1
Portb = Makebcd(i)
Wait 1
Next I
End Select
Portb = B
End If
Loop
End 

[navid_sa_198]

پاسخ : چراغ راهنمایی قابل تنظیم

اقا حل شد مشکل از پروتئوس بود

الان می خوام سه بار از صفحه کلید دستور بگیرم دکمه اول عدد اول را بده و دکمه دوم عدد دوم را سپس بعد از زدن set شروع به شمارش معکوس کنه مثلا بار اول 3 را میزنیم و بار دوم 4 را بعد set حالا باید ار 34 شروع به شمارش معکوس کنه میتونین برنامه اش را واسم بنویسین؟
ممنون میشم از لطفطون

[navid_sa_198]

پاسخ : چراغ راهنمایی قابل تنظیم

کسی نیست کمک کنه؟؟؟؟؟؟
:sad: