المساعدة في ثبوت رقم منقول بواسطة الاداة ال MSComm عن طريق كيبل RS232

[jjafferr]

رجاء جرب هذا الكود بدلا عن الكود السابق:

Private Sub MSComm1_OnComm()
On Error Resume Next

        
    If MSComm1.CommEvent = comEvReceive Then

                Label5.Caption = Val(Mid(MSComm1.Input, 3))

    End If  'MSComm1
    
    MSComm1.InBufferCount = 0

End Sub

 

جعفر

[حربي العنزي]

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

غدا ان شاء الله سوف اجرب البرنامج لان الدوام انتهى 

ربي يحميك من كل شر يارب والله تعبتك معي يا طيب جزاك الله خيرا والله لايحرمنا من شخصك الكريم يارب 

 

[حربي العنزي]

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

البرنامج شغال بشكل ممتاز وصحيح فقط مشكلة بسيطة ان شاء الله وهي عدم ثبوت الرقم مرة يعطي رقم الوزن بشكل صحيح ومرة يرجع صفر وهكذا حسب الصور المرفقة

الفترة بين رقم الوزن وبين الصفر ثانية واحدة او اكثر بقليل من الثانية 

مع وافر التحايا

 

[jjafferr]

وعليكم السلام 🙂

شو الزر اللي تضغط عليه علشان يبدأ الميزان يحسب ويعطيك النتيجة؟

 

جعفر

[حربي العنزي]

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

لايوجد زر اضغط عليه : طريقة العمل هي بمجرد ان افتح البرنامج ينتقل الوزن من جهاز صغير مربوط مع الميزان الالكتروني الجسري الى ال Lable5 في البرنامج وبعدها اضغط زر امر الوزن محمل 

ينتقل الى حقل في النموذج الفرعي خاص بالوزن محمل واذا فارغ اضغط زر امر الوزن فارغ ينتقل الى حقل في النموذج الفرعي خاص بالوزن فارغ وهكذا 

مع وافر التحايا

 

[jjafferr]

طيب واذا اردت حساب وزن جديد/شاحنه جديدة ، شو اللي تعمله؟

[حربي العنزي]

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

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

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

مع وافر التحايا

 

تم تعديل فبراير 4, 2019 بواسطه حربي العنزي

[jjafferr]

على اساس كلما تريد تحسب وزن جديد ، لازم تفتح النموذج من جديد ، وعليه يكون المسمى في الحقل label5 هو 0 ،

جرب هذا الكود:

Private Sub MSComm1_OnComm()
On Error Resume Next

	'اذا كانت القيمة 0 ، فاكتب القيمة الجديدة، وإلا فلا تكتبها
    if me.Label5.Caption<>"0" then exit sub

    If MSComm1.CommEvent = comEvReceive Then

                me.Label5.Caption = Val(Mid(MSComm1.Input, 3))

    End If  'MSComm1
    
    MSComm1.InBufferCount = 0

End Sub

 

جعفر

[حربي العنزي]

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

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

لانتظار سيارة ثانية 

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

والله تعبتك معي وانا دائما متعبك ببرامجي 

الله لايحرمنا من شخصك الكريم يارب 

مع وافر التحايا

 

[jjafferr]

الحمدلله ، كنت انتظر ان نصل الى القراءة الصحيحة ، ومنها نقدر نعدل مثل ما نريد 🙂

 

عندك عدة اختيارات ، 

ولكن المطلوب ان نجعل قيمة الوزن صفر ، قبل دخول الشاحنة الجديدة ، وكود التصفير هو:

    me.Label5.Caption = "0"

 

1. اعمل زر ، اجعل تسميته "تصفير الوزن وحساب وزن جديد" ، وفي حدث النقر ، اكتب الكود اعلاه ،

بحيث ، قبل ان تدخل الشاحنة الجديده ، تضغط على هذا الزر.

 

او / و

2. 

55 دقائق مضت, حربي العنزي said:

أ. وبعدها اضغط زر امر الوزن محمل ينتقل الى حقل في النموذج الفرعي خاص بالوزن محمل

ب. واذا فارغ اضغط زر امر الوزن فارغ ينتقل الى حقل في النموذج الفرعي خاص بالوزن فارغ

اكتب الكود اعلاه في نهاية حدث أ و ب .

 

وبالنسبة الى كود قراءة القيمة من الجسر ، فيمكنك :

1. استخدام الكود القديم الذي كنت تستخدمه سابقا ، او 2. تستخدم الكود المختصر الاخير ،

ولكن يجب ان تضيف هذا السطر في اول الحدث (مثل ما عملنا في الكود في مشاركتي الاخيرة) :

	'اذا كانت القيمة 0 ، فاكتب القيمة الجديدة، وإلا فلا تكتبها
    if me.Label5.Caption<>"0" then exit sub

.

جعفر

[حربي العنزي]

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

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

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

مع وافر التحايا

 

[jjafferr]

🙂