کمک در ارتباط از طریق پورت سریال

[alirezalahij]

پاسخ : کمک در ارتباط از طریق پورت سریال

سلام

من چند ماه پیش این پروژه رو انجام دادم
خیلی راحت جواب گرفتم

اما الان همون حرف های نامفهوم می بینم
دو روز اعصابمو در هم ریخته

شما از فایل file

upload file رو بگه بزنی
خودش رو ال سی دی یه عددی رو می نویسه
ا

[h_j336]

پاسخ : کمک در ارتباط از طریق پورت سریال

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

[alirezalahij]

پاسخ : کمک در ارتباط از طریق پورت سریال

سلام

من قبلا با کریستال داخلی جواب گرفتم

اما الان کار نمی کنه

[h_j336]

پاسخ : کمک در ارتباط از طریق پورت سریال

شما با کامپیوتر میخوایید ارتباط برقرار کنید؟؟؟؟؟؟؟؟؟؟؟؟یا دو تا میکرو رو به هم وصل کردید؟؟؟؟؟؟؟؟؟؟
میشه شما هم برنامتون رو بذارید تا منم اونو چک کنم شاید از تو دوتاش بشه یه چیزی در آورد که بدرد هردومون بخوره
ممنون :smile: :

[alirezalahij]

پاسخ : کمک در ارتباط از طریق پورت سریال

سلام

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Pinb.1 , Db5 = Pinb.2 , Db6 = Pinb.3 , Db7 = Pinb.4 , Rs = Pinb.6 , E = Pinb.5
Config Lcd = 16 * 2
Cls
Lcd "Start"
Wait 1
Cls
Dim A As String * 10

Do
Cls
Home
Input "input text then press enter" , A
Lcd A
Wait 10

Loop
End

این برنامه

[mohseni12345]

پاسخ : کمک در ارتباط از طریق پورت سریال

یه کاری کنید
یه بار بین پایه های rx & زمین و پایه ی tx & زمین مقاومت 20 کیلو بزارید و یه بار دیگه خازن 1 میکرو فاراد بزارید
ببینید فرقی میکنه

[hamed_online62]

پاسخ : کمک در ارتباط از طریق پورت سریال

اون دستور wait 10 مشکل ساز نمیشه؟

[h_j336]

پاسخ : کمک در ارتباط از طریق پورت سریال

یه کاری کنید
یه بار بین پایه های rx & زمین و پایه ی tx & زمین مقاومت 20 کیلو بزارید و یه بار دیگه خازن 1 میکرو فاراد بزارید
ببینید فرقی میکنه

این کارم کردم جواب نداد ولی هر بار که خازن ها رو عوض می کردم عدداش فرق می کرد ولی مقاومت هیچ تاثیری نداشت

[alirezalahij]

پاسخ : کمک در ارتباط از طریق پورت سریال

سلام


اینم یه پروژه کامل پورت سریال

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

به ازای 10 . 20 . 30 ...80 ال ای دی ها رو خاموش میکنه

http://www.4shared.com/file/65722682/2a3b9890/protues__simulate.html



این رو پروتیوس کار می کنه

اما تو واقیعت نه

[mikla]

پاسخ : کمک در ارتباط از طریق پورت سریال

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

فیوز بیت DIVIDE CLOCK BY 8 DISABLE باید در میکرو مگا 88 بای انتخاب شود

میکرو main :
[left]$regfile = "m88def.dat"
$crystal = 8000000
$baud = 9600

Config Portd.2 = Input
Config Portd.0 = Input
Config Portd.1 = Output
Config Portc = Output
Portd = &HFF
Dim X As Integer
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
Dim S As String * 40

Do
If Pind.2 = 0 Then
Waitms 5
For X = 100 To 150
If Pind.2 = 1 Then Exit For
Waitms 500
Print X
Next
Elseif Pind.2 = 1 Then
Input S
Home
Lcd S
End If
Loop
End[/

میکرو user:
با استفاده از متغیر stutes در این میکرو میتوان وضعیت گیرنده یا فرستنده بودن دو میکرو را تعیین کرد، میتوان با یک کلید روی یکی از پایه های میکروی user هم این کنترل را انجام داد

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portd.2 = Output
Dim Stutes As Byte
Config Portd.0 = Input
Config Portd.1 = Output
Config Portc = Output
Portd = &HFF

Dim X As Integer
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

Dim S As String * 40
Do
For Stutes = 0 To 100
If Stutes < 5 Then
Portd.2 = 1
Waitms 5
For X = 200 To 210
Waitms 500
Print X
Next
Elseif Stutes > 4 Then
Waitms 5
Portd.2 = 0
Input S
Home
Lcd S
End If
Next
Loop
End

[mikla]

پاسخ : کمک در ارتباط از طریق پورت سریال

اینو یادم رفت بگم PORTD.2 دو میکرو به وصل است و RX مگا88 به TX مگا 8 و TX مگا 88 به RX مگا 8

[h_j336]

پاسخ : کمک در ارتباط از طریق پورت سریال

ممنون از mikla
من این دوتا برنامه رو نوشتم تو پروتئوس جواب میده ولی در عمل نتونستم درستشون کنم

[h_j336]

پاسخ : کمک در ارتباط از طریق پورت سریال

یادم رفت لینک برنامه ها رو بذارم
اینم لینکشون
http://micro700.persiangig.com/port%20serial/serial%20test.rar
http://micro700.persiangig.com/port%20serial/simulate%20serial%20key%20board.rar

[h_j336]

پاسخ : کمک در ارتباط از طریق پورت سریال

[quote author=mikla link=topic=20442.msg96527#msg96527 date=1223212989]
من همین امروز بین دو تا میکرو ارسال دیتا رو انجام دادم برنامشم به صورت زیر
امیدوارم کمکتون کنه

اگه فایل پروتئوسش رو بذارید بهتر میشه برنامه رو فهمید

[mikla]

پاسخ : کمک در ارتباط از طریق پورت سریال

من پرتیوسم مشکل پیدا کرده بنابراین شرمنده نمیتونم شماتیک مدار رو براتون بزارم
الان من برنامه جناب micro_700 رو تست کردم تغییراتشم بصورت زیر هست کامل هم جواب داد
فقط lcd رو طبق برنامه تو سخت افزار قرار بدین ، tx میکروی اول رو به rx میکرو دوم و rx میکرو اول رو به tx میکرو دوم وصل کنید

برنامه rec:

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
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
Dim S As String * 30
Lcd "welcome"
Do
Inputbin S
Lcd S
Loop

برنامه transfer :

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
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
Dim A As String * 30
Do
A = "test"
Lcd A
Print A
Waitms 100
Loop
End