Tutorial Bascom Mengontrol LED berkedip

Tutorial bascom kali ini akan membahas tentang bagaimana memprogram output untuk mengontrol LED menggunakan mikrokontroler yaitu bagaimana mengontrol sebuah led sehingga tampak berkedip.

Setelah kita mencoba membuat program bagaimana mengontrol / menghidupkan LED pada artikel sebelumnya, jika anda ingin mecoba untuk melakukan latihan lainnya yaitu bagaimana membuat LED tampak berkedip.

Kita akan memulai membuat program untuk mengontrol lampu LED. Sebelum memulainya persiapkan dahulu beberapa hal berikut ini:

1. aplikasi bascom 
2. Modul mikrokontroler seperti salah satu Modul Mikrokontroler DT-AVR Low Cost Micro System / rangkaian mikrokontroler yang telah saya siapkan di artikel sebelumnya
3. Output berupa LED sesuai dengan rangkaian atau modul rangkaian output yang telah anda siapkan (pemasangan LED harus sesuai dengan artikel yang pada rangkaian sebelumnya yaitu pada port c)

Programnya adalah
‘---------------------------------------------------------
Deklarasi header
‘--------------------------------------------------------------
$regfile = "8535def.dat"
‘----------------------------------
‘Crystal
‘--------------------------------------------
$crystal = 4000000
‘----------------------------------
‘Deklarasi Variabel
‘--------------------------------------------
Dim kontrol1 as byte
Dim kontrol2 as byte
‘----------------------------------
‘Rutin utama
‘--------------------------------------------
Kontrol1 = 255
Kontrol2 = 0
Do
    Portc = kontrol1
    Wait 1   
    Portc =kontrol2
    Wait 1
             
Loop
End



Penjelasan Program:
1. Deklarasi variabel
‘---------------------------------------------------------
Deklarasi header
‘--------------------------------------------------------------
$regfile = "8535def.dat"
Deklarasi header ini berguna bagi anda yang menggunakan mikrokontroler 8535 atau bisa juga dengan mikrokontroler lainnya, tinggal mengubah tipe mikrokontroler yang digunakan

2. Deklarasi Crystal
‘----------------------------------
‘Crystal
‘--------------------------------------------
$crystal = 4000000

Deklarasi crystal ini berguna dalam menggunakan sistem delay yang ada dimikrokontroler agar waktu delay tepat sesuai dengan kristal yang digunakan oleh rangkaian mikrokontroler kita

3. Deklarasi variabel

‘----------------------------------
‘Deklarasi Variabel
‘--------------------------------------------
Dim kontrol1 as byte
Dim kontrol2 as byte

Variabel apa saja yang digunakan perlu kita deklarasikan secara terkelompok seperti cara saya di atas. Agar lebih mudah mengetahui variabel-variabel apa saja yang sudah kita gunakan pada program kita


4. Rutin Utama

‘----------------------------------
‘Rutin utama
‘--------------------------------------------
Kontrol1 = 255
Kontrol2 = 0
Do
    Portc = kontrol1
    Wait 1   
    Portc =kontrol2
    Wait1
             
Loop
End

Ini adalah inti program kita

Kontrol1 = 255
Kontrol2 = 0

pada dua kalimat diatas tampak kita mengisi variabel kontrol1 dengan nilai 255 dan kontrol 2 dengan nilai 0. Isi dari variabel tersebut bertype byte (hanya boleh di isi oleh nilai 0-255).

Nilai 0 (0 desimal -> 0000 0000 biner) berarti

bit 7	bit 6	bit 5	bit 4	bit 3	bit 2	bit 1	bit 0
0	0	0	0	0	0	0	0

Nilai 255 (255 desimal -> 1111 1111 biner) Berarti :

bit 7	bit 6	bit 5	bit 4	bit 3	bit 2	bit 1	bit 0
1	1	1	1	1	1	1	1

Do
Fungsi

 Loop

Perintah do loop di atas akan melakukan loop dan mengeksekusi fungsi didalamnya


Portc = kontrol1

Perintah Portc = kontrol1 akan mengisi portc (LED) bernilai 255 atau logika (1111 1111)

Wait 1
Perintah wait program akan menunggu selama 1 detik

Portc =kontrol2
Perintah Portc = kontrol2 akan mengisi portc (LED) bernilai 0 atau logika (0000 0000)


Wait 1
Perintah wait program akan menunggu selama 1 detik



End
perintah End digunakan untuk mengakhiri program

Ikuti terus tutorial mikrokontroler di tutorialvalid.blogspot.com

Tutorial Bascom Mengontrol LED berkedip 2015-10-03T03:06:00+07:00 Rating: 4.5 Diposkan Oleh: Dedy Fermana