Berkenalan dengan Elemen Dasar Dalam C++

Posted by Erixon Friday, February 24, 2017 0 comments

1. Pengenal (Identifier)
Pengenal merupakan nama yang akan digunakan dalam pemrogrman yang biasa digunakan untuk menyatakan variabel, konstanta, tipe data, fungsi, label, obyek serta hal-hal lain yang dibuat oleh pemrogram.
Suatu pengenal merupakan kombinasi dari huruf, angka dan garis bawah (_). Penamaan pengenal harus berawalan dengan huruf atau garis bawah dan menggunakan kata yang mudah dipahami dan dapat mewakili fungsi dari pengenal yang dibuat. Pengenal dalam C++ bersifat sensitive case atau dibedakan antara huruf kecil dan huruf besar. Misalkan pengenal gajipokok, GajiPokok, GAJIPOKOK, merupakan tiga buah pengenal yang berbeda.

2. Tipe Data Dalam C++
Mengenai tipe data, Anda bisa baca selengkapnya di sini :

include <iostream.h>  
#include <conio.h>
/*Program yang mengandung tipe data dalam c++ */
void main()
{
clrscr();
char huruf;
huruf = 'B';
cout<<"Isi huruf bertipe char = "<<huruf<<'\n';  
int angka;
angka = 123;
cout<<"Isi angka bertipe int = "<<angka<<'\n';
long jumlah; jumlah = 12345678;
cout<<"Isi jumlah bertipe long = "<<jumlah<<'\n';
float nilai;
nilai = 234.543;
cout<<"Isi nilai bertipe float = "<<nilai<<'\n';
double cacah;
cacah = 3453.345;
cout<<"Isi cacah bertipe double = "<<cacah<<'\n';
long double total;
total = 23456.3945;
cout<<"Isi total bertipe long double = "<<total<<'\n';
getch();
}

Hasil Seleksi :



3. Variabel dan Konstanta
    Dalam proses pemrograman tipe data biasa digunakan untuk mendefinisikan suatu variabel atau konstanta. Variabel adalah suatu memori yang dialokasikan dengan nama tertentu dan hanya bisa menampung data sesuai dengan tipe yang ditentukan. Sifat dari variabel adalah nilai yang dikandung akan mudah diubah sesuai dengan proses yang terjadi seperti contoh dibawah ini. Sedangkan konstanta adalah suatu memori yang dialokasikan dengan nama tertentu yang berisi suatu nilai yang memiliki sifat tetap yang tidak akan bisa berubah.
Sebelum variabel digunakan maka variabel tersebut harus didefinisikan terlebih dahulu. Pendefinisian variabel dapat dimana saja sebelum variabel itu digunakan dengan bentuk :

tipevariabel namavariabel;

Untuk memasukkan nilai kedalam variabel digunakan bentuk :

variabel = nilai;
Contoh program : 

#include <iostream.h>  
#include <conio.h>
/*Program yang mengandung pemasukkan nilai pada variabel */
void main()
{
int bilangan;  //Mendefinisikan variabel bilangan bertipe int
bilangan = 10; //Memberikan nilai 10 pada variabel bilangan
clrscr();
cout<<"Isi bilangan = "<<bilangan<<'\n';
bilangan = 50;
cout<<"Isi bilangan = "<<bilangan<<'\n';
getch();
}

Hasil Eksekusi :






Untuk mendeklarasikan konstanta digunakan bentuk :

const tipedata namakonstanta = nilaikonstanta;

 Contoh program :


