Langsung aja saya jelaskan tata cara penulisannya,,,,,,,,
>program ini untuk menyalakan sebuah led
'deklarasi crystal
$crystal = 4000000
'deklarasi header
$regfile = "m8535.dat"
'deklarasivariabel
Dim Data1 As Byte
'pendifinisian bit mikro
Config Portd = Output
'rutin utama
Do
Data1 = 255
Portd = Data1
Loop
End
Penjelasannya ;
$crystal = 4000000 "penjelasan mengenai ukuran crystal yang dipakai"
$regfile = "m8535.dat" "penjelasan mengenai jenis IC yang dipakai, untuk memakai IC yang lain kalian bisa mengganti angka yang 8535 itu"
Dim Data1 As Byte "Dim ini maksutnya untuk pengulangan program,
dan untuk kata "data1" itu seperangkat program (pengulangan dari program) yang akan dipakai, semisal kalian ingin membuat dua atau lebih program kalian tinggal menambahkan kata tersebut dan ganti data1 menjadi data2, data3, data4 dan selanjutnya.
untuk "As Byte " itu menunjukkkan penggunaan bahasa komputer itu menggunakan bahasa basic (biner) yang didesimalkan.
Do " hanya untuk menjalankan program "
Data1 = 255 "untuk "data1" itu penjelasan dari program atau sambungan dari kata "Dim Data1 As Byte" diatas,
dan untuk angka "255" itu merupakan desimal dari biner " 1 1 1 1 1 1 1 1 " dan didesimalkan jadi angka 255 tadi, jadi inti dari angka "1 1 1 1 1 1 1 1" itu merupakan banyak led yang dipakai.
Portd = Data1 " itu penjelasan dari pemakaian PORT pada IC, dan port itu nantinya akan mempunyai output dari program data1 diatas.
Loop " ini merupakan bagian yang akan mengulang program nya.
Ke-dua
$crystal = 4000000
$regfile = "m8535.dat"
Dim Datal As Byte
Dim A As Byte
Dim B As Byte
Declare Sub Kiri()
Config Portc = Input
Config Portd = Output
Datal = 1
Do
Sub Kiri
A = 1
For A = 0 To 8
Portd = A
Shift A , Left , 1
Portd = &B11000000
Waitms 100
Portd = &B00110000
Waitms 100
Portd = &B00001100
Waitms 100
Portd = &B00000011
Waitms 100
Next
Loop
End Sub
"kalau semisal kata "Dim Data1 As Byte" itu ditambah dan Data1 itu berubah jadi A dan B seperti contoh kedua itu menunjukkan 1 buah Program yang outputnya ada 2."
"kalau untuk kata "For A = 0 To 8 itu menujukkan bahwa A itu menunjukkan program dan untuk mengaktifkan 8 led
"Portd = A
Shift A , Left , 1 "itu bahwa menunjukkan portd yang akan digunakan dan portd itu akan mengeluarkan program dari A itu.
" dan Shift A , Left , 1 itu untuk menjalankan program A bejalan atau mengarah kekiri
Portd = &B11000000 "portd itu akan menghasilkan led hidup dan mati secara brgantian dan angka 1 itu menunjukan led hidup dan 0 menunjukkan led mati. kalau tanda & dan B itu hanya sebuah istilah pada setiap awalan.
ke-tiga
$crystal = 4000000
$regfile = "m8535.dat"
Dim Datal As Byte
Dim A As Byte
Dim B As Byte
Declare Sub Kiri()
Config Portc = Input
Config Portd = Output
Datal = 1
Do
Datal = Pinc
Select Case Datal
Case 1 : Call Kiri
End Select
Loop
End
Sub Kiri
A = 1
For A = 0 To 8
Portd = A
Shift A , Left , 1
Portd = &B11000000
Waitms 100
Portd = &B00110000
Waitms 100
Portd = &B00001100
Waitms 100
Portd = &B00000011
Waitms 100
Next
End Sub
dari program ke-tiga diatas yang membedakan hanya dengan pemakaian tombol/push button.
dan progran itu terdapat pada : ....
Datal = Pinc
Select Case Datal
Case 1 : Call Kiri
End Select
Loop
End
penggunaan tombol itu menggunakan kata program
Datal = Pinc dan ini menunjukkan portC sebagai output dari tombol
Select Case Datal dan ketika tombol dari portc itu ditekan akan mengaktifkan program data1
Case 1 : Call Kiri case 1 itu sebuah tombol nomer 1 yang akan memanggil program yang akan berjalan kekiri
Sub Kiri
A = 1
For A = 0 To 8
Portd = A
Shift A , Left , 1
A = 1 maksutnya itu pemrograman tombol nomer 1 akan diganti atau sama dengan A
For A = 0 To 8 "dan progam yang akan berjalan kekiri itu sebuah led yang jumlahnya 8 buah
Portd = A " dan portd itu akan menghasilkan program dari program A
Shift A , Left , 1 " Program A itu akan berjalan ke kiri
sebaikanya saya sarankan untuk melakukan langsung dengan softwarenya bascom
Semoga bermanfaat yeeee......................
Tidak ada komentar:
Posting Komentar