منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : برنامج ميزان شاحنات كبيرة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
استاذي الفاضل 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
MSComm1.Input
c1 
""
For 1 To Len(c)
cut Mid(ci1)
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 جزاك الله خيرا
ان شاء الله اجرب الكود واعطيك النتيجة شكرا جزيلا لك مرة ثانية
الصفحات : 1 2 3