MSComm

أخوة الكرام ، تحية طيبة وبعد ،

أنا لدي سؤال بسيط جداً وهو عن :

أولاً :

لدي مثال بسيط جداً ، يمكنه معرفة إن كان هناك شخص يتصل بالكمبيوتر أم لا !!!

وأثناء إتصال الطرف الثاني يكون خاصية MSComm1.CommEvent = 6 !!!

وعندما ينتهي الإتصال تظل تلك الخاصة = 6 !!!

سؤالي هنا ، كيف أتمكن من معرفة إنهاء الإتصال !!!!

ثانياً :

قت بالإتصال بهاتف معين ، وحينما أنتهي العميل المتصل وضع سماعة التليفون علي التليفون. فكيف أعلم إن كان الإتصال إنتهي من قبل

العميل أم لا !!!!

ثالثاً :

عند الإتصال بتليفوني من طرف آخر ، يكون خاصية MSComm1.CommEvent = 6 كما قلت !!!

ولكن كيف أعلم رقم هاتف المتصل ، أو مصدر الإتصال ؟؟؟؟

------------------------------------------------------------------------------------------------

المثال هو كما يلي :

الشاشة تحتوي علي (Label1, MSComm1) ، وكود البرنامج كما يلي :

Option Explicit
Private Sub Form_Load()
Dim I As Long
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 3
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent Then
MsgBox "هناك فرد يتصل بك ، أرفع سماعة التليفون"
''عند النقر هنا يتم عرض الرسالة السابقة.
''وأنا أرغب في معرفة رقم هاتف المتصل كما يلي :
Label1.Caption = "Phone Number Is: ?????"
Else
''وعند إنهاء الإتصال يتم مسح رقم المتصل.
Label1.Caption = ""
End If
End Sub

------------------------------------------------------------------------------------------------

شكراً لحضراتكم

وأتمني مساعدتي في هذه الأسئلة في أسرع وقت ممكن

جزاكم الله كل خير

السلام عليكم ورحمة الله وبركاتة