Tugas Java

import java.util.*;
public class tugas {

    public static void main(String[]agrs)
{
        //untuk pembuatan variabel dan deklarasinya

  int i,j;
  double jmlbyr=0,total,pajak;
  //untuk variabel array
        String[]kode = new String[3];
        String[]jenis=new String[15];
        int[]harga=new int[6];
        int[]banyak = new int[6];
        double[]jmlhrg = new double[6];

System.out.println("   GEROBAK FRIED CHICKEN ");
System.out.println("----------------------------");
System.out.println(" Kode    Jenis    Harga    ");
System.out.println("----------------------------");
System.out.println("  D      DADA     2500     ");
System.out.println("  P      PAHA     2000     ");
System.out.println("  S      SAYAP    1500     ");
System.out.println("----------------------------");

Scanner input = new Scanner (System.in);
System.out.print("  Banyak Jenis   = ");
j = input.nextInt();

for(i=0; i<=j ; i++)
                            {
    System.out.println("Jenis Ke - "+(i+1));
System.out.print(" Jenis Potong [D/P/S]   = ");
kode[i] = input.next();

if ("D".equals(kode[i])||"d".equals(kode[i]))
{  jenis[i]="Dada";
   harga[i]=2500;   }
else    if ("P".equals(kode[i])||"p".equals(kode[i]))
        {  jenis[i]="Paha";
           harga[i]=1500;   }
        else
             {  jenis[i]="Sayap";
                 harga[i]=1000;   }

System.out.print(" Banyak Potong          = ");
banyak[i] = input.nextInt();   }

System.out.println();

System.out.println("           GEROBAK FRIED CHICKEN ");
System.out.println("-------------------------------------------");
System.out.println(" No.   Jenis     Harga    Banyak    Jumlah ");
System.out.println("       Potong    Satuan   Beli      Harga ");
System.out.println("-------------------------------------------");


for(i=0; i<=j ; i++)
{
    jmlhrg[i]=harga[i]*banyak[i];
 System.out.print("\n"+(i+1)+"\t"+jenis[i]+"\t"+harga[i]+"\t"+banyak[i]+"\t"+jmlhrg[i]);
}
   
System.out.println();
System.out.println("-------------------------------------------");

jmlbyr=jmlbyr+jmlhrg[i];
System.out.println("                    Jumlah bayar =Rp. "+jmlbyr);

pajak=jmlbyr*0.1;
System.out.println("                    Pajak 10%    =Rp. "+pajak);

total=jmlbyr+pajak;
System.out.println("                    Total Bayar  =Rp. "+total);
 }
}

DATABASE

MEMBUAT DATABASE DELHPI MENGGUNAKAN PARADOX 7 SAMPAI MENU UTAMA

Untuk lebih lengkapnya download di sini ,,,,
http://www.4shared.com/document/rayKAej9/database_delphi_-_MENU.html

Terima kasih telah mendownload, semoga bermanfaat................ ^_^

TUGAS DELPHI 7

TUGAS DELPHI  

Tabel_Buku

Tabel_Transaksi

TAMPILAN FORM

 

Ketentuan:

1.Tanggal dan Jam Otomatis muncul

2.No Transaksi otomatis saat diklik Tambah

3.Input Nama Penyewa

4.Input Kode lalu enter tampil judul,pengarang,penerbit,muncul harga  2000 untuk semua transaksi

5.Lama sewa dienter lalu tampil Jumlah Sewa

   Jumlah sewa=Lama*2000

6.Jumlah Buku dienter  lalu tampil Total

   Total=Jumlah buku*Jumlah Sewa

7.Buat Prosedur Tampil,Kosong,Aktif,NonAktif

8.Selesai Tampil Pesan

 

Jika pilih yes KELUAR dari program

JIka pilih No Muncul  Pesan

9.Saat disimpan tampil pesan “Data Sudah Tersimpan”

 

 SELAMAT MENGERJAKAN

