by Micah Lansing (4 Submissions)
Category: Complete Applications
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
This code shows how simple it is to access your modem and dial phone #s using tone or pulse dialing. This code requires the Microsoft Comm Control. Please vote and give me plenty of feedback.
VBcodersDim A As Integer
Dim Instring as String
Private Sub Dialcmd_Click()
On Error GoTo pe
If A = 0 Then
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1" ' 9600 baud, no parity, 8 data, 1 stop bit
MSComm1.InputLen = 0 'Sets to read all buffer when input is used
MSComm1.PortOpen = True
A = 1
MSComm1.Output = "AT" + Chr$(13) ' Sends "attention" command to the modem
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2 'Waits for "OK"
Instring = MSComm1.Input 'The "OK": Instring should = "AT|||OK|"
MSComm1.Output = ATDT & PhoneNumberHere & Chr(13) 'Dials phone #, ATDT(tone) or ATDP(pulse)
End If
GoTo 2
pe:
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
2
End Sub
Private Sub Hangup_Click()
If A = 1 Then MSComm1.PortOpen = False: A = 0 'closes port
End Sub