+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] برنامج ميزان شاحنات كبيرة (/showthread.php?tid=39758)
RE: برنامج ميزان شاحنات كبيرة - وادي العوضي - 16-11-21
Private Sub MSComm1_OnComm()
Dim MyData As String
Select Case MSComm1.CommEvent
Case Is = comEvReceive
MyData = MSComm1.Input
End Select
Label5.Caption = MyData
End Sub
أستاذي الفاضل هذا الكود هو المسؤول عن ظهور رقم الوزن مع علامة ال @
-------------------------------------------------------------------------------------------------
Me.Label5.Caption = Replace(Me.Label5.Caption, "@", " ")
سؤالي هو : اين اضع هذا الكود الذي حضرتك تفضلت به علي هل اضعه بدل هذا الكود Label5.Caption = MyData اذا امكن التوضيح اكثر بارك الله فيك وجزاك الله خيرا
RE: برنامج ميزان شاحنات كبيرة - Taha Okla - 16-11-21
هو يقصد أن تكتب :
كود :
Me.Label5.Caption = Replace(MyData, "@", " ")بدلا من :
كود :
Label5.Caption = MyDataRE: برنامج ميزان شاحنات كبيرة - وادي العوضي - 16-11-21
الله يبارك في حضرتك استاذ Taha Okla جزاك الله خيرا
شكرا جزيلا لسرعة الرد حفظكم الله ورعاكم
RE: برنامج ميزان شاحنات كبيرة - ahmedabdelaliem - 17-11-21
السلام عليكم
تمام نفس اجابة اخي طه
بالتوفيق
RE: برنامج ميزان شاحنات كبيرة - وادي العوضي - 17-11-21
بارك الله فيك استاذ ahmedabdelaliem وجزاك الله خيرا ممنون منك جدا يا طيب ربنا معاك في كل خطوة يارب