Materi Delphi 2

DELPHI                                                    LAB F PAGI    RGT / USMAN

Ketentuan :

1.      Isi List1 dengan kode HP sbb : N73, N95

2.      Di pilih List1 maka Merk dan harga muncul

Kode HP	Merk	Harga
N73	Nokia N73	1.200.000
N95	Nokia N95	1.500.000

3.      Di pilih salah satu Aksesoris, Biaya Aksesoris muncul

a. Casing Bahan

b. Casing Mika

4.      Tombol Hitung digunakan untuk menghitung Biaya Aksesoris tambahn jika dibeli

a. Pelindung LCD = 25.000

b. Memori 2GB = 75.000

5.      Jumlah Beli di Input dan di enter maka Total Bayar muncul

 Total Bayar = (Jumlah beli * harga) + Biaya Aksesoris + Biaya Aksesoris Tambahan

6.      Di input uang bayar maka uang kembali muncul otomatis

     Uang Kembali = uang Bayar – Total bayar

7.      Tombol Input digunakan untuk membersihkan layar.

8.      Tombol keluar untuk mengakhiri form yang running.

Listing Program  !!

//digunakan untuk variabel, membaca saluruh listing

a,b:integer ;

 implementation

{$R *.dfm}

procedure TForm1.lb_kodeClick(Sender: TObject);

begin

if lb_kode.ItemIndex=0 then

 begin

  emerk.Text:='Nokia 73';

  eharga.Text:='800000';

 end

else

  if lb_kode.ItemIndex=1 then

    begin

      emerk.Text:='Nokia 95';

      eharga.Text:='950000';

    end

end;

procedure TForm1.r_bahanClick(Sender: TObject);

begin

if r_bahan.Checked =true then

begin

eaksesoris.Text:='30000';

end

end;

procedure TForm1.r_mikaClick(Sender: TObject);

begin

if r_mika.Checked=true then

begin

eaksesoris.Text:='20000';

end

end;

procedure TForm1.c_pelindungClick(Sender: TObject);

begin

if c_pelindung.Checked=true then

a:=75000

else

a:=0

end;

procedure TForm1.c_memoriClick(Sender: TObject);

begin

if c_memori.Checked = true then

b:=25000

else

b:=0

end;

procedure TForm1.b_hitungClick(Sender: TObject);

begin

etambahan.Text:=inttostr(a+b);

ejumbel.SetFocus;

end;

procedure TForm1.ejumbelKeyPress(Sender: TObject; var Key: Char);

begin

if key =#13 then

 begin etobar.Text:=currtostr(strtocurr(ejumbel.Text)*strtocurr(eharga.text)+strtocurr(etambahan.text)+strtocurr(eaksesoris.text));

 eubay.SetFocus;

 end

end;

procedure TForm1.eubayChange(Sender: TObject);

begin

eukem.Text:=floattostr(strtofloat(eubay.Text) - strtofloat(etobar.Text));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

lb_kode.ClearSelection;

emerk.Clear;

eharga.Clear;

r_bahan.Checked:=false;

r_mika.Checked:=false;

c_pelindung.Checked:=false;

c_memori.Checked:=false;

eaksesoris.Clear;

etambahan.Text:='0';

etambahan.Enabled:=false;

ejumbel.Clear;

etobar.Text:='0';

eubay.Text:='0' ;

eukem.Text:='0' ;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

lb_kode.ClearSelection;

r_bahan.Checked:=false;

r_mika.Checked:=false;

c_pelindung.Checked:=false;

c_memori.Checked:=false;

emerk.Clear;

eharga.Clear;

eaksesoris.Clear;

etambahan.Clear;

ejumbel.Clear;

etobar.Text :='0';

eubay.Text:='0';

eukem.Text:='0';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if(application.MessageBox('Anda akan keluar dari program ini..','Peringatan',MB_YESNOCANCEL + MB_ICONQUESTION )=idyes)then

close;

end;