[كريمون2000]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
لدي برنامج لوزن الشاحنات يعمل بشكل جيد في عدة اجهزة ( اجهزة نقل رقم الوزن من الميزان الى الجهاز الصغير المربوط مع الميزان الالكتروني الجسري ومن ثم ينقل الرقم الى شاشة البرنامج في الحاسوب ) المشكلة هو تأخير نقل الرقم من الجهاز الصغير الى شاشة الحاسوب هذه حالة الحالة الثانية : اولا ينقل الرقم صفر ثم بعد ثلاثة او اربعة دقائق تنقل بقية الارقام ثم يرجع الرقم صفر ثم ترجع بقية الارقام وهكذا

السلام عليكم اساتذتي الافاضل هذه الصور فيها كود الاتصال بالجهاز الصغير المربوط بالميزان الالكتروني الجسري

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

معذرة لم ترفع شيء
هذا رابط لكيفية رفع الصور
http://www.qariya.info/vb/showthread.php?t=149519
أما بالنسبة للكود فالأفضل هو نسخه من المصدر ثم النقر على زر "الإنتقال للوضع المتطور" و هناك ستجد زر عليه علامة # عندما تضع الفارة عليه تقرا كلمة "كود"
انقر عليه و انسخ النص (الكود) حيث سيظهرالمؤشر

[كريمون2000]

Private Sub MSComm1_OnComm()
Dim c As Variant
Dim n As Integer
If MSComm1.CommEvent = comEvReceive Then
If comEvEOF Then
MSComm1.InputLen = 1
'Do While MSComm1.Input = "."
MSComm1.InputLen = "0.000"
c = MSComm1.Input
Label5.Caption = Val(c)
'Loop
End If
End If
MSComm1.InBufferCount = 0
End Sub
-----------------------------------------------------------------------------------
Private Sub Form_Load()
MSComm1.CommPort = 5
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True

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

توجد بعض النقاط هنا لكنها لا تسبب الظاهرة التى تتحدث عنها أنها ترسل للجهاز الصغير و تتأخر فى الارسال للحاسب فهذه المشكله فى الجهاز الصغير
فمثلا يجب أن تحدد طول الرسالة التى يستقبلها الحاسب فى sub إو فى Form_Load أو داخل المكون ذاته وليس فى وسط معالجة البيانات المستقبلة حتى لا ينتظر فترة ثم تعيد تنسيق الBuffer فى فترة غير مناسبة لإستقبال رسالة جديدة
أيضا يمكنك استقبال String بدلا من Variant و الدالة Val ستقوم بذات العمل

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

رجاء ما رقم فيجيوال بيزك الذى تستخدمه و من أين يمكننى الحصول عليه و شكرا

[كريمون2000]

استاذي الفاضل ماجد عباس محمد شكرا جزيلا لردك السريع بارك الله فيك وجعلها الله جل وعلا في ميزان حسناتك يارب
الله لايحرمنا من شخصك الكريم يارب