Penggunaan Visual Bassic

 Cara Membuat Panggilan Telepon Dengan Menggunakan Visual Basic

0

mempunyai pengetahuan tentang bagaimana cara membuat panggilan telepon dengan menggunakan visual basic.net,applikasi dapat menyimpan waktu anda jika anda membutuhkan untuk membuat panggilan secara terus menerus.VB.Net adalah bahasa pemrograman yang di gunakan untuk membuat ponsel,aplikasi dekstop dan web.membuat panggilan telepon melalui VB.Net dapat tercapai menggunakan TAPI (Telephony Application Programming Interface ).TAPI memberikan programer layer yang dibutuhkan untuk mengakses Microsoft Telephony DLLs (dynamic link libraries).Telephony mengintegrasikan komputer dengan perangkat seperti kamera dan jaringan internet.

1. jalankan microsoft visual basic express,click new project –> windowsFormApplication lalu klik ” OK “
2. tambahkan button,text box dan dua label,dengan cara dobel klik pada toolbox
3. dobel klik button1 untuk melihat jendela form1.vb, lalu tambahkan “ Imports System.Windows.Forms “
4. copy dan paste berikut ini untuk menyatakanTAPI32 DLL  Declare Auto Function tapiRequestMakeCall Lib “TAPI32.dll” _
   (ByVal DestAddress As String, ByVal AppName As String, _
   ByVal CalledParty As String, ByVal Comment As String) As Integer
   Const TAPIERR_NOREQUESTRECIPIENT As Short = -2
   Const TAPIERR_REQUESTQUEUEFULL As Short = -3
   Const TAPIERR_INVALDESTADDRESS As Short = -4
   prosedur button1_click telah dibuat ketika anda dobel klik button pada form anda
5. copy dan paste berikut di dalam button1_click
   
   Dim phoneNum As String
   Dim tResult As Short
   Dim tmpStr As String
   prosedur button1_click telah dibuat ketika anda dobel klik button pada form anda
6. copy dan paste berikut ini untuk mendapatkan nomer telepon yang dimasukan pada textbox kemudian panggil :
   
   phoneNum = Trim(TextBox1.Text)
   Try
   tResult = tapiRequestMakeCall(phoneNum, “Dial”, phoneNum, “”)
   Catch ex As Exception
   Label2.Text = “Error”
   End Try
   
   
7. copy dan paste kode berikut untuk mengecek kesalahan :
   
   If tResult <> 0 Then
   tmpStr = “Error”
   Select Case tResult
   Case TAPIERR_NOREQUESTRECIPIENT
   tmpStr = tmpStr & “No windows Telephony dialing application is running and none could be started.”
   Case TAPIERR_REQUESTQUEUEFULL
   tmpStr = tmpStr & “The queue of pending Windows Telephony dialing requests is full.”
   Case TAPIERR_INVALDESTADDRESS
   tmpStr = tmpStr & “The phone number is not valid.”
   Case Else
   tmpStr = tmpStr & “Unkown error.”
   End Select
   Else
   tmpStr = “Dialing”
   End If
   Label2.Text = tmpStr
   End Sub
   End Class
8. tekan f5 untuk menjalankan program,lalu masukan nomer telepon lalu tekan button