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
    Share To:

    EDISON MEDIA

    Post A Comment:

    2 comments so far,Add yours

    1. Terimakasih pak tutorialnya sangat membantu pak , saya dah coba dan berhasil

      ReplyDelete
    2. permisi gan, kalo di port combobox nya tidak mau mendeteksi port yang ada gimana? mohon pencerahannya gan, terimakasih :)

      ReplyDelete