MSComm واستقبال البيانات

بسم الله الرحمن الرحيم

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

الاخوة الأعضاء هذا الموضوع منذ زمن وأنا أريد الانتهاء منه لكي اكمل البرنامج

وهو تبادل الملفات عن طريق المودم باستخدام أداة الاتصال MSComm

مشكلتي تتعلق بالاستقبال فقط أما الإرسال فيعمل بشكل جيد والحمد لله

الارسال : يتم ارسال البيانات من البرنامج على الجهاز الاول الى برنامج HyperTerminal على

الجهاز الثاني ، كما اخبرتكم يعمل بشكل سليم.

الاستقبال : عند الاتصال من الجهاز الثاني على الجهاز الأول (الذي عليه برنامج الاستقبال)

يعطيني في Textbox (يوضع بها البيانات المستقبلة)

Ring مكرره حسب عدد الرنين

هذا يعني أن البرنامج حتى الآن يعمل بشكل جيد لانه تحسس حالة الرنين

سؤالي هو كيف اجعله بمجرد استقبال أول رنه (رنين الهاتف) يقوم بالرد

مباشرة واستقبال البيانات المرسلة له من قبل الجهاز الثاني ؟؟

هذا الكود الذي استخدمته لبرنامج الاستقبال

Private Sub Form_Load()
    With MSComm1
        .CommPort = 1 'use your free port
        .Handshaking = 2 - comRTS
        .RThreshold = 1
        .RTSEnable = True
        .Settings = "28800,n,8,1"
        .SThreshold = 1
        .InputMode = comInputModeText
        .PortOpen = True
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MSComm1.PortOpen = False
End Sub

Private Sub MSComm1_OnComm()
    Dim inbuff As String
    Select Case MSComm1.CommEvent
        Case comEvReceive
            inbuff = MSComm1.Input
            Call HandleInput(inbuff)
'        Case comEvRing
'            If comEvRing = 6 Then
'                MsgBox "Rings"
'            Else
'            End If
    End Select
End Sub

Sub HandleInput(inbuff As String)
    Text1.SelStart = Len(Text1.Text)
    Text1.SelText = inbuff
End Sub

ولتحميل جميع البرامج التى قمت بتحميلها من الانترنت

الخاصه بهذا الموضوع

http://mypage.ayna.com/hudoom/ALI/mscomm1.zip

اذا اعطاك خطاء فى التحميل

من الزر الايمن للفارة ثم حفظ باسم

او افتح الصفحة

http://mypage.ayna.com/hudoom/ALI

وحمل الملف MSComm1.zip

والله الموفق

أخوكم / أبو حسين