07-04-13, 04:40 PM
الصفحات : 1 2
07-04-13, 06:51 PM
السلام عليكم...
ليس لدي الآن تلك الشاشة، و لكن استعمل ما يلي:
أضف المكون MS Comm Control إلى النافذة.
أضف زر Command و اكتب به الكود التالي:
* بالنسبة إلى رقم المنفذ - في السطر الأول - يمكنك التأكد منه من خلال إدارة الأجهزة ضمن خصائص جهاز الكمبيوتر.
نرجو الاستفادة و السلام.
ليس لدي الآن تلك الشاشة، و لكن استعمل ما يلي:
أضف المكون 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, 10:50 AM
هل من حل ارجو من الاخوه الافاده
21-04-13, 07:12 PM
برنامج الاتصال ممتاز يرسل السعر فعلا قمت بتجربته ويعمل بطريقة ممكتازة وفكرته بسيطة
الصفحات : 1 2