Modul 3 Pembuatan Aplikasi Menggunakan Komponen Visual dan Non Visual

Modul Teori dan Praktikum Pemrograman C++ Builder

Modul 3 Pembuatan Aplikasi Menggunakan Komponen Visual dan Non Visual A. Pengantar Salah satu objek atau kelas turunan dari Tcomponent adalah Tcontrol dan semua objek yang diturunkan dari Tcontrol dinamakan komponen visual, sedangkan objek-objek yang diturunkan secara langsung dari Tcomponent dinamakan componen non-visual. Untuk membuat aplikasi visual menggunakan Borland Turbo C++sangatlah mudah, jika sebelumnya anda telah mempelajari Bahasa Pemrograman Borland Delphi. Dan lingkungan visualnya pun hampir sama dengan Borland Delphi. Latihan 1 Tujuan : Sentuhan pertama membuat project dengan C++ 1. Buat aplikasi baru dengan dengan memilih menu File|New|Application C++ Builder. Kemudian lakukan design form dan pengesetan properti komponen pada object properties seperti gambar

Komponen Form1

Button1

Properti Caption Height Width Caption

Nilai Aplikasi Non_Visual 100 200 &Tamplikan

2. aktifkan komponen Button1 dan lakukan double click, maka secara default C++ akan memberikan sebuah kerangka program untuk event OnClick. Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::Button1Click(TObject *Sender) { MessageBox(0, “Selamat Datang Programmer C++ Builder”,”Pesan”, MB_ICONINFORMATION|MB_OK); }

3. Simpan unit dan project dengan nama P_AppNV dan unitnya U_AppNV.cpp dengan memilih menu FileSave All. Kemudian jalankan aplikasi dengan menekan tombol F9 atau Run setelah aktif klik tombol Tampilkan maka akan muncul pesan sbb :

© 2011


Latihan 2 Tujuan : Memahami penggunaan komponen visual dan operasi aritmatika 1. Buat aplikasi baru dengan dengan memilih menu File|New|Application. Kemudian tempatkan komponen dibawah ini, kemudian lakukan pengesetan properti pada object properties untuk masing-masing komponen seperti pada tabel dibawah ini.

Komponen Form1 Label1 Label2 Edit1 Edit2 ListBox1 Button1 Button2 Button3 Button4 Button5 BitBtn1 BitBtn2

Properti Caption Caption Caption Text Text

Nilai Program Perhitungan Sederhana Masukan Bilangan A Masukan Bilangan B Kosongkan Kosongkan

Caption Caption Caption Caption Caption Caption Kind Caption Kind

+ * / Pangkat &Ulang bkRetry &Close bkClose

2. Aktifkan komponen Button1 pada form1 dan lakukan double click, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::Button1Click(TObject *Sender) { float a=StrToFloat(Edit1->Text); float b=StrToFloat(Edit2->Text); float c=a+b; ListBox1->Items->Add("Bilangan A = "+Edit1->Text); ListBox1->Items->Add("Bilangan B = "+Edit2->Text); ListBox1->Items->Add("-------------------------- +"); ListBox1->Items->Add("Hasil Penjumlahan = "+FloatToStr(c)); }

3. aktifkan komponen Button2 pada form1 dan lakukan double click, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::Button2Click(TObject *Sender) { float a=StrToFloat(Edit1->Text); float b=StrToFloat(Edit2->Text); float c=a-b; ListBox1->Items->Add("Bilangan A = "+Edit1->Text); ListBox1->Items->Add("Bilangan B = "+Edit2->Text); ListBox1->Items->Add("-------------------------- -"); ListBox1->Items->Add("Hasil Pengurangan = "+FloatToStr(c)); } © 2011


4. aktifkan komponen Button3 pada form1 dan lakukan double click, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::Button3Click(TObject *Sender) { float a=StrToFloat(Edit1->Text); float b=StrToFloat(Edit2->Text); float c=a*b; ListBox1->Items->Add("Bilangan A = "+Edit1->Text); ListBox1->Items->Add("Bilangan B = "+Edit2->Text); ListBox1->Items->Add("-------------------------- X"); ListBox1->Items->Add("Hasil Perkalian = "+FloatToStr(c)); }

5. aktifkan komponen Button4 pada form1 dan lakukan double click, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::Button4Click(TObject *Sender) { float a=StrToFloat(Edit1->Text); float b=StrToFloat(Edit2->Text); float c=a/b; ListBox1->Items->Add("Bilangan A = "+Edit1->Text); ListBox1->Items->Add("Bilangan B = "+Edit2->Text); ListBox1->Items->Add("-------------------------- :"); ListBox1->Items->Add("Hasil Pembagian = "+FloatToStr(c)); }

6. aktifkan komponen Button5 pada form1 dan lakukan double click, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::Button4Click(TObject *Sender) { float a=StrToFloat(Edit1->Text); float b=StrToFloat(Edit2->Text); float c=pow(a,b); ListBox1->Items->Add("Bilangan A = "+Edit1->Text+" dipangkatkan Bilangan B = "+Edit2->Text); ListBox1->Items->Add("Hasilnya adalah "+FloatToStr(c)); }

