Mengirim SMS dengan Visual Basic .NET

Mar21
by on March 21, 2011 at 5:46 PM
Posted In: VB .Net

Pada kesempatan ini, Anda akan mempelajari bagaimana mengirim pesan singkat melalui Visual Basic .NET menggunakan Modem GSM Wavecom. Modem Wavecom memiliki beberapa perintah AT Command yang berhubungan dengan SMS, diantara untuk mengirim, menghapus, membaca, dan lainnya. Komunikasi antara modem GSM dengan VB .NET melalui port serial. Sehingga Anda akan mudah melakukannya karena pada VB .NET sudah tersedia tool untuk komunikasi melalui port serial.

Mengirim SMS

 

 

 

 


Untuk mengirim SMS melalui modem, lakukan langkah-langkah berikut ini:

1. AT

balasan “OK” jika modem berfungsi

2. AT+CMGF=1

mengatur mode Teks

3. AT+CSCA= ”+XXXX”

nomer SMS Center, tergantung SIM Card yang digunakan

Untuk mengirim pesan:

4. AT+CMGS= ”+NNNN” <Enter>

nomer handphone yang akan dituju

5. Pesan_yang_akan_kita_kirim <Ctrl+Z>

Kemudian, bagaimanakah jika menggunakan VB .NET?

Langkah-langkahnya sama dengan diatas.

1. SerialPort1.WriteLine(“AT”)

mengirim perintah AT ke port serial
2. SerialPort1.WriteLine(“AT+CMGF=1” & vbCrLf)

mengirim perintah AT+CMGF=1 dan Enter, yaitu kita mengatur modem agar bekerja dalam mode teks.

3. SerialPort1.WriteLine(“AT+CSCA=” & Chr(34) & txtCenter.Text & Chr(34) & vbCrLf)

mengirim perintah AT+CSCA diikuti nomer SMS Center dan Enter. Nomer SMS Center di sini tergantung dari operator SIM card yang dipakai, sehingga bisa disesuaikan

4. SerialPort1.WriteLine(“AT+CMGS=” & Chr(34) & txtNotujuan.Text & Chr(34) & vbCrLf)

mengirim perintah AT+CMGS diikuti nomer tujuan SMS dan enter. Nomer tujuan bisa semua operator.

5. SerialPort1.WriteLine(txtPesan.Text & Chr(26)) ‘SMS sending

mengirim isi pesan diikuti Ctrl+z


dengan demikian isi SMS akan terkirim sukses.

Untuk lebih jelasnya, silakan pelajari pada code VB .NET yang disertakan. Semoga bermanfaat.

└ Tags: , , ,
1,050 Comments

Perekrutan CPNS

Mar21
by on March 21, 2011 at 4:58 PM
Posted In: Memori

Mungkin kebanyakan orang akan beranggapan kalau untuk menjadi CPNS “murni” yang tanpa mengeluarkan uang sebagai pelicin, sangat kecil kemungkinan, bahkan mungkin sudah ada yang pesimistis. Namun sebenarnya, tidaklah demikian. Mungkin hanya daera-daerah tertentu atau alokasi-alokasi tertentu yang sarat dengan hal demikian. Kita tidak tahu, apakah ini permainan pejabat, panitia atau stake holder yang sudah dipercaya menanganinya.
Menurut pengalaman beberapa teman, ada posisi-posisi yang tidak dipungut uang sepeserpun untuk didaulat menjadi seorang abdi negara, PNS yang diharapkan mengemban tugas negara yang mulia. Namun ada pula perekrutan yang terkesan setengah-setengah. Kenapa disebut demikian, karena meknismenya adalah ada tes tertulis yang kemudian diseleksi secara nasional, dan hasilnya diseleksi oleh pusat. Kemudian kandidat-kanditat yang lolos diserahkan kepada unit yang membutuhkan formasi tersebut. Disini terjadi proses seleksi lagi, dimana ada penilaian yang dilaksanakkan oleh panitia yang terdiri dari pegawai-pegawai unit tersebut. Kita tidak tahu, dan tidak sepantasnya berburuk sangka kepada proses seleksi tersebut, namun dari proses seleksi yang diikuti kadang membuat hati bertanya “kok seleksinya gini ya?”, “kok seleksinya ndak masuk akal ya?”
Dan ternyata, hasilnya sudah ditebak, kalo si kandidat yang tidak punya bargaining position, yang hanya mengandalkan kemampuan dan optimisme ditambah niat yang mungkin tulus, harus sedikit kecewa. Kenapa demikian?? proses yang dari awalnya mulus, dan fair, tiba-tiba jadi remang-remang saat dilanjutkan pada wilayah abu-abu.
Namun kita juga tidak bisa menuduh, karena proses didesain untuk tidak bisa diukur secara pasti. Semisal, wawancara, tes praktik yang tak dilketahui skor tiap kandidat, kecurangan sebagian kandidat, dan sejenisnya.

