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

[masoud_m_bf]

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

[aria7012]

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

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]

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

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]

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

این قسمت
$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]

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

این قسمت
$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]

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

سلام

برای ارسال 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]

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

سلام

برای ارسال 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]

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

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

[masoud_m_bf]

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

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

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

[baby_1]

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

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

$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 رقمی.

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

[aria7012]

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

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



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

باز هم تشکر

قسمت قرمز رو که دوستمون توضیح داد. اگه بخوام ساده بگم بهتره تو برنامه هایی که برای UART , I2C , SPI مینویسیم این سه خط رو قرار بدیم.

چند نکته :
1-دستور Inkey یک بایت رو دریافت میکنه
دستور print یک رشته رو چاپ میکنه. رشته یعنی متغیر از نوع string که به فرمت کارکتر هست مثل "Salam123"
2- دستور Input یک رشته ورودی رو دریافت میکنه.

chr(2) کد اسکی 2 و chr(13) کد اسکی 13 هستند.


حالا کارایی که تو برنامه انجام دادم.
در فرستنده:
خط Print Chr(2) ; S ; Chr(13) ابتدا کد اسکی 2 رو از طریق پورت سریال میفرسته و به دنبالش متغیر s و به دنبالش کد اسکی 13
کدهای 2 و 13 بعنوان بایتهای آغاز و پایان داده ی اصلی (متغیر s ) استفاده شده اند. در واقع داده ی اصلی رو بین این دو کد قرار میدیم که بدونیم کجا شروع شد و کجا تموم شد.

در گیرنده:
inkey میاد یه بایت میخونه اگه 2 بود (یعنی دنبالش قراره داده اصلی من بیاد) پس با دستور input کل داده رو میگیرم و تو متغیر R ذخیره میکنم. به همین سادگی.

ارتباط سریال خودش کد 13 رو بعنوان پایان رشته ی ورودی میشناسه پس نیاز نیست آخرشو چک کنیم.


حالا تغییراتی که شما باید انجام بدین:

بعد از اینکه مقدار پتانسیومترها رو با ADC خوندی اونا رو تو دوتا متغیر مثلا Pot1 و Pot2 قرار میدی. اون مقدار ثابتت رو هم مثلا تو متغیر F قرار میدی.
حالا باید این متغیر ها رو به رشته تبدیل کنی. وقتی به رشته تبدیل شد دیگه مهم نیست عددت مثل 250 هشت بیتی باشه یا مثل 1023 ده بیتی. چون به یه متن تبدیل میشه بصورت "1023"
حالا این متغیرها رو با دستور print ارسال میکنی.
اما یک مساله مهم اینکه وقتی تو گیرنده دیتا رو گرفتی بدونی مثلا کدوم مال پتانسیومتر اوله کدوم مال دومی و کدوم عدد ثابتته. اینجاست که اون کد اسکی به درد میخوره. مثلا از کد 2 واسه POT1 از کد 3 واسه POT2 و از کد 4 واسه F استفاده میکنیم. آخر همشون کد 13 ثابته.

پس برنامه رو یه بار دیگه مینویسم.

اگه با ADC و PWM مشکل داشتی بپرس که اونم اضافه کنم که برنامه کل صفحه رو بگیره :biggrin:


فرستنده :

$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 Pot1 As Word , Pot2 As Word , A As Word
Dim Pot1_s As String * 16
Dim Pot2_s As String * 16
Dim A_s As String * 16
Cls

Pot1 = 1022
Pot2 = 555
A = 777

'////////////////////////////////////////
Do
Pot1_s = Str(pot1)
Print Chr(2) ; Pot1_s ; Chr(13)
Waitms 500

Pot2_s = Str(pot2)
Print Chr(3) ; Pot2_s ; Chr(13)
Waitms 500

A_s = Str(a)
Print Chr(4) ; A_s ; Chr(13)
Waitms 500

Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End

گیرنده:

$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
Dim F As Word , Pot1 As Word , Pot2 As Word
'++++++++++++++++++++++++++++++++++++++++++++ ++++++++
Cursor Off Noblink
Cls
Portd.2 = 1
Waitms 100
'////////////////////////////////////////
Do
A = Inkey()
If A = 2 Then
Cls
Input R
Pot1 = Val(r)
Home : Lcd "Pot1=" ; Pot1 ; " "
Waitms 200
Elseif A = 3 Then
Cls
Input R
Pot2 = Val(r)
Home : Lcd "Pot2=" ; Pot2 ; " "
Waitms 200
Elseif A = 4 Then
Cls
Input R
A = Val(r)
Home : Lcd "A=" ; A ; " "
Waitms 200
End If
Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End

موفق باشی

[masoud_m_bf]

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

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

$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 رقمی.

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

اگه بگم هنوز ماژول نخریدم دعوام میکنین؟ :cry2:
یعنی رفتم بخرم آ
بعد گفت فرکانسش چند باشه منم موندم دیگه گفتم اول از شما بپرسم

[masoud_m_bf]

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

قسمت قرمز رو که دوستمون توضیح داد. اگه بخوام ساده بگم بهتره تو برنامه هایی که برای UART , I2C , SPI مینویسیم این سه خط رو قرار بدیم.