7. Simpan unit dengan nama U_PrgSdr.cpp dan projectnya dengan nama P_PrgSdr dengan memilih menu File-Save All. Kemudian jalankan aplikasi dengan menekan tombol F9 atau Run.

Latihan 3 Tujuan : Memahami penggunaan komponen Timer untuk menampilkan waktu. 1. Buat aplikasi baru dengan memilih menu File|New|Application. Kemudian lakukan design form dan dan tambahkan komponen Ttimer pada tab System. 2. Double klik pada komponen Ttimer atau pada event OnTImer di object properties kemudian isikan source code dibawah ini. © 2011


void __fastcall TForm1::Timer1Timer(TObject *Sender) { Label2->Caption=FormatDateTime("'Hari : 'dddd",Now()); Label3->Caption=FormatDateTime("'Tanggal : 'd mmmm yyyy",Now()); Label4->Caption=FormatDateTime("'Jam : 'hh : mm : ss",Now()); }

dddd :menampilkan nama hari secara utuh d :menampilkan tanggal tanpa angka 0 didepannya mmmm :menampilkan nama bulan secara utuh yyyy :menampilkan tahun secara utuh hh :menampilkan jam dalam 2 digit mm :menampilkan menit dalam 2 digit ss :menampilkan detik dalam 2 digit Now() :mengambil waktu pada sistem komputer 3. Simpan unit dengan nama U_TglWaktu dan projectnya dengan nama P_TglWaktu dengan memilih menu File-Save All. Kemudian jalankan aplikasi dengan menekan tombol F9 atau Run.

Latihan 4 Tujuan : Memahami penggunaan komponen visual untuk penerapan tipe data array. 1. Tipe data array Satu Dimensi a. Buatlah aplikasi baru dengan cara memilih File|New|Application Kemudian tempatkan komponen dibawah ini, kemudian lakukan pengesetan properti pada object properties untuk masing-masing komponen seperti pada tabel dibawah ini.

© 2011


Komponen Form1 BitBtn1 BitBtn2

Properti Caption Caption Kind Caption Kind

Nilai Program Array Satu Dimensi &Proses bkYes &Keluar bkClose

b. Double klik pada tombol Proses, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::BitBtn1Click(TObject *Sender) { double NilaiArr[5]; NilaiArr[3] = 20.149; NilaiArr[0] = 6.480; NilaiArr[4] = 25.729; NilaiArr[1] = 8.306; NilaiArr[2] = 2.645; ListBox1->Items->Add("Tampilan 5 Nilai Array Secara Acak:"); ListBox1->Items->Add("NilaiArr[3] = 20.149"); ListBox1->Items->Add("NilaiArr[0] = 6.480"); ListBox1->Items->Add("NilaiArr[4] = 25.729"); ListBox1->Items->Add("NilaiArr[1] = 8.306"); ListBox1->Items->Add("NilaiArr[2] = 2.645"); ListBox1->Items->Add("---------------------------------"); ListBox1->Items->Add("5 Nilai Array Setelah Diurutkan:"); ListBox1->Items->Add("Nilai Array Ke[0] = "+FloatToStr(NilaiArr[0])); ListBox1->Items->Add("Nilai Array Ke[1] = "+FloatToStr(NilaiArr[1])); ListBox1->Items->Add("Nilai Array Ke[2] = "+FloatToStr(NilaiArr[2])); ListBox1->Items->Add("Nilai Array Ke[3] = "+FloatToStr(NilaiArr[3])); ListBox1->Items->Add("Nilai Array Ke[4] = "+FloatToStr(NilaiArr[4])); }

c. Simpan Unit dengan nama U_LatihArrayD1.cpp dan projectnya dengan nama P_ LatihArrayD1 dengan memilih menu File-Save All. Kemudian jalankan aplikasi dengan menekan tombol F9 atau Run. Seperti gambar berikut:

2. Tipe data array Dua Dimensi a. Buatlah aplikasi baru dengan cara memilih File|New|Application Kemudian tempatkan komponen dibawah ini, kemudian lakukan pengesetan properti pada object properties untuk masing-masing komponen seperti pada tabel dibawah ini.

© 2011




Nilai Program Array Dua Dimensi &Proses bkYes &Close bkClose

b. Double klik pada tombol Proses, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::BitBtn1Click(TObject *Sender) { int Nomor[2][5] = { { 31, 28, 31, 30, 31 }, { 31, 31, 30, 31, 30 } }; ListBox1->Items->Add("Representasi Array Dua Dimensi"); ListBox1->Items->Add("=============================="); ListBox1->Items->Add("Posisi Array[0][0]: " + IntToStr(Nomor[0][0])); ListBox1->Items->Add("Posisi Array[0][1]: " + IntToStr(Nomor[0][1])); ListBox1->Items->Add("Posisi Array[0][2]: " + IntToStr(Nomor[0][2])); ListBox1->Items->Add("Posisi Array[0][3]: " + IntToStr(Nomor[0][3])); ListBox1->Items->Add("Posisi Array[0][4]: " + IntToStr(Nomor[0][4])); ListBox1->Items->Add("Posisi Array[1][0]: " + IntToStr(Nomor[1][0])); ListBox1->Items->Add("Posisi Array[1][1]: " + IntToStr(Nomor[1][1])); ListBox1->Items->Add("Posisi Array[1][2]: " + IntToStr(Nomor[1][2])); ListBox1->Items->Add("Posisi Array[1][3]: " + IntToStr(Nomor[1][3])); ListBox1->Items->Add("Posisi Array[1][4]: " + IntToStr(Nomor[1][4])); }

