کمک در راه اندازی HT9032D (کالر آی دی)

[mohsen p]

من یه مدار کالر آی دی می خوام بسازم با HT9032D .
قسمت Ring Detection درست کار می کنه ، اما هیچ دیتایی با میکرو نمیتونم بگیرم.برنامه زیر فقط برای تست دریافته.
اینم شماتیک:

اینم نمونه کد:
$regfile = "m8def.dat"
$crystal = 11059200
$baud = 1200
'$sim
Config Portd.3 = Output 'PWDN

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Cursor Off
Cls
Config Watchdog = 16
Config Int0 = Falling
Enable Int0
On Int0 Tell_input
Enable Interrupts
Reset Pwdn
Do
Loop
End

Tell_input:
Cls
Lcd "Ringing"
Do
For I = 1 To 2
For J = 1 To 16
Locate I , J
S = Waitkey()
Lcd S
Next J
Next I
Lcd S
Loop
return

[mohsen.hex]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

سلام
اولا داری با یک ای سی خیلی ضعیف سر کله میزنی و من پیشنهاد میکنم بری سراغ sm8223a و ایران هم راحت گیر میاد

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

$regfile = "M8def.dat"
$crystal = 1000000
$baud = 1200
Declare Sub Receive
Dim A As Byte , B As Byte
'-------------------------------------------------------------------------------

Enable Interrupts
Enable Urxc
On Urxc Get_cid
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.0 , E = Pinb.2
Config Lcd = 16 * 2
Cls
Locate 1 , 1
Lcd "lcd ok"
Waitms 500
Cls
Cursor Off
'-------------------------------------------------------------------------------
'-----------------------------------main----------------------------------------
'-------------------------------------------------------------------------------
Do
Incr A
Locate 1 , 1 : Lcd "wait call.. " ; A ; " "
Waitms 10
Loop


End
'-------------------------------------------------------------------------------
'------------------------------GET Caller ID------------------------------------
'-------------------------------------------------------------------------------
Get_cid:
If Waitkey() = 128 Then
If Waitkey() = 22 Then
If Waitkey() = 1 Then
If Waitkey() = 8 Then
'ÊÇÑíÎ
Locate 1 , 1
For B = 1 To 2
Receive
Lcd A
Next
Lcd "/"
For B = 1 To 2
Receive
Lcd A
Next
'ÓÇÚÊ
Lcd " "
For B = 1 To 2
Receive
Lcd A
Next
Lcd ":"
For B = 1 To 2
Receive
Lcd A
Next
'ÔãÇÑå ÊáÝä
If Waitkey() = 2 Then
If Waitkey() = 10 Then
Locate 2 , 1 : Lcd "0"
For B = 1 To 10
Receive
Lcd A
Next
Else
Cls : Locate 1 , 1 : Lcd "ERR"
End If
End If

Else
Cls : Locate 1 , 1 : Lcd "ERR"
End If
End If
End If
End If
Wait 2
Cls
Return 'End sub Get_cid
'-------------------------------------------------------------------------------
'--------------------------------Sub Receive------------------------------------
'-------------------------------------------------------------------------------
Sub Receive:
A = Waitkey()
A = A - 48
'A = A And 15
'Lcd A
End Sub

فقط شما تنضیمات ال سی دی خودت رو اعمال کن و کامپایل کن
و این خط
If Waitkey() = 128 Then
مال هر مرکز مخابرات ممکنه یه چیز باشه بهتره شما برسی کنی اگه 128 نباشه ارور میده و شما باید براساس مخابرات محل خودتون تغیر ش بدی
مشکلی بود در خدمتم
راستی یک چیز دیگه من از کریستال داخلی میکرو استفاده کردم (1 مگا هرتز)

[mohsen p]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

با سلام خدمت دوست عزیزم mohsen Hex
راستش من هم حرف شما رو که گفتین SM8223 خیلی خوبه قبول دارم .من خودم با این ای سی خیلی کار کردم که فوق العاده است .راستش من یه دونه 9032 دارم گفتم چرا همین جوری بی استفاده بمونه .به همین دلیل سرم رو که دردی نمی کرد دستمال بستم و گفتم راهش بندازم.
اما اصلا دیتایی ارسال نمی کنه که بگیرمشون حتی باhyper terminal که به نظر خودم ممکنه ای سی سوخته باشه.

[edisone2005]

پاسخ : پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

سلام
اولا داری با یک ای سی خیلی ضعیف سر کله میزنی و من پیشنهاد میکنم بری سراغ sm8223a و ایران هم راحت گیر میاد

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

$regfile = "M8def.dat"
$crystal = 1000000
$baud = 1200
Declare Sub Receive
Dim A As Byte , B As Byte
'-------------------------------------------------------------------------------

Enable Interrupts
Enable Urxc
On Urxc Get_cid
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.0 , E = Pinb.2
Config Lcd = 16 * 2
Cls
Locate 1 , 1
Lcd "lcd ok"
Waitms 500
Cls
Cursor Off
'-------------------------------------------------------------------------------
'-----------------------------------main----------------------------------------
'-------------------------------------------------------------------------------
Do
Incr A
Locate 1 , 1 : Lcd "wait call.. " ; A ; " "
Waitms 10
Loop


