مشکل با پروتیوس

[milad brave]

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

$regfile = "m32def.dat"
$crystal = 8000000
'----------
Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = _
Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Cursor Off
Config Kbd = Portd , Delay = 80
Config Portb = Output
Config Portd = Input
Dim A As Byte , B As Byte , C As Byte , D As Byte

Main:

Do
A = Getkbd()
C = Lookup(a , F)
If A > 15 Then Goto Main
Cls
Lcd A
Loop
End

F:
Data 7 , 4 , 1 , 15 , 8 , 5 , 2 , 0 , 9 , 6 , 3 , 14 , 10 , 11 , 12 , 13 , 16


http://8pic.ir/images/kpvhfmf7xklm6xwyq2e2.png

[silicon0]

پاسخ : مشکل با پروتیوس

من در عمل با یه ال سی دی 2*16 و این برنامه جواب گرفتم :

$regfile = "m32def.dat"
$crystal = 8000000
'----------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pb.0 , Db5 = Pb.1 , Db6 = Pb.2 , Db7 = _
 Pb.3 , E = Pb.5 , Rs = Pb.4
Cursor Off
Config Kbd = Portd , Delay = 80
Dim A As Byte , B As Byte , C As Byte , D As Byte

Main:

Do
A = Getkbd()
C = Lookup(a , F)
If A > 15 Then Goto Main
Cls
Lcd A
Loop
End

F:
Data 7 , 4 , 1 , 15 , 8 , 5 , 2 , 0 , 9 , 6 , 3 , 14 , 10 , 11 , 12 , 13 , 16

[ry.mohammad]

پاسخ : مشکل با پروتیوس

سلام

این شماتیک رو رسم کن
مشاهده شماتیک

بعد این کد رو جایگزین کد قبلیت کن

[code=c]$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = _
Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Cursor Off
Config Kbd = Portd , Delay = 80
Config Portb = Output
Config Portd = Input
Dim A As Byte , B As Byte , C As Byte , D As Byte
Cls
Main:
Do
A = Getkbd()
C = Lookup(a , F)
If A > 15 Then Goto Main
Locate 1 , 1
Lcd C ; " "
Loop
End

F:
Data 7 , 8 , 9 , 16 , 4 , 5 , 6 , 16 , 1 , 2 , 3 , 16 , 16 , 0 , 16 , 16[/code]

[محمد مومنی22]

پاسخ : مشکل با پروتیوس

من در عمل با یه ال سی دی 2*16 و این برنامه جواب گرفتم :

$regfile = "m32def.dat"
$crystal = 8000000
'----------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pb.0 , Db5 = Pb.1 , Db6 = Pb.2 , Db7 = _
 Pb.3 , E = Pb.5 , Rs = Pb.4
Cursor Off
Config Kbd = Portd , Delay = 80
Dim A As Byte , B As Byte , C As Byte , D As Byte

Main:

Do
A = Getkbd()
C = Lookup(a , F)
If A > 15 Then Goto Main
Cls
Lcd A
Loop
End

F:
Data 7 , 4 , 1 , 15 , 8 , 5 , 2 , 0 , 9 , 6 , 3 , 14 , 10 , 11 , 12 , 13 , 16

سلام
دوست عزیز اگر در پرتوس مقاومت بین پین های میکرو و کی پد نگذاری جواب نمیده.مقاومت بگذار درست میشه

[h.torabi]

پاسخ : مشکل با پروتیوس

سلام
دوست عزیز اگر در پرتوس مقاومت بین پین های میکرو و کی پد نگذاری جواب نمیده.مقاومت بگذار درست میشه

چیکار مقاومت داره شما ی LED بدون مقاوت وصل کن به میکرو توی PROTUSE
ببین LED میسوزه یا کار میکنه؟!








معلومه که کار میکنه
نه مشکل از جای دیگس....

[h.torabi]

پاسخ : مشکل با پروتیوس

دوست عزیز اینکه میگس جواب نمیده کلا برنامه کار نمیکنه مثلا رو LCD هیچس نشون نمیده

یا کار میکنه ولی اصلا خروجی نمیده؟؟؟؟

[milad brave]

پاسخ : مشکل با پروتیوس

اون کدهای بالا رو زدم ولی باز ج نگرفتم
پورت b کلا خاکستری (همون ک به ال سی دی وصله)

[محمد مومنی22]

پاسخ : مشکل با پروتیوس

چیکار مقاومت داره شما ی LED بدون مقاوت وصل کن به میکرو توی PROTUSE
ببین LED میسوزه یا کار میکنه؟!

سلام
دوست عزیز کی پد در پرتوس اینجوره که اگر مقاومت نگذاری جواب نمیده یا اعداد رو اشتباه نشون میده.
میتونید خودتون تست کنید و نتیجه رو ببینید.








معلومه که کار میکنه
نه مشکل از جای دیگس....

[milad brave]

پاسخ : مشکل با پروتیوس

دوستان کمک کنید لطفا

[اشکان غفارزاده]

پاسخ : مشکل با پروتیوس

دوستان کمک کنید لطفا

بیا از این استفاده کن و خودتو خلاص کن
مقاومت هم نمیخواد راحت وصل کن به میکرو
فایل پروتئوس
http://cld.persiangig.com/dl/mRGYT/eR9N9slXFB/keypad.dsn

[milad brave]

پاسخ : مشکل با پروتیوس

اینجوریشو ک از اولم میزاشتم باید کیپد باشه :sad: :sad:

[silicon0]

پاسخ : مشکل با پروتیوس

اینم فایل پروتئوس و برنامه که کار هم میکنه فقط باید در جدول مقادیر رو دستکاری کنید تا اعداد خروجی درست بشن :
http://www.mediafire.com/download/9ossz3y7zuow978/keypad-test.zip

[milad brave]

پاسخ : مشکل با پروتیوس

مهندس دستت درد نکنه
الان دارم اون اعداد جا به جا میکنم
بنظرت چرا مدار من کار نمیکرد؟؟؟؟
تقریبا شبیه هم بود آخه؟!! :read:

[milad brave]

پاسخ : مشکل با پروتیوس

راستش با این دیتای آخرتم به مشکل برخوردم هر چقدر تغییر میدم اصلا اعداد تکون نمیخورن :biggrin:

[masoud.moghaddam21]

پاسخ : مشکل با پروتیوس

سلام مهندس
یه لینک میزارم دانلودش کن
عدد دو رقمی رو از کیپد میگیره و هم رو lcd و هم 7 سگمنت نمایش میده و با زدن یک کلید که تو پروتئوس مشخصش کردم بطور معکوس عدد وارد شده رو ازش یه واحد یه واحد کم میکنه
فک میکنم مشکلتو حل کنه
اگه بازم مشکلی داشتی در خدمتم

http://uploadkon.ir/fl/d/NDQ4MDE%3D