Telefon hattına mikroişlemci ile bağlanıp arama yaptırma

[gokhangokcen]

yoğunluktan dolayı devreleri deneyemedim hafta sonu biraz üzerinde uğraşacağım bakalım inşallah sorun çıkmadan hallederim.emeği geçen herkese teşekkür ederim deneme sonrası gelişen durumları ve düzgün devre şemasını tekrardan paylaşırım iyi günler dilerim.

[gokhangokcen]

http://www.holtek.com.tw/english/tech/faq/img/ht9200lin.jpg linkteki şemayı forumdan bir abimiz verdi sağolsun denedim çalıştırdım ihtiyacı olan arkadaşlar kullanabilir başarılı bir şekilde arama yapıyor şu an bord üzerinde deneme yaptığım için detaylı şema veremiyorum.dtmf yazan pin işlemcinin dtmf çıkış pinine bağlanıyor.Diğer npn transistör ise hattı açmak için kullanılıyor. Program ise şöyle;

$regfile "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 8
$framesize = 24
'since the DTMFOUT statement uses the TIMER1 interrupt you must enable
'global interrupts
'This is not done by the compiler in case you have more ISRs

Config Portb = Output

Enable Interrupts




'the first sample does dtmfout in a loop
Dim Btmp As Byte , Sdtmf As String * 11
Dim I As Byte

Sdtmf = "05xxxxxxxxxx"                                       ' number to dial

Do

 Set Portb.2
 Set Portb.4
 Wait 1



 Dtmfout Sdtmf , 50                                         ' lets dial a number
 '                ^ duration is 50 mS for each digit

Wait 3                                                      ' wait for one second







  For I = 0 To 244
 Toggle Portb.0
 Waitms 250
 Next



 Reset Portb.2
 Reset Portb.4

 Wait 5



Loop
End

'the keypad of most phones looks like this :
'1  2  3    optional are A
'4  5  6                 B
'7  8  9                 C
'*  0  #                 D

'the DTMFOUT translates a numeric value from 0-15 into :
' numeric value    phone key
'   0                0
'   1                1
'   2                2
'   3                3
' etc.
'   9                9
'  10                *
'  11                #
'  12                A
'  13                B
'  14                C
'  15                D

bascom avr ile atmega 8 için yazmıştım.Umarım faydalı olur birilerine.İyi günler dilerim.