0 تا 100 ارتباط سریال با بیسکام

[MohammadMers]

سلام
از اساتید محترم یکی بیاد این ارتباط سریالو کامل یعنی از اول تا آخرشو توضیح بده :angry:

پوست کلم کنده شد و این پروژه ما نشد :angry: :angry: :angry:
oo: oo: :cry: :cry:

[MohammadMers]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

کسی نبود؟

[milad brave]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

کسی نبود؟

دقیقا چی میخای بدونی؟؟؟کدوم زبان؟
ببین واسه ارتباط سریال چندین راه وجود داره من اونی ک انجام دادم میگم من واسه یه پروزه بازو از سریال استفاده کردم اول یه برنامه تو سی شارپ نوشتم به عنوان اینترفیس کامپیوتر با میکرو بعد یه برنامه هم واسه میکرو تو بسکام توشتم که اطلاعات بگیره از کامپیوتر...کابل هم از ttl to usbاستفاده کردم
بگو واسه چ کاری میخای ازش استفاده کنی

[MohammadMers]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

داداش شما دیگه چرا میگی کدوم زبون (!؟)

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


اینم کد فرستنده:

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Pinb.0 = Input
Config Pinb.1 = Input
Dim A As Byte
Dim Gf As String * 2
Dim Bf As String * 2
Gf = "ch"
Bf = "cc"
Do
Debounce Pinb.0 , 0 , G
Debounce Pinb.1 , 0 , H
Loop
End
G:
Printbin Gf
Return
H:
Printbin bf
return

اینم گیرنده:

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Dim Aa As String * 2
Config Pinc.5 = Output
Config Pinc.4 = Output
Do
inputbin aa
If Aa = "ch" Then
Set Pinc.5
Reset Pinc.4
Elseif Aa = "cc" Then
Reset Pinc.5
Set Pinc.4
End If
Loop
End                             'end program

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

[Javad Moosavi]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

سلام. نکته اول. خط دیتا رو با 4.7K یا 10K پول پ کن

[QUARK]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

سلام آقا مهندس خوبی ایشالا؟؟
یه زحمتی بکش اینکارایی که میگمو انجام بده بی زحمت.
اول اینکه داری شبیه سازی کار میکنی یا تو عمل؟؟؟؟
بعد سیم اتصال دو میکرو رو قطع کن ببین LED تو گیرنده خاموش روشن میشه یا نه؟؟؟
اگه نه تا الان درسته. اگه آره پس مشکل داره باید بگم یک نمونه نادره. چون تا حالا با این مشکل رو به رو نشدم
بعد سیمو وصل کن ببین LED روشن خاموش میشه یا نه؟؟؟
اگه آره تا الان درسته. اگه نه پس اتصالت مشکل داره و هیچی ارسال نمیشه.
ببین په اتفاقاتی میفته اینجا شرح بده؟؟؟

یه توضیح در مورد دستور input بدم که این آقای input خیلی بی تربیت هست و انقدر وایمیسته تا چیزی به پایه گیرنده برسه. پس با این برنامه مینونیم متوجه بشیم که ایا چیزی به ورودی هرچند غلط میرسه یا نه.

آقا این قضیه BF GF چیه؟؟؟؟ :mrgreen:

باشه من اینجا صحنه رو ترک میگم. B-)




اینم کد فرستنده:

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Pinb.0 = Input
Config Pinb.1 = Input
Dim A As Byte
Dim Gf As String * 2
Dim Bf As String * 2
Gf = "ch"
Bf = "cc"
Do
print "GF"
Loop
End

اینم گیرنده:

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Dim Aa As String * 2
Config Portc.5 = Output
Config Portc.4 = Output
Do
input Aa
set portc.5
waitms 100
reset portc.5
waitms 100
Loop
End                             'end program

[milad brave]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

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

http://s6.picofile.com/file/8212136492/usart.zip.html

[Javad Moosavi]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

