E.M.E Blog: Elektronika

Rangkaian Robot Microbot Menggunakan Arduino Uno

Bagi para pecinta robot, kali ini saya akan membahas tentang robot Microbot yang sudah sering dibuat oleh para pecinta robot. Robot ini menggunakan Arduino Uno sebagai proccesor - nya. Tapi tidak perlu kuatir, karena Arduino Uno ini tidak susah untuk dicari, dan biasanya harganya berkisaran antara Rp.225.000 sampai Rp.300.000. Rangkaian ini juga menggunakan Modul Ultrasonic sensor atau yang biasa disebut sensor ultrasonik dan modul tersebut memiliki 4 pin yaitu GND, ECHO, TRIG, VCC. Biasanya harga Modul ini Rp.50.000 atau bahkan ada yang mencapai Rp.110.000 tergantung dengan range modul tersebut. Selain itu robot ini juga menggunakan servo motor dan Motor Drive Shield For Arduino dan biasanya harga shield ini Rp.150.000 - an. Dan tidak lupa robot ini juga menggunakan 2 buah motor dc. Jadi, inilah daftar komponen yang diperlukan untuk membuat robot Microbot : 
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGFLHOTjGDoKc12DVxacGo3vydCRpD2scVmxIJq2dMgDC9nGkA0GJXjVbnpXzqtW4OzrFDM4PC1ImMSzR2SzKw_5jJEyq9rH_Pk341-lFek77j0F5JwVDDeIbWUgNK6c1V7VwTbhh6mwJJ/s1600/arduino+1.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" height="238" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGFLHOTjGDoKc12DVxacGo3vydCRpD2scVmxIJq2dMgDC9nGkA0GJXjVbnpXzqtW4OzrFDM4PC1ImMSzR2SzKw_5jJEyq9rH_Pk341-lFek77j0F5JwVDDeIbWUgNK6c1V7VwTbhh6mwJJ/s1600/arduino+1.jpg" width="320" /></a> - 1 Buah Arduino Uno 
 - 1 Buah Motor Drive Shield For Arduino 
 - 1 Buah Servo Motor 
 - 2 Buah Motor DC 
 - 1 Buah Ulatrasonic Sensor 
 - 1 Buah Box Baterai 
 - 1 Buah Roda Depan Kecil 
Dan inilah step pembuatannya...... 
Pertama - tama kita akan membuat body robot tersebut. kita bisa menggunakan bahan apapun atau tutup makanan seperti gambar dibawah. Dan inilah diagram pembuatannya....... 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibHO8AOT7VGUDOlXsth3YOvJQ0slC96RSM2syCBTGKpNmcaApsOmjEA-Xz-ila-nW8lkRBkLP8V4Hj_sIPBQ_Pdi3iHk3HvezUlZyD3ek7-lHtV63JupXvbg083moepOM9xo_HlGJ72qev/s1600/Arduino+2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="243" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibHO8AOT7VGUDOlXsth3YOvJQ0slC96RSM2syCBTGKpNmcaApsOmjEA-Xz-ila-nW8lkRBkLP8V4Hj_sIPBQ_Pdi3iHk3HvezUlZyD3ek7-lHtV63JupXvbg083moepOM9xo_HlGJ72qev/s1600/Arduino+2.jpg" width="400" /></a></div>
 
Dan inilah diagram untuk membuat body - nya.... Jangan lupa untuk menambahkan satu buah kapasitor 100nf di motor dc - nya dan memasang roda pada bagian bawah body - nya.. 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNjH5TQYPqqeizUYhLRP2tm82jzpF_pRjTJlxsuRvtqzk2PE1SwXjpGkpXXS1Ls964CGHDh_5-wBe5ixxpcIYuVujHqc_hRsu9FwIo4C2fGaga1aWfZB3VYH9WYXJKbg7YY9k0S1lhO39r/s1600/Arduino+12.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="212" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNjH5TQYPqqeizUYhLRP2tm82jzpF_pRjTJlxsuRvtqzk2PE1SwXjpGkpXXS1Ls964CGHDh_5-wBe5ixxpcIYuVujHqc_hRsu9FwIo4C2fGaga1aWfZB3VYH9WYXJKbg7YY9k0S1lhO39r/s1600/Arduino+12.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
 </div>
Setelah selesai, ambillah Motor Servo dan Modul Sensor Ultrasonic dan pasangkan keduanya seperti gambar dibawah! Kita dapat menggunakan selotip bolak balik yang biasanya digunakan pada mobil. 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnt76nsLcZAupNWdpt1TRX2ERNjnQALOre9HaNB__f5XbLNPVh91FfwkDIoCdqgaabNh621rbqBKPtIUuXUsrauItkNRr8Xk3gRWYXUfj-xXHrjyxRwQ4sOMNeqW82XulUzYyC6u0Spa92/s1600/Arduino+13.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="151" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnt76nsLcZAupNWdpt1TRX2ERNjnQALOre9HaNB__f5XbLNPVh91FfwkDIoCdqgaabNh621rbqBKPtIUuXUsrauItkNRr8Xk3gRWYXUfj-xXHrjyxRwQ4sOMNeqW82XulUzYyC6u0Spa92/s1600/Arduino+13.png" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
 </div>
