Public TextI As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1.Text = "PORT CLOSE"
If MSComm1.PortOpen Then
MSComm1.PortOpen = False
End If
End
Stop
End Sub
Private Sub Command10_Click()
TextI = ""
Text1.Text = "AT+CPAS"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Command11_Click()
TextI = ""
Text1.Text = "AT+CGATT?"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Command2_Click()
TextI = ""
Text1.Text = "AT+CBC"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Command3_Click()
TextI = ""
Text1.Text = "AT+CSQ"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Command4_Click()
TextI = ""
Text1.Text = "AT+CREG?"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Command5_Click()
TextI = ""
Text1.Text = "ATD #100#;"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Command6_Click()
TextI = ""
Text1.Text = "AT+CPOWD=1"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Command7_Click()
MSComm1.RTSEnable = True
Sleep (3000)
MSComm1.RTSEnable = False
End Sub
Private Sub Command8_Click()
TextI = ""
Text1.Text = "ATA"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Command9_Click()
TextI = ""
Text1.Text = "ATH0"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
Private Sub Form_Load()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.Settings = "38400,n,8,1"
MSComm1.CommPort = 3
MSComm1.RThreshold = 1 ' Length paket for CommEvent (OnComm)
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
MSComm1.PortOpen = Not MSComm1.PortOpen
If MSComm1.PortOpen Then ' Text1.Text = "PORT OPEN"
Else
Text1.Text = "ERROR OPEN PORT"
End If
End Sub
Private Sub MSComm1_OnComm()
TextI = TextI + MSComm1.Input
Text2.Text = TextI
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextI = ""
MSComm1.Output = Text1.Text + Chr$(13)
End If
End Sub
