سوال راجع به ارسال اطلاعات بوسلیه میکرو روی خط تلفن

[siamakb]

سلام
چطوری میشه اطلاعات (مثللا یه عدد)رو بوسلیه میکرو روی خط تلفن ارسال کرد؟
آی سی خاصی داره ؟
dtmf فقط برای دریافت تن هستش ولی من برای ارسال تن می خوام.
اگه راهنمایی بکنید ممنون می شم.
یاحق

[ali_rk]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

سلام
mt8888, mt8880 ولی من تا حالا باشون کار نکردم

[Ahp_online]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

سلام
چطوری میشه اطلاعات (مثللا یه عدد)رو بوسلیه میکرو روی خط تلفن ارسال کرد؟
آی سی خاصی داره ؟
dtmf فقط برای دریافت تن هستش ولی من برای ارسال تن می خوام.
اگه راهنمایی بکنید ممنون می شم.
یاحق

سلام
ببینید دوست عزیز سیستم dtmf همون سیستم تن است حالا ما دیکدر تن داریم که mt8870 است و تولید کننده تن داریم که همانطور دوستمون گفتند mt8880 , mt8888 است.

موفق باشید

[ocsillator]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

و البته دستور dtmfout در بسکام.

[siamakb]

دست همتون درد نکته

دست همتون درد نکته.(دمتون گرم)
یاحق

[ehsanpishy]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

اگه بخوای با AVR هم خیلی راحتتر میتونی این کارو انجام بدیا!!تو چه محیطی برنامه می نویسی؟

[jinxboy13]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

من یک پروژه (تو سایت مهندس لاچینی بود فکر کنم ) دیدم با این مضمون : شماره گیر جادویی به نطر من توضیحات ضمیمه پروژه و خود پروژه میتونه کمکتون کنه!

[mohammadfallahi63]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

سلام نه بابا من هرچقدر که تو این سایت التماس کردم که می خوام با میکرو شماره گیری کنم و از بچه ها کک گرفتم ولی کسی کمک نکرد :cry2: دیگه نمی دونم چی کار کنم و یه توصیه به دوست عزیزم من با mt8888 هم کار کردم و به مدت 3 ماه روش وقت گذاشتم ولی کار نکرد که نکرد پس الکی پولت رو درو نریز دوم اگر کسی واقعا با مکرو تونسته شماره گیری کنه خوب به صورت مقاله بزاره توسایت که همه بتونن استفاده کنن ثواب داره من که دیگه خسته شدم یا علی مدد

[khast khodaiebehnam]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

بله میشه کار هم نشد نداره .احتمالا شما این 3 ماه رو دقت نمی کردید
من با dtmfout شماره گرفتم یه سرچ بزنین می بینید که حد اقل 5 جا توضیح دادم وباید دو تا مشتق گیر بعد از پین میکرو بزاری

تلاش تلاش تلاش و باز هم تلاش راه حل مشکلات الکترونیکه

پس تلاش کنید میشه 88888 رو هم دست کم نگیرید

[amir_HASANI]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

سلام نه بابا من هرچقدر که تو این سایت التماس کردم که می خوام با میکرو شماره گیری کنم و از بچه ها کک گرفتم ولی کسی کمک نکرد :cry2: دیگه نمی دونم چی کار کنم و یه توصیه به دوست عزیزم من با mt8888 هم کار کردم و به مدت 3 ماه روش وقت گذاشتم ولی کار نکرد که نکرد پس الکی پولت رو درو نریز دوم اگر کسی واقعا با مکرو تونسته شماره گیری کنه خوب به صورت مقاله بزاره توسایت که همه بتونن استفاده کنن ثواب داره من که دیگه خسته شدم یا علی مدد

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

[aalamee]

پاسخ : یه سوال؟؟؟؟؟؟؟؟؟؟

سلام نه بابا من هرچقدر که تو این سایت التماس کردم که می خوام با میکرو شماره گیری کنم و از بچه ها کک گرفتم ولی کسی کمک نکرد :cry2: دیگه نمی دونم چی کار کنم و یه توصیه به دوست عزیزم من با mt8888 هم کار کردم و به مدت 3 ماه روش وقت گذاشتم ولی کار نکرد که نکرد پس الکی پولت رو درو نریز دوم اگر کسی واقعا با مکرو تونسته شماره گیری کنه خوب به صورت مقاله بزاره توسایت که همه بتونن استفاده کنن ثواب داره من که دیگه خسته شدم یا علی مدد

سلام ازاین کد استفاده کن و برای اتصال به ٨٩٥٢ به توضیحات داده شده توجه فرمایید
$regfile = "8052.dat"
$crystal = 12000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = P2.4 , Db5 = P2.5 , Db6 = P2.6 , Db7 = P2.7 , E = P2.3 , Rs = P2.2

Dim A As Byte
Declare Sub Dtmf_out_off
Declare Sub Dtmf_out_on
Declare Sub Int_mt
Declare Sub Data_rd
Declare Sub Data_rw
Declare Sub Command_rw
Declare Sub Command_rd
Declare Sub Send_data_dtmf
Declare Sub Receive_data_dtmf
Declare Sub Dial_up
Declare Sub Out_dtmf(a As Byte)


