منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اخواني سؤال تم طرحه في جميع المنتديات ولم تتم الأجبه عنه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اخواني سؤال تم طرحه في جميع المنتديات ولم تتم الأجبه عنه (/showthread.php?tid=8362)

الصفحات: 1 2

اخواني سؤال تم طرحه في جميع المنتديات ولم تتم الأجبه عنه - علوش - 07-04-13

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

اخواني سؤال تم طرحه في جميع المنتديات ولم تتم الأجبه عنه - ناجي إبراهيم - 07-04-13

السلام عليكم...

ليس لدي الآن تلك الشاشة، و لكن استعمل ما يلي:
أضف المكون MS Comm Control إلى النافذة.
أضف زر Command و اكتب به الكود التالي:
كود :
' اختر رقم المنفذ
MSComm1.CommPort = 1
' اضبط الإعدادات
MSComm1.Settings = "9600,N,8,1"
' افتح المنفذ
MSComm1.PortOpen = True
' امسح شاشة العرض
MSComm1.Output = Chr$(12)
' أرسل البيانات للعرض
MSComm1.Output = "السطر الأول"
MSComm1.Output = Chr$(13) & "السطر الثاني"
' أغلق المنفذ
MSComm1.PortOpen = False

* بالنسبة إلى رقم المنفذ - في السطر الأول - يمكنك التأكد منه من خلال إدارة الأجهزة ضمن خصائص جهاز الكمبيوتر.

نرجو الاستفادة و السلام.

اخواني سؤال تم طرحه في جميع المنتديات ولم تتم الأجبه عنه - علوش - 08-04-13

هل من حل ارجو من الاخوه الافاده

اخواني سؤال تم طرحه في جميع المنتديات ولم تتم الأجبه عنه - AhmedSamir3 - 21-04-13

برنامج الاتصال ممتاز يرسل السعر فعلا قمت بتجربته ويعمل بطريقة ممكتازة وفكرته بسيطة