#include <iostream.h>  
#include <conio.h>
/*Program yang mengandung konstanta */
void main()
{
const float phi = 3.14;  
int jari = 11;
float luas;
clrscr();
luas = phi * jari * jari;
cout<<"Luas lingkaran = "<<luas<<'\n';
getch();

Hasil Eksekusi :

                                                                                                    konstanta


Dalam C++ dikenal adanya pemodifikasian variabel menggunakan unsigned dan signed. Variabel yang ditambahi unsigned akan menyebabkan nilai yang dikandung variabel benilai positif, sedangkan signed tidak menyebabkan perubahan nilai dari data yang dikandung (sama dengan nilai data dasar).
Modifikasi Tipe Data
Persamaan
Jangkauan Nilai
unsigned char
tidak ada
0 s/d 225
unsigned int
unsigned
0 s/d 65.535
unsigned short int
unsigned short
0 s/d 65.535
unsigned long int
unsigned long
0 s/d 4.294.967.295
signed char
char
-128 s/d 127
signed int
int
-32.768 s/d32.767
signed short int
short, signed short
-32.768 s/d32.767
signed long int
long, long int, signed long
-2.147.483.648 s/d 2.147.483.687

Untuk memahami lebih dalam, simak observasi  di bawah ini;




Baca Selengkapnya ....

Mengenal Struktur Program C++

Posted by Erixon 0 comments
Salam sobat Blogger, kali ini saya akan membagikan artikel mengenai bahasa pemrograman C++, mungkin para advancer sudah biasa dengan pembahasan ini, mari bergabung bagi para newcomer yang baru belajar bahasa ini,
 
Struktur Program C++ terdiri dari :

 1. #include,
 2. void, main(),
 3. Blok pernyataan,
 4. cout,
 5. clrscr();
 6. Komentar

 #include <nama_file>
void main()
{
<blok_pernyataan>
}

Berikut penjelasan masing-masing dari elemen diatas,

1. #include
Adalah pengarah praprosesor yang berfungsi menginstruksikan kepada kompiler untuk menyisipkan file, saat program dikompilasi. Biasanya file yang disisipkan adalah file header.



2. void di depan main()

Dipakai untuk menyatakan bahwa fungsi main() tidak memiliki nilai balik.
 
Main( )
Merupakan fungsi utama yang menjadi awal dan akhir eksekusi program C++.

Tanda ( )
Digunakan untuk mengapit argumen fungsi, yaitu nilai yang akan dilewatkan ke fungsi.
 
3. Blok pernyataan
Blok pernyataan bisa terdiri dari satu atau beberapa statemen dan diakhiri dengan tanda (;) sebagai contoh saat mendeklarasikan 3 buah variabel dengan tipe data yang sama, seperti; int a, b, c;

Contoh program :

#include <iostream.h>  
#include <conio.h> 
/*Program yang mengandung blok pernyataan */ 
void main() 
{ clrscr(); //membersihkan layar 
cout << "Selamat Belajar C++, Ini Program Pertama Ku\n"
getch(); }

Hasil Eksekusi :


Blok Pernyataan

Untuk mengkompile program dengan menggunakan borland C++ dapat dilakukan dengan menekan tombol Ctrl + F9 atau tombol ini : 



4. cout (dibaca "c out")

Merupakan objek dalam C++ yang digunakan untuk mengarahkan data ke standar output (layar).

Tanda <<

Dua tanda kurang dari (<<) adalah operator “penyisipan/peletakan” yang akan mengarahkan operand (data) yang terletak di sebelah kanannya ke objek yang terletak di sebelah kirinya.


Pada contoh di atas, “Selamat Belajar C++, Ini Program Pertama Ku\n” diarahkan ke cout, yang memberikan hasil berupa tampilan string tersebut ke layar. 
\n adalah karakter pindah baris (new line).


#include < iostream.h >


Menginstruksikan kepada kompiler untuk menyisipkan file iostream.h pada saat program dikompilasi tanpa diakhiri titik koma. File iostream.h perlu disertakan pada program yang melibatkan cout. Tanpa # include < iostream.h > akan terjadi kesalahan saat program dikompilasi. Sebab file iostream.h berisi deklarasi yang diperlukan oleh cout dan berbagai objek yang berhubungan dengan operasi masukan–keluaran.

5. clrscr();
Pernyataan yang diperlukan untuk menghapus layar. Apabila menggunakan pernyataan ini maka harus disertakan file header conio.h.

Komentar

Diperlukan untuk menjelaskan / memberikan anotasi terkait program atau bagian-bagian dalam program. Isi penjelasan biasanya berupa:
1. Tujuan/fungsi program.
2. Saat program dibuat/direvisi.
3. Keterangan-keterangan lain tentang kegunaan sejumlah pernyataan dalam program.

 Prosedur komentar pada pemrograman C++ memiliki 2 cara yaitu;
a. Diawali tanda // (dua tanda garis miring), Semua tulisan setelah tanda // dianggap sebagai komentar dan tidak akan dieksekusi oleh C++.

b. Diawali tanda /* blok komentar dan diakhiri tanda */, Untuk memberikan komentar lebih dari 1 baris, namun, biasanya bentuk ini sering dimanfaatkan untuk mengabaikan / menonaktifkan sejumlah baris program atau pernyataan yang telah dibuat karena suatu alasan.


Contoh program :

#include <iostream.h>  
#include <conio.h> 
/*Program yang mengandung komentar */
void main() 
{ clrscr(); //membarsihkan layar <--- ini adalah komentar // teks ini sampai akhir baris tidak akan pernah dieksekusi <--- ini adalah komentar 
cout << "Selamat Belajar C, Ini Program Pertama Ku++\n"
getch(); 
}

Ingin tahu lebih dalam, ini sumbernya


Baca Selengkapnya ....

Proses Kompilasi pada Bahasa Pemrograman C++

Posted by Erixon 0 comments
        Program C++ ditulis dengan ekstensi .cpp. Agar dapat dieksekusi atau dijalankan, maka program harus dikompilasi terlebih dahulu menggunakan compiler C++. Proses kompilasinya adalah; file sumber (.cpp) bersama dengan file header (.h) diterjemahkan dulu oleh kompiler C++ sehingga menjadi kode objek (.obj), format file objek ini adalah biner (berkode 0 dan 1). Selanjutnya semua file objek bersama dengan file pustaka (.lib) dikaitkan menjadi satu oleh linker dan hasilnya adalah file Executable.

Gb. proses pembentukan file executable

Sumber : klik disini

Baca Selengkapnya ....

Mengenal Bahasa Pemrograman C++

Posted by Erixon 0 comments
                                                                                                                 Dasar Bahasa Pemrograman C++

       C++ adalah bahasa pemrograman komputer yang di buat oleh Bjarne Stroustrup, yang merupakan perkembangan dari bahasa C dikembangkan di Bong Labs (Dennis Ritchie) pada awal tahun 1970-an, Bahasa itu diturunkan dari bahasa sebelumnya, yaitu B, Pada awalnya, bahasa tersebut dirancang sebagai bahasa pemrograman yang dijalankan pada sistem Unix, Pada perkembangannya, versi ANSI (American National Standart Institute) Bahasa pemrograman C menjadi versi dominan, Meskipun versi tersebut sekarang jarang dipakai dalam pengembangan sistem dan jaringan maupun untuk sistem embedded, Bjarne Stroustrup pada Bel labs pertama kali mengembangkan C++ pada awal 1980-an. Untuk mendukung fitur-fitur pada C++, dibangun efisiensi dan sistem support untuk pemrograman tingkat rendah (low level coding). Pada C++ ditambahkan konsep-konsep baru seperti class dengan sifat-sifatnya seperti inheritance dan overloading. Salah satu perbedaan yang paling mendasar dengan bahasa C adalah dukungan terhadap konsep pemrograman berorientasi objek (Object Oriented Programming).[Wikipedia]


Substansi
1. PROSES KOMPILASI
2. STRUKTUR PROGRAM C++
    #include,
    void, main(),
    Blok pernyataan,
    cout,
    clrscr();
    Komentar
3. ELEMEN DASAR DALAM C++
    Pengenal (Identifier),
    Tipe Data Dalam C++,
    Variabel dan Konstanta,
    Operator dan ungkapan,
    Input dalam C++
    Manipulator 

Silahkan Klik tautan diatas untuk penjelasan teori berikutnya.

Lengkapnya bisa dilihat disini

Baca Selengkapnya ....

Membuat Bangun Datar Menggunakan Aplikasi Turbo Pascal

Posted by Erixon Thursday, February 23, 2017 0 comments

Program Menghitung_Luas_dan_Keliling_Bangun_Datar;
uses crt;
Var
Pilih : Integer;
Procedure Persegi; {Mencari Luas dan Keliling Persegi}
Var
s, L, K : Real;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Luas dan Keliling Persegi::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukkan sisi : ');Readln(s);
L := s*s;
K := 4*s;
Writeln('Luas : ', L:0:0);
Writeln('Keliling : ', K:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' CopyLeft@2008 Teatzo_system.corp (TS.corp) ');
Readln;
end;
Procedure PersegiPanjang; {Mencari Luas dan Keliling Persegi Panjang}
Var
p, lbr, L, K : Real;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Luas dan Keliling Persegi Panjang::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukkan panjang : ');Readln(p);
Write('Masukkan lebar : ');Readln(lbr);
L := p*lbr;
K := 2*(p+lbr);
Writeln('Luas : ', L:0:0);
Writeln('Keliling : ', K:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' CopyLeft@2008 Teatzo_system.corp (TS.corp) ');
Readln;
end;
Procedure Segitiga; {Mencari Luas dan Keliling Segitiga}
Var
a, t, sm, L, K : Real;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Luas dan Keliling Segitiga Siku-Siku::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukkan alas : ');Readln(a);
Write('Masukkan tinggi : ');Readln(t);
L:= 0.5*a*t;
sm:= sqrt(sqr(a)+sqr(t));
K:= a+t+sm;
Writeln('Luas : ', L:0:2);
Writeln('Keliling : ', K:0:2);
Writeln(' ');
Textcolor(LightRed);
Writeln(' CopyLeft@2008 Teatzo_system.corp (TS.corp) ');
Readln;
end;
Procedure Lingkaran; {Mencari Luas dan Keliling Lingkaran}
Var
r, L, K : Real;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Luas dan Keliling Lingkaran::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukan jari-jari : ');Readln(r);
L:= 22/7*(sqr(r));
K:= 2*22/7*r;
Writeln('Luas : ', L:0:2);
Writeln('Keliling : ', K:0:2);
Writeln(' ');
Textcolor(12);
Writeln(' CopyLeft@2008 Teatzo_system.corp (TS.corp) ');
Readln;
end;
Procedure Kubus; {Mencari Volume dan Luas permukaan Kubus}
Var
s, V, Lp : Real;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Volume dan Luas permukaan Kubus::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukan sisi : ');Readln(s);
V:= s*s*s;
Lp:= 6*s*s;
Writeln('Volume : ', V:0:0);
Writeln('Luas Permukaan : ', Lp:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' CopyLeft@2008 Teatzo_system.corp (TS.corp) ');
Readln;
end;
Procedure Balok; {Mencari Volume dan Luas permukaan Balok}
Var
p, l, t, V, Lp : Real;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Volume dan Luas Permukaan Balok::==--');
Textcolor(LightGreen);
Writeln(' ');
Write('Masukan panjang : ');Readln(p);
Write('Masukan lebar : ');Readln(l);
Write('Masukan tinggi : ');Readln(t);
V:= p*l*t;
Lp:= 2*p*l+2*p*t+2*l*t;
Writeln('Volume : ', V:0:0);
Writeln('Luas Permukaan : ', Lp:0:0);
Writeln(' ');
Textcolor(LightRed);
Writeln(' CopyLeft@2008 Teatzo_system.corp (TS.corp) ');
Readln;
end;
Procedure Latihan1;
var
a, b, c, d, e : Real;
f, g, h, i : Integer;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Mengerjakan Soal-Soal Mengenai Bangun Datar::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' ');
Writeln(' 1. Diketahui sebuah Persegi Mempunyai Panjang sisi 5');
Writeln(' Berapakah Luas Dan Kelilingnya..?');
Writeln(' ');
Write('Luas : ');Readln(a);
Write('Keliling : ');Readln(b);
Textcolor(LightRed);
if a*b/2+5=255
then write('Bagus, Lanjutkan Ke soal Berikutnya ')
else write('Maaf, anda salah, lebih teliti lagi di soal berikutnya ! ');
Readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' 2. Diketahui sebuah Lingkaran Mempunyai Jari-jari 7');
Writeln(' Berapakah Luas Dan Kelilingnya..?');
Write('Luas : ');Readln(c);
Write('Keliling : ');Readln(d);
Textcolor(LightRed);
if c+d=198
then write('SELAMAT')
else write('Maaf Coba Lagi Yah.!');
Writeln(' ');
Writeln(' ');
Textcolor(LightRed);
Writeln(' CopyLeft@2008 Teatzo_system.corp (TS.corp) ');

