Rangkaian PLC

NAMA      : CHANDRA RINALDI     15 3600 015

                     IMAM MUCHLISYIN     15 3600 039

 RANGKAIAN PLC   

1. 
   

TUGAS "LAMPU METEOR"

NAMA : CHANDRA RINALDI    15 3600 015

            IMAM MUCHLYSIN    15 3600 039

LAMPU METEOR 

// lampu LED METEOR Menggunakkan ARDUINO

// Menyalakan LED dengan Aktif HIGH

 int  ledpin1  =  7;

 int  ledpin2  =  6;

 int  ledpin3  =  5;

 int  ledpin4  =  4;

 int  ledpin5  =  3;

// type data sebagai bilangan bulat

void setup()

{

pinmode( ledpin1,  OUTPUT) ;   

pinmode( ledpin2,  OUTPUT) ;
pinmode( ledpin3,  OUTPUT) ;
pinmode( ledpin4,  OUTPUT) ;
pinmode( ledpin5,  OUTPUT) ; 
menjadikan PIN 7, 6, 5,4 dan 3 sebagai OUTPUT

void loop()
// menyalakan lampu secara bergilir
{
digitalwrite(ledpin1, HIGH) ; 
digitalwrite(ledpin2, LOW) ;  
digitalwrite(ledpin3, LOW) ;  
digitalwrite(ledpin4, LOW) ; 
digitalwrite(ledpin5, LOW) ;
 delay(1000) ;    // delay LED1

digitalwrite(ledpin1, LOW) ;
digitalwrite(ledpin2, HIGH) ;
digitalwrite(ledpin3, LOW) ;
digitalwrite(ledpin4, LOW) ;
digitalwrite(ledpin5, LOW) ; 
delay(1000) ;   // delay LED2


digitalwrite(ledpin1, LOW) ;
digitalwrite(ledpin2, LOW) ;
digitalwrite(ledpin3, HIGH) ;
digitalwrite(ledpin4, LOW) ;
digitalwrite(ledpin5, LOW) ;
delay(1000)  ;   // delay LED3

digitalwrite(ledpin1, LOW) ;
digitalwrite(ledpin2, LOW) ;
digitalwrite(ledpin3, LOW) ;
digitalwrite(ledpin4, HIGH) ;
digitalwrite(ledpin5, LOW) ;
delay(1000)  ;  // delay LED4


digitalwrite(ledpin1, LOW) ;
digitalwrite(ledpin2, LOW) ;
digitalwrite(ledpin3, LOW) ;
digitalwrite(ledpin4, LOW) ;
digitalwrite(ledpin5, HIGH) ;
delay(1000)  ;  // delay LED5

 

SAYA BELAJAR" BAHASA PASCAL"

NAMA ; CHANDRA RINALDI    15 3600 015

         IMAM MUCHLISIN   15 3600 039

 

 BELAJAR BAHASA PASCAL

Uses wincrt;

    Var  n:integer;

Begin

n:=1;

Repeat

   Writeln(n,'.SAYA BELAJAR BAHASA PASCAL');

   n:=n+1;

Until n=11;

End.