تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] برنامج ميزان شاحنات كبيرة
#1
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
طلبي في هذا البرنامج هو تثبيت قراءة الوزن في الشاشة السوداء بعد مضي دقيقة
مثلا عند صعود الشاحنة على الميزان الالكتروني سوف يظهر الوزن في الشاشة السوداء هكذا كمثال 45500 كغم ولكن بعد ثانية يرجع الوزن هكذا 0 ثم بعد ثانية يرجع الوزن 500 ثم بعد ثانية يرجع الوزن 5500
ثم بعد ثانية يرجع الوزن 45500 وعندما يصل الى هذا الرقم تعاد الكرة مرة ثانية وهكذا ( كيف يتم تثبيت الرقم بعد مضي دقيقة او دقيقتين الى الرقم مثلا 45500 الذي هو وزن الشاحنة الحقيقي
مع وافر التحايا


الملفات المرفقة
.rar   progwiat.rar (الحجم : 112.58 ك ب / التحميلات : 69)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
--
انا لم ابرمج مثل هذا من قبل
ولكن بعد الاطلاع على الكود يتبين ان الخطأ يكمن في استخدامك للتايمر (لانه كل ثانية يقوم بعملية تفحص جديد حسب ما قمت باعطاءه امر للفحص (1000))
والشيء الاخر من الخطأ ان تعتمد على كود  (On Error Resume Next)  في بداية كل كود وبرنامجك لازال قيد التطوير ..
بالعادة المبرمج عندما يتأكد من برنامجه اصبح جاهز للاستخدام الفعلي يقم باضافة هذا الكود قبل تحويله لملف تنفيذي وتحزيمه.. مع اضافة قاعدة بيانات لتسجيل الاخطاء فيما لو حدثت ويعرف في اي نموذج واي وقت واي عملية حصلت للرجوع اليها لاحقا واصلاحها ..
===.
1 - قم بحذف كود تجاوز الخطأ.
2- راجع خطوات عمل الكود في التايمر جزء جزء وتقرأ الكود في التايمر وكأنك انت البرنامج الذي يأخذ البيانات من الميزان(ماذا ستفعل في كل خطوة) ولا تنسى أنه في كل ثانية سيقوم البرنامج بتكرار الخطوات نفسها(فهل من الصحيح برأيك أن يقرأ نفس البيانات في كل ثانية وهل سيقرأها نفسها أم هناك ضوابط تجعله يغير بالبيانات ثم يبدأ فحصها من جديد)...
3- حاول قدر المستطاع ان تستغني عن كتابة الاكواد ضمن التايمر الا ما كان ضروريا ولا يمكن ان يعمل الا داخله. 
فلا تستدعي التايمر الا عند الضرورة القصوى. 
فأكثر اخطاء المبرمجين تبدأ من استخدامهم للتايمر وعدم القدرة على ضبط الكود وضبط استخدام التايمر للحاجة المطلوبة ثم فصله.
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:
#3
استاذي الفاضل Taha Okla السلام عليكم ورحمة الله وبركاته
اولا شكرا جزيلا لسرعة الرد بارك الله فيك وجزاك الله خيرا
ثانيا الكود الموجود في التايمر زائد انا وضعته فيه وهو اصلا غير موجود في البرنامج لكني بعد ان يأست من ان اثبت القراءة في الشاشة السوداء
لجات الى وضع تايمر ووضع الكود داخله ارجو من حضرتك مسح التايمر مع الكود الموجود فيه وايجاد حل في الكود الموجود في اداة الاتصال

Private Sub MSComm1_OnComm()
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©
cut = Mid(c, i, 1)
If (IsNumeric(cut)) Or (cut = ".") Then
c1 = c1 & cut
End If
Next i
Label5.Caption = Val(c1)
'Loop
End If
End If
'MSComm1.InBufferCount = 0

End Sub
الرد }}}
تم الشكر بواسطة:
#4
اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته هذا شرح اكثر وضوح للحالة الي تصير معايا الشرح على النموذج داخل البرنامج وهذا البرنامج في المرفقات
مع وافر التحايا


