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.
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
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
Sekian, mudah-mudahan bermanfaat.
Code Tes Modem VB 6.0
wavecom_command
Artikel Terkait:

Mengirim dan menerima SMS menggunakan HyperTerminal melalui Modem GSM Serial