Readln;
end;
Procedure Credits;
Begin
Writeln(' ');
Writeln(' ');
Writeln(' ');
Writeln(' ');
Textcolor(LightCyan);
Writeln('***************************************** ****************************** ');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Cah SMANSA Community ');
Writeln(' Simbah Google ');
Writeln(' Komputer Bokap Gue ');
Writeln(' ');
Textcolor(LightCyan);
Writeln('***************************************** ****************************** ');
Writeln(' ');
Textcolor(LightRed);
Writeln(' CopyLeft@2008 Teatzo_system.corp (TS.corp) ');
Readln;
end;
Procedure BangunDatar;
Begin {Sub Program}
repeat
clrscr;
Textcolor(LightCyan);
Writeln('***************************************** **************************** ');
Textcolor(LightRed);
Writeln(' ---==::BANDIT CYBER PINGIN TOBAT::==--- ');
Textcolor(LightCyan);
Writeln('***************************************** **************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln('<<<<<<< Cara Cepat Menghitung Luas dan Keliling Bangun Datar >>>>>>>) ');
Writeln(' <<<<< Lebih Cepat daripada Menggunakan Jari tangan anda >>>>) ');
writeln(' ');
Textcolor(LightCyan);
writeln('--------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Teatzo = ');
Textcolor(LightCyan);
writeln('--------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Menghitung Luas dan Keliling Persegi ');
Writeln(' 2. Menghitung Luas dan Keliling Persegi Panjang ');
Writeln(' 3. Menghitung Luas dan Keliling Segitiga siku-siku ');
Writeln(' 4. Menghitung Luas dan Keliling Lingkaran ');
Writeln(' 5. Keluar ');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(pilih);
case pilih of
1 : Persegi;
2 : PersegiPanjang;
3 : Segitiga;
4 : Lingkaran;
5 : exit;
end;
until pilih = 5;
end;
Procedure BangunRuang;
Begin {Sub Program}
repeat
clrscr;
Textcolor(LightCyan);
Writeln('***************************************** **************************** ');
Textcolor(LightRed);
Writeln(' ---==::BANDIT CYBER PINGIN TOBAT::==--- ');
Textcolor(LightCyan);
Writeln('***************************************** **************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln('<<<< Cara Cepat Menghitung Volume dan Luas Permukaan Bangun Ruang >>>)');
Writeln(' <<<<< Lebih Cepat daripada Menggunakan Jari tangan anda >>>>) ');
writeln(' ');
Textcolor(LightCyan);
writeln('--------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Teatzo = ');
Textcolor(LightCyan);
writeln('--------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Menghitung Volume dan Luas Permukaan Kubus ');
Writeln(' 2. Menghitung Volume dan Luas Permukaan Balok ');
Writeln(' 3. Keluar ');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(pilih);
case pilih of
1 : Kubus;
2 : Balok;
3 : exit;
end;
until pilih = 3;
end;
Procedure Latihan;
Begin {Sub Program}
repeat
clrscr;
Textcolor(LightCyan);
Writeln('***************************************** **************************** ');
Textcolor(LightRed);
Writeln(' ---==::BANDIT CYBER PINGIN TOBAT::==--- ');
Textcolor(LightCyan);
Writeln('***************************************** **************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<< Contoh Soal-Soal Latihan Yang Sangat Mudah >>>)');
Writeln(' <<<<< Kalau gak Bisa Menjawab, lebih baik Sekolah SD dulu >>>>) ');
writeln(' ');
Textcolor(LightCyan);
writeln('--------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Teatzo = ');
Textcolor(LightCyan);
writeln('--------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Soal-soal Menghitung Luas dan Keliling Bangun datar ');
Writeln(' 2. Keluar ');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(pilih);
case pilih of
1 : Latihan1;
2 : exit;
end;
until pilih = 2;
end;

