Friday 24 October 2014

Pemrograman Berorientasi Objek

PERTEMUAN KE-II ( PEMROGRAMAN BERORIENTASI OBJEK)


Buatlah class

Public class Matematika{
            Public int angka1,  angka2;

Public Matematika() {
System.out.println(“Konstruktor dijalankan”);
This.cetak();
}

Public void cetak(String nama) {
System.out.println(nama);
}

Public void cetak() {
System.out.println(“java”);
System.out.println(“java”);
}

Public static void main(string[] args) {
System.out.println(“pascal”);
Matematika m = new Matematika(“qwerty”);
Matematika p = new Matematika();

m.cetak();
m.cetak(“PASCAL”);
p.cetak();
p.cetak(“PHP”);
}


*Biru=Output

Public class LatihanMatematika{
            Public int angka1,  angka2;

Public LatihanMatematika(int x, int y) {
This.angka1 = x;
This.angka2 = y;
}

Public void penjumlahan() {
Int jumlah = angka1 + angka2;
System.out.println(“penjumlahan = “ + jumlah);
}


Public void pengurangan() {
Int kurang = angka1 – angka2;
System.out.println(“pengurangan = “ + kurang);
}

Public void perkalian() {
Int kali = angka1 * angka2;
System.out.println(“perkalian = “ + kali);
}

Public void pembagian() {
If(angka2 == 0){
System.out.println(“Error tidak bisa dibagi 0”);
} else {
Int bagi = angka1 / angka2;
System.out.println(“pembagian = “ + bagi);
}
}



Tambahan Class :

Public class TestMatematika{

Public static void main(String [] args) {
LatihanMatematika 1m = new Latihan Matematika(5,89);
System.out.println(1m.angka1);
System.out.println(1m.angka2);
1m.penjumlahan();
1m.pengurangan();
1m.perkalian();
1m.pembagian();
}
}


Sunday 19 June 2011

Delphi UAS 2


Ketentuan Program :
1. Tanggal Check In tampil otomatis berdasarkan tanggal sistem.
2. Pilih Kode Kamar maka Nama Kamar akan tampil sesuai dengan Kode Kamar yang dipilih.

Kode Kamar
Nama Kamar
AGR01
Anggrek
DHL02
Dahlia
MWR03
Mawar

3.    Harga Kamar ditentukan berdasarkan Jenis dan Tipe Kamar.


Jenis Kamar
Tipe Kamar
Suite
Bisnis
President
Single
200000
300000
500000
Double
400000
500000
800000
Family
600000
800000
100000

4.    Input lama Inap, ketika dienter maka Tanggal Check Out dan Total Bayar akan tampil.
Tanggal Check Out    = Tanggal Check In + Lama Inap
Total Bayar                 = Harga kamar + Lama Inap



Script Program :

procedure Tfrmpenginapan.FormActivate(Sender: TObject);
begin
etglcheckin.Text := datetostr(date);
cmbkdkamar.Items.Add('AGR01');
cmbkdkamar.Items.Add('DHL02');
cmbkdkamar.Items.Add('MWR03');
listjenis.Items.Add('Single');
listjenis.Items.Add('Double');
listjenis.Items.Add('Family');
end;

procedure Tfrmpenginapan.cmbkdkamarClick(Sender: TObject);
begin
if cmbkdkamar.Text = 'AGR01' then
   ekamar.Text := 'Anggrek'
else
if cmbkdkamar.Text = 'DHL02' then
   ekamar.Text := 'Dahlia'
else
   ekamar.Text := 'Mawar';
end;


procedure Tfrmpenginapan.rsuiteClick(Sender: TObject);
begin
if listjenis.ItemIndex = 0 then
   eharga.Text := '200000'
else
if listjenis.ItemIndex = 1 then
   eharga.Text := '400000'
else
   eharga.Text := '600000';
end;

procedure Tfrmpenginapan.rbisnisClick(Sender: TObject);
begin
if listjenis.ItemIndex = 0 then
   eharga.Text := '300000'
else
if listjenis.ItemIndex = 1 then
   eharga.Text := '500000'
else
   eharga.Text := '800000';
end;

procedure Tfrmpenginapan.rpresidentClick(Sender: TObject);
begin
if listjenis.ItemIndex = 0 then
   eharga.Text := '500000'
else
if listjenis.ItemIndex = 1 then
   eharga.Text := '800000'
else
   eharga.Text := '1000000';
end;

procedure Tfrmpenginapan.elamaKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   begin
   etglcheckout.Text := datetostr(strtodate (etglcheckin.Text)+strtoint(elama.Text));
   etotbay.Text := inttostr(strtoint(eharga.Text)
                   *strtoint(elama.Text));
   end
end;

procedure Tfrmpenginapan.bbaruClick(Sender: TObject);
begin
enama.Text := '';
etglcheckin.Text := '';
cmbkdkamar.Text := '--Kode Kamar--';
ekamar.Text := '';
listjenis.Selected [0]:= false;
rsuite.Checked := false;
rbisnis.Checked := false;
rpresident.Checked := false;
eharga.Text := '0';
elama.Text := '0';
etglcheckout.Text := '';
etotbay.Text := '0';
end;

procedure Tfrmpenginapan.bkeluarClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Mau Keluar...?','Konfirmasi',mb_yesno)=idyes) then
close;
end;

Delphi UAS


Ketentuan Program :
1.  Biaya pendaftaran dan Bonus :
 
Paket
Biaya Pendaftaran
Bonus
Reguler
Rp. 50.000
Flash Disk 512 MB
Intensif
Rp. 65.000
Flash Disk 1 GB
Private
Rp. 70.000
Flash Disk 2 GB
 
2.    Biaya Materi : 
Materi
Biaya
Visual Basic
Rp. 25.000/pertemuan
Web Programming
Rp. 30.000/pertemuan
Delphi
Rp. 35.000/pertemuan
                                                                                  
 
2.    Pilih Jumlah pertemuan maka Total Biaya akan tampil.
Total Biaya = Total Biaya Kursus x Jumlah Pertemuan.
3.    Pilih  Cara Pembayaran.
Jika Lunas maka Uang Muka dan Sisa Angsuran nonaktif.
Jika Angsur maka setfocus ada di Uang Muka, Input Uang Muka maka Sisa Angsuran akan tampil.
Sisa Angsuran = Total Biaya – Uang Muka.


Script Program :
procedure TForm_Kursus.FormActivate(Sender: TObject);
begin
lspaket.Items.Add('Reguler');
lspaket.Items.Add('Intensif');
lspaket.Items.Add('Private');
cmbcaba.Items.Add('Lunas');
cmbcaba.Items.Add('Angsur');
end;

procedure TForm_Kursus.lspaketClick(Sender: TObject);
begin
if lspaket.ItemIndex = 0 then
   begin
   ebiadaf.Text := '50000';
   ebonus.Text := 'Flas Disk 512 MB';
   end
else
if lspaket.ItemIndex = 1 then
   begin
   ebiadaf.Text := '65000';
   ebonus.Text :='Flash Disk 1 GB';
   end
else
   begin
   ebiadaf.Text := '70000';
   ebonus.Text := 'Flash Disk 2 GB';
   end;
end;

procedure TForm_Kursus.cvbClick(Sender: TObject);
begin
if cvb.Checked = true then
   ebiayavb.Text := '25000'
else
   ebiayavb.Text := '0';
end;

procedure TForm_Kursus.cwebClick(Sender: TObject);
begin
if cweb.Checked = true then
   ebiayaweb.Text := '30000'
else
   ebiayaweb.Text := '0';
end;

procedure TForm_Kursus.cdelphiClick(Sender: TObject);
begin
if cdelphi.Checked = true then
   ebiayadelphi.Text := '35000'
else
   ebiayadelphi.Text := '0';
end;

procedure TForm_Kursus.r12kaliClick(Sender: TObject);
begin
etotbiaya.Text := inttostr ((strtoint (ebiayavb.Text) *12)+(strtoint(ebiayaweb.Text)*12)+(strtoint (ebiayadelphi.Text)*12)+strtoint(ebiadaf.Text))
end;




procedure TForm_Kursus.r24kaliClick(Sender: TObject);
begin
etotbiaya.Text := inttostr((strtoint (ebiayavb.Text) *24)+(strtoint(ebiayaweb.Text)*24)+(strtoint (ebiayadelphi.Text)*24)+strtoint(ebiadaf.Text))
end;

procedure TForm_Kursus.cmbcabaClick(Sender: TObject);
begin
if cmbcaba.Text = 'Lunas' then
   begin
   euangmuka.Enabled := false;
   esisaang.Enabled := false;
   end
else
   begin
   euangmuka.Enabled := true;
   esisaang.Enabled := true;
   euangmuka.SetFocus;
   end
end;

procedure TForm_Kursus.euangmukaChange(Sender: TObject);
begin
esisaang.Text := inttostr(strtoint(etotbiaya.Text)-strtoint(euangmuka.Text))
end;

procedure TForm_Kursus.bbersihClick(Sender: TObject);
begin
enama.Text := '';
lspaket.Selected[0] := false;
ebiadaf.Text := '0';
ebonus.Text := '';
cvb.Checked := false;
cweb.Checked := false;
cdelphi.Checked :=false;
r12kali.Checked :=false;


r24kali.Checked :=false;
etotbiaya.Text :='0';
euangmuka.Text :='0';
esisaang.Text :='0';
enama.SetFocus;
end;

procedure TForm_Kursus.bcloseClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Mau Keluar...?','Konfirmasi',mb_yesno)=idyes) then
close;
end;

Class C++ (Part II)

1. Buat class dengan nama rental dan alias class dengan nama mobil.
2. Fungsi judul dan total bayar=lmsewa*hrgsewa mobil per hari.
3. Gunakan rumus percabangan if untuk menampilkan harga sewa mobil.
3. Uang Kembali = Uang Bayar – Total harga.


Script Program :


#include"conio.h"
#include"stdio.h"
#include"iostream.h"
#include"iomanip.h"
class rental
{
public:
char kdmobil[5],nmmobil[10],nmpelanggan[20];
int hrgsewa,lmsewa,total;
};rental mobil[10];

Judul()
{
puts("=======================================");
puts("Rental Mobil Saya Punya");
puts("=======================================");
}
int total(int hrgsewa,int lmsewa)
{
return(hrgsewa*lmsewa);
}
int a,data,tobay=0,ubay,ukem;
char lagi;

main()
{
atas:
clrscr();

cout<<"input banyak data:";cin>>data;
for(a=1;a<=data;a++) { cout<<"data ke-"<>mobil[a].nmpelanggan;
cout<<"kode mobil [INV|AVZ|KJG|CRY]:";cin>>mobil[a].kdmobil;
if(strcmp(mobil[a].kdmobil,"INV")==0||strcmp(mobil[a].kdmobil,"inv")==0)
{
strcpy(mobil[a].nmmobil,"Innova");
mobil[a].hrgsewa=250000;
}
else if(strcmp(mobil[a].kdmobil,"AVZ")==0||strcmp(mobil[a].kdmobil,"avz")==0)
{
strcpy(mobil[a].nmmobil,"Avanza");
mobil[a].hrgsewa=200000;
}
else if(strcmp(mobil[a].kdmobil,"KJG")==0||strcmp(mobil[a].kdmobil,"kjg")==0)
{
strcpy(mobil[a].nmmobil,"Kijang");
mobil[a].hrgsewa=175000;
}
else if(strcmp(mobil[a].kdmobil,"CRY")==0||strcmp(mobil[a].kdmobil,"cry")==0)
{
strcpy(mobil[a].nmmobil,"Carry");
mobil[a].hrgsewa=150000;
}
else
goto atas;
cout<<"Lama Sewa : ";cin>>mobil[a].lmsewa;
}
clrscr();

cout<<"================================================="<>ubay;
ukem=ubay-tobay;
cout<<"Uang Kembali =Rp."<>lagi;
if(lagi=='y'||lagi=='Y')
goto atas;
else
cout<<"\n\3\3\3TERIMA KASIH\3\3\3";
getch();
}

Detail Pembelian Pizza (C++)





5. Jika Jumlah Beli > 5 maka akan mendapatkan potongan 10% dari Sub Total, selain itu akan mendapatkan potongan 5% dari Sub Total.
6. Total Bayar = Subtotal – Potongan.
7. Uang Kembali = Uang Bayar – Total Bayar.


Script Program :



#include<conio.h>
#include<stdio.h>
#include<iostream.h>
char* ukuranpizza(char koukur)
{
if(koukur=='P')
{return"Personal";}
else
if(koukur=='S')
{return"Sedang";}
else
{return"Besar";}
}
main()
{
class
{
public:
char kopizza[2],*napizza,koukur,*ukuran;
int harga;
}pizza;
char nama[20],lagi;
float jumbel,subtotal,potongan,tobay,ubay,ukem;
awal:
clrscr();
cout<<"------------------------------------------"<<endl;
cout<<" TOKO PIZZA LEZAT"<<endl;
cout<<"------------------------------------------"<<endl;
cout<<"Nama Pembeli : ";gets(nama);
cout<<"Nama Pizza"<<endl;
cout<<"[ML] Meat Lovers"<<endl;

cout<<"[SS] Super Supreme"<<endl;
cout<<"[BP] Beetato Peeperoni"<<endl;
cout<<"Kode Pizza : ";cin>>pizza.kopizza;
cout<<"Ukuran [P|S|B] : ";cin>>pizza.koukur;
cout<<"Jumlah Beli : ";cin>>jumbel;
if(!strcmp(pizza.kopizza,"ML"))
{
pizza.napizza="Meat Lovers";
if(pizza.koukur=='P')
{pizza.harga=30000;}
else
if(pizza.koukur=='S')
{pizza.harga=50000;}
else
{pizza.harga=80000;}
}
else
if(!strcmp(pizza.kopizza,"SS"))
{
pizza.napizza="Super Supreme";
if(pizza.koukur=='P')
{pizza.harga=40000;}
else
if(pizza.koukur=='S')
{pizza.harga=60000;}
else
{pizza.harga=90000;}
}
else
{
pizza.napizza="Beetato Peeperoni";
if(pizza.koukur=='P')
{pizza.harga=50000;}
else
if(pizza.koukur=='S')
{pizza.harga=70000;}
else
{pizza.harga=100000;}
}
subtotal=jumbel*pizza.harga;
if(jumbel>5)
{potongan=0.1*subtotal;}
else
{potongan=0.05*subtotal;}
tobay=subtotal-potongan;
clrscr();
cout<<"------------------------------------------"<<endl;
cout<<" DETAIL PEMBELIAN PIZZA"<<endl;
cout<<"------------------------------------------"<<endl;
cout<<"Nama Pembeli : "<<nama<<endl;
cout<<"Nama Pizza : "<<pizza.napizza<<endl;
cout<<"Ukuran Pizza :
"<<ukuranpizza(pizza.koukur)<<endl;
cout<<"Harga : Rp. "<<pizza.harga<<endl;
cout<<"Jumlah Beli : "<<jumbel<<endl;
cout<<"------------------------------------------"<<endl;
cout<<"Subtotal : Rp. "<<subtotal<<endl;
cout<<"Potongan : Rp. "<<potongan<<endl;
cout<<"Total Bayar : Rp. "<<tobay<<endl;
cout<<"------------------------------------------"<<endl;
cout<<"Uang Bayar : Rp. ";cin>>ubay;
ukem=ubay-tobay;
cout<<"Uang Kembali : Rp. "<<ukem<<endl;
cout<<"------------------------------------------"<<endl;
cout<<"Input Data Lagi [Y/T]...? ";cin>>lagi;
if(lagi=='Y'||lagi=='y')
{goto awal;}
getch();
}