Senin, 31 Oktober 2016

Modul 1 LCD (Listing Program)

4.Listing Program [Kembali]



#include <mega128.h>  //Merupakan library ATMega128
#include <alcd.h>          //Merupakan library LCD
#include <delay.h>         //Merupakan library waktu tunggu (delay)


char kolom =0;      //  variable untuk menyimpan  data kolom

void main(void)     // fungsi utama
{
    PORTB=0x00;     // deklarasi nilai data Port B adalah active low
    DDRB=0x00;      // deklarasi pin B  digunakan sebagai input
    PORTA=0xFF;     // deklarasi nilai data Port A adalah active high
    DDRA=0x0F;      // deklarasi pin A  digunakan sebagai input dan output
      
    lcd_init(16);           // Program memakai LCD 16x2
    lcd_clear();            // Membersihkan atau reset LCD
    lcd_gotoxy(0,0);    // Instruksi untuk menempatkan posisi awal pada kolom x dan baris y.
   
       
    while(1)           // fungsi pengulangan while jika bernilai 1, program d jalankan
    {
       
       
        if(PINB.0==1)                  // fungsi if, jika memenuhi syarat(PINB.0==1),program dijalankan
        {    
        for(kolom=0; kolom<=15; kolom++)  //fungsi for jika memenuhi kondisi,program akan looping
            {
            lcd_clear();                //membersihkan atau reset LCD
            lcd_gotoxy(kolom,0);        //menempatkan posisi tulisan pada kolom  dan baris 0     
            lcd_putsf("Nama :");        //menampilkan string Nama :
            lcd_gotoxy(kolom,1);        //menempatkan posisi tulisan pada kolom  dan baris 1
            lcd_putsf("Almen Hidayat"); //menampilkan string Almen Hidayat
            delay_ms(50);               // Delay selama 50 ms
        }
       
    }
                                      
        if(PINB.1==1)                   // fungsi if, jika memenuhi syarat(PINB.1==1),program dijalankan
        {    
        for(kolom=0; kolom<=15; kolom++)  //fungsi for jika memenuhi kondisi,program akan looping
            {
            lcd_clear();                //membersihkan atau reset LCD
            lcd_gotoxy(kolom,0);        //menempatkan posisi tulisan pada kolom  dan baris 0     
            lcd_putsf("Nama :");        //menampilkan string Nama :
            lcd_gotoxy(kolom,1);        //menempatkan posisi tulisan pada kolom  dan baris 1
            lcd_putsf("Almen Hidayat"); //menampilkan string Almen Hidayat
            delay_ms(50);               // Delay selama 50 ms
        }
       
    }
       
    if(PINB.2==1)                       // fungsi if, jika memenuhi syarat(PINB.2==1),program dijalankan
        {    
        for(kolom=0; kolom<=15; kolom++)  //fungsi for jika memenuhi kondisi,program akan looping
            {
            lcd_clear();                //membersihkan atau reset LCD
            lcd_gotoxy(kolom,0);        //menempatkan posisi tulisan pada kolom  dan baris 0     
            lcd_putsf("Nama :");        //menampilkan string Nama :
            lcd_gotoxy(kolom,1);        //menempatkan posisi tulisan pada kolom  dan baris 1
            lcd_putsf("Almen Hidayat"); //menampilkan string Almen Hidayat
            delay_ms(50);               // Delay selama 50 ms
        }
       
    }
   
        if(PINB.3==1)                   // fungsi if, jika memenuhi syarat(PINB.3==1),program dijalankan
        {    
        for(kolom=0; kolom<=15; kolom++)  //fungsi for jika memenuhi kondisi,program akan looping
            {

            lcd_clear();                //membersihkan atau reset LCD
            lcd_gotoxy(kolom,0);        //menempatkan posisi tulisan pada kolom  dan baris 0     
            lcd_putsf("Nama :");        //menampilkan string Nama :
            lcd_gotoxy(kolom,1);        //menempatkan posisi tulisan pada kolom  dan baris 1
            lcd_putsf("Almen Hidayat"); //menampilkan string Almen Hidayat
            delay_ms(50);               // Delay selama 50 ms
        }
       
    }
   
        if(PINB.4==1)                   // fungsi if, jika memenuhi syarat(PINB.4==1),program dijalankan
        {    
        for(kolom=0; kolom<=15; kolom++)  //fungsi for jika memenuhi kondisi,program akan looping
            {
            lcd_clear();                //membersihkan atau reset LCD
            lcd_gotoxy(kolom,0);        //menempatkan posisi tulisan pada kolom  dan baris 0     
            lcd_putsf("Nama :");        //menampilkan string Nama :
            lcd_gotoxy(kolom,1);        //menempatkan posisi tulisan pada kolom  dan baris 1
            lcd_putsf("Almen Hidayat"); //menampilkan string Almen Hidayat
            delay_ms(50);               // Delay selama 50 ms
        }
       
    }
   
        if(PINB.5==1)                   // fungsi if, jika memenuhi syarat(PINB.5==1),program dijalankan
        {    
        for(kolom=0; kolom<=15; kolom++)  //fungsi for jika memenuhi kondisi,program akan looping
            {
            lcd_clear();                //membersihkan atau reset LCD
            lcd_gotoxy(kolom,0);        //menempatkan posisi tulisan pada kolom  dan baris 0     
            lcd_putsf("Nama :");        //menampilkan string Nama :
            lcd_gotoxy(kolom,1);        //menempatkan posisi tulisan pada kolom  dan baris 1
            lcd_putsf("Almen Hidayat"); //menampilkan string Almen Hidayat
            delay_ms(50);               // Delay selama 50 ms
        }
       
    }
   
        if(PINB.6==1)                   // fungsi if, jika memenuhi syarat(PINB.6==1),program dijalankan
        {    
        for(kolom=0; kolom<=15; kolom++)  //fungsi for jika memenuhi kondisi,program akan looping
            {
            lcd_clear();                //membersihkan atau reset LCD
            lcd_gotoxy(kolom,0);        //menempatkan posisi tulisan pada kolom  dan baris 0     
            lcd_putsf("Nama :");        //menampilkan string Nama :
            lcd_gotoxy(kolom,1);        //menempatkan posisi tulisan pada kolom  dan baris 1
            lcd_putsf("Almen Hidayat"); //menampilkan string Almen Hidayat
            delay_ms(50);               // Delay selama 50 ms
        }
       
    }
   
        if(PINB.7==1)                   // fungsi if,jika memenuhi syarat(PINB.7==1),program dijalankan
        {    
        for(kolom=0; kolom<=15; kolom++) //fungsi for jika memenuhi kondisi,program akan looping
            {
            lcd_clear();                //membersihkan atau reset LCD
            lcd_gotoxy(kolom,0);        //menempatkan posisi tulisan pada kolom  dan baris 0     
            lcd_putsf("Nama :");        //menampilkan string Nama :
            lcd_gotoxy(kolom,1);        //menempatkan posisi tulisan pada kolom  dan baris 1
            lcd_putsf("Almen Hidayat"); //menampilkan string Almen Hidayat
            delay_ms(50);               // Delay selama 50 ms
        }
       
    }
     
   
}
   }

   
#include #include #include char kolom =0; void main(void) { PORTB=0x00; DDRB=0x00; PORTA=0xFF; DDRDA=0xFF; lcd_init(16); lcd_clear(); lcd_gotoxy(0,0); while(1) { if(PINB.0==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.1==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.2==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.3==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.4==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.5==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.6==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.7==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } } }

Today Deal $50 Off : https://goo.gl/efW8Ef
#include #include #include char kolom =0; void main(void) { PORTB=0x00; DDRB=0x00; PORTA=0xFF; DDRDA=0xFF; lcd_init(16); lcd_clear(); lcd_gotoxy(0,0); while(1) { if(PINB.0==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.1==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.2==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.3==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.4==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.5==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.6==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.7==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } } }

Today Deal $50 Off : https://goo.gl/efW8Ef
#include #include #include char kolom =0; void main(void) { PORTB=0x00; DDRB=0x00; PORTA=0xFF; DDRDA=0xFF; lcd_init(16); lcd_clear(); lcd_gotoxy(0,0); while(1) { if(PINB.0==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.1==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.2==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.3==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.4==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.5==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.6==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.7==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } } }

Today Deal $50 Off : https://goo.gl/efW8Ef
#include #include #include char kolom =0; void main(void) { PORTB=0x00; DDRB=0x00; PORTA=0xFF; DDRDA=0xFF; lcd_init(16); lcd_clear(); lcd_gotoxy(0,0); while(1) { if(PINB.0==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.1==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.2==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.3==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.4==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.5==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.6==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } if(PINB.7==1) { for(kolom=0; kolom<=15; kolom++) { lcd_clear(); lcd_gotoxy(kolom,0); lcd_putsf("Nama :"); lcd_gotoxy(kolom,1); lcd_putsf("Setiawan MH"); delay_ms(50); } } } }

Today Deal $50 Off : https://goo.gl/efW8Ef