اطلاعیه

**رجاء** · 2009-10-09T18:11:55

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

اول بدون میکرو از این آی سی جواب بگیرید بعد با میکرو تست کنید

شما از چه نقشه ای استفاده می کنید
اگه تن های ارسالی ضعیف هستند باید تقویت بشن
مقدار و نوع خازن هایی که استفاده می کنید خیلی مهمه

**khast khodaiebehnam** · 2009-10-09T19:17:20

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

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

**behruz_e** · 2009-10-10T09:53:51

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

نقشه مدار mt8870 رو واستون میزارم
بی زحمت شما یه نگاهی بهش بندازین

**hadi1328** · 2009-10-10T10:54:44

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

نوشته اصلی توسط behruz_e

سلام دوسنان
من یه برنامه برای کنترل وسایل برقی نوشتم که توی مدار از MT8870 هم استفاده کردم
ولی مدارم طوریه که یه بار جواب می گیرم و یه بار ... :redface:
نمی دونم مشکل کجاست . کمممممممممک :question:

فکر میکنم، تن های ارسالی روی خط ضعیف یاشه البته جسارتاً حدس زدم

سلام
تو ورودی مدارتون که خط تلفن رو وصل میکنی
حتما از چوک سفید (چوک تلفن) استفاده کن
تا مدارت از خط تلفن ایزوله بشه و نویز خط تو مدارت نیاد

موفق باشی

**behruz_e** · 2009-10-15T16:19:07

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

بچه ها ببخشید که مدار دیر شد آخه بد جوری مریض بودم
http://www.ecapic.ir/image/ECA-091015054447.jpg

**majid.4206** · 2009-10-15T21:11:48

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

سلام
اون 100k رو کمش کن ..بکن 70k ببیت جواب میده ؟
یه سوالی موقعی که گوشی رو برمیداری وقفه برنامت اجرا میشه؟
منظورم اینه که اون پایه ایی که دادی به P4 که رفته به INT میکرو عمل میکنه؟

**behruz_e** · 2009-10-17T11:22:33

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

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

**khast khodaiebehnam** · 2009-10-17T12:57:41

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

همین که یک بار هم جواب داده واسه من شک برانگیزه
1. اون 220 کیلو رو وردار جاش 330 کیلو بزار
اون 10 کیلو رو وردار بکنش 100 کیلو

حالا قبل از 100 نا نو یه مقاومت 10 کیلو وصل کن به زمین و قبلش هم یه دیود 1n4007 بزار
یعنی ورودی(سیم + تلفن)میاد تو یه دیود 1n4007 و بعد با یه 10 کیلو میره به زمین .حالا از بین دیود و مقاومت میره به 100 نانو که میخوره به 2 تا مقاومت 100 کیلو و پایه 2 و 3 ای سی

**behruz_e** · 2009-10-18T11:07:07

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

پایه STD از MT8870 که مستقیم رفته به میکرو؛ مشکلی پیش نمیاره؟

اگه بخوام مدارو با یه چوک از خط تلفن ایزوله کنم باید خط تلفن رو به طرف دو پایه ای چوک بدم و از طرف 3 سر فقط از دو سزش واسه مدار استفاده کنم؟

**behruz_e** · 2009-10-18T14:20:07

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

دوستان عزیز
مداری که من بستم اینه
برنامه میکرو رو هم گذاشتم
چوک رو واسه انتقال صدا روی خط تلفن گذاشتم.
فهمیدم مشکل کجاست..
وقتی که pd0 رو آزاد می زارم یعنی رله رو از مدار خارج میکنم و خودم به صورت دستی TIP رو به پایه 4 از رله وصل میکنم
مدار مثل بلبل کار میکنه ولی وقتی رله توی مداره و میکرو رله و خط رو وصل میکنه دیگه قسمت MT8870 کار نمی کنه
http://www.ecapic.ir/image/ECA-091018034430.jpg

برنامه

regfile = "m8def.dat"
$crystal = 4000000
Dim A As Byte , B As Word , C As Byte , D As Byte , F As Byte , T As Byte
Dim Adadramz As Byte , E1 As Byte , E2 As Byte , E3 As Byte , E4 As Byte
Dim F1 As Byte , F2 As Byte , F3 As Byte , F4 As Byte , A8 As Byte