'******************************************** *
'connect pin 14,15,16,17 of mt8888 to p1.0--p1.3

Irq Alias P1.4 'pin 13 mt8888 to p1.4
Rd Alias P1.7 'pin 12 mt8888 to p1.7
Rs Alias P1.6 'pin 11 mt8888 to p1.6
Rw Alias P1.5 'pin 9 mt8888 to p1.5
Relay Alias P2.0
Ring Alias P2.1
Sw Alias P3.0


Declare Sub Showlcd
Dim Ringcount As Byte
Dim Ringrec As Byte
Dim Endcall As Byte
Dim X As Byte
Dim Send_en_bit As Bit
Dim Tel As String * 15
Dim Telx As String * 1
Dim Len_tel As Byte
Dim I As Byte
Dim Receive_byte As Byte
Dim Busy_cuont As Word
Dim Status As Byte
Tel = "0123456789"


Call Int_mt
Lcd "Initializing"
Wait 2


Do
If Sw = 0 Then
Cls
Lcd "Dialing"
Wait 2

Cls
Call Dial_up


End If

Loop
End

'///////////////////
Receive_ring:
If Ring = 1 Then
Do
Loop Until Ring = 0
Incr Ringcount
End If
Return
'////////////////////
Sub Showlcd

Locate 1 , 1
Lcd 11 ; "RING"

End Sub
'////////////////////////////
Sub Dial_up
Relay = 0
Waitms 500
Relay = 1
P1 = &B11110100
Call Command_rw
Len_tel = Len(tel)
For I = 1 To Len_tel
Telx = Mid(tel , I , 1)
X = Val(telx)
If X = 0 Then
X = 10
End If
Call Out_dtmf(x)
Lcd X
Next
End Sub
'/////////////////////////
Sub Receive_data_dtmf
Receive_byte = 0
P1.0 = 0
P1.1 = 0
P1.2 = 0
P1.3 = 0
Call Command_rd
Status = P1 And &H0F
If P1.2 = 1 Then
Call Data_rd
Receive_byte = P1
Receive_byte = Receive_byte And &B00001111
End If
If Receive_byte > 0 Then
Lcd Receive_byte
End If
End Sub
'/////////////////////////////////
Sub Out_dtmf(a As Byte)
P1 = &B11111100
Call Command_rw
P1 = &B11110001
Call Command_rw
Call Dtmf_out_on
P1 = A
Call Data_rw
Call Dtmf_out_off
End Sub
'//////////////////////
Sub Dtmf_out_off
Waitms 400
P1 = &B00000100
Call Command_rw
Waitms 100
End Sub
'////////////////////////////
Sub Dtmf_out_on
P1 = &B00000101
Call Command_rw
End Sub
'////////////////////////////
Sub Int_mt
Call Command_rd
Waitms 100
P1 = &B00000000
Call Command_rw
Waitms 100
P1 = 0
Call Command_rw
Waitms 100
P1 = &B00001000
Call Command_rw
Waitms 100
P1 = 0
Call Command_rw
Waitms 100
Call Command_rd
End Sub
'/////////////////////////////////
Sub Command_rw
Rs = 1
Rd = 1
Rw = 0
Waitms 10
Rw = 1
End Sub
'//////////////////////
Sub Command_rd
Rs = 1
Rd = 0
Rw = 1
Waitms 10
Rd = 1
End Sub
'////////////////////////
Sub Data_rw
Rs = 0
Rd = 1
Rw = 0
Waitms 10
Rw = 1
End Sub
'//////////////////////////
Sub Data_rd
Rs = 0
Rd = 0
Rw = 1
Waitms 10
End Sub
'////////////////////

[behnamavr-]

پاسخ : سوال راجع به ارسال اطلاعات بوسلیه میکرو روی خط تلفن

سلام
بابا MT8888 که خیلی سر به راهه از برنامه که گذاشتم واسه MT8888 ی تونید استفاده کنید فقط یادتون نره که پایه هاشو همون اول تعریف کنید. پایه های دیتا به نیبل بالای پورت متصله و پایه های کنترل به نیبل پایین پورت. البته برنامه ماله 2 ساله پیشه . خیلی مبتدیانست :icon_razz:
با روتین WRITE میتونی یه کد ارسال کنی و با روتین Read اگه کدی باشه میتونی بخونی. فقط قبل از خوندن از روتین وضعیت ، وضعیت رو بخون اگه دیتا بود بعد از روتین خوندن استفاده کن.

فایلهای DTMF هم اگه اشتباه نکنم مال آقای خزاما بود که میتونی با خود میکرو و تحت C باهاش DTMF بفرستی تمام برنامه ها تحت CodeVision است.
توضیحات در مورد برنامه آقای خزاما تو سایت ATMEL هم موجوده.
http://www.4shared.com/file/134015212/4771ca22/DTMF.html