مشکل با کیپد و سون سگمنت

[a302866a]

با سلام
دوستان میخام یه برنامه ای بنویسم که از کیپد یه عدد دو رقمی بگیرم و روی سون سکمن نشون بدم
ولی همین اول کار گیر کردم
مشکل اینجاست که میکر عدد که از کیپد میگیره روی LCD نشون میده ولی روی سون سگمنت نه
LCD فقط واسه تست صحت برنامست
منتظر جوابتون هستم :bye
با تشکر
کد برنامه

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Kbd = Portb , Debounce = 50 , Delay = 25
Config Portc = Output
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim Dahegan As Byte
Dim Yekan As Byte
Dim Key As Byte
Dahegann Alias Portc.4
Yekann Alias Portc.5
Dahegan = 4
Yekan = 5

Main:
Do
Key = Getkbd()
If Key >= 16 Then
Gosub Main
Else
Key = Lookup(key , Dta)
Locate 1 , 1
Lcd Key
Yekan = Key
Gosub Nemayesh
End If
Loop
End

Nemayesh:
Portc = Yekan
Set Yekann
Reset Yekann

Portc = Dahegan
Set Dahegann
Reset Dahegann
Return

Dta:
Data 1 , 4 , 7 , 10 , 2 , 5 , 8 , 0 , 3 , 6 , 9 , 11

شماتیک سخت افزار

[SAMAN.ASADI]

پاسخ : مشکل با کیپد و سون سگمنت

با سلام
دوستان میخام یه برنامه ای بنویسم که از کیپد یه عدد دو رقمی بگیرم و روی سون سکمن نشون بدم
ولی همین اول کار گیر کردم
مشکل اینجاست که میکر عدد که از کیپد میگیره روی LCD نشون میده ولی روی سون سگمنت نه
LCD فقط واسه تست صحت برنامست
منتظر جوابتون هستم :bye
با تشکر
کد برنامه

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Kbd = Portb , Debounce = 50 , Delay = 25
Config Portc = Output
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim Dahegan As Byte
Dim Yekan As Byte
Dim Key As Byte
Dahegann Alias Portc.4
Yekann Alias Portc.5
Dahegan = 4
Yekan = 5

Main:
Do
Key = Getkbd()
If Key >= 16 Then
Gosub Main
Else
Key = Lookup(key , Dta)
Locate 1 , 1
Lcd Key
Yekan = Key
Gosub Nemayesh
End If
Loop
End

Nemayesh:
Portc = Yekan
Set Yekann
Reset Yekann

Portc = Dahegan
Set Dahegann
Reset Dahegann
Return

Dta:
Data 1 , 4 , 7 , 10 , 2 , 5 , 8 , 0 , 3 , 6 , 9 , 11

شماتیک سخت افزار

سلام
سون سگمنت شما چه نوعی هست ؟؟
کاتد مشترک یا آند مشترک ؟؟