PERCOBAAN PROGRAM PASCAL DASAR 1

NAMA  : ADIAN                                 NIM       : 153600049

NAMA  : TEDDY SEPTIAN                NIM       : 153600042

Pengertian 

Pascal adalah salah satu bahasa pemrograman komputer yang umumnya digunakan sebagai pengantar untuk mulai belajar algoritma dan pemrograman. Pascal relatif mudah dipelajari karena perintah-perintahnya yang mirip dengan bahasa inggris sehari-hari seperti begin, end, write, dan read.

Compiler Free Pascal

Walaupun populer, Turbo Pascal sudah jauh melampaui zamannya. Turbo Pascal versi terkahir (Turbo Pascal 7) dirilis pada tahun 1992 untuk sistem operasi Microsoft DOS (MS-DOS) yang dijalankan pada arsitektur 16-bit. Sehingga kita tidak bisa menjalankan aplikasi Turbo Pascal di sistem operasi modern seperti Windows 7 atau 8 yang menggunakan arsitektur 32-bit atau 64-bit. Turbo Pascal juga sudah tidak dikembangkan lagi oleh Borland.  

Salah satu cara untuk dapat menjalankan aplikasi Turbo Pascal 7 adalah dengan menggunakan emulator MS-DOS seperti DOSBox (www.dosbox.com). Emulator adalah sebuah program yang men-simulasikan suatu sistem di dalam sistem lain, sehingga kita bisa menjalankan Turbo Pascal dari dalam DOSBox.

 Percobaan pertama untuk mengbuat atau menampilkan kalimat

Program Pascal mencetak kalimat

Hasil yang ditampilkan dari program diatas

Percobaan kedua untuk pengulangan for to do

Program pengulangan for to do naik

Hasil dari program pengulanga for to do naik

Program pengulangan for to do turun

Hasil dari program pengulanga for to do turun

Program pengulangan whille do

Hasil dari program pengulangan Whille do

Program konversi celsius ke farenheit dengan nilai selsius 0 sampai 55 dengan selisi 5

Hasil dari program diatas

MENAMPILKAN KALIMAT PADA LCD 16:2

NAMA  : ADIAN                                 NIM       : 153600049

NAMA  : TEDDY SEPTIAN                NIM       : 153600042

TUJUAN PERCOBAAN

Menampilkan Kalimat pada LCD 16:2 dengan arduino uno, dengan kalimat yang bergerak atau roling

PROGRAM MICROKONTROL

#include <LiquidCrystal.h>

//Variabel untuk mengetahui besarnya perintah yang diterima

int val;

char inDataVB[37];

char dataMasukVB_Text[5];

char dataMasukVB_Baris_1[16];

char dataMasukVB_Baris_2[16];

char scroll = '0';

int Texto_LCD_in;

// Inisialisasi Library Liquid Crystal

LiquidCrystal lcd(7, 6, 5, 4, 3, 2);

// Setting komunikasi serial dan layar LCD

void setup()

{

 Serial.begin(9600);

 pinMode(13, OUTPUT);

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

 lcd.print("LCD Sudah Siap!"); // Menampilkan Pesan ke LCD

}

void loop()

{

  if (Serial.available() > 0)

  {    

    val = Serial.readBytes(inDataVB,38);

    if(inDataVB[0] =='L' && inDataVB[1]=='C' && inDataVB[2] =='D' && inDataVB[3]=='_' && inDataVB[4]=='_')

     {

         lcd.setCursor(0, 0);

          // Menulis baris pertama di LCD Display     

       for (int i=5; i<21;i++)

       {

           lcd.print(inDataVB[i]);

       Serial.print(inDataVB[i]);

           }

            // Menulis baris kedua di LCD Display

           lcd.setCursor(0, 1);

       for (int j=21; j<37;j++)

       {

       lcd.print(inDataVB[j]);

       Serial.print(inDataVB[j]);

       }

     }

       else

       {

       }

    // Hapus semua Tampilan LCD dan data

    if(inDataVB[0] =='L' && inDataVB[1]=='C' && inDataVB[2] =='D' && inDataVB[3]=='_' && inDataVB[4]=='0')

     {

        lcd.clear();

         for (int k=6; k<37;k++)

       {

            inDataVB[k]=' ';

            }

     }

    else

    {

    }

  }

}

Hasil

  

MOTOR SERVO

NAMA  : ADIAN                                 NIM       : 153600049

NAMA  : TEDDY SEPTIAN                NIM       : 153600042

TUJUAN PERCOBAAN

Membuat dua motor servo sebagai pembuka dua portal atau pintu.

PROGRAM MICROKONTROL

#include <Servo.h>

Servo servobody, servojari;

int pos = 0;

int pos1 = 0;  

void setup() {

  servobody.attach(9);

  servojari.attach(10); 

}

void loop() {

 

  for (pos = 0, pos1=90; pos <= 90,pos1>=0; pos += 1,pos1 -=1)

  {

    servojari.write(pos1);

    servobody.write(pos);            

    delay(15);                     

  }

 

  for (pos = 90,pos1=0;pos >=0 ,pos1 <= 90; pos -= 1,pos1 +=1)

  {

    servobody.write(pos);

    servojari.write(pos1);            

    delay(15);                      

  } 

}

