Translate

Membuat Alat Penerima Radio FM Menggunakan Mikrokontroller

Membuat Alat Penerima Radio FM Menggunakan Mikrokontroller

    
                Radio FM pada jaman sekarang ini sangatlah diperlukan, seperti halnya digunakan pada toko-toko, mobil pribadi, atau juga di rumah / kos, selain untuk mendengarkan musik, radio juga berfungsi sebagai penyampai pesan, sama seperti halnya TV. Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat radio FM sederhana dengan menggunakan mikrokontroller, radio ini menggunakan modul TEA5767 yang mana dapat menerima sinyal di frekuensi 76 - 108 Mhz, untuk mengakses modul radio ini harus mengunakan i2c dan juga output modul ini harus ditambahkan audio amplifier dan speaker sendiri, untuk lebih jelasnya berikut adalah penjelasan mengenai program dan skemanya.



a. Minimum System ATMega





 b. Modul TEA5767 





c. Program Bascom AVR

$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600

$lib "mcsbyte.lbx"

Config Scl = Portc.0                                        'i2c scl
Config Sda = Portc.1                                        'i2c sda
Config I2cdelay = 10                                        ' i2c delay

Ddrd.2 = 0
Ddrd.3 = 0
Ddrd.4 = 0
Ddrd.5 = 0

Set Portd.2
Set Portd.3
Set Portd.4
Set Portd.5


'_____________________________________________
'config
Dim Address As Byte , Command As Byte                       'RC5 ir variable
Dim Pll As Single
Dim Fset As Word
Dim Freq As Single                                          ' set freq
Dim 1st As Byte
Dim 2nd As Byte
Dim 3rd As Byte
Dim 4st As Byte
Dim 5th As Byte
Const Fref = 32.768                                         ' cristal freq radio module
Const Fg = 250
I2cinit

Freq = 76
'_____________________________________________
'main program
Do

If Pind.2 = 0 Then
Waitms 200
Freq = Freq + 0.1
Print Freq

Elseif Pind.3 = 0 Then
Waitms 200
Freq = Freq - 0.1
Print Freq

End If

Pll = Freq * 1000
Pll = Pll + Fg
Pll = Pll * 4
Pll = Pll / Fref
Fset = Int(pll)
1st = High(fset)
Reset 1st.7                                                 'not mute
Reset 1st.6                                                 'not search
2nd = Low(fset)
3rd = &B00010000
4st = &B00010010
5th = &B00000000
I2cstart
I2cwbyte &HC0
I2cwbyte 1st
I2cwbyte 2nd
I2cwbyte 3rd
I2cwbyte 4st
I2cwbyte 5th
I2cstop


Loop
End




d. VIDEO HASILNYA













No comments:

Post a Comment