MsComm nesnesi için bekleme süresi

[proxyforum]

Arkadaşlar, rehberde kullandığım otomatik arama makrosu için, santralden dolayı sorun yaşıyorum. Aradığım numarayla işim bittiğinde, en az 2-3 sn kadar bekledikten sonra tekrar çevirme işlemi yapabiliyorum. Hazırladığım programda, numara değiştir dediğimde, port u kapatıp hemen açıyor ve 2-3 sn geçmediği için, hat hiç kapanmamış gibi, eski çevrimden devam etmeye çalışıyor. Ve çevrim başarısız oluyor. İstediğim, alternatif numarayı ara dediğimde, hattı kesip, 2-3 sn beklettikten sonra yeni numarayı çevirmesi. Bunu, html de olsa, Refresh yöntemi ile yapabilirdim ama VBA da bilmiyorum

Çalıştığım kod;

Private Sub UserForm_Initialize()
        TextBox1.Text = ActiveCell.Text
        MsComm1.Commport = 3
        MsComm1.PortOpen = True
        mesela = ActiveCell.Text
        If Left(mesela, 3) = "236" Then
        DialString$ = "ATDT 0" + Right(mesela, 7) + ";" + Chr(13) + Chr(10)
        
        Else
        DialString$ = "ATDT 00" + mesela + ";" + Chr(13) + Chr(10)
        End If
        
        MsComm1.Settings = "300,N,8,1"
        MsComm1.Output = DialString$
        ilkzmn = Now
        
        Label1 = "" & ActiveCell.Text & " Aranıyor..."
        Label2 = MsComm1.Input
        drmlbl = mesela
        
End Sub

 

[Haluk]

İlgili yerde application.wait komutunu kullanabilirsiniz.

Yardım dosyasından nasıl kullanıldığını bulabilirsiniz.