E.M.E Blog: For Intermediate

Melanjutkan postingan kemarin tentang <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/dalam-postingan-kali-ini-saya-akan.html">usb downloader</a>, kali ini saya akan membahas cara membuat alarm menggunakan PIC16F84A. 
<div>
Rangkaian ini menggunakan <a href="http://www.google.com/search?q=pic16f84a&oq=pic16f84a&aqs=chrome..69i57j69i60j0l4.5095j0j8&sourceid=chrome&espv=210&es_sm=93&ie=UTF-8">PIC16F84A</a> yang sangat mudah didapatkan di toko elektronik. Biasanya harganya berkisaran antara 30.000 rupiah sampai 40.000 rupiah. <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/rangkaian-alarm-menggunakan-pic16f84a.html">Rangkaian alarm</a> ini menggunkan 4 seven segment display dengan common anode maupun katode sesuai dengan programnya. Rangkaian ini juga menggunakan kristal 16Mhz yang sangat mudah juga didapat di toko elektronik. Rangkaian alarm ini dapat diatur kapan akan berbunyi melaui tombol/button yang ada pada rangkaian maupun langsung dimasukkan kedalam program. Rangkaian ini juga dilenkapi dengan 3 tombol/button yaitu tombol up, down, dan select. Anda dapat memprogram hari minggu, jam, menit dan durasi alarm. Jumlah alarm hanya dibatasi ruang ROM saja. Dan inilah skemanya!</div>
<div>
<a href="http://www.micro-examples.com/pics/084-ALARM-CLOCK-schematic.JPG" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img alt="PIC16F84A alarm clock schematic" border="0" height="296" src="http://www.micro-examples.com/pics/084-ALARM-CLOCK-schematic.JPG" width="400" /></a></div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 </div>
<div>
 
Dan inilah daftar komponen yang dibutuhkan :</div>
<div>
<ul>
<li>PIC16F84A           x1</li>
<li>Resistor 1k             x7</li>
<li>Transistor BC547   x4</li>
<li>7- segment display  x4</li>
<li>Capasitor 27pF      x2</li>
<li>Capasitor 100nF     x1</li>
<li>Push button             x3</li>
<li>Resistor 330ohm     x7</li>
<li>X-Tal 16Mhz          x1</li>
</ul>
Dan inilah source codenya!</div>
<div>
<pre style="background-color: white; font-size: 12px;"></pre>
</div>
<div>
<pre style="background-color: white; font-size: 12px;"><code>'******************************************************************************
' PIC16F84A ALARM CLOCK
'******************************************************************************
'
' feel free to use this code at your own risks
'
' target : PIC16F84A, 16 Mhz crystal
' HS clock, no watchdog.
'
' Author : Bruno Gavand, September 2007
' see more details on http://www.micro-examples.com/
'
'******************************************************************************

program alarmClock

'
' if you are using COMMON CATHODE LED display, uncomment this definition.
' if you are using COMMON ANODE LED display, comment this definition.
'
'#define CATHODE_COMMUNE

symbol LUNDI = 0 ' monday
symbol MARDI = 1 ' thuesday
symbol MERCREDI = 2 ' wednesday
symbol JEUDI = 3 ' thursday
symbol VENDREDI = 4 ' friday
symbol SAMEDI = 5 ' saturday
symbol DIMANCHE = 6 ' sunday
symbol LMMJV = 7 ' from monday to friday included

'
' alarm definitions, to be changed on your needs
'
symbol NBALARM = 16 ' number of programmed alarms

const alarmTable as byte[NBALARM * 4] = (
' JOUR HEURE MINUTE DUREE (secondes, 59 maxi)
' DAY HOUR MINUTE DURATION (in seconds, max is 59)
 LUNDI, 8, 30, 10,
 LUNDI, 12, 30, 10,
 LUNDI, 14, 00, 10,
 LUNDI, 16, 30, 10,
 MARDI, 8, 30, 10,
 MARDI, 12, 30, 10,
 MARDI, 14, 00, 10,
 MARDI, 16, 30, 10,
 JEUDI, 8, 30, 10,
 JEUDI, 12, 30, 10,
 JEUDI, 14, 00, 10,
 JEUDI, 16, 30, 10,
 VENDREDI, 8, 30, 10,
 VENDREDI, 12, 30, 10,
 VENDREDI, 14, 00, 10,
 VENDREDI, 16, 30, 10
 )

dim maxcount as word ' number of TMR0 overflow per second
dim scaler as word ' RTC scaler
dim jj as byte ' day of week, 0 is monday
dim hh as byte ' hour
dim mn as byte ' min
dim ss as byte ' sec
dim digiled as byte[4] ' 4 x 7 segment table
dim digit as byte ' number of current digit to be displayed
dim dp as byte ' decimal point
dim key as byte ' key code
dim alarm as byte ' alarm flag

'
' the ISR works as real time clock
'
sub procedure interrupt
 dim i as byte

'
' count time
'
 scaler = scaler + 1
 if scaler > maxcount
 then
 scaler = 0

inc(ss)
 if ss = 60
 then
 ss = 0
 inc(mn)
 if mn = 60
 then
 mn = 0
 inc(hh)
 if hh = 24
 then
 hh = 0
 inc(jj)
 if jj = 8
 then
 jj = 1
 end if
 end if
 end if
 end if
 end if

'
' LED display
'
#ifdef CATHODE_COMMUNE
 PORTA = PORTA and $f0
 TRISA = $0f
 key = PORTA
 TRISA = 0
 PORTB = 0