End
'-------------------------------------------------------------------------------
'------------------------------GET Caller ID------------------------------------
'-------------------------------------------------------------------------------
Get_cid:
If Waitkey() = 128 Then
If Waitkey() = 22 Then
If Waitkey() = 1 Then
If Waitkey() = 8 Then
'ÊÇÑíÎ
Locate 1 , 1
For B = 1 To 2
Receive
Lcd A
Next
Lcd "/"
For B = 1 To 2
Receive
Lcd A
Next
'ÓÇÚÊ
Lcd " "
For B = 1 To 2
Receive
Lcd A
Next
Lcd ":"
For B = 1 To 2
Receive
Lcd A
Next
'ÔãÇÑå ÊáÝä
If Waitkey() = 2 Then
If Waitkey() = 10 Then
Locate 2 , 1 : Lcd "0"
For B = 1 To 10
Receive
Lcd A
Next
Else
Cls : Locate 1 , 1 : Lcd "ERR"
End If
End If

Else
Cls : Locate 1 , 1 : Lcd "ERR"
End If
End If
End If
End If
Wait 2
Cls
Return 'End sub Get_cid
'-------------------------------------------------------------------------------
'--------------------------------Sub Receive------------------------------------
'-------------------------------------------------------------------------------
Sub Receive:
A = Waitkey()
A = A - 48
'A = A And 15
'Lcd A
End Sub

فقط شما تنضیمات ال سی دی خودت رو اعمال کن و کامپایل کن
و این خط
If Waitkey() = 128 Then
مال هر مرکز مخابرات ممکنه یه چیز باشه بهتره شما برسی کنی اگه 128 نباشه ارور میده و شما باید براساس مخابرات محل خودتون تغیر ش بدی
مشکلی بود در خدمتم
راستی یک چیز دیگه من از کریستال داخلی میکرو استفاده کردم (1 مگا هرتز)

سلام . ببخشید آقای فاریابی حالا اگه از شانس بد ما اون مقدار 128 نبود چطور باید بفهمیم چنده ؟! :-t

[0000a]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

سلام
اگه زحمت بکشید و شماتیک اون رو هم بگذارید ممنون میشیم

[mohammadfallahi63]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

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

[mohsen.hex]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

سلام
این شماتیک
http://mohsenfaryabi.persiangig.com/image/HT9032.jpg
برنامه رو هم خواستی بگو بزارم!!!

[mohammadfallahi63]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

سلام
این شماتیک
http://mohsenfaryabi.persiangig.com/image/HT9032.jpg
برنامه رو هم خواستی بگو بزارم!!!

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

[mohsen.hex]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

خدمت شما
به زبان بیسیک
http://mohsenfaryabi.persiangig.com/program/ht9032_bascom.rar

[mohammadfallahi63]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

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

[0000a]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

سلام
ممنون از شماتیک..

ولی من شماتیک دوستمون محسن فاریابی رو می خواستم که با atmega 8 و sm8223 درست کردن و زحمت کشیدن سورس اون رو هم قرار دادن

[mohsen.hex]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

ولا من کار خاصی نکردم برنامه رو ریختم روی میکرو و برا sm 8223 مدار دیتا شیت رو بستم و پین txd اس ام 8223 رو دادم به rxd میکرو و ....
برنامه هم که اون بالا هست دیگه چیز خاصی نداره!!!
شما حتی برای تست میتونی خروجی sm رو مستقیم بدی به کام کامپیوتر و ببینی چه دیتایی میاد!!!
شماتیک رو از دیتا شیت بردار ولی بازم خواستی بگو من بزارم برات!!

[mohammadfallahi63]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

خدمت شما
به زبان بیسیک
http://mohsenfaryabi.persiangig.com/program/ht9032_bascom.rar

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

[mohsen.hex]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

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

[mohammadfallahi63]

پاسخ : کمک در راه اندازی HT9032D (کالر آی دی)

سلام
یه برنامه گیر اوردم کار کرد
فقط یه نکته
اگر جواب نداد سیم های تلفن رو جابه جا کنید
regfile = "M16def.DAt"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pina.0 , Db5 = Pina.1 , Db6 = Pina.2 , Db7 = Pina.3 , Rs = Pina.4 , E = Pina.5
Config Pind.3 = Input
$baud = 1200

Dim Dat(100) As Byte , F As Byte , S As Byte
Dim N As Byte
Dim B As Byte
Dim A As String * 1
Dim C As Byte

Cls
Lcd "Designed by: RDS"
Cursor Off
Wait 3
Locate 1 , 1
Do
A = Waitkey()
Select Case A





Case "0"
B = 0
Incr N
Dat(n) = B



Case "1"
B = 1
Incr N
Dat(n) = B


Case "2"
B = 2
Incr N
Dat(n) = B

Case "3"
B = 3
Incr N
Dat(n) = B

Case "4"
B = 4
Incr N
Dat(n) = B


Case "5"
B = 5
Incr N
Dat(n) = B


Case "6"
B = 6
Incr N
Dat(n) = B


Case "7"
B = 7
Incr N
Dat(n) = B


Case "8"
B = 8
Incr N
Dat(n) = B


Case "9"
B = 9
Incr N
Dat(n) = B


Case Else

If N > 8 Then
Goto Disply
End If

End Select

Loop


Disply:

Lcd Dat(1)
Lcd Dat(2)
Lcd "/"
Lcd Dat(3)
Lcd Dat(4)

Locate 1 , 12

Lcd Dat(5)
Lcd Dat(6)
Lcd ":"
Lcd Dat(7)
Lcd Dat(8)

Locate 2 , 1
For C = 9 To N
Lcd Dat(c)
Next
Wait 3
Do
Loop
End