hamata00
11-29-2006, 08:47 PM
السلام عليكم ورحمة الله وبركاته
الأداة (Communications Control) تحقق الإتصال بين البرنامج الخاص بك وكارت الفاكس الموجود بالجهاز (Modem) ويجب ضبط خصائص معينه لكي يتحقق هذا الإتصال وهذه الخصائص هي كالتالي :
الخاصية CommPort وهي الخاصة بتحديد رقم الـ Port الخاصة بكارت الفاكس .
الخاصية Settings وهي تعتبر قيمة ثابته .
الخاصية PortOpen وهي التي تقوم بفتح الإتصال مع كارت الفاكس ويتم إسناد القيمة True لإتمام الفتح .
وهذا هو الكود الخاص بتلك الخصائص
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
ستنتقل بعد إتمام عملية الإتصال مع كارت الفاكس بالتعامل مع كارت الفاكس نفسه بالإتصال برقم تليفون معين مثلاً ، وكذلك إرسال رسالة نصية الي كارت فاكس آخر ويتم إستقباله علي أنه فاكس مرسل اليك وذلك من خلال الـ 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
ارجو الردود من الاعضاء بعد التجربة
والسلام عليكم ورحمة الله وبركاته:smailes22:
الأداة (Communications Control) تحقق الإتصال بين البرنامج الخاص بك وكارت الفاكس الموجود بالجهاز (Modem) ويجب ضبط خصائص معينه لكي يتحقق هذا الإتصال وهذه الخصائص هي كالتالي :
الخاصية CommPort وهي الخاصة بتحديد رقم الـ Port الخاصة بكارت الفاكس .
الخاصية Settings وهي تعتبر قيمة ثابته .
الخاصية PortOpen وهي التي تقوم بفتح الإتصال مع كارت الفاكس ويتم إسناد القيمة True لإتمام الفتح .
وهذا هو الكود الخاص بتلك الخصائص
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
ستنتقل بعد إتمام عملية الإتصال مع كارت الفاكس بالتعامل مع كارت الفاكس نفسه بالإتصال برقم تليفون معين مثلاً ، وكذلك إرسال رسالة نصية الي كارت فاكس آخر ويتم إستقباله علي أنه فاكس مرسل اليك وذلك من خلال الـ 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
ارجو الردود من الاعضاء بعد التجربة
والسلام عليكم ورحمة الله وبركاته:smailes22: