Sunday, June 24, 2012

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...

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 :)

2 komentar:

  1. Kalo mau menampilkan output ke lcd setiap di tekan tombol atau setiap sensor mendeteksi gimana ya. Tolong infonya

    ReplyDelete
    Replies
    1. misal nih mas:
      dim suhu as integer
      do
      suhu=getadc(0);
      home:lcd suhu
      loop

      semoga bermanfaat

      Delete