با سلام...
عذر میخوام از اینکه بابت این موضوع یک تاپیک جدید باز کردم اما گفتم شاید چون این موضوع کلی تر هست برای کسان دیگری هم مثل من مشکل پیش بیاد در اینده...پس اگر این جا به نتیجه ای برسیم حتما راحت تر می تونن به نتیجه برسند , چرا که من که هرچی دید زدم این ور و اونور نتونستم مشکلم را بفهمم از کجاست...
من با وی بی , به کمک راهنمایی که جناب حیاتی کردند , برنامه فرستادن دیتا به میکرو را نوشتم و موفق به فرستادن دیتا به میکرو هم شدم اما این مشکل به وجود امد که دیتایی که می گیره میکرو , اونچیزی نیست که من می فرستم ! تقریبا همون چند تا دستوری که بسکام داره برای دریافت داده از سریال را هم تست کردم برای میکر که اگر ایراد از اون هست مرتفع بشه , اما هنوز مشکل برقرار...
کریستال میکرو را روی 8مگ گذاشتم و باود هم روی 9600 هست ,هم تو میکرو هم توی وی بی ...
می خوام یک بایت باینری رو بفرستم به میکرو و میکرو همون را بگیره و نمایش بده...
این هم برنامه وی بی :
Dim out() As Byte
Dim a As Byte
Private Sub Command1_Click()
End Sub
Private Sub send_Click()
MSComm2.CommPort = 1
MSComm2.Settings = "9600,n,8,1"
MSComm2.PortOpen = True
a = b11110000
MSComm2.PortOpen = False
End Sub
Private Sub Timer1_Timer()
MSComm2.Output = "a"
End Sub
با سپاس...
عذر میخوام از اینکه بابت این موضوع یک تاپیک جدید باز کردم اما گفتم شاید چون این موضوع کلی تر هست برای کسان دیگری هم مثل من مشکل پیش بیاد در اینده...پس اگر این جا به نتیجه ای برسیم حتما راحت تر می تونن به نتیجه برسند , چرا که من که هرچی دید زدم این ور و اونور نتونستم مشکلم را بفهمم از کجاست...
من با وی بی , به کمک راهنمایی که جناب حیاتی کردند , برنامه فرستادن دیتا به میکرو را نوشتم و موفق به فرستادن دیتا به میکرو هم شدم اما این مشکل به وجود امد که دیتایی که می گیره میکرو , اونچیزی نیست که من می فرستم ! تقریبا همون چند تا دستوری که بسکام داره برای دریافت داده از سریال را هم تست کردم برای میکر که اگر ایراد از اون هست مرتفع بشه , اما هنوز مشکل برقرار...
کریستال میکرو را روی 8مگ گذاشتم و باود هم روی 9600 هست ,هم تو میکرو هم توی وی بی ...
می خوام یک بایت باینری رو بفرستم به میکرو و میکرو همون را بگیره و نمایش بده...
این هم برنامه وی بی :
Dim out() As Byte
Dim a As Byte
Private Sub Command1_Click()
End Sub
Private Sub send_Click()
MSComm2.CommPort = 1
MSComm2.Settings = "9600,n,8,1"
MSComm2.PortOpen = True
a = b11110000
MSComm2.PortOpen = False
End Sub
Private Sub Timer1_Timer()
MSComm2.Output = "a"
End Sub
با سپاس...
دیدگاه