rs232-mscommپورت های

[morteza_vb.c]

سلام
من با ای سی avr میخوام از طریق پورت سریال اعدادی رو بر روی vb6 ببینم .برای این کار از mscomm استفاده کردم.اما هر کاری می کنم اطلاعات نمایش داده نمیشه.از طرفی مطمنم که اطلاعات به pc درست میرسه .در شیوه کار با بیسیک و mscomm مشکل دارم لطفا کمکم کنید.
ممنون:بوس: :بوس: :قلب:

[kasaei]

سلام
من با ای سی avr میخوام از طریق پورت سریال اعدادی رو بر روی vb6 ببینم .برای این کار از mscomm استفاده کردم.اما هر کاری می کنم اطلاعات نمایش داده نمیشه.از طرفی مطمنم که اطلاعات به pc درست میرسه .در شیوه کار با بیسیک و mscomm مشکل دارم لطفا کمکم کنید.
ممنون:بوس: :بوس: :قلب:

چطو مطمئن شدی ؟

[morteza_vb.c]

سلام
ببینید avr یک محیط خاص سیمولوشن داره که میشه برنامه ها رو توش چک کرد .من با این محط اطلاعات رو روی کامپیوتر دیدیم.پس مدارات rs232 و ... درست عمل میکنندواما در بیسیک دیده نمیشه در ضمن من باود و...mscomm و ایسی رو هم هماهنگ کردم.
به هر حال به کمکتون نیاز دارم

[kasaei]

سلام
یعنی اگر اطلاعات شما روی ترمینال امولاتورمیاد ولی روی mscomm از vb نمیاد تنظیمات COM رو روی VB مشکل داره RTreshold چک کن اگر 0 باشه اطلاعات نمیاد که بسته به طول و نوع اطلاعات باید تنظیم بشه معمولا من با یک جواب گرفتم موفق باشی .

[ehsan_electronic]

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

Private Sub Form_Load()
MSComm1.CommPort = 1 ' Use COM1.
MSComm1.Settings = "9600,N,8,1" ' 9600 baud, no parity, 8 data,
' and 1 stop bit.
MSComm1.InputLen = 0 ' Read entire buffer when Input
' is used
MSComm1.PortOpen = True ' Open port
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
MSComm1.Output = KeyAscii
Text1.Text = KeyAscii
End Sub
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent = comEvReceive) Then
Text2.Text = MSComm1.Input
End If
End Sub
Private Sub Command1_Click()
End
End Sub

[saeidcd]

به این لینک یه سری بزن
http://worldbook.ir/archives/309