Senin, Juli 14, 2014

Musyawarah itu Baik...

Bermusyawarah itu memang sangat diperlukan dan sangat baik, banyak permasalahan yang menemukan solusinya ketika sudah dimusyawarahkan, semua itu harus diawali dengan komunikasi, tanpa adanya komunikasi tidak akan bisa didapatkan titik temu untuk mencapai jalan keluar.
Sering orang tidak sadar bagaimana pentingnya komunikasi dan musyawarah itu. Seperti contoh kisah berikut ini (saya kutip dari salah satu acara Tausiyah di Kompas TV :
Ada sepasang suami - istri yang hidup tentram, jarang ada pertengkaran diantara mereka, akibat dari tidak pernah ada diskusi ataupun komunikasi apalagi musyawarah.
Pada suatu hari ketika sang suami pulang dari bekerja, ditengah jalan motor yang dikendarai mengalami pecah ban, untuk mengganti ban nya, sang suami tidak punya uang yang cukup, akhirnya pulang dengan menumpang temannya.
Sesampai di rumah, istrinya kaget karena suami pulang naik angkot, sampai akhirnya dijelaskan permasalahannya.
Besoknya si istri diajak pergi ke resepsi, tapi istri tidak mau ikut dikarenakan malu karena antingnya cuma sebelah. Akhirnya mereka tidak jadi pergi ke resepsi tersebut.
Mereka masing-masing merasa sedih karena kekurangan itu, si istri sedih karena sang suami terpaksa pergi pulang ke kantor dengan menumpang, karena tidak punya uang untuk membeli ban.
Si suami juga merasa sedih juha terhadap istrinya karena melihat anting istrinya yang ganjil itu.
Akhirnya sang suami ambil keputusan menjual motornya untuk membelikan anting istrinya yang sebelah lagi.
Istri tidak mau kalah, karena merasa iba terhadap suami, dia pun menjual antingnya lalu dibelikan ban baru untuk motor suaminya.
Sore harinya, ketika suaminya pulang dia langsung menyambut dengan gembira lalu menunjukkan ban yang baru dibeli, sang suami langsung kaget...waduh... gimana ini... motornya sudah dijual untuk membeli anting baru, lalu ban nya mau dipasang dimana???
Si istri juga tercenung melihat anting yang baru dibeli dan hanya sebelah, lalu mau dipasangkan dengan anting yang mana???
Niatnya mau bikin kejutan alias surprise malah jadi bikin bete.........
Itulah pentingnya musyawarah.......

Sabtu, Juli 12, 2014

Membuat Thermometer Digital Menggunakan ATMega8535 dan BASCOM AVR


Pada seri tutorial Micro Controller kali ini asaya akan memaparkan bagaimana membuat sebuah alat pengukur suhu secara Digital atau Thermometer Digital menggunakan Micro Controller dari seri ATMega 8535.

Selain menggunakan ATMega8535 anda juga bisa menggantinya dengan ATMega16. Manfaat dari alat ini adalah dapat mengukur suhu di ruangan ataupun bisa dipakai untuk mengukur suhu tubuh.
Komponen-komponen yang digunakan diantaranya :
1. Chip Micro Controller ATMega8535 atau ATMega16
2. Sensor suhu LM35
3. Adaptor atau Power Supply dengan tegangan keluar 5Volt
Berikut rangkaiannya yang saya buat dengan ISIS Proteus, hasilnya bisa disimulasikan setelah kita menulis programnya menggunakan BASCOM AVR.

Untuk programnya silahkan copy paste dari listing di bawah ini

'===========================================================
'Program : Termometer Digital
'Hasmi Susanto, S.T.

$regfile = "m8535.dat"   'Jika menggunakan ATMega61 ganti m8535.dat menjadi m16def.dat
$crystal = 8000000



Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4
Config Lcdpin = Pin , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0

Config Lcd = 16 * 2

Cursor Off
Deflcdchar 0 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32           ' baris-baris ini muncul setelah anda merancang
Deflcdchar 1 , 32 , 4 , 2 , 31 , 2 , 4 , 32 , 32            ' character tertentu menggunakan
Deflcdchar 2 , 17 , 10 , 4 , 32 , 32 , 32 , 32 , 32         ' LCD Designer



Config Adc = Single , Prescaler = Auto , Reference = Internal

Dim A As Word , Volt As Word , Volt_d As Byte
Dim B As Byte

Start Adc                                                   'memulai ADC

Cls

Do
   For B = 1 To 50
   Locate 1 , 1
   Lcd "Welcome to Micro Kid Corp - Depok"
    Shiftlcd Left
   Waitms 20
   Next

   'Locate 1 , 1                                             'Karakter LCD baris 1
   'Lcd "Hasmi Susanto2014"                                   'Menampilkan teks

      A = Getadc(0)
      Volt = A * 5
      Volt_d = Volt Mod 10
      Volt = Volt / 20
      Locate 2 , 1
      Lcd "Temp.saat ini="
      Locate 2 , 16
      Lcd Volt ; "," ; Volt_d

      Locate 2 , 20
      Lcd Chr(0) ; "C"                                      'Menampilkan karakter yg dibuat pakai LCD Designer chr(0)
      Locate 2 , 22                                         'Menampilkan karakter yg dibuat pakai LCD Designer chr(1)
      Lcd Chr(1)
      Locate 2 , 24
      Lcd "Love Uya-Ayu-Icha"


Loop

Jumat, Juli 04, 2014

Membuat Running LED (Seri Tutorial Micro controller)

Kali ini saya mencoba untuk menulis tutorial tentang Micro Controller menggunakan seri ATMega8535, memanfaatkan lampu LED yang menghasilkan tampilan nyala LED yang berurutan serta secara acak.
Siapkan komponen-komponenya sebagai berikut :
Micro Controller seri ATMega8535      1x
Switch / Saklar push button no/nc         1x
Crystal 12 MHz                                     1x
Capasitor 33pF                                      2x
PCB atau Project Board/Breadboard    1x

Software yang digunakan :
ISIS Proteus yang digunakan untuk membuat rangkaian simulasi.
BASCOM AVR : software bahasa pemrograman untuk membuat program gerakan LED.

Langkah pertama yaitu anda ketik lebih dahulu listing programnya seperti contoh di bawah ini

'Project          : Running LED Random
'Author           : Hasmi Susanto, ST.
'Date             : July, 4 2014

$regfile = "m8535.dat"                                      'registrasi MiCon ATMega8535
$crystal = 11059200                                         'registrasi Crystal yang dipakai
Config Portb = Input                                        'konfigurasi Port B sebagai Input
Config Porta = Output                                       'konfigurasi Port A sebagai Output
Config Portc = Output                                       'konfigurasi Port C sebagai Output
Sw1 Alias Portb.1                                           'saklar disambung ke Port B no 1
Led Alias Portc                                             'semua LED disambung ke Port C

Ddrb = &B00000000                                           'LED OFF semua
Portc = &B11111111                                          'Semua LED dinyalakan
'--------------------------------
Do
   If Sw1 = 0 Then                                          'Switch OFF
      Waitms 50                                             'Delay 50 mili detik
      Led = &B00000000
      Waitms 20
      Led = &B11111111
      Waitms 50
      Led = &B00000000
      Waitms 20
      Led = &B11111111
      Waitms 50
      Led = &B00000000
      Waitms 20
      Led = &B11111111
      Waitms 50
      Led = &B00000000
      Waitms 20
      Led = &B11111111
      Waitms 50
'---------------- Mode LED ke 2 ------------------
      Led = &B11111110
      Waitms 10
      Led = &B11111101
      Waitms 10
      Led = &B11111011
      Waitms 10
      Led = &B11110111
      Waitms 10
      Led = &B11101111
      Waitms 10
      Led = &B11011111
      Waitms 10
      Led = &B10111111
      Waitms 10
      Led = &B01111111
'--------------- Mode LED ke 3--------------------- 1
      Waitms 10
      Led = &B01111110
      Waitms 10
      Led = &B01111101
      Waitms 10
      Led = &B01111011
      Waitms 10
      Led = &B01110111
      Waitms 10
      Led = &B01101111
      Waitms 10
      Led = &B01011111
      Waitms 10
      Led = &B00111111
'--------------- Mode LED ke 4 --------------- 2
      Waitms 10
      Led = &B00111110
      Waitms 10
      Led = &B00111101
      Waitms 10
      Led = &B00111011
      Waitms 10
      Led = &B00110111
      Waitms 10
      Led = &B00101111
      Waitms 10
      Led = &B00011111
'------------------------------- 3
      Waitms 10
      Led = &B00011110
      Waitms 10
      Led = &B00011101
      Waitms 10
      Led = &B00011011
      Waitms 10
      Led = &B00010111
      Waitms 10
      Led = &B00001111
'----------------------------------- 4
      Waitms 10
      Led = &B00001110
      Waitms 10
      Led = &B00001101
      Waitms 10
      Led = &B00001011
      Waitms 10
      Led = &B00000111
'---------------------------------- 5
      Waitms 10
      Led = &B00000110
      Waitms 10
      Led = &B00000101
      Waitms 10
      Led = &B00000011
'---------------------------------- 6
      Waitms 10
      Led = &B00000010
      Waitms 10
      Led = &B00000000
'--------------------------------- 7
      Waitms 30
      Led = &B11100111
      Waitms 10
      Led = &B11000011
      Waitms 10
      Led = &B10000001
      Waitms 10
      Led = &B00000000
      Waitms 10
      Led = &B10000001
      Waitms 10
      Led = &B11000011
      Waitms 10
      Led = &B11100111
      Waitms 10
      Led = &B11111111
'---------------------------------
      Waitms 30
      Led = &B11100111
      Waitms 10
      Led = &B11000011
      Waitms 10
      Led = &B10000001
      Waitms 10
      Led = &B00000000
      Waitms 10
      Led = &B10000001
      Waitms 10
      Led = &B11000011
      Waitms 10
      Led = &B11100111
      Waitms 10
      Led = &B11111111
'--------------------------------
      Waitms 30
      Led = &B11100111
      Waitms 10
      Led = &B11000011
      Waitms 10
      Led = &B10000001
      Waitms 10
      Led = &B00000000
      Waitms 10
      Led = &B10000001
      Waitms 10
      Led = &B11000011
      Waitms 10
      Led = &B11100111
      Waitms 10
      Led = &B11111111
   End If
Loop

Gambar berikut adalah Rangkaian/Skema yang dibuat menggunakan ISIS PROTEUS
Hasilnya bisa anda lihat simulasi nya pada Video di bawah ini :



Semoga berhasil membuat rangkaian Running LED ini.