Telephone Dialer

In English: Yves Gagnon describes a simple circuit, plugged into the QL's NET 1 socket, that lets the computer pulse-dial telephone numbers through a relay in series with the phone line; it uses a 3.3k resistor, a 10 µF capacitor, a 2N3904 transistor, a 1N4001 diode, a 9-volt relay and a 9-volt battery. A schematic, the parts list and a short SuperBASIC test program that sends pulses through the network port are given, and a phone-book program is promised for the next issue.

Printed title: COMPOSEUR TELEPHONIQUE. The article below is in French, as printed in QL_DOC n3 (April-May 1988).

---

Oui, vous pouvez composer des numéros de téléphone avec votre QL.Voici un circuit simple qui demande très peu de composants.Ce circuit va se brancher dans la prise NET 1.

Notons sur le schéma électronique le contact relais est en série avec le téléphone qui ajoute l’impédance de la ligne téléphonique, c’est très important.Le montage ne doit pas poser de problème, à condition de bien respecter le brochage du transistor et de la polarité de la diode.Si la composition du numéro est fausse, vous n’aurez qu’à changer la valeur de la résistance 3.3k ou du condensateur 10Mf.Enfin l’alimentation se fera à partir d’une pile 9 volts.

Pour composer directement un numéro sur la ligne téléphonique, il suffira de décrocher le téléphone, d’attendre la tonalité et de demander la numérotation automatique à l’ordinateur, pour que soit composé le numéro automatiquement.

Veuillez taper les quelques lignes de programmes pour juger du bon fonctionnement du circuit.

Dans le prochain numéro de QL_DOC paraîtra un programme fichier pour votre composeur téléphonique.

par: Yves Gagnon
[address omitted]
Duberger P.Q.
[phone number omitted]

LISTE DES COMPOSANTS:

1- résistance 3.3k 1/4w.
1- condensateur 10 Mf 16 volts.
1- transistor 2N3904
1- diode 1N4001
1- relais 9 volts.
1- batterie 9 volts.

100 REMark ==========================
110 REMark == COMPOSEUR TELEPHONIQUE ==
120 REMark == par Yves Gagnon 15.02.88 ==
130 REMark ==========================
140 :
150 init
160 :
170 DEFine PROCedure init
180 CLS:CSIZE 0,1
190 z$=FILL$(CHR$(255),150)
200 a$="123-4567"
210 REPeat loop
220 INPUT "Entrez le numero : ";b$
230 IF b$<>"" THEN LET a$=b$
240 FOR c=1 TO LEN(a$)
250 LET a=CODE(a$(c))
260 PRINT a$(c);
270 IF a<48 OR a>57 THEN NEXT c
280 LET num=a-48
290 IF num=0 THEN num=10
300 composition num
310 PAUSE 40
320 END FOR c
330 PRINT
340 END REPeat loop
350 END DEFine init
360 :
370 DEFine PROCedure composition(numero)
380 FOR x=1 TO numero
390 OPEN#10;neto_0
400 PRINT#10;z$;
410 CLOSE#10
420 END FOR x
430 END DEFine composition