folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Bilgisayardan Telefonla Aramak (Yardım)



Bilgisayardan Telefonla Aramak (Yardım)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    Microsoft Comm Control 6.0 bileşeni ile modem ayarları vs yapıp çalıştırabilen biri varmı?

    Yapan varsa ayrıntılı bi şekilde anlatabilir mi?

     

    Kodları:

    Private Sub Command1_Click()
    On Error GoTo Hata
    num = Text1.Text
    MSComm1.Output = "ATDT" & num & vbCr
    Exit Sub
    Hata:
    MsgBox "Hata"
    End Sub

    Private Sub Command2_Click()
    If MSComm1.PortOpen = True Then
        MSComm1.Output = "ATH" + Chr$(13)
            MSComm1.PortOpen = False
        End If
    End Sub

    Private Sub gonder_Click()
    On Error GoTo Hata
    Mesaj = Text2.Text
    MSComm1.Output = Mesaj
    Exit Sub
    Hata:
    MsgBox "Mesaj Yollanamadı"
    End Sub

    Private Sub Form_Load()
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1"
    On Local Error GoTo Hata
    MSComm1.PortOpen = True
    Exit Sub
    Hata:
    MsgBox "Port Acılamıyor"
    End Sub

    Reply With Quote Alıntı yap
Toplam Hit: 2152 Toplam Mesaj: 1