(03-11-21, 06:50 PM)وادي العوضي كتب : اساتذتي الافاضل الله يحفظكم جميعا ويمن عليكم بالصحة والعافية
ماذا اصاب هذا المنتدى الاكثر من رائع لماذا لايتم الرد على الاعضاء المشاركين بأسئلتهم هل اسئلة الاعضاء صعبة أو غير مفهومة
تحياتي لكم جميعا
اهلا بك اخي الكريم
قم باضافة المشروع للتعديل
او قم بتعديل النتيجة الظاهرة الى اقرب عدد صحيح
باستخدام احدى هذه الفنكشن
fix
round
format
استاذي الفاضل Amir_Alzubidy الله لايحرمنا من شخصك الكريم والطيب يا طيب ممنون منك على المساعدة جزاك الله خيرا وهذا البرنامج بالمرفقات
ارجو التعديل عليه مع وافر التحايا
من الصعب على المبرمج المساعدة في البرامج التي تتعامل مع الأجهزة الخارجية (لعدم القدرة على التجريب لعدم وجود الجهاز لديه).
فكثير من البرمجين يلاحظون بأن برامجهم تعمل على أجهزة وأجهزة أخرة لا تعمل عليها لأسباب كثيرة منها :
- اختلاف مواصفات الجهاز. - اختلاف نظام التشغيل. وأحيانا نفس البرنامج تحاول صناعته مرة أخرى على جهازك الذي صنعت عليه النسخة الاولى تجد أنه لا تعمل عليه النسخة الثانية (مع أنه نفس الكود المستخدم ونفس الادوات) لكن ما السبب (الله أعلم).
===
على كلٍ عملت تعديل على البرنامج لديك وأفقته
ستقوم بتنزيله وتجريبه - ربما لن تجد اختلافاً كثيراً (ولكن سيقوم بتسجيل كل عملية يقوم بها في قاعدة البيانات).
فأريد أن تقوم بعد تجريبه عدة مرات أن تعود هنا وترفع قاعدة بيانات البرنامج لأرى ماذا سجل فيها البرنامج.
وما الاختلافات التي حدثت مع التغيير.
استاذي الفاضل Taha Okla الله لايحرمنا من شخصك الكريم والطيب يا طيب شكرا جزيلا لحضرتك ربي يحفظك يارب
ان شاء الله سوف اقوم بالتجربة واخبارك النتيجة مع تصوير شاشة قارء الوزن وشاشة البرنامج ورفع المشروع بالكامل هنا شكرا مرة ثانية استاذي الفاضل
07-11-21, 11:13 AM (آخر تعديل لهذه المشاركة : 07-11-21, 11:14 AM {2} بواسطة ahmedabdelaliem.)
السلام عليكم
اخي جرب الكود هكذا
انا وضعت رقم ثابت في المتغير C
ولم يتغير الرقم
المهم جرب وضع تايمر للقراءة
PHP كود :
Private Sub Timer2_Timer() On Error Resume Next Dim c As Variant Dim n As Integer 'If MSComm1.CommEvent = comEvReceive Then If comEvEOF Then MSComm1.InputLen = 1 'Do While MSComm1.Input = "0" MSComm1.InputLen = 8 c = MSComm1.Input c1 = "" For i = 1 To Len(c) cut = Mid(c, i, 1) If (IsNumeric(cut)) Or (cut = ".") Then c1 = c1 & cut End If Next i Label5.Caption = Val(c1) Timer2.Enabled = False
End If
End Sub
بالتوفيق
الرجاء في حال استمرار المشكلة عمل فيديو لصعود الشاحنة وقراءة البرنامج للبيانات ورفعه
السلام عليكم استاذي الفاضل ahmedabdelaliem ورحمة الله وبركاته
ان شاء الله راح اجرب الكود واعطيك النتيجة بتصوير فيديو للحالة شكرا جزيلا مرة ثانية جزاك الله خيرا
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
اليوم تم تجربة برنامج الوزن المرفق وكانت النتيجة كما في رابط الفيديو المرفق بحيث تظهر في الشاشة السوداء للبرنامج علامة @ وعند الضغط على زر امر وزن السيارة محمل تظهر
هذه العلامات والارقام والحروف
اذا امكن المساعدة وحل هذه المشكلة والتخلص من علامة ال @ في الشاشة السوداء وايضا نقل الرقم بشكل صحيح الى التيكست بوكس الخاص بوزن السيارة محمل مع وافر التحايا