ارتباط سریال جزو ساده ترین ارتباطات در بسکام هست. من در کد زیر تعریف می کنم اگر یک کلید فشرده شد به عنوان مثال حرف A از طریق ارتباط سریال با باودریت (سرعت) 9600 بیت بر ثانیه به گیرنده ارسال بشه و در گیرنده یک ال ای دی برای مدت دو ثانیه روشن بمونه و بعدش هم خاموش بشه. البته ارتباط سریال دقیق جزئیاتی هم داره مثلا برای تنظیم دقیق هر باودریت باید به دیتاشیت میکرو مراجعه کرد.

[code=vb]
'Receiver Microcontroller
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600

Config PINC.4 = Output
Config PINC.5 = Output


Enable Interrupts
Enable Urxc
On Urxc daryaft
Dim A as String * 1

Do

Loop

End

daryaft:
inputbin A

if A= "A" then
PortC.4 = 1
waitms 2000
end if
If A = "B" then
PortC.5 = 1
waitms 2000
end if
Return
[/code]

[code=vb]
'Transmitter Microcontroller
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600

Config PINB.0 = Input
Config PINB.1 = Input

Enable Interrupts
Enable Urxc

Do
If Pinb.0 = 0 Then Print "A"
Waitms 450
If Pinb.1 = 0 Then Print "B"
Waitms 450
Loop
End

[/code]

خلیی وفته سربازی اجازه کار الکترونیک نداده! خداکنه کد دریافت کننده خطا نداشته باشه. خصوصا قسمت input

موفق باشی- حتما اول در پروتئوس امتحان کن.

[MohammadMers]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

سلام آقا مهندس خوبی ایشالا؟؟
یه زحمتی بکش اینکارایی که میگمو انجام بده بی زحمت.
اول اینکه داری شبیه سازی کار میکنی یا تو عمل؟؟؟؟
بعد سیم اتصال دو میکرو رو قطع کن ببین LED تو گیرنده خاموش روشن میشه یا نه؟؟؟
اگه نه تا الان درسته. اگه آره پس مشکل داره باید بگم یک نمونه نادره. چون تا حالا با این مشکل رو به رو نشدم
بعد سیمو وصل کن ببین LED روشن خاموش میشه یا نه؟؟؟
اگه آره تا الان درسته. اگه نه پس اتصالت مشکل داره و هیچی ارسال نمیشه.
ببین په اتفاقاتی میفته اینجا شرح بده؟؟؟

یه توضیح در مورد دستور input بدم که این آقای input خیلی بی تربیت هست و انقدر وایمیسته تا چیزی به پایه گیرنده برسه. پس با این برنامه مینونیم متوجه بشیم که ایا چیزی به ورودی هرچند غلط میرسه یا نه.

آقا این قضیه BF GF چیه؟؟؟؟ :mrgreen:

باشه من اینجا صحنه رو ترک میگم. B-)

مهندس خودتی داداش ما که تازه میریم 3 ریاضی
شما تاج سری هرچی بگی به رو چش
در عمل
نه
نه

کلا اتفاقی که میفته اینه که هیچی نمیشه!

آخ آخ آخ آخ ...
تو این متغیرا چه سوتییییییی دادم!!!!

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

http://s6.picofile.com/file/8212136492/usart.zip.html

داداش دست طلا کمک کرد

ارتباط سریال جزو ساده ترین ارتباطات در بسکام هست. من در کد زیر تعریف می کنم اگر یک کلید فشرده شد به عنوان مثال حرف A از طریق ارتباط سریال با باودریت (سرعت) 9600 بیت بر ثانیه به گیرنده ارسال بشه و در گیرنده یک ال ای دی برای مدت دو ثانیه روشن بمونه و بعدش هم خاموش بشه. البته ارتباط سریال دقیق جزئیاتی هم داره مثلا برای تنظیم دقیق هر باودریت باید به دیتاشیت میکرو مراجعه کرد.

[code=vb]
'Receiver Microcontroller
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600

Config PINC.4 = Output
Config PINC.5 = Output


Enable Interrupts
Enable Urxc
On Urxc daryaft
Dim A as String * 1

Do

Loop

End

daryaft:
inputbin A

