فرستنده و گیرنده دیتا ask434

[r.p]

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

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


$regfile = "m16def.dat"
$crystal = 8000000
$baud = 4800
Dim A As Byte
Config Portb = Output
Do
Input A
If A = 203 Then Set Portb.0
Loop



فرستنده:

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 4800
Dim A As Byte
Config Portb = Input
Do
If Pinb.0 = 1 Then
A = 203
Print A
End If
Loop

شاید برنامه ام ایراد داره!! :mrgreen:

[mohsen.hex]

پاسخ : فرستنده و گیرنده دیتا ask434

اگه میشه یه مقدار درمورد این فرستنده گیرنده توضیح بدین تا من هم بدونم چیه شاید بتونم کمکت کنم :nerd:

[ocsillator]

پاسخ : فرستنده و گیرنده دیتا ask434

If Pinb.0 = 1 Then
مطمئن نیستم که اینطوری بشه

[mohsen.hex]

پاسخ : فرستنده و گیرنده دیتا ask434

If Pinb.0 = 1 Then
مطمئن نیستم که اینطوری بشه

نه عزیز این دستورش درست نوشته شده :agree:

[r.p]

پاسخ : فرستنده و گیرنده دیتا ask434

در چه موردی توضیح بدم ؟؟؟؟

تو مدار فقط از یک فرستنده و گیرنده استفاده کردم با میکرو ای وی ار جداگانه برای هر کدام برای فرستنده یک کلید گذاشتم که اگه اونو فشار بدیم تو قسمت گیرنده یک led روشن بشه
فقط همین
ولی نمیدونم اشکالم کجاست که جواب نمیده

[chia]

پاسخ : فرستنده و گیرنده دیتا ask434

سلام
شما اول این مدارتو تو پروتئوس ببند و از ارتباط اطمینان حاصل کن بعد عملی ببند

[r.p]

پاسخ : فرستنده و گیرنده دیتا ask434

سلام
شما اول این مدارتو تو پروتئوس ببند و از ارتباط اطمینان حاصل کن بعد عملی ببند

دوست عزیز فرستنده و گیرنده رو چطور انتخاب کنم ؟کدوم قسمته؟ :redface:

[yavar133]

پاسخ : فرستنده و گیرنده دیتا ask434

سلام . ببخشید کسی میتونه این برنامه رو با کدویژن بنویسه ؟ممنون :biggrin:

[chia]

پاسخ : فرستنده و گیرنده دیتا ask434

دوست عزیز فرستنده و گیرنده رو چطور انتخاب کنم ؟کدوم قسمته؟ :redface:

نه منظور من بدون فرستنده و گیرنده است

مستقیم به هم وصلشون کن

[ocsillator]

پاسخ : فرستنده و گیرنده دیتا ask434

فرستنده

$regfile = "m32def.dat"
$crystal = 8000000
Dim A As Byte
Ddrb = 253
Set Portb.1
Do
A = pinb.1
If A=0 Then set pinb.0
If A=1 Then reset pinb.0
Loop


'گیرنده

$regfile = "m16def.dat"
$crystal = 8000000
Dim A As Byte
ddra=254
set porta.0
Do
a=pina.0
If A=0 Then Set Porta.1
If A=1 Then reSet Porta.1
Loop

این جواب میده. باید portb.0 میکروی فرستنده به porta.0 میکروی گیرنده وصل باشه. کلید به portb.1 فرستنده و سر دیگه اش به زمین وصل باشه. porta.1 هم خروجی شما هست که 1 میشه.

[r.p]

پاسخ : فرستنده و گیرنده دیتا ask434

اقای chia من کاری که گفته بودین رو انجام دادم با همون برنامه خودم کار کرد.
ولی چرا عملی جواب نمیده؟

[r.p]

پاسخ : فرستنده و گیرنده دیتا ask434

فرستنده

$regfile = "m32def.dat"
$crystal = 8000000
Dim A As Byte
Ddrb = 253
Set Portb.1
Do
A = pinb.1
If A=0 Then set pinb.0
If A=1 Then reset pinb.0
Loop



'گیرنده

$regfile = "m16def.dat"
$crystal = 8000000
Dim A As Byte
ddra=254
set porta.0
Do
a=pina.0
If A=0 Then Set Porta.1
If A=1 Then reSet Porta.1
Loop

این جواب میده. باید portb.0 میکروی فرستنده به porta.0 میکروی گیرنده وصل باشه. کلید به portb.1 فرستنده و سر دیگه اش به زمین وصل باشه. porta.1 هم خروجی شما هست که 1 میشه.

دوست عزیز میتونین در مورد این دستور توضیح بدین؟ ddra=254
ممنون از راهنمایی

[chia]

پاسخ : فرستنده و گیرنده دیتا ask434

اقای chia من کاری که گفته بودین رو انجام دادم با همون برنامه خودم کار کرد.
ولی چرا عملی جواب نمیده؟

پس مشکل از فرستنده و گیرنده است

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

از روی دیتاشیت طریقه ی نصب پایه ها و نحوه ی ارسال و دریافت رو رعایت کن

من که با ASK کار نکردم ولی از دوستی شنیدم که میگفت کار کردن باهاش سخته

گفت که نتونسته راهش بندازه و همینجور ی رودستش مونده بود (البته من فقط شنیدم)

شما سعی خودتون رو بکنید

[ocsillator]

پاسخ : فرستنده و گیرنده دیتا ask434

دوست عزیز میتونین در مورد این دستور توضیح بدین؟ ddra=254
ممنون از راهنمایی

این یعنی یک رجیستر به نام ddra برابر 11111110 میشه و معنا و مفهوم آن این است که porta.0 پایه ورودی و porta.1 تا porta.7 خروجی تعریف شده اند.

[mohsen.hex]

پاسخ : فرستنده و گیرنده دیتا ask434

دوست عزیز این فرستنده شما با گیرنده چقدر باید فاصله داشته باشه تا ببینیم مقرون به سرفه ترین راه چیه