هدف از این پروژه آشنایی با سیستم شماره گیری DTMF میکرو کنترلر میباشد

در ابتدا برای وارد کردن شماره مورد نظر دکمه # را به مدت حدود 5 ثانیه نگه داشته تا وارد قسمت ورود شماره شوید . در این حالت چراغ سبز (CHANGE) روشن شده و بعد از وارد کردن شماره دکمه * را فشار دهید . دراین مرحله چراغ CHANGE چند مرتبه چشمک خواهد زد که به منزله ورود مجدد شماره تلفن وارد شده جهت تایید میباشد و بعد از وارد کردن مجدد شماره تلفن در صورت درست بودن شماره ، بیزر به صدا در آمده و چراغ خاموش خواهد شد در غیر این صورت بوق خطا داده و روشن خواهد ماند.

در هر کدام ازمراحل ( ورود شماره ) و یا ( تایید آن ) ، در صورت انصراف از تغییر شماره تلفن و یا ورود اشتباه ، میتوان با فشار دادن دکمه # به حالت استندبای برگشت.

اگر بدون ورود شماره تلفن دکمه * را فشار دهید هیچ عکس العملی نشان نخواهد داد. حال چنانچه سنسور عمل کند سیستم وارد عمل شده و شماره مورد نظر را خواهد گرفت ویک سیگنال هشدار دهنده روی خط خواهد فرستاد و بعد از حدود یک دقیقه ،خط تلفن به حالت عادی برخواهد گشت.

رله بکار رفته ار نوع دوبل بوده که یک جفت از کنتاکت رله بعنوان وصل آزیر مورد استفاده قرار میگیرد.میتوان از بکار بردن ال سی دی صرفنظر کرد.

شماتیک:

سورس برنامه :

************************************
NAME : AUTO DIALLER
DESIGNER : Esmaeil Mohammad Zadeh
DATE : 1388/7/5
TEL : 09139545140
MAIL : Esmaeil_AVR@Gmail.com
************************************
$regfile = "m8def.dat"
$crystal = 4000000
Real Crystal is 4MHZ
Config Lcdpin = Pin , Db7 = Pinb.2 , Db6 = Pinb.3 , Db5 = Pinb.4 , _
Db4 = Pinb.5 , E = Pinc.0 , Rs = Pinc.1
Config Lcd = 16 * 2
Config Kbd = Portd , Debounce = 100 , Delay = 100
Config Timer2 = Timer , Prescale = 256

Enable Interrupts : Disable Timer2
On Ovf2 Esmaeil
VAR
Dim Puls As Byte , B As Byte , N As Byte , Result As Byte , K As Byte
Dim Num As Byte , Flag As Bit , Count As Byte
Dim En As Eram Byte
Dim K2 As String * 1
Dim A(16) As String * 1 , A2(16) As String * 1
Dim Digit(16) As String * 1
Dim Edigit(16) As Eram String * 1

Declare Sub Check
I/O
Config Pinc.2 = Input : Config Portc.3 = Output : Config Portc.4 = Output
Config Portc.5 = Output : Config Portb.0 = Output
Trig Alias Pinc.2 : Tel_line Alias Portc.3 : Led Alias Portc.4
Beep Alias Portc.5
Beep2 Alias Portb.0
Cursor Off
Cls : Home : Lcd "Designer :"
Home L : Lcd "E-Mohammad Zadeh"
Wait 3
Sound Beep , 500 , 100
Waitms 100
Sound Beep , 200 , 200
Waitms 100
Sound Beep , 100 , 400
Waitms 100
********************** START **************************************************
Begin:
Sound Beep , 200 , 100
Disable Timer2 : Puls = 0 : Count = 0
Cls : Home : Lcd "* Stand By *"
Home L : Lcd "Dialler Ver. 1.0"
Tel_line = 0 : Led = 0
If En < 0 Then En = 0
N = En
For B = 1 To N
Digit(b) = Edigit(b)
Waitms 5
Next B

Bitwait Trig , Reset
Begin2:
Do
If Trig = 1 Then Goto Dial
K = Getkbd()
If K > 11 Then Goto Begin2
If K = 11 Then # BUTTON
Sound Beep , 200 , 100 : Enable Timer2 : Puls = 0
Do
K = Getkbd()
If Puls = 100 Then Goto Chang
Loop Until K > 11
Disable Timer2 : Puls = 0 : Goto Begin2
Else
Sound Beep , 200 , 100
Do
K = Getkbd()
Loop Until K > 11
Goto Begin2
End If
Loop
----------------------------------------- CHANGE TEL NUMBER -------------------
Chang:
Disable Timer2 : Puls = 0 : B = 0 : Led = 1
Cls : Home : Lcd "Enter Tel Number" : Home L : Cursor Blink
Sound Beep , 200 , 100
Do
K = Getkbd()
Loop Until K > 11
Chang2:
K = Getkbd()
If K > 11 Then Goto Chang2
If K = 11 Then Goto Begin # BUTTON

If K = 3 Then * BUTTON
If B <> 0 Then
Do
K = Getkbd()
Loop Until K > 11
Goto Confirm
Else
Goto Chang2
End If
End If
Num = Lookup(k , Dta)
K2 = Str(num)
Incr B
A(b) = K2 : Locate 2 , B : Lcd K2
Sound Beep , 200 , 100
Do
K = Getkbd()
Loop Until K > 11
JMP Chang2
---------------------------------------- CONFIRM ------------------------------
Confirm:
Cls : Home : Lcd " Confirm Number "
N = B : Sound Beep , 500 , 100
For B = 1 To 10
Toggle Led
Waitms 150
Next B
Led = 1
B = 0
Home L : Cursor On Blink
Confirm2:
K = Getkbd()
If K > 11 Then Jmp Confirm2
If K = 11 Then Goto Begin # BUTTON
If K = 3 Then
If B <> 0 Then * button
Call Check
If Result = N Then verify tel number
For B = 1 To N
Edigit(b) = A(b)
Waitms 10
Next B
En = N
For B = 1 To 4
Sound Beep , 200 , 100
Waitms 50
Next B
Goto Begin
Else
Sound Beep , 1000 , 200 : Jmp Chang
End If
Else
Goto Confirm2
End If
End If

Num = Lookup(k , Dta)
K2 = Str(num)
Incr B
A2(b) = K2 : Locate 2 , B : Lcd K2
Sound Beep , 200 , 100
Do
K = Getkbd()
Loop Until K > 11
jmp confirm2
-------------------------------------------- DIALING --------------------------
Dial:
Tel_line = 1
Cls : Home : Lcd " Dialling... "
Wait 1 : Home L
For B = 1 To N
Dtmfout Digit(b) , 50
Locate 2 , B : Lcd Digit(b)
Waitms 60
Next B
Puls = 0
Wait 4
Alarm:
Do
Enable Timer2
Sound Beep2 , 300 , 100
Waitms 50
If Count = 255 Then Goto Begin
K = Getkbd()
If K = 11 Then Goto Begin
Loop
-------------------------------------------------------------------------------
Sub Check
Result = 0
For B = 1 To N
If A(b) = A2(b) Then Incr Result
Next B
End Sub
-------------------------------------------------------------------------------
Dta:
Data 1 , 4 , 7 , 10 , 2 , 5 , 8 , 0 , 3 , 6 , 9 , 11

Esmaeil:
Incr Puls
Count = Puls + 0.5
Return