Cara kirim sms dengan visual basic .net - Hallo sahabat Market Terkini, Pada Artikel yang anda baca kali ini dengan judul Cara kirim sms dengan visual basic .net, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel visual basic, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Cara kirim sms dengan visual basic .net
link : Cara kirim sms dengan visual basic .net

Cara kirim sms dengan visual basic .net

Jika ANDA ingim mebuat aplikasi anda bisa mengirim sms di bawah ini adalah kode visual basic untuk mengirim sms.
Ya this is simple vb code for sending sms. Sering orang ingin membaut software transaksi pulsa dengan sms.
ok langsung saja 

di bawah ini adalah kode lengkapnya:

Imports System.IO.PortsImports 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

        For Each COMString As String In My.Computer.Ports.SerialPortNames
            cboCOMPort.Items.Add(COMString)
        Next
        cboCOMPort.Sorted = True    End Sub

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click

        COMport.PortName = cboCOMPort.Text
        COMport.BaudRate = 19200
        COMport.WriteTimeout = 2000

        Try           COMport.Open()
        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) & txtNoHP.Text & Chr(34) & Chr(13)
                COMport.Write(y)
                Sleep(tunda)
                Dim z As String = txtPesan.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 Sub
End Class

Di bawah ini adalah SMS yang terkirim ke HP:

Demikianlah Artikel Cara kirim sms dengan visual basic .net

Sekianlah artikel Cara kirim sms dengan visual basic .net kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Cara kirim sms dengan visual basic .net dengan alamat link https://gpbn2.blogspot.com/2015/11/cara-kirim-sms-dengan-visual-basic-net.html

Location:

Berbagi :