Buat folder aplikasi kita, misal D:\SMSKU\
Buka VB 2008
Klik Project lalu klik Add Preference lalu kil browse adan arahkan pada file ATSMS.dll yang sudah kita simpan di C:\Windows\system32\ lalu klik OK
Buat aplikasi dengan komponen seperti di bawah ini
Label1 Port Label “Port”
Label2 No HP Label “ No HP”
Label3 Isi SMS Label “ Isi SMS”
Textbox1 Pengisian Port Com (USB)
Textbox2 No HP Pengirim
Textbox3 Isi SMS yang diterima
Buttton1 Koneksi HP Modem
Isi listing program dengan source code di bawah ini :
Imports ATSMS
Public Class FUtama
Private WithEvents oGsmModem As New GSMModem
Dim TextTerima As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
oGsmModem.Port = “Com” & TextBox1.Text
oGsmModem.BaudRate = 115200
oGsmModem.DataBits = 8
oGsmModem.StopBits = Common.EnumStopBits.One
oGsmModem.FlowControl = Common.EnumFlowControl.None
Try
oGsmModem.Connect()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Button1.Text = “CONNECT”
Return
End Try
Try
oGsmModem.NewMessageIndication = True
Catch ex As Exception
End Try
MsgBox(“HP / Modem Anda Sudah terkoneksi !”, MsgBoxStyle.Information)
Button1.Text = “DISCONNECT”
End Sub
Private Sub oGsmModem_NewMessageReceived(ByVal e As ATSMS.NewMessageReceivedEventArgs) Handles oGsmModem.NewMessageReceived
TextBox2.Text = e.MSISDN
TextBox3.Text = e.TextMessage
End Sub
End Class
Pasang modem HP, periksa port modem dengan cara membuka device manager,
Jalankan Aplikasi SMSKU
Isi alamat port seperti yang tertera pada comport serial (USB) pada device manager, misal pada port Com 9 (tulis 9 saja)
Klik tombol CONNECT
Jika terdapat pesan “Modem Anda Sudah terkoneksi !”, maka coba anda kirim SMS pada nomor HP modem anda melalui HP lain
Jika sudah tampil No HP pengirim dan isi pesan SMS, maka aplikasi yang anda buat sudah benar.
Terima kasih & semoga bermanfaat.
sumber : https://kangobing.wordpress.com/2012/10/15/aplikasi-sms-dengan-vb-net-vb-2008/
Tidak ada komentar:
Posting Komentar