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