کمک اولیه در مورد برنامه نویسی UART با بسکام

[masoud_m_bf]

سلام
امیدوارم پستم تکراری نباشه
من از برنامه نویسی UART چیزی نمیدونم! :redface:
حالا میخوام 3تا عدد 10بیتی(در واقع یک مقدار ثابت که به عنوان کد برای تشخیص فرستنده-گیرنده محسوب میشه و دو مقدار تبدیل شده از آنالوگ که همگی بین 0 تا 1023 هستند) رو داخل یه لوپ مرتب با HMT-HMR بفرستم و دریافت کنم
اما نمیدونم برای ارسال و دریافتش باید از چه دستورهایی استفاده کنم
من با بسکام کار میکنم
ممنون میشم دوستان راهنماییم کنن تا راه بیافتم

[aria7012]

HMT-HMR رو من راه انداختم واسه آز-مخابرات.
اینجا برنامشو میذارم. هر قسمتشو که متوجه نشدی بپرس.

فرستنده :

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Dim S As String * 16
S = "MyCode"
Cls
'////////////////////////////////////////
Do
Print Chr(2) ; S ; Chr(13)
Waitms 75
Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End 'end program

گیرنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2
Config Pind.2 = Output 'HM-R Enable
Dim R As String * 16
Dim A As Byte
'++++++++++++++++++++++++++++++++++++++++++++ ++++++++
Cursor Off Noblink
Cls
Portd.2 = 1
Waitms 100
'////////////////////////////////////////
Do
A = Inkey()
If A = 2 Then
Cls
Input R
Home : Lcd R ; " "
Waitms 50
End If
Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End

[masoud_m_bf]

HMT-HMR رو من راه انداختم واسه آز-مخابرات.
اینجا برنامشو میذارم. هر قسمتشو که متوجه نشدی بپرس.

خیلی خیلی ممنون

فرستنده :

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800

$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Dim S As String * 16
S = "MyCode"
Cls
'////////////////////////////////////////
Do
Print Chr(2) ; S ; Chr(13)
Waitms 75
Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End 'end program

گیرنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2
Config Pind.2 = Output 'HM-R Enable
Dim R As String * 16
Dim A As Byte
'++++++++++++++++++++++++++++++++++++++++++++ ++++++++
Cursor Off Noblink
Cls
Portd.2 = 1
Waitms 100
'////////////////////////////////////////
Do
A = Inkey()
If A = 2 Then
Cls
Input R
Home : Lcd R ; " "
Waitms 50
End If
Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End

ممنون میشم اگه قسمتهای قرمز رنگ رو توضیح بدین که دقیقا چیکار میکنه؟
و این که با دستور های زرد رنگ چه نوع متغیری رو میشه ارسال و دریافت کرد؟

باز هم تشکر

[DDR3]

این قسمت
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
مربوط به تنظیمات برنامه هست و تنظیمات استک میکرو هست
دستور PRINT هم یک داده را به پورت سریال ارسال میکند

[masoud_m_bf]

این قسمت
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
مربوط به تنظیمات برنامه هست و تنظیمات استک میکرو هست
دستور PRINT هم یک داده را به پورت سریال ارسال میکند

مرسی
داده از چه نوعی؟

[erfan m]

سلام

برای ارسال 10 بیت میتونید تنظیمات UART رو 10 بیتی کنید

تنظیمات استاندارد 8 بیتی هست که می تونید 4 تا عدد 8 بیتی رو بفرسید بعد باهم جمع بشن 10 بیتی بشن

حالا شما سه تا 10 بیتی رو می خوای ارسال کنی باید 12 تا 8 هشت بیتی رو بفرسی که با ادرس اسلیو میشه 13 بایت

حالا برای چی ادرس اسلیو :

http://www.eca.ir/forum2/index.php?action=thankyoupostlist;topic=60112.0;ms g=336239

[masoud_m_bf]

سلام

برای ارسال 10 بیت میتونید تنظیمات UART رو 10 بیتی کنید

تنظیمات استاندارد 8 بیتی هست که می تونید 4 تا عدد 8 بیتی رو بفرسید بعد باهم جمع بشن 10 بیتی بشن

حالا شما سه تا 10 بیتی رو می خوای ارسال کنی باید 12 تا 8 هشت بیتی رو بفرسی که با ادرس اسلیو میشه 13 بایت

حالا برای چی ادرس اسلیو :

http://www.eca.ir/forum2/index.php?action=thankyoupostlist;topic=60112.0;ms g=336239

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

بعد میشه یکی بگه فرکانس کاری این ماژولها چجوره؟ چنده؟

[masoud_m_bf]

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

[masoud_m_bf]

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

از اونطرف فرستنده اینو بگیره
عدد ثابت رو چک کنه(همون اسلیو که دوستمون گفتن)
بعد برابر اون دوتا عدد دیگه موج PWM بده
خیلی سادست فقط من نمیتونم ارسال و دریافت کنم :cry2:

[baby_1]

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

$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
'===================
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim A As Word
Dim B As Word
Dim S As String * 15

Do
A = Getadc(0)
B = Getadc(1)
S = Str(a)
S = S + Str(b)
S = S + "10"
Print S
Waitms 100
Loop

تا اینجا متوجه می شین چه کار کردم؟
برنامه رو روی میکرو بریزین باید LED مربوط به HMR-tr فرستنده و گیرنده چشمک بزنه فرستنده به معنای اینکه فرستاده و گیرنده به معنای آنکه گرفته

من عدد ثابت رو 10 در نظر گرفتم و در انتهای رشته قرار می دم ، پیشنهاد می کنم بین اعداد هم کارکترهایی قرار بدین برای شناسایی و جدا سازی اعداد و یا ثابت کردن اعداد روی فرمت 4 رقمی.

تا اینجا تست کنین خبر بدین