HASIL

MEMBUAT PUSH BUTTON UNTUK MENGUBAH ARAH RUNNING LED

NAMA  : ADIAN                                 NIM       : 153600049

NAMA  : TEDDY SEPTIAN                NIM       : 153600042

TUJUAN PERCOBAAN

Membuat Push Button untuk Mengubah arah Running LED Ke Kanan Dan Ke Kiri.

PROGRAM MICROKONTROL

int led[]={4,5,6,7,8,9};

int tombol=3;

int n;

void setup() {

 pinMode(tombol,INPUT);

 for (n=1;n<7;n++){

  pinMode(led[n],OUTPUT);

 }

}

void geserkanan()

{

  int n;

  for (n=0;n<7;n++){

    digitalWrite(led[n],HIGH);

    delay(100);

    digitalWrite(led[n],LOW);

  }

}

void geserkiri()

{

  int n;

  for (n=7;n>0;n--){

    digitalWrite(led[n],HIGH);

    delay(100);

    digitalWrite(led[n],LOW);

  }

}

void loop() {

int x=digitalRead(tombol);

delay (10);

if(x==0){

  geserkanan();

  delay (100);

}

else{

  geserkiri();

  delay(100);

}

}

HASIL

MENYALAKAN DAN MEMATIKAN LED DENGAN PUSH BUTTON DENGAN ARDUINO

NAMA  : ADIAN                                 NIM       : 153600049

NAMA  : TEDDY SEPTIAN                NIM       : 153600042

TUJUAN PERCOBAAN

Membuat Push Button untuk Menyalakan dan Mematikan lampu LED.

PROGRAM MICROKONTROL

int a=0;

int x=0;

void setup() {

  Serial.begin(9600);

  pinMode(3, INPUT_PULLUP);

  pinMode(13, OUTPUT);

}

void loop() {

 x=digitalRead(3);

  Serial.println(x);

  delay(200);

  if (x == HIGH)

  if (a==0){

    digitalWrite(13, HIGH);

    a=1;

    x=0;

  } else {

    a=0;

    x=1;

    digitalWrite(13, LOW);

  }

}

HASIL

MEMBUAT NADA LAGU PADA ARDUINO

NAMA  : ADIAN                                 NIM       : 153600049

NAMA  : TEDDY SEPTIAN                NIM       : 153600042

TUJUAN PERCOBAAN

Membuat nada lagu cicak cicak didinding dengan mengatur frekuensi.

PROGRAM MICROKONTROL

void setup() {

 pinMode(8,OUTPUT);

}

void loop() {

noTone(8);

delay(1000);

tone(8,396,200);

delay(300);

noTone(8);

tone(8,330,200);

delay(300);

noTone(8);

tone(8,396,200);

delay(300);

noTone(8);

tone(8,330,200);

delay(300);

noTone(8);

tone(8,330,200);

delay(300);

noTone(8);

tone(8,352,200);

delay(300);

noTone(8);

tone(8,396,200);

delay(600);

noTone(8);

tone(8,352,200);

delay(300);

noTone(8);

tone(8,297,200);

delay(300);

noTone(8);

tone(8,352,200);

delay(300);

noTone(8);

tone(8,440,200);

delay(300);

noTone(8);

tone(8,396,200);

delay(300);

noTone(8);

tone(8,352,200);

delay(300);

noTone(8);

tone(8,330,200);

delay(600);

//baris 2

noTone(8);

tone(8,440,200);

delay(300);

noTone(8);

tone(8,352,200);

delay(300);

noTone(8);

tone(8,440,200);

delay(300);

noTone(8);

tone(8,352,200);

delay(300);

noTone(8);

tone(8,440,200);

delay(300);

noTone(8);

tone(8,495,200);

delay(300);

noTone(8);

tone(8,528,200);

delay(600);

noTone(8);

tone(8,528,200);

delay(600);

noTone(8);

tone(8,330,200);

delay(300);

noTone(8);

tone(8,396,200);

delay(300);

noTone(8);

tone(8,352,200);

delay(300);

noTone(8);

tone(8,297,200);

delay(300);

noTone(8);

tone(8,264,200);

delay(600);

}

HASIL

PERCOBAAN RUNNING LED ARDUINO

PERCOBAAN RUNNING LED

NAMA  : ADIAN                                 NIM       : 153600049

NAMA  : TEDDY SEPTIAN                NIM       : 153600042

TUJUAN PERCOBAAN

Mengatur dan memprogram microkontrol menghidupkan lampu LED secara berurutan bolak balik atau membuat running LED. Dengan kecepatan nyala yang ditentukan.

PROGRAM MICROKONTROL

int LED []= {2,3,4,5,6,7};

void setup() {

int n;

  for (n=0;n<6;n++){

    pinMode (LED[n],OUTPUT);

  }

}

void loop() {

 int n;

 int tunda=100;

 for (n=0;n<6;n++){

  digitalWrite (LED[n],HIGH);

  delay(tunda);

  digitalWrite (LED[n],LOW);

  delay(tunda);

 }

 for (n=6;n>0;n--){

  digitalWrite (LED[n],HIGH);

  delay(tunda);

  digitalWrite (LED[n],LOW);

  delay(tunda);

 }

}

HASIL PERCOBAAN