Begin {Main Program}
repeat
clrscr;
textcolor(LightCyan);
Writeln('***************************************** **************************** ');
Textcolor(LightRed);
Writeln(' ---==::BANDIT CYBER PINGIN TOBAT::==--- ');
Textcolor(LightCyan);
Writeln('***************************************** **************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< Cara Cepat Mengerjakan Soal-Soal Matematika >>>>>>) ');
Writeln(' <<<<< disertai contoh soal dan pembahasan >>>>) ');
writeln(' ');
Textcolor(LightCyan);
writeln('--------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Teatzo = ');
Textcolor(LightCyan);
writeln('--------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Mengerjakan Soal-Soal Mengenai Bangun Datar ');
Writeln(' 2. Mengerjakan Soal-Soal Mengenai Bangun Ruang ');
Writeln(' 3. Mengerjakan Latihan-latihan ');
Writeln(' 4. Credits ');
Writeln(' 5. Keluar ');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(pilih);
case pilih of
1 : BangunDatar;
2 : BangunRuang;
3 : Latihan;
4 : Credits;
5 : exit;
end;
until pilih = 5;
End.

Silahkan Dicoba

Sumber : https://amaluddin15.blogspot.co.id/2013/02/bangun-datar-dengan-menggunakan-turbo.html

Baca Selengkapnya ....

