Saya mencoba konek dari Hyperterminal ke GSM Modem merek Wavecom Fastrack,
tapi gak pernah konek alias gagal terus.
Apakah kita harus instal semacam driver nya dulu? masalahnya kok gak dikasih
drivernya ya.
saya juga coba code seperti ini :
Private Sub Command1_Click()
Dim MSComm1 As Object
Set MSComm1 = CreateObject("MSCOMMLIB.MSCOMM")
With MSComm1
.CommPort = 1
.Settings = "57600,N,8,1"
.InputLen = 0
.PortOpen = True
End With
Dim waktu As Date
waktu = Now()
Do
MSComm1.Output = "ATE1" & Chr$(13)
Do
DoEvents
buffers$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK") Or InStr(buffer$, "ERROR") Or Now >
DateAdd("s", 10, waktu)
Loop Until InStr(buffer$, "OK") Or Now > DateAdd("s", 10, waktu)
MSComm1.PortOpen = False
Set MSComm1 = Nothing
If InStr(buffer$, "OK") Then
MsgBox ("Kodisi port OK")
Else
MsgBox ("Port tidak konek")
End If
End Sub
Hasilnya tidak bisa konek terus. mohon petunjuk teman2 semua.