if A= "A" then
PortC.4 = 1
waitms 2000
end if
If A = "B" then
PortC.5 = 1
waitms 2000
end if
Return
[/code]

[code=vb]
'Transmitter Microcontroller
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600

Config PINB.0 = Input
Config PINB.1 = Input

Enable Interrupts
Enable Urxc

Do
If Pinb.0 = 0 Then Print "A"
Waitms 450
If Pinb.1 = 0 Then Print "B"
Waitms 450
Loop
End

[/code]

خلیی وفته سربازی اجازه کار الکترونیک نداده! خداکنه کد دریافت کننده خطا نداشته باشه. خصوصا قسمت input

موفق باشی- حتما اول در پروتئوس امتحان کن.

داداش الان امتحان میکنم



همتون سالارید دمتون گرم

[QUARK]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

قربانت.
فیوزبیت کریستال رو نغییر دادی؟؟؟؟

[MohammadMers]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

قربانت.
فیوزبیت کریستال رو نغییر دادی؟؟؟؟

نه داداش
واقعیت اصن نمیدونم چیه و به چه دردی میخوره(!!!)

[QUARK]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

نه داداش
واقعیت اصن نمیدونم چیه و به چه دردی میخوره(!!!)

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


اینم کد فرستنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Pinb.0 = Input
Config Pinb.1 = Input
Dim A As Byte
Dim Gf As String * 2
Dim Bf As String * 2
Gf = "ch"
Bf = "cc"
Do
print "GF"
Loop
End

اینم گیرنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim Aa As String * 2
Config Portc.5 = Output
Config Portc.4 = Output
Do
input Aa
set portc.5
waitms 100
reset portc.5
waitms 100
Loop
End                             'end program

[/quote]

[MohammadMers]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

داداش رو 1000000 هست فرکانس

فقط یه سوال:
مگه hmtr با ارتباط سریال کار نمیکنه؟
چرا
پس چرا وقتی با سیم دو تا میکرو به هم وصلن کار میکنه ولی وقتی با hmtr به هم وصلشون میکنی کار نمیکنه؟؟؟

[QUARK]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