Pemrograman Visual

Posted by Erixon Wednesday, February 22, 2017 0 comments
Pengenalan Pemrograman Visual

     Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).

Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan. Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Sebuah survey yang dilakukan pada tahun 2005 menunjukkan bahwa 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

Sejarah

 Bill Gates, pendiri Microsoft, memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).

Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an. Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer.

Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer, seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA, Apple BASIC dan lain-lain.

Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.). Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari). Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple. Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows. Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.

Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.

Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya. Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil porting dari kode VB.Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).

Contoh Kode

Kode berikut menampilkan kotak pesan "Hello, World!":

Private Sub Form_Load()
    ' Execute a simple message box that says "Hello, World!"
    MsgBox "Hello, World!"
End Sub

Kode berikut membuat sebuah perhitungan naik setiap 1 detik dan menampilkannya di label (sebuah kontrol label dan timer dibutuhkan di dalam form agar bisa bekerja):

Option Explicit
Dim Count As Integer
Private Sub Form_Load()
    Count = 0
    Timer1.Interval = 1000 'milidetik
End Sub
Private Sub Timer1_Timer()
    Count = Count + 1
    Label1.Caption = Count
End Sub

Sumber : Wikipedia

Baca Selengkapnya ....

Seleksi Case pada Pascal

Posted by Erixon 0 comments
Bahasa pemrograman PASCAL menyediakan 2 jenis seleksi dalam pemroses suatu data, yaitu IF dan CASE. Pada artikel ini akan dibahas pemakaian seleksi case of pada PASCAL.