Config Portc = Input
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Portb.5 = Output
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Input
Config Portd.3 = Input
Config Portd.4 = Output
Config Portd.6 = Output
Config Portd.7 = Output
Portd.0 = 1
Readeeprom E1 , 1
Waitms 30
Readeeprom E2 , 2
Waitms 30
Readeeprom E3 , 3
Waitms 30
Readeeprom E4 , 4
Waitms 30
Readeeprom T , 10
Waitms 30
If T > 9 Then T = 4
Portb.2 = 0
Portb.3 = 0
Portb.4 = 0
Portb.5 = 0
Portd.6 = 0
Portd.7 = 0

Ghat:
F = 0
Adadramz = 0
D = 0
A = 0
Bargasht:
Waitms 20
Portd.0 = 1
Waitms 20

Do
Waitms 10
Debounce Pind.2 , 0 , Zang , Sub
Waitms 10
Loop

Zang:
Wait 1
Incr A
If A < T Then Goto Bargasht
Waitms 20
Portd.0 = 0
Waitms 500
Sound Portd.1 , 300 , 400
Waitms 200
Sound Portd.1 , 300 , 400
Waitms 200
Sound Portd.1 , 300 , 400
Waitms 200
For B = 1 To 40000
Debounce Pind.3 , 1 , Ramz , Sub
If Adadramz = 4 Or Adadramz > 4 Then Goto Endramz
Waitms 1
Next
Waitms 20
Goto Ghat

Ramz:
Waitms 20
Incr Adadramz
Select Case Adadramz
Case 1:
Waitms 20
F1 = Pinc
Waitms 20
Sound Portd.1 , 300 , 500

Case 2:
Waitms 20
F2 = Pinc
Waitms 20
Sound Portd.1 , 300 , 500

Case 3:
Waitms 20
F3 = Pinc
Waitms 20
Sound Portd.1 , 300 , 500

Case 4:
Waitms 20
F4 = Pinc
Waitms 20
Sound Portd.1 , 300 , 500
Waitms 500

End Select
Return

Endramz:
Waitms 20
If F1 = E1 And F2 = E2 And F3 = E3 And F4 = E4 Then Goto B
If F1 = 4 And F2 = 7 And F3 = 4 And F4 = 7 Then Goto B
Waitms 20
Sound Portd.1 , 600 , 600
Goto Ghat

B:
D = 0
Waitms 500
Sound Portd.1 , 300 , 400
Waitms 200
Sound Portd.1 , 300 , 400
Waitms 200
Sound Portd.1 , 300 , 400
Waitms 20
Portd.0 = 0
For B = 1 To 30000
Debounce Pind.3 , 1 , Tashkhisadad , Sub
Waitms 1
Next
Goto Ghat

Tashkhisadad:
Incr D
If D = 1 Then
Waitms 20
C = Pinc
Waitms 20
If C = 12 Then Goto Ghat
Waitms 20
Sound Portd.1 , 300 , 500
End If
If D = 2 Then
Waitms 20
A8 = Pinc
Waitms 20
Goto Behi
End If
Return
If D > 2 Then
D = 0
Goto B
End If
Behi:
Select Case C
Case 1:
If A8 = 11 Then
Portb.1 = 1
Waitms 1500
Portb.1 = 0
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
Elseif A8 = 12 Then
Portb.0 = 1
Waitms 1500
Portb.0 = 0
Sound Portd.1 , 200 , 600
Waitms 300
Sound Portd.1 , 600 , 600
Waitms 500
End If
Case 2:
If A8 = 11 Then
Portb.2 = 1
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
Elseif A8 = 12 Then
Portb.2 = 0
Sound Portd.1 , 200 , 600
Waitms 300
Sound Portd.1 , 600 , 600
Waitms 500
End If
Case 3:
If A8 = 11 Then
Portb.3 = 1
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
Elseif A8 = 12 Then
Portb.3 = 0
Sound Portd.1 , 200 , 600
Waitms 300
Sound Portd.1 , 600 , 600
Waitms 500
End If
Case 4:
If A8 = 11 Then
Portb.4 = 1
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
Elseif A8 = 12 Then
Portb.4 = 0
Sound Portd.1 , 200 , 600
Waitms 300
Sound Portd.1 , 600 , 600
Waitms 500
End If
Case 5:
If A8 = 11 Then
Portb.5 = 1
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
Elseif A8 = 12 Then
Portb.5 = 0
Sound Portd.1 , 200 , 600
Waitms 300
Sound Portd.1 , 600 , 600
Waitms 500
End If
Case 6:
If A8 = 11 Then
Portd.6 = 1
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
Elseif A8 = 12 Then
Portd.6 = 0
Sound Portd.1 , 200 , 600
Waitms 300
Sound Portd.1 , 600 , 600
Waitms 500
End If
Case 7:
If A8 = 11 Then
Portd.7 = 1
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
Elseif A8 = 12 Then
Portd.7 = 0
Sound Portd.1 , 200 , 600
Waitms 300
Sound Portd.1 , 600 , 600
Waitms 500
End If
Case 8:
If A8 = 11 Then
Portd.4 = 1
Waitms 1500
Portd.4 = 0
Waitms 20
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
End If
Case 9:
If A8 = 11 Then
Waitms 500
Sound Portd.1 , 300 , 400
Waitms 300
Sound Portd.1 , 300 , 400
Waitms 300
Sound Portd.1 , 300 , 400
Waitms 10
Goto Changramz
Elseif A8 = 12 Then
Waitms 20
Sound Portd.1 , 300 , 500
Waitms 20
Goto Tedad
End If
Case 10:
If A8 = 12 Then
Waitms 50
Portb.2 = 0
Waitms 500
Portb.3 = 0
Waitms 500
Portb.4 = 0
Waitms 500
Portb.5 = 0
Waitms 500
Portd.6 = 0
Waitms 500
Portd.7 = 0
Waitms 500
Sound Portd.1 , 200 , 600
Waitms 300
Sound Portd.1 , 600 , 600
Waitms 500
End If
Case Else : Goto Ghat
End Select
Goto B