پس با سیم خالی کار میکنه؟؟؟ داری شیطنت میکنیااااااا [-(


قضیه HM-TR فرق میکنه.
برای شروع من نظرم اینه شما دیتایی که از hm-tr مییگرو بدی به کامپیوتر.
اونجوری خوب متوجه میشی که باید چیکار کنی.
این ماژولا یه بدی دارن اینه که وقتی هیچی از فرستنده واسشون نیاد شروع میکنن به ارسال یکسری کاراکتر اتفاقی به پایه RXD گیرنده.
مثلا شما الان هیچی برای گیرنده نمیفرستی، چیزایی که گیرنده تو پایه RXD خودش به نمایش میذاره به اینصورته:
kd834 dheuh%@@*#(UHDG&#&E&^E TETET^TE^^!&(!(*&@B(V#^#&#V^%C%V@B@&am p;@@&^V^@@C@R...
وهمینجور تا آخر. حالا شما هنوز بدتر در نظر بگییر. :cry:

حالا فرض کن شما اینو "GF" فرستادی و دیگه چیزی نفرستادی. چیزی که تو پایه RXD گیرنده میبینی به اینصورت:
*(#N#YBT#V&*VEN(EY*#V&#B^GF#&*%V#^B&@Y#&*T# &#T&*#T&T#^#^@&(@&%^!&( ~* !* &*%@)!!(*

من خودم با این مشکل اینجوری دستو پنجه نرم میکنم:
به نظرت باید چیکار کنیم؟؟؟ ما توی گیرنده چطور باید بفهمیم اون آقای فرستنده چی میخواد بفرسته که توی متن قاراش میشه بالا دنبالش بگردیم. اومدو طرف یکسری متن فرستاد تونوقت تکلیف چیه؟؟؟ آهااااااااا درسته باید یه علامت تو ابتدا و انتهای متنه ارسالیمون توی فرستنده اضافه کنیم. مثلاً : بجای ارسال "GF" خالی باید اینجوری بفرستیمشون:

"$matnGF#"

که توی گیرنده بیای دیکدش کنی.
حالا فرض کتن توی گیرنده ای و هی داری دنبال

"$matn"

میگردی.
هر وقت پیداش کردی میتونی مکان این

"$matn"

رو پیدا کنی و بعدشم انتهای متنتون پیدا کنی. میگی چطور خب معلومه با دیدنه # . هر جا # رو دیدی وایسا. متنت توی اینجاست. ازش بِکَن.
زیاد شد.
منم یه کدی که خودم همیشه توی ارسال سریالم ازشون استفاده میکردم رو واست میذارم.
امیدوارم موفق بشی گلم.

   Input #2 , R_usart

   Temp = Instr(r_usart , "#")
   Temp = Temp + 1
   S_r_usart2 = Mid(r_usart , Temp , 1)

فرستنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Pinb.0 = Input
Config Pinb.1 = Input
Dim A As Byte
Dim Gf As String * 2
Dim Bf As String * 2
Gf = "ch"
Bf = "cc"
Do
print "$matnGF#"
Loop
End

اینم گیرنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim R_usart As String * 100
Dim S_r_usart2 as string *2
dim temp as byte
Config Portc.5 = Output
Config Portc.4 = Output
Do
   Input R_usart

   Temp = Instr(r_usart , "$matn")
   Temp = Temp + 5
  S_r_usart2 = Mid(r_usart , Temp , 2)
if S_r_usart2="GF" then
set pinc.5
end if
Loop
End                             'end program

بازم میگم اگه ارتباط با سریال کامیپیوترت رو راه اندازی کنی خیلی روند بهتریو پیش میگیری.
البته ارتباط سریال شاید خیلی آسون باشه توی بسکام ولی شما باید جدای اینکه از چه نوع پروتکلی استفاده میکنی یاد بگیری چطور ارسال کنی و دریافت کنی که همیشه مطمئن باشی که هیچ اشتباهی توی ارسال و دریافتت پیش نمیاد.
حالا شما شروع کن اینو جواب بگیر، با هم کارو دنبال میکنیم.
ببین ببین از اتاق فرمان دارن اشاره میکنن که وقتمون تموم شده. :cry2:

[MohammadMers]

پاسخ : 0 تا 100 ارتباط سریال با بیسکام

پس با سیم خالی کار میکنه؟؟؟ داری شیطنت میکنیااااااا [-(


قضیه HM-TR فرق میکنه.
برای شروع من نظرم اینه شما دیتایی که از hm-tr مییگرو بدی به کامپیوتر.
اونجوری خوب متوجه میشی که باید چیکار کنی.
این ماژولا یه بدی دارن اینه که وقتی هیچی از فرستنده واسشون نیاد شروع میکنن به ارسال یکسری کاراکتر اتفاقی به پایه RXD گیرنده.
مثلا شما الان هیچی برای گیرنده نمیفرستی، چیزایی که گیرنده تو پایه RXD خودش به نمایش میذاره به اینصورته:
kd834 dheuh%@@*#(UHDG&#&E&^E TETET^TE^^!&(!(*&@B(V#^#&#V^%C%V@B@&am p;@@&^V^@@C@R...
وهمینجور تا آخر. حالا شما هنوز بدتر در نظر بگییر. :cry:

حالا فرض کن شما اینو "GF" فرستادی و دیگه چیزی نفرستادی. چیزی که تو پایه RXD گیرنده میبینی به اینصورت:
*(#N#YBT#V&*VEN(EY*#V&#B^GF#&*%V#^B&@Y#&*T# &#T&*#T&T#^#^@&(@&%^!&( ~* !* &*%@)!!(*

من خودم با این مشکل اینجوری دستو پنجه نرم میکنم:
به نظرت باید چیکار کنیم؟؟؟ ما توی گیرنده چطور باید بفهمیم اون آقای فرستنده چی میخواد بفرسته که توی متن قاراش میشه بالا دنبالش بگردیم. اومدو طرف یکسری متن فرستاد تونوقت تکلیف چیه؟؟؟ آهااااااااا درسته باید یه علامت تو ابتدا و انتهای متنه ارسالیمون توی فرستنده اضافه کنیم. مثلاً : بجای ارسال "GF" خالی باید اینجوری بفرستیمشون:

"$matnGF#"

که توی گیرنده بیای دیکدش کنی.
حالا فرض کتن توی گیرنده ای و هی داری دنبال

"$matn"

میگردی.
هر وقت پیداش کردی میتونی مکان این

"$matn"

رو پیدا کنی و بعدشم انتهای متنتون پیدا کنی. میگی چطور خب معلومه با دیدنه # . هر جا # رو دیدی وایسا. متنت توی اینجاست. ازش بِکَن.
زیاد شد.
منم یه کدی که خودم همیشه توی ارسال سریالم ازشون استفاده میکردم رو واست میذارم.
امیدوارم موفق بشی گلم.

   Input #2 , R_usart

   Temp = Instr(r_usart , "#")
   Temp = Temp + 1
   S_r_usart2 = Mid(r_usart , Temp , 1)

فرستنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Pinb.0 = Input
Config Pinb.1 = Input
Dim A As Byte
Dim Gf As String * 2
Dim Bf As String * 2
Gf = "ch"
Bf = "cc"
Do
print "$matnGF#"
Loop
End

اینم گیرنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim R_usart As String * 100
Dim S_r_usart2 as string *2
dim temp as byte
Config Portc.5 = Output
Config Portc.4 = Output
Do
   Input R_usart

   Temp = Instr(r_usart , "$matn")
   Temp = Temp + 5
  S_r_usart2 = Mid(r_usart , Temp , 2)
if S_r_usart2="GF" then
set pinc.5
end if
Loop
End                             'end program

بازم میگم اگه ارتباط با سریال کامیپیوترت رو راه اندازی کنی خیلی روند بهتریو پیش میگیری.
البته ارتباط سریال شاید خیلی آسون باشه توی بسکام ولی شما باید جدای اینکه از چه نوع پروتکلی استفاده میکنی یاد بگیری چطور ارسال کنی و دریافت کنی که همیشه مطمئن باشی که هیچ اشتباهی توی ارسال و دریافتت پیش نمیاد.
حالا شما شروع کن اینو جواب بگیر، با هم کارو دنبال میکنیم.
ببین ببین از اتاق فرمان دارن اشاره میکنن که وقتمون تموم شده. :cry2:

داداش شرمندتم به قرآن دیر جواب میدم شمام که زحمت میکشید.
ولی عزیز نمیشه
انگار هیچی ارسال و دریافت نمیشه

حتی با سیمم جواب نمیده

البته یه کم برنامرو تغییر دادم
فرستنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Pinb.0 = Input
Config Pinb.1 = Input
Dim A As Byte
Dim Gf As String * 2
Dim Bf As String * 2
Dim B As Byte , G As Byte
Gf = "ch"
Bf = "cc"
Main:
Debounce Pinb.0 , 1 , G
Debounce Pinb.1 , 1 , B

Goto Main
G:
'For G = 0 To 5
Print "$matnGF#"
'Next G
Goto Main
B:
'For B = 0 To 5
Print "$matnBF#"
'Next B
Goto Main
End

گیرنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim R_usart As String * 100
Dim S_r_usart2 as string *2
dim temp as byte
Config Portc.5 = Output
Config Portc.4 = Output
Do
   Input R_usart

   Temp = Instr(r_usart , "$matn")
   Temp = Temp + 5
  S_r_usart2 = Mid(r_usart , Temp , 2)
if S_r_usart2="GF" then
Set Pinc.5
Reset Pinc.4
Elseif S_r_usart2 = "BF" Then
Reset Pinc.5
Set Pinc.4

End If

Waitms 500
Reset Pinc.4
reset pinc.5
Loop
End                             'end program

بازم میگم شرمندتم این چن وقته درگیر یه آمپلی فایر بودم نتونستم بسازم این مدارو
:cry: :sad: :redface: :cry2:

شرمندتم سالاری به مولا