Selasa, 01 November 2011
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);
}
}
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);
}
}
Jumat, 14 Oktober 2011
Jumat, 10 Juni 2011
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................ ^_^
Untuk lebih lengkapnya download di sini ,,,,
http://www.4shared.com/document/rayKAej9/database_delphi_-_MENU.html
Terima kasih telah mendownload, semoga bermanfaat................ ^_^
Selasa, 31 Mei 2011
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
Senin, 18 April 2011
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;
Langganan:
Postingan (Atom)