Berikut contoh program pemakaian seleksi case of pada pascal.

uses crt ;
var
   Matakuliah    : string[30];
   nilai  : byte ;
   ket,Nh    : string[10];
Begin
     clrscr ;
     Write('Mata Kuliah   : '); readln(matakuliah) ;
     Write('Nilai         : '); readln(nilai) ;
     Case nilai of
    80..100: Nh:='A' ;
    70..79 : Nh:='B' ;
    60..69 : Nh:='C' ;
    50..59 : Nh:='D' ;
    0..49  : Nh:='E' ;
    end;
    if nilai >49 then Ket:='lulus' else ket:='Gagal';
     Writeln('Nilai Huruf   : ', Nh);
     Writeln('Keterangan    : ', ket);
     readln;
end.

Selamat Mencoba.

Baca Selengkapnya ....

Koding Program Bahasa Pascal

Posted by Erixon 0 comments
Contoh Case Of Pascal


Contoh Case …Of perhitungan berat dan harga barang


Ketentuan soal :
1. Kualitas Barang di masukkan
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500

Uses crt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.


Contoh Program Pascal If Perhitungan Gaji
Diposkan oleh rizky is naruto lovers komentar (0)

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji : Rp.‘,total:9:2);
Readln;
End.


Program Penghitung Luas segitiga


