شرح كامل لاداة Microsoft Communications Control

:lol: الأداة (Communications Control)
تحقق الإتصال بين البرنامج الخاص بك وكارت الفاكس الموجود بالجهاز (Modem)
ويجب ضبط خصائص معينه لكي يتحقق هذا الإتصال وهذه الخصائص هي كالتالي :


الخاصية CommPort وهي الخاصة بتحديد رقم الـ Port الخاصة بكارت الفاكس .

الخاصية Settings وهي تعتبر قيمة ثابته .

الخاصية PortOpen وهي التي تقوم بفتح الإتصال مع كارت الفاكس ويتم إسناد القيمة True لإتمام الفتح .


وهذا هو الكود الخاص بتلك الخصائص :

MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True


:lol:
ستنتقل بعد إتمام عملية الإتصال مع كارت الفاكس بالتعامل مع كارت الفاكس
نفسه بالإتصال برقم تليفون معين مثلاً ، وكذلك إرسال رسالة نصية الي كارت
فاكس آخر ويتم إستقباله علي أنه فاكس مرسل اليك وذلك من خلال الـ Output property .


ويتم ذلك كما يلي :


MSComm1.Output = "ATDT 555-1234" & vbCr


وتفسير هذا الكود كما يلي :


AT لبدء الإتصال .

D الإتصال بالرقم .

T تحدد نوع خط التليفون (Touch-Tone OR pulse dialing).

vbCr يعتبر ثابت يتم وضعه عند استخدام قيم نصيه مع الـ Output


والأمر التالي يقوم بإرسال الرساله النصية التي تريدها :

MSComm1.Output = "AGC TEAM" & vbCr


سننتقل الآن لكيفية إستقبال الـ Data بواسطة هذه الأداة ويتم ذلك بواسطة الـ Input property في textbox مثلاً ويمكن إتمام ذلك بواسطة الأمر التالي :

Text1.Text = MSComm1.Input