استاذي الفاضل Amir_Alzubidy الله لايحرمنا من شخصك الكريم والطيب يا طيب ممنون منك على المساعدة جزاك الله خيرا وهذا البرنامج بالمرفقات
ارجو التعديل عليه مع وافر التحايا
اساتذتي الافاضل ممكن المساعدة الموضوع غاية في الاهمية جزاكم الله خيرا
اساتذتي الافاضل جزاكم الله خيرا اذا امكن المساعدة لاهمية الموضوع بارك الله فيكم
السلام عليكم ورحمة الله وبركاته
من الصعب على المبرمج المساعدة في البرامج التي تتعامل مع الأجهزة الخارجية (لعدم القدرة على التجريب لعدم وجود الجهاز لديه).
فكثير من البرمجين يلاحظون بأن برامجهم تعمل على أجهزة وأجهزة أخرة لا تعمل عليها لأسباب كثيرة منها :
- اختلاف مواصفات الجهاز. - اختلاف نظام التشغيل. وأحيانا نفس البرنامج تحاول صناعته مرة أخرى على جهازك الذي صنعت عليه النسخة الاولى تجد أنه لا تعمل عليه النسخة الثانية (مع أنه نفس الكود المستخدم ونفس الادوات) لكن ما السبب (الله أعلم).
===
على كلٍ عملت تعديل على البرنامج لديك وأفقته
ستقوم بتنزيله وتجريبه - ربما لن تجد اختلافاً كثيراً (ولكن سيقوم بتسجيل كل عملية يقوم بها في قاعدة البيانات).
فأريد أن تقوم بعد تجريبه عدة مرات أن تعود هنا وترفع قاعدة بيانات البرنامج لأرى ماذا سجل فيها البرنامج.
وما الاختلافات التي حدثت مع التغيير.
ونرجوا من الله أن يمكننا من مساعدتك..
استاذي الفاضل Taha Okla الله لايحرمنا من شخصك الكريم والطيب يا طيب شكرا جزيلا لحضرتك ربي يحفظك يارب
ان شاء الله سوف اقوم بالتجربة واخبارك النتيجة مع تصوير شاشة قارء الوزن وشاشة البرنامج ورفع المشروع بالكامل هنا شكرا مرة ثانية استاذي الفاضل
السلام عليكم
اخي جرب الكود هكذا
انا وضعت رقم ثابت في المتغير 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
السلام عليكم
اخي استخدم هذا الكود للتخلص من @
PHP كود :
Me.Label5.Caption = Replace(Me.Label5.Caption, "@", " ")
بالتوفيق
ممنون منك استاذ ahmedabdelaliem جزاك الله خيرا
ان شاء الله اجرب الكود واعطيك النتيجة شكرا جزيلا لك مرة ثانية