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.

CETAK HURUF DI LCD INPUT KEYBOARD KOMPUTER

NAMA : Chandra Rinaldi  15 3600 015

            Imam Muchlysin 15 3600 039

PROGRAM MENAMPILKAN KALIMAT "HALO APA KABAR " PADA BARIS PERTAMA, DAN BARIS KE2 "SEMBARANG CUY".

#include <LiquidCrystal.h>     //setting LCD ke Arduino

Liquid crystalLCD (12,11,5,4,3,2);//Pin Arduino ke LCD

void setup()    {

lcd.begin(16,2);      //LCD 16 kolom dan 2 baris

led.setCursor(0,0);   //posisi kursor awal kolom 1baris1

lcd.print ("HALO APA KABAR");//cetak di LCD

lcd.setCursor(0,1);    //setting kursor di dalam kolom1 baris2

lcd.print("SEMBARANG CUY");  //cetak di LCD

}    // akhir void setup()

void loop ()   {}   //void loop() kosong

MOTOR SERVO

NAMA : CHANDRA RINALDI      15 3600 015

           IMAM MUCHLYSIN   15 3600 039

MENGGERAKAN MOTOR SERVO

#include <servo.h>

servo myservo;

int pot poin =0;

int Val;

void setup()  {

myservo.attach(9);

}

void loop()  {

val =analogRead(potpoin);

val = map(val,0,1023,0,180);

myservo.write(val);

delay(15);