Lalu, bagaimanakah sebuah proses perekrutan calon Abdi negara yang demikian???
Sebuah fakta, masih membanjirnya peserta CPNS yang masih optimis sambil mengharap keberuntungan nasib, masih semangat ’45 untuk mengikuti proses seleksi calon abdi negara tersebut.

Mudah-mudahan mereka yang optimis dan punya niat baik dengan cara-cara yang baik tetap diberikan keteguhan hati untuk mengikutinya….
Berjuanglah kawan-kawan yang masih berharap menjadi abdi negara. Tapi juga jangan kecewa kalau Anda tidak diterima, karena yang Kuasa akan memberikan yang terbaik untuk Anda. Jangan berburuk sangka kepada yang Maha Kuasa, karena itu akan menghilangkan sikap optimisme dan pandangan kedepan Anda. Tetap semangat untuk menuju sesuatu yang telah ditakdirkan untuk Anda.

Tapi jika Anda masih optimis dengan seleksi, nyatanya banyak juga kok yang ketrima jadi Abdi Negara dengan murni tanpa pungutan sepeserpun….

681 Comments

Artikel dan Tutorial

Mar20
by on March 20, 2011 at 7:43 PM
Posted In: Uncategorized

Interfacing Motor Stepper dengan VB 6.0

Motor Stepper adalah salah satu jenis motor DC yang sangat populer khususnya dibidang robotika. Walaupun motor stepper saat ini sudah tergeser popularitasnya dengan motor jenis lain, namun motor stepper memiliki keunggulan tersendiri yang tidak bisa digantikan oleh yang lain.

[Baca Selengkapnya]

Testing Modem GSM Wavecom dengan Visual Basic 6.0

Pada kesempatan kali ini kita akan mencoba membuat sebuah program sederhana untuk melakukan komunikasi antara Visual Basic 6.0 dengan modem GSM Wavecom. Modem Wavecom dapat diatur dengan dua mode, yaitu mode teks dan mode PDU. Untuk kesempatan kali ini kita akan menggunakan mode teks yang lebih mudah dimengerti dan mudah interfacing dengan VB 6.0.

[Baca Selengkapnya]

Membuat GUI Hello Word dengan Matlab (2)

Sebelumnya kita telah membuat GUI Hello Word, kesempatan kali ini kita akan melanjutkan dengan latihan mengganti isi dari tulisan dalam Static Text.

[Baca Selengkapnya]

Membuat GUI Hello Word dengan Matlab

Matlab, seperti halnya software development lainya juga meyediakan fitur untuk membuat aplikasi yang user friendly. Yaitu suatu tampilan yang dapat memudahkan pengguna aplikasi dalam mengoperasikannya. Dalam Matlab, kita bisa menggunakan fitur Guide untuk membuat tampilan berbasi grafis.

[Baca Selengkapnya]

Logging Data Suhu DS1820 dengan Matlab 2008

Matlab adalah singkatan dari Mathematic Laboratory, yaitu sebuah program yang dikembangkan dengan keunggulan penanganan operasi terkait dengan matematika. Saat ini matlab merupakan software paling popular yang digunakan untuk penanganan kalkulasi numerik dan desain sistem. Matlab merupakan bahasa pemrograman yang sangat optimal untuk komputasi matriks. Karena dalam toolbox matlab terdapat tool yang dapat digunakan untuk mendesain suatu system dan mensimulasikannya sehingga seorang engineer bisa mendapatkan data tanpa perlu melakukan eksperimen….

[Baca Selengkapnya]

Mengirim dan menerima SMS menggunakan HyperTerminal melalui Modem GSM Serial

Pada kesempatan ini akan saya berikan sedikit contoh bagaimana mengirim dan menerima sms menggunakan hyperterminal melalui modem GSM serial. Seperti kita sudah ketahui, bahwa program bawaan Windows® adalah sebuah program yang sangat familiar bagi orang yang hobby ataupun seorang teknisi yang sering berhubungan dengan interfacing. Hyperterminal merupakan software yang universal dan mudah penggunaannya.