Lalu pasanglah Motor Drive Shield pada Arduino Uno seperti gambar dibawah! Dan pasanglah langsung pada body - nya.... jangan lupa untuk memasang Box Baterai pada bagian bawah body! 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5WEdOdNdMCLAvFEODhXkw5OVH_k6hl56ba2DnuYFrQN_YWinpx1gFpsYCcZtLzicmps71ka5zklhrYU0WLpIYq-juGFBr_JxAD1XkcOXkcwnh4WSo7Ktm0cRrhX6ghwDref4h3K1Mol56/s1600/Arduino+11.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="427" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5WEdOdNdMCLAvFEODhXkw5OVH_k6hl56ba2DnuYFrQN_YWinpx1gFpsYCcZtLzicmps71ka5zklhrYU0WLpIYq-juGFBr_JxAD1XkcOXkcwnh4WSo7Ktm0cRrhX6ghwDref4h3K1Mol56/s1600/Arduino+11.png" width="640" /></a></div>
 
Lalu pasanglah kedua Motor DC disamping kanan dan kiri robot.... 
 
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsIoYgYGG_SnzVVwsoIaatxkBDmK34VcVkTytFKxAc9WqwPalxPW3zlf1B-qnPD5imi2FAlx6MxtIL3jHdT5VOvpbaX38RPMOdfacjGq9MxDhnJauSE6r7xWJx0tDK_FEqSMjOmcRXGUNt/s1600/Arduino+14.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="231" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsIoYgYGG_SnzVVwsoIaatxkBDmK34VcVkTytFKxAc9WqwPalxPW3zlf1B-qnPD5imi2FAlx6MxtIL3jHdT5VOvpbaX38RPMOdfacjGq9MxDhnJauSE6r7xWJx0tDK_FEqSMjOmcRXGUNt/s1600/Arduino+14.jpg" width="320" /></a> 
Selamat! anda sudah berhasil membuat robot Microbot sendiri dengan mudah....... untuk source code nya dapat dilihat di link dibawah, dan sekian penjelasan saya tentang cara membuat robot Microbot sendiri dengan mudah dan murah menggunakan Arduino Uno. 
Jika ada pertanyaan, kritik maupun saran silahkan comment aja dibawah..... 
<a href="http://apcmag.com/arduino.htm#project4">Download Source Code APC Microbot</a> 
Sumber Inspirasi artikel ini : <a href="http://apcmag.com/arduino-masterclass-part-4-build-a-mini-robot.htm">Arduino Masterclass Part 4: Build a mini robot</a> 
 
 
Baca juga : 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/11/cara-menghitung-nilai-resistor.html">Cara menghitung nilai resistor</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/komponen-komponen-dasar-elektronika_22.html">Komponen - komponen dasar elektronika</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/elektronika-dasar_22.html">Elektronika dasar</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/rangkaian-alarm-menggunakan-pic16f84a.html">Rangkaian alram menggunakan PIC16F84A</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/dalam-postingan-kali-ini-saya-akan.html">Rangkaian USB Downloader menggunakan ATmega8535</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/12/rangkaian-sensor-suhu-menggunakan.html">Rangkaian sensor suhu menggunakan atmega8535</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-resistor.html">Jenis - jenis resistor</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-scr.html">Jenis - jenis SCR</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-transistor.html">Jenis - jenis transistor</a> 
 - <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>

Rangkaian Robot Microbot Menggunakan Arduino Uno

Bagi para pecinta robot, kali ini saya akan membahas tentang robot Microbot yang sudah sering dibuat oleh para pecinta robot. Robot ini meng...

Rangkaian sensor suhu menggunakan ATmega8535

Baik, kali ini saya akan nge - share cara membuat sensor suhu berbasis ATmega yaitu menggunakan mikrokontroler ATmega8535. Ya memang, mikrokontroler ATmega8535 ini memiliki harga yang cukup mahal, yaitu berkisaran antara Rp50.000 sampai Rp60.000 tapi harganya sih sesuai dengan fungsinya yang sangat hebat. ATmega8535 memiliki Flash Size 8192 dan EEPROM 512 jadi menggunakan mikrokontroler ini pasti sangat memuaskan. Rangkaian ini juga memakai LCD 16 x 2 yang biasa digunakan dalam rangkaian elektronika. Dan sebagai sensornya, rangkaian ini menggunakan IC LM35. IC LM35 ini sangat mudah ditemukan di toko - toko elektronika, biasanya harganya berkisaran antara Rp10.000 sampai 20.000 rupiah. Rangkaian ini juga memakai kristal 16Mhz. Dan inilah skema rangkaiannya ! 
 
