Salam Otomasi... ,
Oke kali ini saya akan membahas mengenahi bagaimana akses untuk pin I/O pada mikrokontroler menggunakan bahasa pemrograman bascom AVR.
Ini adalah program pertamaku microcontroller sembari mengisi masa liburan aq belajar micro...
Oke kali ini saya akan membahas mengenahi bagaimana akses untuk pin I/O pada mikrokontroler menggunakan bahasa pemrograman bascom AVR.
Ini adalah program pertamaku microcontroller sembari mengisi masa liburan aq belajar micro...
Dalam program latihan ini kita akan belajar bagaimana merubah logika output port dan menampilkannya pada LED. Program akan membuat LED berjalan secara urut dari LSB (Least Significant Bit) atau bit terbawah ke MSB (Most Significant Bit) atau bit teratas. Keduanya dalam koridor 8bit (1Byte). Setelah LED sampai pada bit teratas 0�80/128/0b10000000, maka LED akan menyala berbalik arah. Delay nyala LED diatur dengan pemanggilan fungsi dari delay.h yaitu delay_ms(xx) dimana xx adalah nilai unsigned int dari nilai n delay dikali 1ms. Program ini juga memanfaatkan modulus operator �%� atau sering juga disebut dengan remainder dalam perhitungan integer.
teman2 kalo ingin tau program buatanku ini.....
$regfile "m16def.dat"
$baud = 9600
$crystal = 11059200
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7
Config Lcd = 16 * 2
Config Portb = Output
Portb = &H00
Dim Perintah As Byte
Perintah Alias Pind
Portd = &B11111111
Cursor Off
Cls
Do
Select Case Perintah
Case &B11111101 : Cls
Upperline
Lcd "semua led mati"
Portb = &H00
Case &B11111011 : Cls
Upperline
Lcd "TITL 1 2011"
Lowerline
Lcd "kenangan indah"
Portb = &HFF
Case &B11110111 : Cls
Upperline
Lcd "led 0,2,4 dan 6"
Lowerline
Lcd "hidup"
Portb = &B01010101
Case &B11101111 : Cls
Upperline
Lcd "led 1,3,5 dan 7"
Lowerline
Lcd "hidup"
Portb = &B10101010
Case &B11111110 : Cls
Upperline
Lcd "motor dan lampu led 1"
Lowerline
Lcd "hidup kanan"
Portb = &B10000000
Case &B10111111 : Cls
Upperline
Lcd "motor dan lampu led 2"
Lowerline
Lcd "hidup kiri"
Portb = &B01000000
End Select
Loop
selamat mencoba :)
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :