Sesuai dengan kurikulum 2013 (K13) untuk pelajaran Teknik
Rekayasa Sistem Kontrol(TRSK) yang mana pada mata pelajaran ini siswa di
tekankan untuk menguasai bahasa pemrograman Bascom dengan menggunakan IC Atmega
8535. Dan pada tahap awal latihan dalam menggunakan bahasa Bascom biasanya di
mulai dengan latihan menyalakan lampu led pada port A, port B, port C dan port
D.
Bila menggunakan BascomAVR maka program yang di gunakan
adalah;
'program 1, menyalakan
lampu led pada port A
'pembuat :Alfuad Gapuki
'tanggal "14
Septermber 2014
'---- (' ') -------('
')----
$regfile = "m8535.dat" 'perkenalkan IC mikrokontroller yang digunakan, IC yg digunakan Amega8535
$crystal = 12000000 'kenalkan cristal yang dipakai, pada
program ini menggunakan crystal 12MHz
Config Porta = Output 'kenalkan porta sebagai output untuk
melihat hasil program
'---------------------------
Do
' awali program utama dengan do
Porta =
&B00000001 'menggunakan
biner untuk menyalakan pina.0
Waitms 30 ‘waktu yang digunakan 30 mili detik
Porta =
&B00000010
'menggunakan biner untuk menyalakan pina.1
Waitms 30
Porta =
&B00000100 'menggunakan biner untuk menyalakan pina.2
Waitms 30
Porta = &H08
'menggunakan Heksa untuk menyalakan pina.3
Waitms 30
Porta = &H10
'menggunakan Heksa untuk menyalakan pina.4
Waitms 30
Porta = &H20
'menggunakan Heksa untuk menyalakan pina.5
Waitms 30
Porta = 64
'menggunakan Heksa untuk menyalakan pina.6
Waitms 30
Porta = 128
'menggunakan Heksa untuk menyalakan pina.7
Waitms 30
Loop
'kembali ke program semula
End
Bila menggunakan Bascom8051 maka program yang di gunakan adalah;
'program 1, menyalakan lampu
led pada port 0
'pembuat :Alfuad Gapuki
'tanggal "14
Septermber 2014
'---- (' ') -------('
')----
$regfile =
"8052.dat" 'perkenalkan IC
mikrokontroller yang digunakan, IC yg
digunakan AT89C52
$crystal = 12000000 'kenalkan cristal yang dipakai, pada program
ini menggunakan crystal 12MHz
'---------------------------
Do
' awali program utama dengan do
P0 = &B00000001 'menggunakan biner untuk menyalakan pin0.0
Waitms 30 ‘waktu
yang digunakan 30 mili detik
P0 = &B00000010
'menggunakan biner untuk menyalakan pin0.1
Waitms 30
P0 = &B00000100 'menggunakan biner untuk
menyalakan pin0.2
Waitms 30
P0 = &H08
'menggunakan Heksa untuk menyalakan pina.3
Waitms 30
P0 = &H10
'menggunakan Heksa untuk menyalakan pin0.4
Waitms 30
P0 = &H20
'menggunakan Heksa untuk menyalakan pin0.5
Waitms 30
P0 = 64
'menggunakan Heksa untuk menyalakan pin0.6
Waitms 30
P0 = 128
'menggunakan Heksa untuk menyalakan pin0.7
Waitms 30
Loop
'kembali ke program semula
End
Setelah selesai menuliskan programnya kemudian simpan file
dengan mengklik menu File >Save As > tulis nama File (contoh: dasar.bas)
lalu tekan tombo Save. Baru kemudian di
kompile dengan menekan F7 pada keybord atau mengklik icon compile.
Kalau sudah berhasil baru kemudian kita lihat hasilnya
dengan menggunakan simulasi bawaan pada software BascomAVR maupun Bascom8051
atau langsung menggunakan software Proteus.
Selamat mencoba…..
Tidak ada komentar:
Posting Komentar