Cara Membuat Applikasi Pengirim SMS dengan VB.Net

aplikasi sms vb.net aplikasi sms gateway vb.net aplikasi sms dengan vb.net aplikasi sms gateway dengan vb.net membuat aplikasi sms vb.net aplikasi sms vb.net aplikasi sms gateway vb.net aplikasi sms dengan vb.net aplikasi sms gateway dengan vb.net membuat aplikasi sms vb.net aplikasi sms dengan vb.net aplikasi sms gateway vb.net membuat aplikasi sms vb.net aplikasi sms vb.net aplikasi sms gateway vb.net aplikasi sms dengan vb.net aplikasi sms gateway dengan vb.net membuat aplikasi sms vb.net

aplikasi sms vb.net aplikasi sms gateway vb.net aplikasi sms dengan vb.net aplikasi sms gateway dengan vb.net membuat aplikasi sms vb.net aplikasi sms vb.net aplikasi sms gateway vb.net aplikasi sms dengan vb.net aplikasi sms gateway dengan vb.net membuat aplikasi sms vb.net aplikasi sms dengan vb.net aplikasi sms gateway vb.net membuat aplikasi sms vb.net aplikasi sms vb.net aplikasi sms gateway vb.net aplikasi sms dengan vb.net aplikasi sms gateway dengan vb.net membuat aplikasi sms vb.net

Cara Membuat Applikasi Pengirim SMS dengan VB.Net - Pada kesempatan kali ini saya akan berbagi cara membuat pengirim sms dengan VB.Net. Applikasi pengirim SMS digunakan untuk keperluan kita misalnya kita mempunyai penjualan pulsa atau lainnya yang diperlukan untuk sehari-hari mengirim sms melalui komputer. nah tanpa ribet-ribet kita hanya mengetik dikomputer atau tanpa mengeluarkan hp. pada program ini saya menggunakan visual basic 2012 untuk versi lainnya anda bisa mengikuti yang penting diatas 2005. nah untuk membuatnya anda bisa mengikuti langkah demi langkah dibawah ini :

1. Yang pertama kali silahkan buka Visual Basic anda.

2. Jika sudah silahkan desain form anda seperti dibawah ini :

Keterangan Pada Properties:

• 2 Buah Button 

           1. Text : Tulis Baru

               name : btnTulisBaru

           2. Text : Kirim

               name : btnKirim

• 1 Buah Command Button

          Text : dikosongi

          name : cmbKoneksi

• 2 Buah TextBox

          1. Text : nomor

              name : tnoHp

          2. Text : pesan

              name : tPesan

3. Jika sudah memberikan name pada properties silahkan ketikan kode dibawah ini :

Imports System.IO.Ports
Imports System.Threading.Thread
Public Class Form1
    Private Tunda As Integer
    Private WithEvents COMport As New SerialPort
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        mati()
        For Each COMString As String In My.Computer.Ports.SerialPortNames
            cmbKoneksi.Items.Add(COMString)
        Next
        cmbKoneksi.Sorted = True
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKirim.Click
        If cmbKoneksi.Text = "" Or tnohp.Text = "" Or tPesan.Text = "" Then
            MsgBox("Silahkan Isi Semua")
        Else
            COMport.PortName = cmbKoneksi.Text
            COMport.BaudRate = 19200
            COMport.WriteTimeout = 2000
            Try
                COMport.Open()
                bersih()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Sleep(300)   '....tunggu 0.3 second
            Tunda = 300
            Sleep(Tunda)
            Application.DoEvents()
            If COMport.IsOpen Then
                Try
                    Dim x As String = "AT+CMGF=1" & Chr(13)
                    COMport.Write(x)
                    Sleep(Tunda)
                    Dim y As String = "AT+CMGS=" & Chr(34) & tnohp.Text & Chr(34) & Chr(13)
                    COMport.Write(y)
                    Sleep(Tunda)
                    Dim z As String = tPesan.Text & Chr(26)
                    COMport.Write(z)
                    Sleep(Tunda)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Else
                MsgBox("COM port tertutup.")
            End If
        End If

    End Sub
    Sub bersih()
        cmbKoneksi.Text = ""
        tnohp.Clear()
        tPesan.Clear()
        mati()
    End Sub
    Sub mati()
        cmbKoneksi.Enabled = False
        tnohp.Enabled = False
        tPesan.Enabled = False
        btnKirim.Enabled = False
        btnTulisBaru.Enabled = True
    End Sub
    Sub hidup()
        cmbKoneksi.Enabled = True
        tnohp.Enabled = True
        tPesan.Enabled = True
        btnKirim.Enabled = True
        btnTulisBaru.Enabled = False
    End Sub
    Private Sub btnTulisBaru_Click(sender As Object, e As EventArgs) Handles btnTulisBaru.Click
        hidup()
    End Sub
End Class

4. Setelah itu colokkan Modem GSM atau CDMA ke komputer anda

5. Jika sudah jalankan dan pilih koneksi modem anda. pada contoh ini saya menggunakan modem dengan koneksi COM 5

6. Jika sms tidak terkirim, silahkan gunakan nomor yang menggunakan kode negara misalnya indonesia +62

Demikian tips dan trik yang dapat saya bagikan semoga bermanfaat bagi anda semua. untuk masalah error silahkan anda bisa meninggalkan komentar dibawah ini terimakasih