الملفات المرفقة
.rar   progwiat1.rar (الحجم : 112.79 ك ب / التحميلات : 62)
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
هذه الصورة المرفقة توضح الخلل بالتفصيل الممل


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#6
و عليكم السلام و رحمة الله و بركاته

أخي الكريم المفروض الخروج من الحلقة أو الاجراء عند تحقق الشرط

جرب تعديل الكود كالتالي

كود :
Private Sub MSComm1_OnComm()
Dim c As Variant

If MSComm1.CommEvent = comEvReceive Then
If comEvEOF Then
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
Label5.Caption = Val(c1)
Exit For
End If
Next i
End If
End If
'MSComm1.InBufferCount = 0

End Sub
الرد }}}
تم الشكر بواسطة: وادي العوضي
#7
استاذي الفاضل Mohamad Anan السلام عليكم ورحمة الله وبركاته
الله يبارك في حضرتك وجزاك الله خيرا اللهم ربي يحفظك اللهم آميين يارب العالمين
ان شاء الله اقوم بتجربة التعديل واعطيك النتيجة شكرا لك مرة ثانية مع وافر التحايا
الرد }}}
تم الشكر بواسطة: Mohamad Anan
#8
السلام عليكم استاذي الفاضل Mohamad Anan لم تنجح الطريقة كما تفضلت بها بحيث عندما أضفت الكود الذي تفضلت به حضرتك لم يظهر رقم الوزن في الشاشة السوداء
الحقيقة تعبت ولم اجد ضالتي بتثبيت الرقم في الشاشة السوداء كما شرحتها بالصورة المرفقة في المشاركات اعلاه
هل يمكن مساعدتي مع وافر التحايا
الرد }}}
تم الشكر بواسطة:
#9
اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته
اساتذتي الافاضل هذه الصورة المرفقة والتي ارفقتها في مشاركاتي السابقة سوف اعيد رفعها مرة ثانية طلبي هو وضع كود برمجي يثبت الوزن الصحيح في الشاشة السوداءاخواني الوزن يتذبذب كما في الصورة المرفقة
طلبي هو عندما يظهر الوزن الصحيح يثبت في الشاشة السوداء البرنامج موجود في المشاركات السابقة والاكواد فيه شاكرا تعاونكم معي


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#10
اساتذتي الافاضل الله يحفظكم جميعا ويمن عليكم بالصحة والعافية
ماذا اصاب هذا المنتدى الاكثر من رائع لماذا لايتم الرد على الاعضاء المشاركين بأسئلتهم هل اسئلة الاعضاء صعبة أو غير مفهومة
تحياتي لكم جميعا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] برنامج تنبيه صوتي ويندوز 10 aboezzat84 0 83 07-01-24, 06:46 PM
آخر رد: aboezzat84
  برنامج VB6 النسخة الفرنسية كاملة الخير طهوري 7 11,941 02-01-24, 06:55 PM
آخر رد: الخير19
  [vb6.0] ريد كود طيع التقرير نسختين علماً انني استخدم برنامج Active Report ؟ Microformt 2 359 12-11-23, 05:05 PM
آخر رد: Microformt
  [سؤال] ماهو سبب خروج هذه الرسالة كما في الصورة المرفقة عند تشغيل برنامج الفيجوال بيسك6 وادي العوضي 3 498 24-07-23, 11:50 PM
آخر رد: وادي العوضي
  كود قراءة الوزن من ميزان بسكول ahlan_32 5 998 16-11-22, 07:10 PM
آخر رد: وادي العوضي
  تحول برنامج مبرمج v.b في xp الو وندوز ٧ kanu3342 9 5,070 10-10-22, 12:02 AM
آخر رد: كاظم هاشم البهادلي
  [سؤال] احتاج برنامج يقرأ من اكسل ضروري لو سمحتم mera 0 505 10-06-22, 03:43 PM
آخر رد: mera
  [كود] برنامج سوبر ماركت نهى علي 11 1,792 07-06-22, 05:14 AM
آخر رد: نهى علي
  برنامج اختبارات( للمناقشه) haider kh 2 994 30-12-21, 08:28 PM
آخر رد: أبو خالد الشكري
  [vb6.0] برنامج retshard 2 876 01-11-21, 10:20 AM
آخر رد: ahmedabdelaliem

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم