[mostafabakar]

الكود يرسل ما بداحل text 1 وبعد التجربة يعمل جيدا بعد الضغط على زر الارسال
ويستقبل المعلومات على2 text ولكنه لا يستقبل اى معلومه سواء كانت binary or
text
الكود
Private Sub Command1_Click
MSComm1.Output = Text1.Text
End Sub


Private Sub Command2_Click
End
End Sub

Private Sub Command3_Click
Text2.Text = ""
Text1.Text = ""
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True
End Sub


Private Sub MSComm1_OnComm()
Static InBuff As String
InBuff = InBuff & StrConv(MSComm1.Input, vbUnicode)
Text2.Text = Text2.Text & InBuff
End Sub

[ناصراحمد2]

السلام عليكم ورحمة الله وبركاتة
الموضوع مش واضح
كيف تتم التجربة ويعمل جيدا وكيف انة لا يستقبل ؟؟؟؟

وايضا انت تستخدم فى برنامجك السيريال بورت
فهل تتعامل مع برنامج اخر ؟؟؟؟

وماهو الغرض من البرنامج ؟؟؟

[MYM]

أنا لست ضليع في البيسك 6
على العموم
راجع

Private Sub MSComm1_OnComm()
Static InBuff As String
InBuff = InBuff & StrConv(MSComm1.Input, vbUnicode)
Text2.Text = Text2.Text & InBuff
End Sub
أعتقد أن الخطأ في دالة التحويل أو في صيغتها أو في إختيارها ((أي جرب دالة تحويل أخرى))

[mostafabakar]

انا بتعلم التحكم عن طريق الكمبيوتر وعاوز اعمل حاجة شبه uart terminal اللى فى الميكرو سى والتجر به بتكون هارد وير من خلال الميكرو سى uart terminal

[mostafabakar]

اقتباس المشاركة الأصلية كتبت بواسطة mostafabakar انا بتعلم التحكم عن طريق الكمبيوتر وعاوز اعمل حاجة شبه uart terminal اللى فى الميكرو سى والتجر به بتكون هارد وير من خلال الميكرو سى uart terminal

http://upload.qariya.info/images/qar...2a5cd35390.jpg

[ماجد عباس محمد]

أولا غالبا ما يكون msport1 مستخدم بواسطة الحاسب لذا يجب أن تدخل على
Start-control Panel- system-hardware-device manages

ثم تفتح خانة Ports و تعلم منها ما هو مستخدم و ما هو حر فهذا اساس المشكلة

ثانيا أنت لم تضيف أى Error handling routine فى برنامجك فكيف ستعلم نتيجة الأمر
MSComm1.PortOpen = True

[MYM]

اقتباس المشاركة الأصلية كتبت بواسطة mostafabakar انا بتعلم التحكم عن طريق الكمبيوتر وعاوز اعمل حاجة شبه uart terminal اللى فى الميكرو سى والتجر به بتكون هارد وير من خلال الميكرو سى uart terminal

خدها مني نصيحة
لو مشروعك من تصميمك من الصفر ... لا تستخدم الإتصال التسلسلي
بل إستخدم المنافذ العالمية USB
لأنني قضيت وقتا بالأولى و إتضح بعد عناء طويل أن لا قيمة لها فكل الحواسيب الآن تترك هذا المنفذ و تعتمد على الUSB

[mostafabakar]

اقتباس المشاركة الأصلية كتبت بواسطة ماجد عباس محمد أولا غالبا ما يكون msport1 مستخدم بواسطة الحاسب لذا يجب أن تدخل على Start-control Panel- system-hardware-device manages ثم تفتح خانة Ports و تعلم منها ما هو مستخدم و ما هو حر فهذا اساس المشكلة ثانيا أنت لم تضيف أى Error handling routine فى برنامجك فكيف ستعلم نتيجة الأمر MSComm1.PortOpen = True

MSComm1.PortOpen = Trueهذا المر موجود وفعليا انا بجرب الدائرة واربطها مع الكمبيوتر وusart فى الميكرو سى وترسل وتستقبل اما مع vb6ترسل ولا تستقبل
المشكله فى كود الستقبال فى vb6