:D السلام عليكم ورحمة الله وبركاته :D
:lol: الأداة (Communications Control) تحقق الإتصال بين البرنامج الخاص بك وكارت الفاكس الموجود بالجهاز (Modem) ويجب ضبط خصائص معينه لكي يتحقق هذا الإتصال وهذه الخصائص هي كالتالي :
الخاصية CommPort وهي الخاصة بتحديد رقم الـ Port الخاصة بكارت الفاكس .
الخاصية Settings وهي تعتبر قيمة ثابته .
الخاصية PortOpen وهي التي تقوم بفتح الإتصال مع كارت الفاكس ويتم إسناد القيمة True لإتمام الفتح .
وهذا هو الكود الخاص بتلك الخصائص : :blink:
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
والسلام عليكم ورحمة الله وبركاته :lol:
![18_05_06_01_05_06_114798270636_1_11[1].gif](http://www.arabteam2000.com/picload/pics_10_05/18_05_06_01_05_06_114798270636_1_11%5B1%5D.gif)