کمک فوری در مورد ارتباط سریال

[arash67]

من این برنامرو نوشتم اما تو عملی اصلا کا ر نمیکنه
لطفا یک راهنمایی بکنید

$regfile = "m8def.dat"
$crystal = 1000000
Dim A As Byte
$baud = 4800
Config Serialin = Buffered , Size = 10
Config Pinc.0 = Output
F1:
A = Waitkey()
If A = 1 Then
Set Portc.0
Wait 1
Reset Portc.0
Goto F1
End If

[student-p]

خوب برنامه وي بي چي نوشتي؟

[ilgar]

1)باید اول دستور اینیبل اینتراپتز رو بنویسین
2) اگه ارتباط سریالتون rs232 هستش نمیدونم دستور Config Serialin = Buffered , Size = 10 رو چرا نوشتین!

[arash67]

یک سوال دیگه من اگه بخوام این دستور را ATD 09353351002 به صورت رشته به میکروم ارسال کنم به چه شکلی باید این کارو بکنم
خیلی سریع

[reza555]

همین اطلاعاتو به صورت رشته در بیار و در برنامه زیر روال وقفه ارتباط سریالت می تونی با select case یا IF اونو مقایسه کنی و در صورت برابر بودن عملیات شماره گیری (اگر اشتباه نکنم ) رو انجام بدی
بعدشم
چرا از وقفه سخت افزاری استفاده نکردی ؟
با serout کار کردن کاری نداره اما serin یه کوچولو سخت تره(من که نتونستم )

[arash67]

دوست عزیز میتونی یک نمونه واسم بنویسی مثلا با همین دستور!!!

[reza555]

برای استفاده از وقفه سخت افزاری باید اینارو بنویسی

On Urxc Rec_isr 'define serial receive ISR
Enable Urxc 'enable receive isr
Enable Interrupts
Recive_isr:
-
-
-
Return

[align=right] اون جاهایی که با - مشخص شده زیر روال وقفه رو می نویسی که شامل INKEY کردن و ذخیره می شه
برای ارسال نرم افزاری هم میتونی بری توی HELP بسکام و SEROUT رو پیدا کنی و مثالشو کامل بخونی
خوب توضیح داده
توز همون جا میتونی SERIN رو هم پیدا کنی و مطالعش کنی
موفق باشی

[Nolovitska]

سلام به همگی
من تازه واردم . البته چند روزیه که دارم موضوع رو از همینجا دنبال می کنم.
من تقریبا مشکل مشابهی دارم
یک atmega32 دارم و ازmax232 یک rx و tx گرفتم برای ارتباط با مودم gsm .
ولی متاسفانه نه توی هایپرترمینال نتیجه گرفتم و نه روی مودم .
من وقفه رو توی برنامه چطور باید بگارگیری کنم ؟
ممنون

[ilgar]

تو پروتئوس دو تا میکرو رو بهم وصلشون کنید و دو تا برنامه کوچولو بریزین توش و امتحان کنین
کاری نداره.

برای وقفه کافیه بنویسین Enable interrupts .اگه هم خواستین هنگام دریافت داده وقفه بده دستورش هست:


Enable Interrupts
$baud = 9600
Enable Urxc
On Urxc Serialint
serialint:
.
.
.



میتونم بپرسم مودم GSM رو از کدوم شرکت و به چه قیمتی تهیه کردین؟

[Nolovitska]

ممنون از توجهتون
مودم زیمنس گرفتم از یک جایی توی میدان فاطمی - البته اسمش یادم نیست.
95 هزار تومان با تشکیلاتش . منظور اداپتور و . . . . حتما می فرمایید که خیلی گرون خریدی . بله قبول دارم ولی فعلا تازه کارم .
البته ماژولش هم هست که فکر کنم حدود 50 تومان باشه .
راستی من این پروتئوس رو می تونم دانلود کنم ؟
ممنون می شم اگر لینکش رو برای حقیر بگذارین .

[ilgar]

http://forum.iranled.com/showthread.php?...AF+Proteus


http://forum.iranled.com/showthread.php?tid=15216


منظورتون از مودمهای GSM چیه؟ من مبدل GSM به ثابت میگیرم حتی چینیش خیلی گرونتر از ایناس.میشه یه خورده در باره کار مودمتون توضیح بدین؟ به تلفن ثابت هم میشه وصلشون کرد؟