[Baca Selengkapnya]

MEMBUAT GRAFIK PADA VISUAL BASIC (VB)

Pada dasarnya sebuah grafik adalah gambaran beberapa buah data pada minimal dua buah koordinat dari satu titik acuan awal (titik nol). Dengan kata lain, kita dapat menampilkan beberapa nilai data menjadi sebuah grafik yang mewakili sebuah interpretasi terhadap posisi tertentu.

Misalnya kita memiliki data sebagai berikut: Setelah dilakukan pengukuran terhadap kecepatan angin di titik Q selama tujuh hari, maka didapatkan data sebagai berikut, Hari:{Senin, Selasa, Rabu, Kamis, Jumat, Sabtu, Minggu}; Kecepatan rata-rata: {10, 12, 15, 8, 20, 5, 7}meter/detik.

 

[Baca Selengkapnya]

265 Comments

Interfacing Motor Stepper dengan VB 6.0

Mar19
by on March 19, 2011 at 12:07 PM
Posted In: Interfacing, VB 6.0

Motor Stepper adalah salah satu jenis motor DC yang sangat populer khususnya dibidang robotika. Walaupun motor stepper saat ini sudah tergeser popularitasnya dengan motor jenis lain, namun motor stepper memiliki keunggulan tersendiri yang tidak bisa digantikan oleh yang lain.

Motor stepper memiliki desain konstruksi yang khas, yaitu terdiri dari beberapa kumpatan yang terpisah ataupun disatukan. Untuk lebih jelasnya, silakan membaca pada How Stepper Motors Work.

Pada kesempatan ini, kita akan mencoba membuat interface motor stepper dengan menggunakan VB 6.0 melalui Port Parallel. Karena untuk mengendalikan motor stepper, dibutuhkan data parallel, maka kita gunakan port parallel untuk mempermudah. Tidak menutup kemungkinan interfacing dilakukan dengan menggunakan port serial dengan menambah komponen tambahan.

Untuk dapat menggerakan motor stepper, kita memerlukan sebuah hardware yang berfungsi untuk mengubah sinyal dari port parallel menjadi sinyal tegangan yang dapat menggerakan motor stepper. Anda harus membuat sebuah rangkaian driver yang dapat dibuat secara sederhana menggunakan transistor sebagai switching.

contoh driver sederhana adalah sebagai berikut:

