Interfacing Visual Basic 2008 Dengan Modem Wavecom
on September 13, 2012 at 9:09 AM Dengan menggunakan perangkat modem GSM Wavecom kita bisa membuat sebuah sistem SMS gateway. SMS gateway dapat digunakan untuk berbagai keperluan, misalnya sistem informasi akademik, sistem informasi pooling, dan sistem informasi lainnya. Selain sistem informasi, SMS gateway juga dapat digunakan untuk media telemetri, atau pengukuran jarak jauh dimana media SMS sebagai penghubung komunikasi datanya.
Salah satu alternatif yang dapat digunakan adalah modem GSM serial yang saat ini dapat dibeli dengan harga yang terjangkau. Selain itu, kita cukup menyediakan sebuah PC untuk membuat sistem. Pada tulisan ini akan dijelaskan salah satu cara interfacing antara modem serial GSM dengan Visual Basic 2008.
Membuat Interface
1. Membuat desain form interface dengan Visual Basic 2008 seperti berikut
Kita masukkan beberapa item dari toolbox, diantaranya:
– PictureBox1 dan PictureBox2
– Label
– ComboBox
– Button1 dan Button2
– TextBox1, TextBox2, dan TextBox3
2. Masukkan komponen SerialPort1, seperti gambar berikut
Setelah selesai, hasil akhir dari desain Form Interface Modem adalah seperti berikut:
Penjelasan:
Dim WithEvents serialPort As New IO.Ports.SerialPort
perintah diatas berfungsi untuk mendeklarasikan variabel serialPort sebagai sebuah komponen SerialPort.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Integer
‘cek available serial port pada komputer
‘termasuk serial modem
For i As Integer = 0 To _
My.Computer.Ports.SerialPortNames.Count – 1
‘tambahkan ke dalam list combo serial port
cbbCOMPorts.Items.Add( _
My.Computer.Ports.SerialPortNames(i))
a = i
Next
cbbCOMPorts.Text = cbbCOMPorts.Items(a)
End Sub
Coding di atas berfungsi untuk mendapatkan list serial port yang ada pada komputer. Sehingga secara otomatis akan diketahui port serial dan nomernya pada daftar ComboBox.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
SerialPort1.PortName = cbbCOMPorts.Text
If SerialPort1.IsOpen = True Then
SerialPort1.Close()
End If
If SerialPort1.IsOpen = False Then
With SerialPort1
.Open()
.Handshake = IO.Ports.Handshake.RequestToSend
‘.RtsEnable = True
‘.DtrEnable = True
End With
End If
Fungsi coding di atas untuk mengatur properti serial port yang dipilih dan membuka koneksi untuk siap digunakan.
Dim Enter1, Enter2, Enter3 As Integer
Dim Echo, Echo1, Echo2, Echo3 As String
Dua baris berfungsi untuk deklarasi variabel yang akan digunakan berikutnya.
‘mengambil kode produk
SerialPort1.WriteLine(“AT+CGMI” & vbCrLf)
Threading.Thread.Sleep(500)
Echo = SerialPort1.ReadExisting
Enter1 = Strings.InStr(Echo, vbCrLf)
Echo1 = Strings.Right(Echo, Len(Echo) – Enter1)
Enter2 = Strings.InStr(Echo1, vbCrLf)
Echo2 = Strings.Right(Echo1, Len(Echo1) – Enter2 – 1)
Enter3 = Strings.InStr(Echo2, vbCrLf)
Echo3 = Strings.Left(Echo2, Enter3 – 1)
txtKodeProduksi.Text = Echo3
Karena setiap device/produk modem GSM memiliki tipe dan kode yang berbeda, maka kita bisa mengetahui kode produk dari device dengan menggunakan AT Command “AT+CGMI”. Setelah mendapatkan command di atas, modem akan memberikan kode yang menunjukkan kode produk yang selanjutnya ditampilkan pada TextBox txtKodeProduksi.
‘mengambil model produk
SerialPort1.WriteLine(“AT+CGMM” & vbCrLf)
Threading.Thread.Sleep(500)
Echo = SerialPort1.ReadExisting
Enter1 = Strings.InStr(Echo, vbCrLf)
Echo1 = Strings.Right(Echo, Len(Echo) – Enter1)
Enter2 = Strings.InStr(Echo1, vbCrLf)
Echo2 = Strings.Right(Echo1, Len(Echo1) – Enter2 – 1)
Enter3 = Strings.InStr(Echo2, vbCrLf)
Echo3 = Strings.Left(Echo2, Enter3 – 1)
txtModel.Text = Echo3
Kita juga bisa mengetahui model produk dari device yang digunakan dengan perintah “AT+CGMM”. Pada coding di atas, hasilnya akan ditampilkan pada TextBox txtModel.
‘mengambil nomer IMEI
SerialPort1.WriteLine(“AT+CGSN” & vbCrLf)
Threading.Thread.Sleep(500)
Echo = SerialPort1.ReadExisting
Enter1 = Strings.InStr(Echo, vbCrLf)
Echo1 = Strings.Right(Echo, Len(Echo) – Enter1)
Enter2 = Strings.InStr(Echo1, vbCrLf)
Echo2 = Strings.Right(Echo1, Len(Echo1) – Enter2 – 1)
Enter3 = Strings.InStr(Echo2, vbCrLf)
Echo3 = Strings.Left(Echo2, Enter3 – 1)
txtIMEI.Text = Echo3
Setiap modem/perangkat komunikasi memiliki nomer unik yang berbeda dari yang lain, yang disebut IMEI. Kita bisa mengetahui nomer IMEI dengan command “AT+CGSN”. Hasilnya ditampilkan pada TextBox txtIMEI.
‘menutup koneksi port
SerialPort1.Close()
Fungsi di atas untuk menutup koneksi port serial sehingga dapat digunakan kembali untuk proses yang lain.
Catch
MsgBox(“Gagal terhubung ke ‘ ” + cbbCOMPorts.Text + ” ‘. Mungkin port sedang digunakan.”, MsgBoxStyle.Exclamation, “Koneksi”)
End Try
End Sub
Demikian semoga bermanfaat.
Discussion (43) ¬
Master,
setelah saya jalankan pake vb.net 2010 kok ga jalan ya master
“Conversion from string “” to type ‘Double’ is not valid.”
please…..
Project tersebut diatas dibuat dengan VB 2008. Untuk VB 2010 belum dicoba.
Coba tambahkan “Strings” didepan error yang ditunjukkan.
mas, bisa minta tolong di kirim email saya, nidjiholic18@gmail.com
untuk tugas akhir soalnya. terima kasih
mantap nih, uda dipraktekkin, dan sukses!!
maju terus mas 😀
Terima kasih.
https://buymetformin.best/# metformin 143
order generic clopidogrel 75mg – order methotrexate 5mg pills reglan 10mg generic
lasix furosemide 40 mg lasix uses
https://buytadalafil.men/# tadalafil 5 mg coupon
5mg tadalafil generic tadalafil 100mg
https://buylasix.icu/# lasix 40mg
metformin no prescription metformin over the counter canada
https://buylasix.icu/# furosemide
lasix medication lasix for sale
электро штабелеры для склада
https://elektroshtabeler-kupit.ru
п»їcipro generic buy ciprofloxacin
https://cipro.best/# buy cipro online
ciprofloxacin generic buy cipro online
best drug for ed non prescription ed drugs
https://cipro.best/# buy generic ciprofloxacin
neurontin capsules 100mg brand name neurontin
diflucan 150 mg tablet diflucan brand name 300mg
https://gabapentin.icu/# ordering neurontin online
best ed pill erectile dysfunction pills
https://erectionpills.best/# non prescription ed drugs
neurontin canada prescription medication neurontin
order cozaar 25mg pill – promethazine sale order phenergan
charlestown slots
vegas world free slots games online
free slots to play for fun
canadian pharmacy online prescription without a doctor’s prescription
can you buy diflucan over the counter in australia diflucan men
cialis 20 mg cialis pilule cialis achat pharmacie en ligne tadalafil ou cialis
https://gabapentin.icu/# how to get neurontin
neurontin 100mg caps neurontin 150mg
https://gabapentin.icu/# neurontin 200 mg tablets
buy prescription drugs online without comfortis for dogs without vet prescription
самоходные штабелеры
https://shtabeler-elektricheskiy-samokhodnyy.ru
https://erectionpills.best/# drugs for ed
diflucan online cheap without a prescription diflucan tablets online
https://cipro.best/# buy cipro online canada
п»їcipro generic ciprofloxacin mail online
neurontin online pharmacy neurontin medication
Some genuinely excellent info , Sword lily I discovered this. “The outer conditions of a person’s life will always be found to reflect their inner beliefs.” by James Allen.
diflucan pills online where to get diflucan
Hi there colleagues, how is all, and what you desire to say on the topic of this piece of writing, in my
view its in fact amazing in support of me.
levofloxacin 500mg usa – buy generic dutasteride order tadalafil 10mg pills
ivermectin tablets discount for sale stromectol canada
https://cipro.best/# antibiotics cipro
neurontin cost uk neurontin rx
https://withoutprescription.store/# prescription drugs online without doctor
ed treatment drugs ed dysfunction treatment
where to buy diflucan in uk diflucan tablets online
ciprofloxacin order online ciprofloxacin generic
https://gabapentin.icu/# where can i buy neurontin online
non prescription ed pills best ed pills non prescription
Appreciating the persistence you put into your site and in depth information you provide.
It’s good to come across a blog every once in a while that isn’t the same outdated rehashed material.
Excellent read! I’ve bookmarked your site and I’m including
your RSS feeds to my Google account.
home made viagra cialis from canada how much does viagra cost in australia how long does cialis take to work
ciprofloxacin 500mg buy online buy cipro online
research chemicals clomid clomid online without prescription can i take clomid after my period how can i get clomid
buy diflucan online cheap diflucan australia otc
https://gabapentin.icu/# gabapentin generic
order diflucan online uk diflucan otc uk
cheap cialis pills – order tamsulosin 0.2mg for sale buy tamsulosin 0.2mg generic