شماره گیری تلفن + سورس

[makhmalkhan]

سلام بچه ها. من باید یه برنامه بنویسم و سخت افزارشم طراحی کنم که بتونه مثل تلفن فقط شماره گیری کنه.فقط کار شماره گیری بدون امکانات دیگه.
فقط یه هفته ای دارم. واسه درس ریز پردازندست.ترم آخرم. و آشنایی با ساخت سخت افزار ندارم. کسی سورس برنامه و شماتیتشو داره؟
هزینشم پرداخت می کنم. ولی خواهشا پوست نکنین.واسه 4 نمره خدائیش پول زیاد دادن اونجای آدمو می سوزونه. کسی می تونه کمک کنه ؟
ممنون

[hamed_online62]

پاسخ : شماره گیری تلفن + سورس

فکر می کنم راجع به این موضوع بشه مطالب زیادی تو انجمن پیدا کرد. یه سرچ تو انجمن بزن

[makhmalkhan]

پاسخ : شماره گیری تلفن + سورس

سلام عزیز.ولا سرچ کردم چیزه آماده پیدا نکردم. همه جا توضیح درباره چگونه ساختنه. من اصلا وقت واسه یادگیری ندارم. چون دارم رو پایان نامم کار می کنم واسه این اصلا وقتی ندارم که بذارم. اگه کسی میتونه واسم طراحی کنه بسم الله

[aliyaghoobi88]

پاسخ : شماره گیری تلفن + سورس

سلام
انجام دادن این پروژه واسه خیلی از اعضای انجمن یک کار ساده است ولی اینجا عرف بر اینه که کسی که سوالش رو می پرسه پولش رو میزاره تو جیبش یا اینکه پیشنهادش رو تو قسمت مربوطه مطرح میکنه
شما از ht9200 استفاده کن ،کاتالوگش رو بخونی فکر نکنم مشکل خاصی باشه
:bye

[r.p]

پاسخ : شماره گیری تلفن + سورس


'---------------------------------------------
' Compelet Dialer With 4 * 3 Keyboard
'---------------------------------------------
$regfile = "M16def.dat"
$crystal = 1000000
'---------------------------------------------
Config Lcdpin = Pin , Db4 = Pind.7 , Db5 = Pind.4_
, Db6 = Pind.5 , Db7 = Pind.6 , Rs = Pind.0 , E = Pind.1
Config Lcd = 16 * 2
Config Kbd = Portb , Debounce = 50 , Delay = 100
Dim Row As Byte , Col As Byte , A As Byte
Config Porta = Output
'----------------------------------------------
Dim A1 As Byte , A2 As Byte , A3 As Byte
Dim A4 As Byte , A5 As Byte , A6 As Byte
'-----------------------------------------------
Col = 1 : Row = 1
Cls
'-----------------------------------------------
Do
Main:
A = Getkbd()
If A > 15 Then Goto Main
Lowerline
Lcd " dialling"
Locate Row , Col
A = Lookup(a , Key)
Locate Row , Col
If A = 11 Then
Lcd "*"
Elseif A = 12 Then
Lcd "#"
Else
Lcd A
End If
Incr Col
If Col > 15 Then
Col = 1 : Incr Row
End If
If Row > 2 Then
Cls : Row = 1
End If
Porta = &B11011100
Porta.1 = 1
Delay
Porta = &B00001100
Porta.1 = 1
Delay
Porta.2 = 0
Porta.1 = 0
Porta.3 = 1
Delay
If A = 0 Then A = 10
Rotate A , Left , 4
A = A + 8
Porta = A
Porta.1 = 1
Waitms 100
Delay
Loop
End
'-------------------------------------------
Key:
Data 0 , 1 , 2 , 3 , 0 , 4 , 5 , 6 , 0 , 7 , 8 , 9 , 0 , 11 , 0 , 12
'-------------------------------------------------

اینم نقشه
http://rapidshare.com/files/115532581/3-11.pdf.html
امیدوارم به دردتون بخوره
این پروژه را از کتاب 10پروژه با avr براتون قرار دادم(اول دوستانی که در این زمینه استادن نظر بدن بعد از تایید شروع کن :icon_razz: :smile:

[mostafahk]

پاسخ : شماره گیری تلفن + سورس

با با این که فنچه
من یه کتابخونه تحت Winavr نوشتم که با AVR بدون هیچ قطعه جانبی پالس های شماره گیری tone رو تولید می کنی. با یک عدد دود پل و ترانزیستور و یک مقاومت 1 کیلو هم می فرستی رو خط تلفن.
تو همین سایت تاپیکش رو گذاشتم ولی تو وبلاگم کاملتر هست.

http://mostafahk.blogspot.com/2008/03/dtmf-avr.html

[makhmalkhan]

پاسخ : شماره گیری تلفن + سورس

از همگی ممنون که جواب دادید. دستتون درد نکونه. از مدیران سایت هم معذرت که فکر کنم باید مطلب رو تو یه قسمت دیگه می ذاشتم. خیلی ممنون.

[foadft]

پاسخ : شماره گیری تلفن + سورس

سلام
نیازی به هزینه زیاد و قیمت های سرسام آور نیست.
کتاب 10 پروژه با avr مهندس کاظمی و حسینی رو بخر تو پروژه 3 ش چند تا شماره گیر با کدهای کامل و نقشه گذاشتن. من یکیشو بستم همین امروز فورا هم جواب گرفتم. فقط این کتاب نمی دونم چرا یهو نایاب شد. از انتشارات آفرنگ بود.