Tedad:
For B = 1 To 30000
Debounce Pind.3 , 1 , Sabttedad , Sub
Waitms 1
Next
Waitms 20
Goto Ghat

Sabttedad:
Waitms 20
T = Pinc
Waitms 20
Writeeeprom T , 10
Waitms 30
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 60
Sound Portd.1 , 100 , 600
Waitms 500
Goto B

Changramz:
F = 0
Waitms 20
For B = 1 To 40000
Debounce Pind.3 , 1 , Changramz2 , Sub
Waitms 1
If F > 4 Or F = 4 Then
Sound Portd.1 , 300 , 600
Goto Ghat
End If
Next
Goto Ghat

Changramz2:
Waitms 20
Incr F
Select Case F
Case 1:
Waitms 20
E1 = Pinc
Waitms 20
Writeeeprom E1 , 1
Waitms 30
Sound Portd.1 , 300 , 500
Waitms 500

Case 2:
Waitms 20
E2 = Pinc
Waitms 20
Writeeeprom E2 , 2
Waitms 30
Sound Portd.1 , 300 , 500
Waitms 500

Case 3:
Waitms 20
E3 = Pinc
Waitms 20
Writeeeprom E3 , 3
Waitms 30
Sound Portd.1 , 300 , 500
Waitms 500

Case 4:
Waitms 20
E4 = Pinc
Waitms 20
Writeeeprom E4 , 4
Waitms 30
Sound Portd.1 , 300 , 500
Waitms 500

End Select
Return

**amir_HASANI** · 2009-10-19T00:29:07

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

چرا MT8870 رو به اون سر آزاد چوک وصل نکردی؟ :surprised:

**behruz_e** · 2009-10-19T20:11:33

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

من اون چوک رو واسه انتقال صدا روی خط گذاشتم
خط تلفن به MT8870 از سر خازن 100n وصل شده (یه کم دقت کن

)
اگه شما لطف کنید و بگید چطوری خط تلفن رو با چوک به مدار MT8870 , .. وصل کنم ممنون می شم
ضمناً من مشکل مدارو گفتم چیه
وقتی رله رو از مدار خارج می کنم و دستی خط رو به پایه 4 رله وصل می کنم مدار درست کار می کنه
ولی در حالت عادی وقتی میکرو خط رو وصل می کنه مدار درست کار نمی کنه :angry:

**amir_HASANI** · 2009-10-21T00:40:47

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

شما اگه سر همون خازن 100nرو به جای وصل کردن مستقیم به خط به اون سر آزاد چوک وصل کنید MT8870بهتر کار میکنه و ممکنه مشکل شما کلا رفع بشه :nice:

**behruz_e** · 2009-10-21T19:44:04

پاسخ : کنترل وسایل برقی بوسیله تلفن با MT8870

یعنی زمین خط تلفن رو از زمین مدار جدا کنم؟

و سر خازن 100 نانو که به MT8870 می ره رو به سر سوم چوک وصل کنم؟

اطلاعیه

کنترل وسایل برقی بوسیله تلفن با MT8870

کنترل وسایل برقی بوسیله تلفن با MT8870

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه