Tes koneksi VB 6 dengan Handphone Siemens C45

Peralatan yang harus disediakan adalah:

1. Microsoft Visual Basic 6.0

2. Handphone Siemens C35/M35/C45

3. Kabel Data serial (RS232)

Pada Visual Basic 6.0

1. Tambahkan sebuah tombol Command1 dan isi caption tombol tersebut dengan “Test Port”

2. Klik menu Project- Components- check list (Microsoft Windows Common Controls 6.0)

3. Double Click tombol Command1, dan tulis kode progaram di bawah ini:

Private Sub Command1_Click()
On Error GoTo err_handler
With MSComm1
.CommPort = 1
.Settings = “19200,N,8,1″
.InputLen = 0
.PortOpen = True
End With
Do
MSComm1.Output = “ate1″ & Chr$(13)
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, “OK”) Or InStr(buffer$, “ERROR”)

Loop Until InStr(buffer$, “OK”)
MSComm1.PortOpen = False
If InStr(buffer$, “OK”) Then
MsgBox “kondisi Port OK”
Else
MsgBox “Port tidak dapat digunakan saat ini”
End If

err_handler:
If Err.Number = 8002 Or Err.Number = 8005 Then
Exit Sub
End If
End Sub

Posted in: Kampus