#else
 PORTA = PORTA or $0f
 TRISA = $0f
 key = PORTA
 key = not(key)
 TRISA = 0
 PORTB = $ff
#endif
 key = key and $07

digit = digit + 1

#ifdef CATHODE_COMMUNE
 PORTB = digiled[digit]
 PORTA = PORTA or i
#else
 PORTB = digiled[digit]
 PORTB = not(PORTB)
 PORTA = PORTA and not(i)
#endif

INTCON.T0IF = 0
end sub

'
' converts digit to 7 segment
'
sub function intTo7seg(dim n as byte) as byte
 select case n
 case 0 result = $3F
 case 1 result = $06
 case 2 result = $5B
 case 3 result = $4F
 case 4 result = $66
 case 5 result = $6D
 case 6 result = $7D
 case 7 result = $07
 case 8 result = $7F
 case 9 result = $6F
 end select
end sub

'
' select a value with keys
' value is pointed to by v, display char s as header, maximum value is max
'
sub procedure setValue(dim v as ^byte, dim s as byte, dim max as byte)
 digiled[0] = s
 digiled[1] = 0

while 1
 if key.0
 then
 inc(v^)
 if(v^ > max)
 then
 v^ = 0
 end if
 end if

digiled[2] = intTo7seg(v^ / 10)
 digiled[3] = intTo7seg(v^ mod 10)

delay_ms(300)
 wend
end sub

'
' program entry
'
main:
 dim i as byte

'
' init variables
'
 dp = 0

hh = 0
 mn = 0
 ss = 0
 jj = 0

maxcount = 15625

'
' init I/O
'
 PORTA = 010000
 TRISA = 000000

PORTB = 0
 TRISB = $00

'
' init interrupts
'
 INTCON = %10100000
 OPTION_REG = %11011000

Delay_ms(50)

'
' clock adjustment
'
 setValue(@hh, 116, 23)
 setValue(@mn, 55, 59)
 setValue(@jj, 14, 6)

'
' forever loop
'
 while true
 if key
 then
'
' display day and seconds (what for ? don't remember !)
'
 digiled[0] = intTo7seg(jj)
 digiled[1] = 0
 digiled[2] = intTo7seg(ss / 10)
 digiled[3] = intTo7seg(ss mod 10)
 else
'
' display hours and minutes
'
 if hh < 10
 then
 digiled[0] = 0
 digiled[1] = intTo7seg(hh)
 else
 digiled[0] = intTo7seg(hh / 10)
 digiled[1] = intTo7seg(hh mod 10)
 end if
 digiled[2] = intTo7seg(mn / 10)
 digiled[3] = intTo7seg(mn mod 10)
 end if

'
' blinks semicolon (or decimal point)
'
 if scaler > maxcount / 2
 then
 dp.1 = 1
 else
 dp.1 = 0
 end if

'
' set decimal points
'
 digiled[0].7 = dp.0
 digiled[1].7 = dp.1
 digiled[2].7 = dp.2
 digiled[3].7 = dp.3

'
' check for alarm condition
'
 alarm = 0
 for i = 0 to (NBALARM - 1) * 4
 if ((alarmTable[i] = jj) or ((alarmTable[i] = LMMJV) and (jj < SAMEDI)))
 and (alarmTable[i + 1] = hh)
 and (alarmTable[i + 2] = mn)
 and (alarmTable[i + 3] > ss)
 then
 inc(alarm)
 end if
 next i

if alarm
 then
'
' set alarm
'
 dp.3 = 1
 PORTA.4 = 0
 else
'
' clear alarm
'
 dp.3 = 0
 PORTA.4 = 1
 end if
 wend
end.</code></pre>
<pre style="background-color: white; font-size: 12px;"><code>
</code></pre>
<pre style="background-color: white; font-size: 12px;"><code><div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
Baca juga :</div>
</code><code>
</code>
<div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
<code> - <a href="http://kennantrevynzenjaya.blogspot.com/2013/11/cara-menghitung-nilai-resistor.html">Cara menghitung nilai resistor</a></code></div>
<code><div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/11/cara-menghitung-nilai-resistor.html">Cara menghitung nilai resistor</a></div>
<div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/komponen-komponen-dasar-elektronika_22.html">Komponen - komponen dasar elektronika</a></div>
<div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/elektronika-dasar_22.html">Elektronika dasar</a></div>
<div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/dalam-postingan-kali-ini-saya-akan.html">Rangkaian USB Downloader menggunakan ATmega8535</a></div>
<div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-resistor.html">Jenis - jenis resistor</a></div>
<div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-scr.html">Jenis - jenis SCR</a></div>
<div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-transistor.html">Jenis - jenis transistor</a></div>
<div style="font-family: 'Times New Roman'; font-size: medium; white-space: normal;">
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-kapasitor.html">Jenis - jenis kapasitor</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-diode.html">Jenis - jenis diode</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/12/rangkaian-sensor-suhu-menggunakan.html">Rangkaian sensor suhu menggunakan atmega8535</a></div>
</code></pre>
</div>

Rangkaian alarm menggunakan PIC16F84A

Melanjutkan postingan kemarin tentang usb downloader , kali ini saya akan membahas cara membuat alarm menggunakan PIC16F84A. Rangkaian in...

Rangkaian sensor suhu menggunakan ATmega8535

Rangkaian alarm menggunakan PIC16F84A