Showing posts with label Delphi. Show all posts
Showing posts with label Delphi. Show all posts

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;

Monday, 25 April 2011

Delphi Part II

Listing Delphi

Checkbox:

begin if checkbox1.checked=true then
oli.text:='20000'
else
oli.clear;
end;

utk checkbox berikutnya listingnya sama.

nopolkeypress:

begin
if key=#13 then
begin
if sender=nopol then nama.setfocus;
if sender=nama then checkbox1.setfocus;
end;

Proses:

var a,b,c,d:currency;
begin
if checkbox1.checked=true then
a:strtocurr(oli.text)
else
a:=0
if checkbox2.checked=true then
b:strtocurr(service.text)
else
b:=0
if checkbox3.checked=true then
c:strtocurr(sparepart.text)
else
c:=0
d:=a+b+c;
total.text:=currtostr(d);
end;

Keluar:

begin
if(application.messagebox('Mau Keluar?','info',mb_yesno+32)=IDyes) then
application.terminate;
end;

Bersih:

begin
nopol.clear;
nama.clear;
oli.clear;
service.clear;
total.clear;
checkbox1.checked:=false;
checkbox2.checked:=false;
checkbox3.checked:=false;
nopol.setfocus;
end;

Cara Menambahkan Combobox:
Klik form>isi listing:
jabatan.items.add('Direktur');
jabatan.items.add('Manager');
jabatan.items.add('Karyawan');

Listing Combobox:
properties>events>onclick(2x)

if jabatan.text='Direktur' then
begin
gapok.text:='7000000';
fasilitas.text='Rumah';
end
else
if jabatan.text='Manager' then
begin
gapok.text:='5000000';
fasilitas.text='Mobil';
end
else
if jabatan.text='Karyawan' then
begin
gapok.text:='3000000';
fasilitas.text='Motor';
end
else
gapok.text:='0';
end;
end.


Listing Radio Button:


ketikkan listing di tengah" form:

var
form1:Tform1
a,hasil:real;
implementation
{$R*.dfm}

lalu Listingnya:

begin
if tunai.checked=true then
a:=strtofloat(harga.text);
hasil:=a-(0.1*a);
satuan.text:=floattostr(hasil);
end;

end.

Total:

properties>event>onkeypress>doubleklik>isi listing

begin
if key=#13 then
total.text:=floattostr(strtofloat(harga.text)*strtofloat(jumlah,text));
end;

Monday, 11 April 2011

Aplikasi Sistem Penggajian Karyawan Menggunakan Borland Delhi.

 Listing Program:
unit tugas;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    nip: TEdit;
    nama: TEdit;
    gapok: TEdit;
    fasilitas: TEdit;
    jabatan: TComboBox;
    total: TEdit;
    bersih: TButton;
    keluar: TButton;
    GroupBox1: TGroupBox;
    honorer: TRadioButton;
    tetap: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure jabatanClick(Sender: TObject);
    procedure bersihClick(Sender: TObject);
    procedure keluarClick(Sender: TObject);
    procedure honorerClick(Sender: TObject);
    procedure tetapClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
 Form1: TForm1;
a,hasil:real;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
jabatan.Items.add('Direktur');
jabatan.Items.add('Manager');
jabatan.Items.add('Karyawan');
end;
procedure TForm1.jabatanClick(Sender: TObject);
begin
if jabatan.Text='Direktur' then
begin
gapok.text:='10000000';
fasilitas.Text:='Rumah'
end
else
if jabatan.Text='Manager' then
begin
gapok.text:='7000000';
fasilitas.Text:='Mobil'
end
else
if jabatan.Text='Karyawan' then
begin
gapok.text:='5000000';
fasilitas.Text:='Motor'
end
else
gapok.Text:='0';
end;

procedure TForm1.bersihClick(Sender: TObject);
begin
nip.Text:='';
nama.Text:='';
jabatan.Text:='';
gapok.Text:='';
fasilitas.text:='';
total.Text:='';
end;

procedure TForm1.keluarClick(Sender: TObject);
begin
close
end;

procedure TForm1.honorerClick(Sender: TObject);
begin
if honorer.checked=true then
a:=strtofloat(gapok.text);
hasil:=a-(0.1*a);
total.text:=floattostr(hasil);
end;

procedure TForm1.tetapClick(Sender: TObject);
begin
if honorer.checked=true then
a:=strtofloat(gapok.text);
hasil:=a+(0.1*a);
total.text:=floattostr(hasil);
end;

end.