چند نکته :
1-دستور Inkey یک بایت رو دریافت میکنه
دستور print یک رشته رو چاپ میکنه. رشته یعنی متغیر از نوع string که به فرمت کارکتر هست مثل "Salam123"
2- دستور Input یک رشته ورودی رو دریافت میکنه.

chr(2) کد اسکی 2 و chr(13) کد اسکی 13 هستند.


حالا کارایی که تو برنامه انجام دادم.
در فرستنده:
خط Print Chr(2) ; S ; Chr(13) ابتدا کد اسکی 2 رو از طریق پورت سریال میفرسته و به دنبالش متغیر s و به دنبالش کد اسکی 13
کدهای 2 و 13 بعنوان بایتهای آغاز و پایان داده ی اصلی (متغیر s ) استفاده شده اند. در واقع داده ی اصلی رو بین این دو کد قرار میدیم که بدونیم کجا شروع شد و کجا تموم شد.

در گیرنده:
inkey میاد یه بایت میخونه اگه 2 بود (یعنی دنبالش قراره داده اصلی من بیاد) پس با دستور input کل داده رو میگیرم و تو متغیر R ذخیره میکنم. به همین سادگی.

ارتباط سریال خودش کد 13 رو بعنوان پایان رشته ی ورودی میشناسه پس نیاز نیست آخرشو چک کنیم.


حالا تغییراتی که شما باید انجام بدین:

بعد از اینکه مقدار پتانسیومترها رو با ADC خوندی اونا رو تو دوتا متغیر مثلا Pot1 و Pot2 قرار میدی. اون مقدار ثابتت رو هم مثلا تو متغیر F قرار میدی.
حالا باید این متغیر ها رو به رشته تبدیل کنی. وقتی به رشته تبدیل شد دیگه مهم نیست عددت مثل 250 هشت بیتی باشه یا مثل 1023 ده بیتی. چون به یه متن تبدیل میشه بصورت "1023"
حالا این متغیرها رو با دستور print ارسال میکنی.
اما یک مساله مهم اینکه وقتی تو گیرنده دیتا رو گرفتی بدونی مثلا کدوم مال پتانسیومتر اوله کدوم مال دومی و کدوم عدد ثابتته. اینجاست که اون کد اسکی به درد میخوره. مثلا از کد 2 واسه POT1 از کد 3 واسه POT2 و از کد 4 واسه F استفاده میکنیم. آخر همشون کد 13 ثابته.

پس برنامه رو یه بار دیگه مینویسم.

اگه با ADC و PWM مشکل داشتی بپرس که اونم اضافه کنم که برنامه کل صفحه رو بگیره :biggrin:


فرستنده :

$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 Pot1 As Word , Pot2 As Word , A As Word
Dim Pot1_s As String * 16
Dim Pot2_s As String * 16
Dim A_s As String * 16
Cls

Pot1 = 1022
Pot2 = 555
A = 777

'////////////////////////////////////////
Do
Pot1_s = Str(pot1)
Print Chr(2) ; Pot1_s ; Chr(13)
Waitms 500

Pot2_s = Str(pot2)
Print Chr(3) ; Pot2_s ; Chr(13)
Waitms 500

A_s = Str(a)
Print Chr(4) ; A_s ; Chr(13)
Waitms 500

Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End

گیرنده:

$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
Dim F As Word , Pot1 As Word , Pot2 As Word
'++++++++++++++++++++++++++++++++++++++++++++ ++++++++
Cursor Off Noblink
Cls
Portd.2 = 1
Waitms 100
'////////////////////////////////////////
Do
A = Inkey()
If A = 2 Then
Cls
Input R
Pot1 = Val(r)
Home : Lcd "Pot1=" ; Pot1 ; " "
Waitms 200
Elseif A = 3 Then
Cls
Input R
Pot2 = Val(r)
Home : Lcd "Pot2=" ; Pot2 ; " "
Waitms 200
Elseif A = 4 Then
Cls
Input R
A = Val(r)
Home : Lcd "A=" ; A ; " "
Waitms 200
End If
Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End

موفق باشی

خیلی هم ممنون
عالی بود
فقط من میخوام همه اینا تو یه رشته ارسال بشه
مثلا به این فرم

C777A1022B555

میرم یکم با برنامه ور برم ببینم چی میشه
بازم میام آ

[baby_1]

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

سلام
لطفا ماژول رو تهیه کنین و سپس برنامه رو تست بگیرین که اینجوری وقتتون هم هدر ندیدن با دیدن کدها.فرکانسشون برای شما که نباید مهم باشه تنها کارکرد مد نظر هست.

[masoud_m_bf]

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

سلام
لطفا ماژول رو تهیه کنین و سپس برنامه رو تست بگیرین که اینجوری وقتتون هم هدر ندیدن با دیدن کدها.فرکانسشون برای شما که نباید مهم باشه تنها کارکرد مد نظر هست.

گفتم فعلا با بسکام تست کنم
آخه گفت اینایی که دارم بدرد نخور هستن
اگه میخوای فرکانس دقیقشو بگو تا واست بیارم
اینجا این تنها مغازه ای هست که میتونم ازش قطعه تهیه کنم :angry: :angry: :angry:
حالا یه فرکانس بگین بگم بیاره