(Sumber: http://www.ilmu.8k.com/pengetahuan/stepper.htm)

Interfacing VB 6

Untuk dapat mengirimkan data sinyal ke port parallel, kita akan memanfaatkan file dynamic link library (DLL) diantaranya adalah inpout32.dll, WinMM.dll, Kernel32.dll. Untuk yang pertama sudah ada pada file code yang dapat didownload pada bagian bawah dari artikel ini. Sementara file ke-2 dan ke-3, sudah ada pada file system windows. file ini adalah file library yang dapat kita manfaatkan untuk membuat aplikasi interface dengan motor stepper.

dalam VB untuk mendeklarikan file DLL di atas agar dapat digunakan adalah sebagai berikut:

Private Declare Sub Sleep Lib “Kernel32.dll” (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib “WinMM.dll” () As Long

Public Declare Function Inp Lib “inpout32.dll” Alias “Inp32” (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib “inpout32.dll” Alias “Out32” (ByVal PortAddress As Integer, ByVal Value As Integer)

sedangkan untuk mengirim data ke port serial kita gunakan syntax berikut:

Out 888, 1

dimana data yang dikirim adalah 1 ke port 888 yang merupakan alias dari port parallel.

Untuk menggerakan motor stepper dengan aliran sinyal seperti berikut

(sumber: http://tutorial-elektronika.blogspot.com/2009/02/bagaimana-cara-menggerakkan-motor.html)

maka kita kirimkan sinyal dengan VB:

  1. Out 888, 8
  2. Out 888, 4
  3. Out 888, 2
  4. Out 888, 1
  5. Out 888, 8
  6. Out 888, 4
  7. Out 888, 2
  8. Out 888, 1

Program berikut dapat digunakan untuk mencoba beberapa variasi gerakan dari motor stepper.

  1. Delay: adalah jeda waktu pengiriman sinyal antara sinyal satu dan sinyal berikutnya
  2. Looping: lama pengulangan dalam mengirim sinyal
  3. Tipe: [Wave Drive, One-Phase;  Hi-Torque, Two-Phase; Half-Step]
  4. Button “Tes 1 Loop”: untuk memberikan satu kali looping, memberikan satu step
  5. Button “Tes”: mengirimkan sinyal secara kontinyu
  6. Button “Close”: keluar dari program

Untuk mempelajari code pada VB, silakan buka pada file yang telah dilampirkan di bawah ini.

Sekian, semoga bermanfaat.

Code Motor Stepper VB 6.0

Referensi Motor Stepper:

Wikipedia: Stepper Motor

Bagaimana Menggerakkan Motor Stepper

How Stepper Motors Work


└ Tags: , ,
7 Comments

Testing Modem GSM Wavecom dengan Visual Basic 6.0

Mar19
by on March 19, 2011 at 10:45 AM
Posted In: Interfacing, VB 6.0

Pada kesempatan kali ini kita akan mencoba membuat sebuah program sederhana untuk melakukan komunikasi antara Visual Basic 6.0 dengan modem GSM Wavecom. Modem Wavecom dapat diatur dengan dua mode, yaitu mode teks dan mode PDU. Untuk kesempatan kali ini kita akan menggunakan mode teks yang lebih mudah dimengerti dan mudah interfacing dengan VB 6.0.

Modem Wavecom

Modem ini memiliki banyak command yang diawali dengan AT, diantaranya dapat digolongkan menjadi:

  1. General Command
  2. Call Control Command
  3. Network Service Command
  4. Security Command
  5. Phonebook Command
  6. Short Message Command
  7. Supplementary Services command
  8. Data Command
  9. Fax Command
  10. V24-V25 Command
  11. Spesific AT Command, dan
  12. Other Command

Untuk lebih detail tentang fungsi dan syntax AT Command masing-masing command di atas, Anda dapat merujuk pada datasheet yang ada di bawah.

Kali ini kita akan mencoba menggunakan beberapa AT Command dengan menggunakan interface VB 6.0. Pada dasarnya, interfacing serial dengan modem GSM Wavecom bisa dilakukan dengan tool lain, misalnya Hyperterminal, mikrokontroller ataupun, bahasa pemrograman yang lain, diantaranya Delphi, Visual C, Matlab.

Diantara beberapa fungsi AT command yang dapat digunakan antara lain:

  • Manucfacturer identification +CGMI
  • Request model identification        +CGMM
  • Request revision identification     +CGMR
  • Product Serial Number         +CGSN

Visual Basic 6.0

Dengan menggunakan bahasa pemrograman yang telah familiar dan banyak referensi, maka VB 6 adalah bahasa yang tentunya juga mudah untuk digunakan dalam contoh saat ini. Untuk membuat interface dengan Modem GSM Wavecom, ikuti langkah-langkah berikut:B

Buat desain pada VB 6 seperti tampilan berikut

untuk membuat desain diatas, komponen yang dipakai dan setting propertiesnya adalah:

– Command1

  • Caption = Send Command

– Command2

  • Caption = &Exit

-Text1

  • Text = “”

– Text2

  • Text = AT+CGMR

– Serial (MSComm)

  • Setting = 115200,n,8,1
  • CommPort = 2 (sesuaikan)

– Timer1

  • Interval = 100
  • Enabled = True

– Label1

  • Caption = Testing GSM Modem  dengan AT Command

Selanjutnya isikan code pada masing-masing bagian seperti berikut

Private Sub Command1_Click()
Serial.Output = Text2.Text + vbCrLf
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Exit_Click()
Unload Me
End Sub

Private Sub Form_Load()
If Serial.PortOpen = True Then
Serial.PortOpen = False
Serial.PortOpen = True
ElseIf Serial.PortOpen = False Then
Serial.PortOpen = True
Serial.DTREnable = True
Serial.RTSEnable = True
Serial.RThreshold = 1
Serial.InputLen = 1
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Serial.PortOpen = True Then
Serial.PortOpen = False
End If
End Sub

Private Sub Timer1_Timer()
Text1.Text = Text1.Text & Serial.Input
End Sub

Untuk melakukan testing, isikan AT+CGMI, kemudian klik button Send Command. Maka akan muncul respon berikut:

Sekian, mudah-mudahan bermanfaat.

Code Tes Modem VB 6.0

wavecom_command

Artikel Terkait:

Mengirim dan menerima SMS menggunakan HyperTerminal melalui Modem GSM Serial

└ Tags: , ,
1,621 Comments