امروز جمعه ۳۱ فروردین ۱۴۰۳
دسته بندی سایت
پیوند ها
آمار بازدید سایت
هدف از این پروژه آشنایی با سیستم شماره گیری 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
این محصول در قالب یک سمینار کامل نوشته شده است که نیاز به هیچگونه ویرایشی ندارد. این فایل در ۷۸ صفحه و در فرمت word تنظیم شده است که شامل چکیده،فهرست مطالب که در ۶ فصل آورده شده و در نهایت مراجع و رفرنس ها می باشد. در این سمینار قصد داریم ابتدا اصول کارکرد سیستم ناوبری ... ...
این فایل در فرمت پاورپوینت تهیه شدا است. این کد براساس سه گام مهم نوشته شده است که مختصرا شرح داده می شود گام اول: ابتدا ورودی را به سیستم اعمال می کنیم و خروجی ها را ثبت می کنیم. اولین گام محاسبۀ کوواریانس و کراس کوواریانس از این ورودی و خروجی هاست. برای شناسایی سیستم ... ...
فیلتر پایینگذر (به انگلیسی: Low-pass filter) نوعی از فیلتر میباشد که سیگنالهایی با بسامدی کمتر از بسامدی مشخص را عبور میدهد لازم به توجه است که این فیلتر در بحث پردازش سیگنال و جریانهای متناوب اهمیت دارد و اثری بر جریانهای مستقیم ندارد. فیلتر بالاگذر (به انگلیسی: ... ...
جزوه عالی و کامل تایپ شده سیستم های کنترل پیشرفته (کنترل مدرن) آماده برای دانلود است. مشخصات جزوه دانشگاه: صنعتی خواجه نصیرالدین طوسی رشته: مهندسی برق، مهندسی مکانیک استاد: دکتر بیژن معاونی فایل های همراه جزوه: تمرین ها و جواب های کامل، کوئیزها، پروژه ها فرمت: PDF پی ... ...
جزوه عالی مدار منطقی دانشگاه: صنعتی شریف استاد: دکتر حسابی فرمت: PDF پی دی اف تعداد صفحات: 84 رشته: مهندسی برق سال: 1400-99 کیفیت: عالی نوع: دست نویس عالی دانلود نمونه ... ...
این کتاب محصول جدید انتشارات wiley در سال 2016 است. برای اطلاعات بیشتر به اینجا مراجعه شود. فرمت: PDF تعداد صفحات:419 پیشنهاد ویژه: در صورتی که تمایل دارید کتاب فوق را با 80 درصد تخفیف به همراه یک هدیه ویژه خریداری نمایید به بخش خرید پکیج کتاب های الکترونیک قدرت ... ...
جزوه ی مدارهای الکتریکی 1 آماده برای دانلود است. دانشگاه: صنعتی امیرکبیر (پلی تکنیک ایران) استاد: دکتر کراری منبع درسی، آزمون ارشد، استخدامی فرمت: پی دی اف PDF، قابل استفاده در هر سیستم و دستگاه (موبایل، لپ تاپ و ...) تعداد صفحات: 120 کیفیت: بسیار عالی نوع: دست نویس ...
اگر به یک وب سایت یا فروشگاه رایگان با فضای نامحدود و امکانات فراوان نیاز دارید بی درنگ دکمه زیر را کلیک نمایید.
ایجاد وب سایت یامحبوب ترین ها
پرفروش ترین ها
پر فروش ترین های فورکیا
پر بازدید ترین های فورکیا