uses crt;
var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
var
luas:real;
begin
clrscr;
luas:=a*t/2;
writeln('Luas segitiga =',luas);
end;
begin
writeln('Masukkan alas =');readln(alas);
writeln('Masukkan tinggi =');readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.


Membuat File txt Melalui Pascal
Diposkan oleh rizky is naruto lovers komentar (0)

uses crt;
var
Tulisan:text;
a,b:byte;
c:byte;
begin
clrscr;
writeln('Masukkan Angka 1 =');readln(a);
writeln('Masukkan Angka 2 =');readln(b);
c:=a+b;
writeln('Jadi nilainya adalah =',c);
assign(Tulisan,'hitung.txt');
rewrite(Tulisan);
write(tulisan,a);
write(Tulisan,'+');
write(Tulisan,b);
write(Tulisan,'=');
write(Tulisan,c);
Close(Tulisan);
readln;
end.


Program Pencari Biaya Dan Grade

uses crt;
var
nilai:byte;
begin
clrscr;
Write('masukkan Nilai anda =');Readln(nilai);

if nilai>0 then
begin
Writeln('GRADE = O ');
Writeln('Besar biaya = Rp.550000');
end
else

if nilai<=1 then begin Writeln('GRADE = E '); Writeln('Besar biaya = Rp.450000'); end else if nilai<=40 then begin Writeln('GRADE = D'); Writeln('Besar biaya = Rp.350000'); end else if nilai<=60 then begin Writeln('GRADE = C'); Writeln('Besar biaya = Rp.250000'); end Else if nilai<=70 then begin Writeln('GRADE = B'); Writeln('Besar biaya = Rp.150000'); end else begin If nilai >=100 then
Writeln('GRADE = A');
Writeln('Besar biaya = Rp.50000');
end;
readln;
end.


Program Pencari Predikat


USES CRT;
VAR
nilai:byte;
A,B,C,D:string;
begin
clrscr;
write ('masukkan nilai=');readln(nilai);
if nilai< 69 then
writeln('predikat D');
if nilai<79then
writeln ('predikat C');
if nilai<90 then
writeln ('predikat B');
if nilai<101 then
writeln('predikat A');
readln;
end.


Konversi bilangan Desimal Ke Biner


USES CRT;
VAR Des:integer;
Bin:string;
begin
clrscr;
writeln('PROGRAM KONVERSI MENGUBAH BILANGAN DECIMAL KE BINER');
write('Masukkan bilangan Decimal=');
readln(Des);
Bin:=’’;
repeat
begin

{menghitung biner dari hasil bagi}

If Des mod 2=0 then Bin:='0'+Bin
else Bin:='1'+Bin;

{membagi bulat bilangan desimal}

Des:= Des div 2;
end;
Until Des=0;
Writeln('Bilangan Biner =',Bin);
readln;
end.

Sumber : http://rizkypascalers.blogspot.co.id/p/contoh-program-pascal.html

Baca Selengkapnya ....