<div style="text-align: right;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjF9YncBO-DDfOvRzsqqx1a1KKyx4VBkvFoBNMt21D-TyefUzGb0qyYuCF3fwSIBMv1QGtfl6Q75bO3-0eNlSJxqnp26zASc9I5IoQpDcV2lRc19KqnzXAgMGWolGQscVVaA3rz2_0CWr6S/s1600/skema+sensor+suhu+atmega8535.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="340" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjF9YncBO-DDfOvRzsqqx1a1KKyx4VBkvFoBNMt21D-TyefUzGb0qyYuCF3fwSIBMv1QGtfl6Q75bO3-0eNlSJxqnp26zASc9I5IoQpDcV2lRc19KqnzXAgMGWolGQscVVaA3rz2_0CWr6S/s400/skema+sensor+suhu+atmega8535.jpg" width="400" /></a></div>
<div style="text-align: left;">
Komponen yang diperlukan :</div>
<div style="text-align: left;">
- Atmega8535    x1</div>
<div style="text-align: left;">
- LCD 16 x 2     x1</div>
<div style="text-align: left;">
- IC LM35         x1</div>
<div style="text-align: left;">
- kristal 16Mhz   x1</div>
<div style="text-align: left;">
- R. 47Ohm        x1</div>
<div style="text-align: left;">
- R. 4K7            x1</div>
<div style="text-align: left;">
- C. 22pf            x2</div>
<div style="text-align: left;">
- C. 10nF           x1</div>
<div style="text-align: left;">
- C. 1mF            x1</div>
<div style="text-align: left;">
- V.R. 10K         x1</div>
 
<div style="text-align: right;">
 </div>
<div style="text-align: right;">
 </div>
<div style="text-align: right;">
 </div>
<div style="text-align: right;">
 </div>
<div style="text-align: right;">
 </div>
<div style="text-align: right;">
 </div>
<div style="text-align: right;">
 </div>
<div style="text-align: left;">
Dan inilah source codenya!</div>
<div style="text-align: left;">
 </div>
$regfile = “m8535.dat” $crystal = 16000000 Dim W As Word , T As Word , Led As Byte , Led1 As Byte , I As Byte<o:p></o:p> 
Declare Sub Lcd_bar() Deflcdchar 0 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32        ‘ replace ? with number (0-7) Deflcdchar 1 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16        ‘ replace ? with number (0-7) Deflcdchar 2 , 24 , 24 , 24 , 24 , 24 , 24 , 24 , 24        ‘ replace ? with number (0-7) Deflcdchar 3 , 28 , 28 , 28 , 28 , 28 , 28 , 28 , 28        ‘ replace ? with number (0-7) Deflcdchar 4 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30        ‘ replace ? with number (0-7) Deflcdchar 5 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31        ‘ replace ? with number (0-7) Deflcdchar 6 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32        ‘ replace ? with number (0-7)<o:p></o:p> 
Config Adc = Single , Prescaler = Auto , Reference = Avcc Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4 , Config Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 Config Lcd = 16 * 2 Cls Cursor Off Locate 2 , 1 Lcd “Suhu:” Start Adc Do W = Getadc(0) T = W / 2 Locate 2 , 6 Lcd T ; Chr(6) ; “C  “ Waitms 200 Lcd_bar Loop End<o:p></o:p> 
 
Sub Lcd_bar: Led = T / 5 Led1 = T Mod 5 If Led > 1 Then Locate 1 , 1 For I = 1 To Led Lcd Chr(5) Next If Led >= 1 Then Lcd Chr(led1) ; “   “ Elseif Led < 1 Then Locate 1 , 1 Lcd Chr(t) ; “   “ Else Locate 1 , 1 Lcd Chr(led1) ; “   “ End If End Sub 
 
 
<div style="text-align: left;">
Semoga postingan saya kai ini bernmanfaat!</div>
<div style="text-align: left;">
Jika ada pertanyaan, kritik maupun saran bisa comment dibawah!</div>
<div style="text-align: left;">
Bagi yang mau berbagi artikel ini harap menyertakan sumbernya ya.....</div>
 
Baca juga : 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/11/cara-menghitung-nilai-resistor.html">Cara menghitung nilai resistor</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/komponen-komponen-dasar-elektronika_22.html">Komponen - komponen dasar elektronika</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/elektronika-dasar_22.html">Elektronika dasar</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/rangkaian-alarm-menggunakan-pic16f84a.html">Rangkaian alram menggunakan PIC16F84A</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/dalam-postingan-kali-ini-saya-akan.html">Rangkaian USB Downloader menggunakan ATmega8535</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-resistor.html">Jenis - jenis resistor</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-scr.html">Jenis - jenis SCR</a> 
 - <a href="http://kennantrevynzenjaya.blogspot.com/2013/10/jenis-jenis-transistor.html">Jenis - jenis transistor</a> 
 - <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> 
 
 
<div style="text-align: left;">
 </div>

Rangkaian sensor suhu menggunakan ATmega8535

Baik, kali ini saya akan nge - share cara membuat sensor suhu berbasis ATmega yaitu menggunakan mikrokontroler ATmega8535. Ya memang, mikrok...

Rangkaian alarm menggunakan PIC16F84A

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...