کمک در عمل نکردن مدار

[mrs049]

سلام خسته نباشید اساتید
مدار RC5از یک سایت دانلود کردم و مدارش را بستم ولی در عمل کار نکرد که لینکش در زیر است:
http://s4.picofile.com/file/8168530368/Project_RC5_Download4All_rzb_ir_.rar.html
از استاتید خواهش مندم اگر مدارRC5که در عمل جواب گرفته اند را به من معرفی کنند باید به عنوان پروژه آخر ترم تحویل بدم. با تشکر فراوان :nice:

---

اضافه شده در تاریخ :
استاتید و مهندسان گرامی کسی نیست جواب مرا بده؟ :cry: :cry:

---

اضافه شده در تاریخ :
بابا یک مهندس پیدا نمی شه جواب ما را بده :angry: :angry:

[md3848]

پاسخ : کمک در عمل نکردن مدار

داش تقصیر خودته.....یه فایل گزاشتی و توقع داری....
بگزریم...
کد های پروژت+شماتیک رو اینجا قرار بدی بهتره به نظرم.....

[mrs049]

پاسخ : کمک در عمل نکردن مدار

سلام مهندسان جان دستت درد نکنه بالاخره یکی جواب ما را داد
اول از همه برنامه فرسنده :

$regfile = "m8def.dat"
$crystal = 4000000
$lib "mcsbyte.lbx"
Config Portd = Input
Config Portb.1 = Output
Dim Togbit As Byte , Command As Byte , Address As Byte
Enable Interrupts
Togbit = 0
Address = 0
Command = 0
Strl:
Do
If Pind.0 = 1 Then Command = 1
If Pind.1 = 1 Then Command = 3
If Pind.2 = 1 Then Command = 5
If Pind.3 = 1 Then Command = 7
If Pind.4 = 1 Then Command = 8
If Pind.5 = 1 Then Command = 6
If Pind.6 = 1 Then Command = 4
If Pind.7 = 1 Then Command = 2
If Command = 0 Then Goto Strl
Rc5send Togbit , Address , Command
Waitms 100
Command = 0
Loop
End

که نقشه اش در فایل زیر است:
http://s4.picofile.com/file/8169262868/f.rar.html


این هم گیرنده:

$regfile = "m8def.dat"
$crystal = 4000000
$lib "mcsbyte.lbx"
Config Portd = Output
Config Rc5 = Pinb.3 , Timer = 2
Enable Interrupts
Dim Address As Byte , Command As Byte
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Cls
Lcd "Waiting for RC5"
Locate 2 , 1
Lcd "Press Any Key"
Do
Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
If Command = 1 Then Toggle Portd.0
If Command = 2 Then Toggle Portd.1
If Command = 3 Then Toggle Portd.2
If Command = 4 Then Toggle Portd.3
If Command = 5 Then Toggle Portd.4
If Command = 6 Then Toggle Portd.5
If Command = 7 Then Toggle Portd.6
If Command = 8 Then Toggle Portd.7
Cls
Lcd "Address = " ; Address
Locate 2 , 1
Lcd "command = " ; Command
Waitms 1
End If
Loop
End

که نقشه اش در فایل زیر است:
http://s5.picofile.com/file/8169262900/g.rar.html

---

اضافه شده در تاریخ :
استاتید برنامه و شماتیک آن را گذاشتم کسی می تونه بگه مشکل من کجاست؟ :angry: :angry: :angry: :cry:

---

اضافه شده در تاریخ :
من چه گناهی کردم چرا یکی جواب منو نمیده؟ :angry: :angry: :angry:

[91271186]

پاسخ : کمک در عمل نکردن مدار

سلام دوستان
من یه کد نوشتم برای ساعت با ال سی دی حالا 4 تا ارور داره من خیلی اینکاره نیستم زحمت می افتید اگر کامپایل کنید یا راهنمایی بفرمایید .
پیشاپیش از همکاری شما سپاسگزارم.

#include <mega16.h>
#include <delay.h>
#include <alcd.h>
void main(){

int saat=00;
int deyghe=00;
lcd_init(16);
lcd_clear();
lcd_putsf("saat chande?"
delay_ms(2000);
DDRA=0xff;
DDRC=0x00;

if(PINC.1==0){
saat=saat++
}

if(PINC.2==0){
deyghe=deyghe++
}
delay_ms(10000);
while(1)
{



deyghe=deyghe++
delay_ms(60);

if(deyghe==60)
{
saat=saat++
}

if(saat==12)
{
saat=0
}

sprintf(b,"saat =%d",saat);
lcd_puts(b);
sprintf(c,"deyghe =%d",deyghe);
lcd_puts(c);

}

}

[moslem1368]

پاسخ : کمک در عمل نکردن مدار

استاتید برنامه و شماتیک آن را گذاشتم کسی می تونه بگه مشکل من کجاست؟ :angry: :angry: :angry: :cry:

چرا جواب نمیده؟
فکر میکنی مشکل از کجاست