TheByteWorks

    Quality ready made and affordable custom software

Home

Software

PHP Serial
rsterm
Easy Control
Rack Designer
EzCom2Web

Quick Texts
Wallpaper Slideshow

Articles

All articles
WS2300 weather station PHP project
Your own terminal in 17 lines
PC PIC Voltmeter
Network messenger in 22 lines
Phone Dialer

Download
Purchase

Support

Details
E-mail

Copyright 2001-2024
© Cosmin Buhu

  Phone Dialer
Screenshot

Phone Dialer

A phone dialer built in 15 minutes.
Note: this script uses Easy Control version 1.4 syntax.

This project assumes you have a modem connected on one of your PC serial ports, with
a telephone line in. It is a normal setup for Internet dial-up connections.

Step 1
Design rack in Rack Designer, or you may download example archive which contains the
phonedialer rack (see screenshot on the left side of this article).
Controls on this rack are:
- pbutton1 to pbutton10 as the keypad digits
- a LCD display
- label1 to display tel. no.
- label2 to display status
- pbutton11 as "Dial" button
- pbutton12 as "Close" line button
- pbutton13 as "Clear" display button
- 4 borders

Step 2
Write or open in Easy Control this script code :
crlf=chr(13)&chr(10)
#Open rack, don't forget to provide correct path
openrack (d:\phone\phone.res)
#Initialization of display
label1=""
label2="StandBy"
#Pop-up Setup port window
setport
#Open port
openport (myport,9600,8,n,1)
#Your modem may require this
setrts (myport)
setdtr (myport)
#Send initializatin string to the modem
send (myport,"atz"&crlf)
dial:
#Reset Close button and check if "Clear" button was pressed
pbutton12=0
if (pbutton13==1)
pbutton13=0
label1=""
endif
#Read keyboard, add digits to the tel. no. and resets buttons
if (pbutton1==1)
label1=label1&"1"
pbutton1=0
endif
if (pbutton2==1)
label1=label1&"2"
pbutton2=0
endif
if (pbutton3==1)
label1=label1&"3"
pbutton3=0
endif
if (pbutton4==1)
label1=label1&"4"
pbutton4=0
endif
if (pbutton5==1)
label1=label1&"5"
pbutton5=0
endif
if (pbutton6==1)
label1=label1&"6"
pbutton6=0
endif
if (pbutton7==1)
label1=label1&"7"
pbutton7=0
endif
if (pbutton8==1)
label1=label1&"8"
pbutton8=0
endif
if (pbutton9==1)
label1=label1&"9"
pbutton9=0
endif
if (pbutton10==1)
label1=label1&"0"
pbutton10=0
endif
#Check if "Dial" button was pressed
if (pbutton11==1)
#Yes, go to the dial no. code
goto godial
endif
#No, scan keyboard again
goto dial
godial:
#send command to the modem to dial tel. no. displayed
send (myport,"atdt"&label1&crlf)
#Change status on display
label2="Calling"
repeat
#Remain here until "Close" button is pressed
until (pbutton12==1)
#Close the line
send (myport,"ath0"&crlf)
#Reset
pbutton11=0
pbutton12=0
label1=""
label2="StandBy"
#And go again, and again...
goto dial

Download this project :
Phone Dialer

More ?
Well, more care on buttons resets, visual enhancements,...

Enjoy !