c. Simpan Unit dengan nama U_LatihArrayD2.cpp dan projectnya dengan nama P_ LatihArrayD1 dengan memilih menu File-Save All. Kemudian jalankan aplikasi dengan menekan tombol F9 atau Run. Seperti gambar berikut:

3. Tipe data array Multi Dimensi a. Buatlah aplikasi baru dengan cara memilih File|New|Application Kemudian tempatkan komponen dibawah ini, kemudian lakukan pengesetan properti pada object properties untuk masing-masing komponen seperti pada tabel dibawah ini.

© 2011




Nilai Program Array Multi Dimensi &Proses bkYes &Close bkClose

b. Double klik pada tombol Proses, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::BitBtn1Click(TObject *Sender) { double jamkerja[2][3][5] = { { { 8.50, 7.00, 7.50, 8.00, 0.00 }, { 8.00, 8.50, 8.00, 10.00, 8.50 }, { 9.00, 9.00, 8.00, 8.50, 0.00 }, }, { { 6.00, 7.50, 5.50, 7.00, 0.00 }, { 10.50, 9.50, 10.00, 9.00, 0.50 }, { 8.00, 8.00, 8.00, 8.00, 0.00 }, } }; ListBox1->Items->Add("Representasi Array Multi Dimensi"); ListBox1->Items->Add("--------------------------------"); for(int i = 0; i < 2; i++) for(int j = 0; j < 3; j++) for(int k = 0; k < 5; k++)

ListBox1->Items->Add("Jam Kerja["+IntToStr(i)+"]["+IntToStr(j)+"]["+IntToStr(k)+"]: "+FloatToStr(jamkerja[i][j][k]));

}

c. d. Simpan Unit dengan nama U_LatihArrayD2.cpp dan projectnya dengan nama P_ LatihArrayD1 dengan memilih menu File-Save All. Kemudian jalankan aplikasi dengan menekan tombol F9 atau Run. Seperti gambar berikut:

© 2011


Latihan 5 Tujuan : Memahami penggunaan komponen visual untuk penerapan tipe data struktur/record 1. Buat aplikasi baru dengan dengan memilih menu File|New|Application. Kemudian tempatkan komponen dibawah ini, kemudian lakukan pengesetan properti pada object properties untuk masing-masing komponen seperti pada tabel dibawah ini.

Komponen Form1 Label1 Label1 Label2 Edit1 Edit2 BitBtn1 BitBtn2 BitBtn3

Properti Caption Caption Caption Caption Text Text Caption Kind Caption Kind Caption Kind

Nilai Program Contoh Struktur (Record) Program Contoh Struktur (Record) Masukan Alas Segi Tiga Masukan Tinggi Segi Tiga Kosongkan Kosongkan &Proses bkYes &Ulang bkRetry &Selesai bkClose

ListBox1 2. Pada bagian atas unit tambahkan deklarasi konstanta sega 0.5 dan tipe struct dibawah TForm *Form berikut: #define sega 0.5 //--------------------------------------------------------------------------#pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; struct segitiga{ double alas; double tinggi; };

3. aktifkan komponen BitBtn1 pada form1 dan lakukan double click, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::BitBtn1Click(TObject *Sender) { segitiga giga; double luas; giga.alas=StrToFloat(Edit1->Text); giga.tinggi=StrToFloat(Edit2->Text); luas=sega*giga.alas*giga.tinggi; ListBox1->Items->Clear(); ListBox1->Items->Add("Program Untuk Menghitung Luas Segi Tiga"); ListBox1->Items->Add(" Berbasis Struktur/Record"); ListBox1->Items->Add("==========================="); ListBox1->Items->Add("Alas Segi Tiga = "+Edit1->Text); ListBox1->Items->Add("Tinggi Segi Tiga = "+Edit2->Text); ListBox1->Items->Add("--------------------------------------------------"); ListBox1->Items->Add("Luas Segi Tiga = "+FloatToStr(luas)); } © 2011


4. aktifkan komponen BitBtn2 pada form1 dan lakukan double click, Kemudian tuliskan source code dibawah ini. void __fastcall TForm1::BitBtn2Click(TObject *Sender) { Edit1->Clear(); Edit2->Clear(); ListBox1->Items->Clear(); Edit1->SetFocus(); }

5. Simpan Unit dengan nama U_LatihRecord1.cpp dan projectnya dengan nama P_ LatihRecord1 dengan

memilih menu File-Save All. Kemudian jalankan aplikasi dengan menekan tombol F9 atau Run. Seperti gambar berikut:

6.

e.

© 2011

Modul 3 Pembuatan Aplikasi Menggunakan Komponen Visual dan Non Visual

Recommend Documents