برجاء المساعدة من خبراء البرمجة بفيجوال باسيك

[eng-2010]

السلام عليكم ورحمة الله وبركاته
أخواني الأعزاء
لي طلب صغير
برجاء تلبيته ولكم جزيل الشكر مقدما
أنا أقوم بتصميم برنامج إتصالات للسنترالات الصغيرة بواسطة VB6
وأعتمد على كروت الفاكس المدعمه بخاصية (vioce)
وتقف أمامي عقبه وأريد تخطيها إن شاء الله بمساعدتكم
وهي أني أريد كود فيما معناه
(في حالة الرد قم بتشغيل تيمر وذلك لتنشيط عملية الحساب)

وهذا هو الكود الذي أستخدمه لعملية الإتصال معتمد لعى تحديد المنفذ (com port)


If MSComm2.PortOpen = False Then Exit Sub
End If
On Error Resume Next
Dim DialString$, FromModem$, dummy
Dim Result As Long

If MSComm2.PortOpen = True Then: MsgBox "منفذ الإتصال قيد الإستخدام حاليا", vbInformation, "": Exit Sub

If Text4.Text <> "" Then
With MSComm2
'تحديد منفذ الإتصال الخاص بالمودم
.CommPort = "4"
'إعدادات خاصة بالمودم وسرعته
.Settings = "9600,N,8,1"
'فتح المنفذ للحصول على الخط
.PortOpen = True
'بعض الثوابت لتعريف الإتصال
.Output = "ATD" & Text4.Text & vbCrLf

End With
cmd8.Enabled = True
cmd10.Enabled = True
StatusBar2.Panels(1) = "جاري الإتصال بـ " + Text4.Text


End If

MSComm2.InBufferCount = 0

'ÍáÞÉ ááÍÕæá Úáì äÊÇÆÌ ÇáÇÊÕÇá
Do
dummy = DoEvents()
'حلقة للحصول على نتائج الإتصال
If MSComm2.PortOpen = False Then Exit Sub

If MSComm2.InBufferCount Then
FromModem$ = FromModem$ + MSComm2.Input

If InStr(FromModem$, "NO DIALTONE") Then
MsgBox "لا يوجد صوت طنين تأكد من الخط غير مشغول او إتصاله بالمودم بشكل صحيح, vbInformation, ""
Exit Do
End If

If InStr(FromModem$, "BUSY") Then
tmrTime1.Enabled = False
lblMin1.Caption = "00"
lblSecond1.Caption = "00"
lblmilli1.Caption = "00"
cmd8.Enabled = False
cmd10.Enabled = False
Timer18.Enabled = True
Exit Do
End If

If InStr(FromModem$, "OK") Then
Result = MsgBox("إرفع السماعة وإضغط على موافق للمكالمة إن أردت إنهاء المكالمة أضغط موافق بدون رفع السماعة", vbInformation, "")
Exit Do
End If
End If
Loop
MSComm2.PortOpen = False
Exit Sub

وينقصني إذا كود لمعرفة حالة الخط بحيث لو تم الرد على الإتصال يتم تنشيط الحساب أوتوماتيكيا عن طريق تشغيل تيمر به كود حساب المكالمة

مشكورين مقدما لكم من يقدم المساعدة