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