[وادي العوضي]

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

[وادي العوضي]

اساتذتي الافاضل ممكن المساعدة الموضوع غاية في الاهمية جزاكم الله خيرا

[وادي العوضي]

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

[Taha Okla]

السلام عليكم ورحمة الله وبركاته


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

===
على كلٍ عملت تعديل على البرنامج لديك وأفقته
ستقوم بتنزيله وتجريبه - ربما لن تجد اختلافاً كثيراً (ولكن سيقوم بتسجيل كل عملية يقوم بها في قاعدة البيانات).
فأريد أن تقوم بعد تجريبه عدة مرات أن تعود هنا وترفع قاعدة بيانات البرنامج لأرى ماذا سجل فيها البرنامج.
وما الاختلافات التي حدثت مع التغيير.

ونرجوا من الله أن يمكننا من مساعدتك..

[وادي العوضي]

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

[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 ورحمة الله وبركاته
ان شاء الله راح اجرب الكود واعطيك النتيجة بتصوير فيديو للحالة شكرا جزيلا مرة ثانية جزاك الله خيرا

[وادي العوضي]

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


https://www.mediafire.com/file/mh8ffm784...1.mp4/file

[ahmedabdelaliem]

السلام عليكم

اخي استخدم هذا الكود للتخلص من @ 

PHP كود :

Me.Label5.Caption = Replace(Me.Label5.Caption, "@", " ") 


بالتوفيق

[وادي العوضي]

ممنون منك استاذ ahmedabdelaliem جزاك الله خيرا
ان شاء الله اجرب الكود واعطيك النتيجة شكرا جزيلا لك مرة ثانية