Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat yang dapat memutar musik atau suara yang bervariasi saat tombol ditekan, jadi ada 8 buah tombol yang mana tiap-tiap tombol akan menghasilkan suara yang berbeda ketika ditekan, suara pada contoh alat ini sejenis klakson mobil "OM TELOLET OM" yang tenar awal tahun ini. alat ini menggunakan modul wav player sebagai pemutar suaranya dan mikrokontroller yang digunakan adalah ATMega8 sebagai eksekutornya. untuk lebih jelasnya berikut adalah skema dan programnya.
a. Minimum System ATMega8
b. Modul Wav Player WP3A
c. Program Bascom AVR
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 19200
Ddrd.2 = 0
Ddrd.3 = 0
Ddrd.4 = 0
Ddrd.5 = 0
Ddrb.0 = 0
Ddrb.1 = 0
Ddrb.2 = 0
Ddrb.3 = 0
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.5 = 1
Portb.0 = 1
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
Print Chr(13) ; Chr(13) ; Chr(13);
Waitms 100
Print "t" ; Chr(13);
Waitms 100
Print "g" ; Chr(13);
Waitms 100
Do
If Pind.2 = 0 Then
Print "lsuara1.wav" ; Chr(13);
Elseif Pind.3 = 0 Then
Print "lsuara2.wav" ; Chr(13);
Elseif Pind.4 = 0 Then
Print "lsuara3.wav" ; Chr(13);
Elseif Pind.5 = 0 Then
Print "lsuara4.wav" ; Chr(13);
Elseif Pinb.0 = 0 Then
Print "lsuara5.wav" ; Chr(13);
Elseif Pinb.1 = 0 Then
Print "lsuara6.wav" ; Chr(13);
Elseif Pinb.2 = 0 Then
Print "lsuara7.wav" ; Chr(13);
Elseif Pinb.3 = 0 Then
Print "lsuara8.wav" ; Chr(13);
Else
Print "t" ; Chr(13);
End If
Waitms 100
Loop
End
$crystal = 16000000
$baud = 19200
Ddrd.2 = 0
Ddrd.3 = 0
Ddrd.4 = 0
Ddrd.5 = 0
Ddrb.0 = 0
Ddrb.1 = 0
Ddrb.2 = 0
Ddrb.3 = 0
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.5 = 1
Portb.0 = 1
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
Print Chr(13) ; Chr(13) ; Chr(13);
Waitms 100
Print "t" ; Chr(13);
Waitms 100
Print "g" ; Chr(13);
Waitms 100
Do
If Pind.2 = 0 Then
Print "lsuara1.wav" ; Chr(13);
Elseif Pind.3 = 0 Then
Print "lsuara2.wav" ; Chr(13);
Elseif Pind.4 = 0 Then
Print "lsuara3.wav" ; Chr(13);
Elseif Pind.5 = 0 Then
Print "lsuara4.wav" ; Chr(13);
Elseif Pinb.0 = 0 Then
Print "lsuara5.wav" ; Chr(13);
Elseif Pinb.1 = 0 Then
Print "lsuara6.wav" ; Chr(13);
Elseif Pinb.2 = 0 Then
Print "lsuara7.wav" ; Chr(13);
Elseif Pinb.3 = 0 Then
Print "lsuara8.wav" ; Chr(13);
Else
Print "t" ; Chr(13);
End If
Waitms 100
Loop
End
d. VIDEO HASILNYA
No comments:
Post a Comment