Java Program : 1 Program 3 Class

Masih menggunakan If Else, Kita membuat program dengan menggunankan 3 Class yaitu lmahasiswa, lmatkul dan lkampus.

TAMPILAN INPUT

TAMPILAN OUTPUT

Listing Program

Class pertama adalah Class "lmahasiswa"

package tugas2;
import java.util.Scanner;

public class lmahasiswa {
    public int nim;
    public String nama;
    Scanner input = new Scanner(System.in);
 
    public void setInputMahasiswa()
    { System.out.print("Masukkan Nim   : ");
      nim = input.nextInt();  }
 
     public void getNim()
    {  if (nim==12115155)
      { nama="Bayu Sugara"; }
     else  if (nim==11111209)
      { nama="Bayu Sugara"; }
      else
      { nama=" "; }}
}


Lanjut buat Class kedua dengan nama "lmatkul"

package tugas2;

import java.util.Scanner;

public class lmatkul {

    public String matkul,nmdosen,grade,ket;

    public int kdmatkul, sks,nilai;

    Scanner input = new Scanner(System.in);

    

    public void setInputMatkul()

    { System.out.print("\nMasukkan Kode Mata Kuliah : ");

      kdmatkul = input.nextInt(); 

      System.out.print("Masukkan Nilai : ");

      nilai = input.nextInt();}

    

    public void getMatkul()

    { if(kdmatkul==525)

        { matkul="Pemrograman Berbasis Objek I";

          nmdosen="Dony Oscar, S.Kom";

          sks=4;}

      else if(kdmatkul==635)

        { matkul="Pemodelan Sistem Berbasis Objek";

          nmdosen="Agustina Merdekawati, S.Kom"; 

          sks=4;}

      else if(kdmatkul==803)

        { matkul="Jaringan Komputer";

          nmdosen="Martini, S.Kom"; 

          sks=4;}

      else 

        { matkul=" ";

          nmdosen=" "; 

          sks=0;}}

    

      public void getNilai()

    { if (nilai >= 80 )

        { grade="A";

          ket="Lulus";}

      else if (nilai < 80 && nilai >=70 )

        { grade="B";

           ket="Lulus";}

      else if (nilai < 70 && nilai >=60 )

        { grade="C";

           ket="Lulus";}

      else if (nilai < 60 && nilai >=50 )

        { grade="D";

            ket="Tidak Lulus";}

      else { grade="E"; 

               ket="Tidak Lulus";}}

}

Dan yang terakhir, kita buat Class dengan nama "lkampus"

package tugas2;

public class lkampus {

    public static void main(String[] args) {

        lkampus lkmps = new lkampus();

        lmahasiswa lmhs = new lmahasiswa();

        lmatkul lmt = new lmatkul();

        

        lmhs.setInputMahasiswa();

        lmt.setInputMatkul();

        lmhs.getNim();

        lmt.getNilai();

        lmt.getMatkul();

        System.out.println("\n\n------------------------------------------------");

        System.out.println("NIM              : "+lmhs.nim);

        System.out.println("Nama Mahasiswa   : "+lmhs.nama);

        System.out.println("------------------------------------------------");

        System.out.println("Kode Mata Kuliah : "+lmt.kdmatkul);

        System.out.println("Mata Kuliah      : "+lmt.matkul);

        System.out.println("SKS              : "+lmt.sks);

        System.out.println("Nama Dosen       : "+lmt.nmdosen);

        System.out.println("------------------------------------------------");

        System.out.println("Nilai Mahasiswa  : "+lmt.nilai);

        System.out.println("Grade            : "+lmt.grade);

        System.out.println("Keterangan       : "+lmt.ket);       

    }  

}

Untuk Running, Tekan Shift+F6 pada Class "lkampus"....

SELAMAT MENCOBA...!!!!

Java Program : 1 Program 4 Class

Sekarang menggunakan dengan 4 Class? Apaan? 4? E.M.P.A.T? Yakin?

Liat dulu nih....

TAMPILAN INPUT

TAMPILAN OUTPUT

LISTING PROGRAM

Buat Class dengan nama "mahasiswa"

package tugas2;
import java.util.Scanner;

public class mahasiswa {
    public int nim;
    public String nama;
    Scanner input = new Scanner(System.in);
 
    public void setInputMhs()
    { System.out.print("Masukkan Nim  : ");
      nim = input.nextInt(); }
 
    public void getNim()
    { if (nim==12115155)
      { nama="Bayu Sugara"; }
     else if (nim==12114602)
      { nama="Aris Joko Purnomo"; }
     else if (nim==12112769)
      { nama="Hendra Septian"; }
     else if (nim==12117616)
      { nama="Barkah Nugraha"; }
     else if (nim==12115444)
      { nama="Mochammad Idrus Asna"; }
     else if (nim==12117196)
      { nama="Muhammad Umar Fauzi"; }
     else
      { nama=" "; }}
}

Kedua!! Buat Class dengan nama "matkul"

package tugas2;

import java.util.Scanner;

public class matkul {

    public String matkul,nmdosen;

    public int kdmatkul, sks;

    Scanner input = new Scanner(System.in);

    

    public void setInputMatkul()

    { System.out.print("Masukkan Kode Mata Kuliah : ");

      kdmatkul = input.nextInt(); }

    

    public void getMatkul()

    { if(kdmatkul==525)

        { matkul="Pemrograman Berbasis Objek I";

          nmdosen="Dony Oscar, S.Kom";

          sks=4;}

      else if(kdmatkul==635)

        { matkul="Pemodelan Sistem Berbasis Objek";

          nmdosen="Agustina Merdekawati, S.Kom"; 

          sks=4;}

      else if(kdmatkul==803)

        { matkul="Jaringan Komputer";

          nmdosen="Martini, S.Kom"; 

          sks=4;}

      else 

        { matkul=" ";

          nmdosen=" "; 

          sks=0;}}

}

Ketiga!!! Buat Class dengan nama "nilai"

package tugas2;

import java.util.Scanner;

public class nilai {

    public int nilai;

    public String grade,ket;

    Scanner input = new Scanner(System.in);

    

    public void setInputNilai()

    { System.out.print("Masukkan Nilai : ");

      nilai = input.nextInt(); }

    

    public void getNilai()

    { if (nilai >= 80 )

        { grade="A";

          ket="Lulus";}

      else if (nilai < 80 && nilai >=70 )

        { grade="B";

           ket="Lulus";}

      else if (nilai < 70 && nilai >=60 )

        { grade="C";

           ket="Lulus";}

      else if (nilai < 60 && nilai >=50 )

        { grade="D";

            ket="Tidak Lulus";}

      else { grade="E"; 

               ket="Tidak Lulus";} }   

}

Dan akhirnya kita buat dengan nama Class "kampus"

package tugas2;

public class kampus {

    public static void main(String[] args) {

        kampus kmps = new kampus();

        mahasiswa mhs = new mahasiswa();

        matkul mt = new matkul();

        nilai nl = new nilai();

       

        mhs.setInputMhs();

        mt.setInputMatkul();

        nl.setInputNilai();

        mhs.getNim();

        mt.getMatkul();

        nl.getNilai();

        System.out.println("\n\n------------------------------------------------");

        System.out.println("NIM              : "+mhs.nim);

        System.out.println("Nama Mahasiswa   : "+mhs.nama);

        System.out.println("------------------------------------------------");

        System.out.println("Kode Mata Kuliah : "+mt.kdmatkul);

        System.out.println("Mata Kuliah      : "+mt.matkul);

        System.out.println("SKS              : "+mt.sks);

        System.out.println("Nama Dosen       : "+mt.nmdosen);

        System.out.println("------------------------------------------------");

        System.out.println("Nilai Mahasiswa  : "+nl.nilai);

        System.out.println("Grade            : "+nl.grade);

        System.out.println("Keterangan       : "+nl.ket);       

    }

}

SELESAI! RUNNING? Tekan Shift+F6 pada Class "kampus"....

SELAMAT MENCOBA...!!!

Java Program : If Else

Oke..!! Sekarang kita liat contoh kedua penggunaan If Else pada Java Netbeans

Liat dulu ketentuannya :
NIP       Nama                      GajiPokok
001        XXX                     2000000
002       YYY                      1000000
003        ZZZ                       1500000

Golongan  Gaji
     1          700000
     2          500000
     3          300000

Pendidikan  Gaji
     S1          200000
     D3          150000
    SMA       100000

Dengan TOTAL = Gajipokok + Gajigolongan + Gajipendidikan

TAMPILAN INPUT

TAMPILAN OUTPUT

Sekarang.... Kita buat Class dengan nama "Tunjangan"

package tugas;

import java.util.Scanner;

public class Tunjangan {

    public String nama,pendd;

    public int nip,gol,pend;

    public double gapok,gagol,gapend,ttl=0;

    Scanner input = new Scanner(System.in);

    

    public void setInputData()

    { System.out.print("Masukan NIP Karyawan  : ");

      nip = input.nextInt();

      System.out.print("Masukkan Golongan     : ");

      gol = input.nextInt();

      System.out.print("Masukkan Pendidikan   : ");

      pend = input.nextInt(); }

    

   public void getNip()

   { if (nip==001)

      { nama="XXX";

        gapok=2000000; }

   else if (nip==002)

      { nama="YYY";

        gapok=1000000; }

   else if (nip==003)

      { nama="ZZZ";

        gapok=1500000; }

   else { nama="No Name";

        gapok=0;} }

    

    public void getGol()

    { if (gol==1)

       { gagol=700000;}

      else if (gol==2)

       { gagol=500000;}

      else if (gol==3)

       { gagol=300000;}

      else { gagol=0;} }

    

    public void getPendi()

    { if(pend==1)

       {  pendd="S1"; 

       gapend=200000; }

    else if(pend==2)

       {  pendd="D3"; 

       gapend=150000; }

    else if(pend==3)

       { pendd="SMA"; 

       gapend=100000; } }

    

    public double getTotal()

    { ttl= gagol+gapok+gapend;

     return ttl; }

}

Selanjutnyaa kita buat class dengan nama "TunjanganAksi"

package tugas;

public class TunjanganAksi {

    public static void main(String[] args)

    { Tunjangan ifclass = new Tunjangan();

    

    ifclass.setInputData();

    ifclass.getNip();

    ifclass.getGol();

    ifclass.getPendi();

    ifclass.getTotal();

    System.out.println("\n\n\tPT. BSI JAYA");

    System.out.println("    Jl. Jatiwaringin Raya 18");

    System.out.println("==================================");

    System.out.println("Nama Karyawan   : "+ifclass.nama);

    System.out.println("Golongan        : "+ifclass.gol);

    System.out.println("Pendidikan      : "+ifclass.pendd);

    System.out.println("==================================");

    System.out.println("TOTAL TUNJANGAN : "+ifclass.ttl);

    }

}

Untuk running , tekan F6 (Shift+F6 ) di Class  "TunjanganAksi"

SELAMAT MENCOBA....!!!!!

Java Program : Latihan If Else Class ( Beli Kue )

Disini kita akan membahas tentang Latihan If Else Class pada Java Program, dengan ketentuan sebagai berikut :

Kode Kue        Nama Kue        Harga

B001                 Bolu                 10000

C001                 Cake                20000

T001                  Tart                 15000

Yang dimana Total = Harga * Jumlah Beli

Tampilan Input

Tampilan Output

Sekarang kita membuat Listing dengan 2 Class :

Pertama, Kita beri nama Class LatIfClass

package latifclass;

import java.util.Scanner;

public class LatIfClass {

    public String nama, nmkue, kdkue;

    public int jumbel, harga, totbay, kode;

    Scanner input = new Scanner (System.in);

    

    

    public void setInputData() {

       System.out.print("Masukkan Nama Pembeli                 : ");

       nama = input.nextLine();

       System.out.print("Masukkan Kode[1/B001][2/C001][3/T001] : ");

       kode = input.nextInt();

       System.out.print("Masukkan Jumlah Beli                  : ");

       jumbel = input.nextInt();

    }     

    public int getNama(){

        if (kode==1)

        { kdkue="B001";

          nmkue="Bolu";

          harga=10000;

        }else

        if (kode==2)

        { kdkue="C001";

          nmkue="Cake";

          harga=20000;

        }

        else

        { kdkue="T001";

          nmkue="Tart";

          harga=15000;

        }

        return kode;      

        }

    

    public int getTotbay()

    { totbay=harga*jumbel;

    return totbay;

    }

    }

Kedua, Kita membuat Class dengan nama LatIfAksi

package latifclass;

public class LatIfAksi {

    public static void main (String[] args){

    LatIfClass ifclass = new LatIfClass();

    

    ifclass.setInputData();

    ifclass.getNama();

    ifclass.getTotbay();

    System.out.println("\n\n  PENJUALAN KUE PADA TOKO KUE LEZAT");

    System.out.println("Jl. Sagu No. 27A Kebagusan, Jakarta Selatan");

    System.out.println("-------------------------------------------");

    System.out.println("Pembeli     : "+ifclass.nama);

    System.out.println("Kode Kue    : "+ifclass.kdkue);

    System.out.println("Nama Kue    : "+ifclass.nmkue);

    System.out.println("Harga       : Rp. "+ifclass.harga);

    System.out.println("Jumlah Beli : "+ifclass.jumbel);

    System.out.println("-------------------------------------------");

    System.out.println("TOTAL       : Rp. "+ifclass.totbay);

    System.out.println("-------------------------------------------");

    

    }

}

Untuk running program dengan F6 ( Shift+F6 ), SELAMAT MENCOBA...!!!

Java Program : Latihan Scanner

Disini, kita akan membahas tentang Latihan Scanner dengan menghitung Nilai Rata - Rata dari Nilai Absen, Nilai Tugas, Nilai UTS dan Nilai UAS yang kita input.

Sebelumnya kita lihat:

Tampilan Input

Tampilan Output

Rata rata diproses dengan perhitungan :  (10% x Nilai Absen ) + (20% x Nilai Tugas) + (30% x Nilai UTS) + (40% x Nilai UAS)

Listing Program

Pertama kita membuat class dengan nama "Lat_Scanner"

package lat_scanner;
import java.util.Scanner;

public class Lat_Scanner {
    public static void main(String[] args) {
     
        Scanner input = new Scanner (System.in);
        //deklarasi objek baru
        String nama;
        int absen, uts, uas, tugas, nim;
        double jml;
     
        System.out.print("Masukkan Nama Anda : ");
        nama = input.nextLine();
        System.out.print("Masukkan NIM Anda : ");
        nim = input.nextInt();
        System.out.print("Masukkan Nilai Absen : ");
        absen = input.nextInt();
        System.out.print("Masukkan Nilai Tugas : ");
        tugas = input.nextInt();
        System.out.print("Masukkan Nilai UTS : ");
        uts = input.nextInt();
        System.out.print("Masukkan Nilai UAS : ");
        uas = input.nextInt();
     
        jml=(0.1*absen+0.2*tugas+0.3*uts+0.4*uas);
             
        System.out.println("\n\nPROGRAM NILAI MAHASISWA");
        System.out.println("-----------------------");
        System.out.println("NIM            : "+nim);
        System.out.println("Nama Mahasiswa : "+nama);
        System.out.println("Nilai Absen    : "+absen);
        System.out.println("Nilai Tugas    : "+tugas);
        System.out.println("Nilai UTS      : "+uts);
        System.out.println("Nilai UAS      : "+uas);
        System.out.println("-----------------------");
        System.out.println("Rata - Rata    : "+jml);
    }
}


Kedua, membuat class dengan nama "Class_Scanner"

package lat_scanner;
import java.util.Scanner;

public class Class_Scanner {
    public String nama;
    public double jml;
    public int nim, absen, tugas, uts, uas;
 
    Scanner input = new Scanner (System.in);
    public String getnama(){
        return nama;
    }
     public int nim(){
            return (nim);
        }
   
    public void inputScanner(){
        System.out.print("Masukkan Nama Anda : ");
        nama = input.nextLine();
        System.out.print("Masukkan NIM Anda : ");
        nim = input.nextInt();
        System.out.print("Masukkan Nilai Absen : ");
        absen = input.nextInt();
        System.out.print("Masukkan Nilai Tugas : ");
        tugas = input.nextInt();
        System.out.print("Masukkan Nilai UTS : ");
        uts = input.nextInt();
        System.out.print("Masukkan Nilai UAS : ");
        uas = input.nextInt();
    }
    public int getabsen(){
            return (absen);
        }
        public int gettugas(){
            return (tugas);
        }
        public int getuts(){
            return (uts);
        }
        public int getuas(){
            return (uas);
        }
        public double rata(){
            return ((10/100*absen)+(20/100*tugas)+(30/100*uts)+(40/100*uas));
        }      
}


Dan yang terakhir kita membuat class dengan nama "Aksi_Scanner"
package lat_scanner;
import java.util.Scanner;

public class Aksi_Scanner {
    public static void main(String args[])
         
    {
        Class_Scanner scan = new Class_Scanner();
     
        scan.inputScanner();
        System.out.println("\n\nPROGRAM NILAI MAHASISWA");
        System.out.println("-------------------------");
        System.out.println("NIM            : "+scan.nim());
        System.out.println("Nama Mahasiswa : "+scan.getnama());
        System.out.println("Nilai Absen    : "+scan.getabsen());
        System.out.println("Nilai Tugas    : "+scan.gettugas());
        System.out.println("Nilai UTS      : "+scan.getuts());
        System.out.println("Nilai UAS      : "+scan.getuas());
        System.out.println("-------------------------");
        System.out.println("Rata - Rata    : "+scan.rata());
    }
}

NB : Untuk Running kita tekan F6 ( Shift+F6 ) di Class Aksi_Scanner

SELAMAT MENCOBA...!!!

Array, Procedure and Function

Bagaimana dengan Listing pemrograman delphi menggunakan Procedure, Function dan Array?

Design Form seperti ini :

Listing Program diatas dapat dilihat dibawah ini.. Cekidooot!!!

unit Uarray;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm4 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    menu: TListBox;
    nomer: TEdit;
    makanan: TEdit;
    harga: TEdit;
    jumlah: TEdit;
    total: TEdit;
    bclose: TBitBtn;
    new: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure menuClick(Sender: TObject);
    procedure newClick(Sender: TObject);
    procedure jumlahKeyPress(Sender: TObject; var Key: Char);
    procedure nomerKeyPress(Sender: TObject; var Key: Char);
    procedure bcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure bersih;
    function ttl(h,j:real):real;
    { Public declarations }
  end;

var
  Form4: TForm4;
  menumakanan:array[1..10] of string;

implementation

{$R *.dfm}

Procedure TForm4.bersih;
begin
nomer.Clear;
makanan.Clear;
harga.Clear;
jumlah.Clear;
total.Clear;
end;

function TForm4.ttl(h,j:real):real;
begin
ttl:=h*j;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
menumakanan[1]:='Nasi Goreng';
menumakanan[2]:='Bakso';
menumakanan[3]:='Spagheti';
menumakanan[4]:='Mie Ayam';
menumakanan[5]:='Sate Ayam';
menumakanan[6]:='Sate Kambing';
menumakanan[7]:='Steak';
bersih;
end;

procedure TForm4.FormActivate(Sender: TObject);
var i :integer;
begin
 nomer.SetFocus;
 makanan.Enabled:=false;
 harga.Enabled:=false;
  for i:= 1 to 10 do
  menu.Items.Append(menumakanan[i]);
end;

procedure TForm4.menuClick(Sender: TObject);
begin
makanan.Text:=menu.Items[menu.Itemindex];
case menu.ItemIndex of
0: harga.text:= '7000';
1: harga.text:= '5000';
2: harga.Text:= '12000';
3: harga.Text:= '4500';
4: harga.Text:= '7500';
5: harga.Text:= '9000';
6: harga.text:= '25000';
end;
jumlah.SetFocus;
end;

procedure TForm4.newClick(Sender: TObject);
begin
bersih;
nomer.SetFocus;
end;

procedure TForm4.jumlahKeyPress(Sender: TObject; var Key: Char);
var h,j,totalhrg:real;
begin
  if key= #13 then
  begin
   total.Font.Size:=12;
   total.Font.Color:=clblue;
   h := strtofloat(harga.text);
   j := strtofloat(jumlah.Text);
   totalhrg:=ttl(h,j);
   total.Text :=floattostr(totalhrg);
  end;
end;

procedure TForm4.nomerKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
menu.SetFocus;
end;

procedure TForm4.bcloseClick(Sender: TObject);
begin
if application.MessageBox('Anda Yakin akan keluar','Informasi',mb_yesno)=idyes then
close;
end;

end.

Perulangan Delphi

Nah sekarang kita akan membahas tentang Perulangan pada Delhpi.!!

Sebelumnya, Silahkan Design Form dibawah ini terlebih dahulu...

 

Nah sekarang listingnya bisa dilihat dibawah ini:

unit Ulang2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    item: TEdit;
    bok: TButton;
    Label2: TLabel;
    Label3: TLabel;
    tanggal: TEdit;
    faktur: TEdit;
    lbarang: TListBox;
    GroupBox2: TGroupBox;
    lharga: TListBox;
    total: TEdit;
    Label4: TLabel;
    bclose: TBitBtn;
    blagi: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure blagiClick(Sender: TObject);
    procedure bokClick(Sender: TObject);
    procedure bcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat := 'mm/dd/yyyy';
tanggal.Text := 'Hari ini ' + DateToStr(Date);
end;

procedure TForm2.blagiClick(Sender: TObject);
begin
item.Text :='';
faktur.Text :='';
lbarang.Clear;
lharga.Clear;
total.Text :='';
end;

procedure TForm2.bokClick(Sender: TObject);
var
inputnama : string;
inputharga : string;
i : integer;
j : integer;
harga : real;
begin
  harga := 0;
  j := 0;
  j:= strtoint(item.Text);
  if j <= 0 then
      begin
      showmessage('Data Tidak boleh lebih kecil dari Nol');
      exit;
  end
  else
  begin
  lbarang.Clear;
  lharga.Clear;
    for i := 1 to j do
        begin
        inputnama := inputbox('Input','Ketikan Nama Barang','');
        inputharga := inputbox('Input','Ketikan Harga Barang','');
        lbarang.Items.Add(inputnama) ;
        lharga.Items.Add(inputharga);
        harga := harga + strtofloat(inputharga);
  end;
end;
total.Text := floattostr(harga);
end;

procedure TForm2.bcloseClick(Sender: TObject);
begin
close;
end;

end.

Percabangan Delphi TOKO SERABI

Tugas minggu ini, Mahasiswa mengerjakan Percabangan Toko Serabi

Perhatikan ya Ketentuan dalam Pembuatan Listing Tersebut :


 2. Input Jumlah Beli, Jika Jumlah beli lebih dari 10 maka Diskon 1%
     dari Harga dikali dengan jumlah Beli, Selain itu tidak mendapat Diskon

 3. Es Juice dengan Harga 7000 dan Es Teh Manis dengan harga 2500
 4. Makan Ditempat Gratis dan Delivery Bayar 5000
 5. Klik Hitung Maka Akan tampil Total bayar= Keseluruhan Biaya
 6. Input uang Bayar makan tampil Uang Kembali
     Jika Uang Bayar kurang dari Total maka tampil pesan,
      " Uang Bayar Anda Kurang" .. Uang Kembali tidak muncul
    dan Kursor kembali ke Uang Bayar.
    Uang Kembali = Uang Bayar - Total Bayar
 7. Klik Bersih untuk membersihkan Seluruh Text
 8. Klik Exit untuk keluar dari program

Dan ini pembahasan atas listing Program Percabangan Diatas:

unit tokoserabi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    jenis: TComboBox;
    nama: TEdit;
    isi: TListBox;
    Label5: TLabel;
    harga: TEdit;
    Label6: TLabel;
    jumbel: TEdit;
    Label7: TLabel;
    diskon: TEdit;
    GroupBox1: TGroupBox;
    jus: TCheckBox;
    teh: TCheckBox;
    mjus: TEdit;
    mteh: TEdit;
    GroupBox2: TGroupBox;
    rditempat: TRadioButton;
    rdelivery: TRadioButton;
    tempat: TEdit;
    bhitung: TButton;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    totbay: TEdit;
    ubay: TEdit;
    ukem: TEdit;
    blagi: TButton;
    bexit: TButton;
    procedure FormCreate(Sender: TObject);
    procedure jenisClick(Sender: TObject);
    procedure rditempatClick(Sender: TObject);
    procedure rdeliveryClick(Sender: TObject);
    procedure jusClick(Sender: TObject);
    procedure tehClick(Sender: TObject);
    procedure isiClick(Sender: TObject);
    procedure jumbelKeyPress(Sender: TObject; var Key: Char);
    procedure bhitungClick(Sender: TObject);
    procedure ubayKeyPress(Sender: TObject; var Key: Char);
    procedure bexitClick(Sender: TObject);
    procedure blagiClick(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
jenis.Items.Add('A');
jenis.Items.Add('B');
jenis.Items.Add('C');
end;

procedure TForm3.jenisClick(Sender: TObject);
begin
If jenis.Text ='A' then
   begin
   nama.Text:='Serabi Manis';
   isi.Clear;
   isi.Items.Add('Coklat+Keju+Susu');
   isi.Items.Add('Pandan+Keju+Pisang');
   isi.Items.Add('Coklat+Keju+Pandan');
   end
Else
If jenis.Text ='B' then
   begin
   nama.Text:='Serabi Gurih';
   isi.Clear;
   isi.Items.Add('Keju+Kacang+Ayam');
   isi.Items.Add('Keju+Corned+Telor');
   end
Else
   begin
   nama.Text:='Serabi Pedas';
   isi.Clear;
   isi.Items.Add('Keju+Ayam+Sosis');
   isi.Items.Add('Keju+Oncom+Telor');
   end
end;

procedure TForm3.rditempatClick(Sender: TObject);
begin
tempat.Text:='0';
end;

procedure TForm3.rdeliveryClick(Sender: TObject);
begin
tempat.Text :='5000';
end;

procedure TForm3.jusClick(Sender: TObject);
begin
if jus.Checked =true then
 mjus.Text:='7000'
else
 mjus.Text :='0';
end;

procedure TForm3.tehClick(Sender: TObject);
begin
if teh.Checked =true then
 mteh.Text:='2500'
else
 mteh.Text :='0';end;

procedure TForm3.isiClick(Sender: TObject);
begin
if jenis.Text ='A' then
   begin
       if isi.ItemIndex =0 then
       harga.Text :='5000'
       else if isi.ItemIndex=1 then
       harga.Text :='5500'
       else if isi.ItemIndex=2 then
       harga.Text :='6000'
   end
Else if jenis.Text ='B' then
   begin
       if isi.ItemIndex =0 then
       harga.Text :='6500'
       else if isi.ItemIndex=1 then
       harga.Text :='7000'
   end
Else
    begin
       if isi.ItemIndex =0 then
       harga.Text :='7000'
       else if isi.ItemIndex=1 then
       harga.Text :='5500'
   end
  end;

procedure TForm3.jumbelKeyPress(Sender: TObject; var Key: Char);
var a,b,c:real;
    d:integer;
begin
If key=#13 then
   begin
   a:=strtofloat(harga.Text);
   b:=strtofloat(jumbel.Text);
   c:=(a*b)*0.01;
   if b>10 then
      begin
      diskon.Text :=floattostr(c);
      end
   Else
      begin
      diskon.Text :='0';
      end;
   end;
end;
procedure TForm3.bhitungClick(Sender: TObject);
var a,b,c,d,e,f,h:real;
begin
   a:=strtofloat(harga.Text);
   b:=strtofloat(mjus.Text);
   c:=strtofloat(mteh.Text);
   d:=strtofloat(tempat.Text);
   e:=strtofloat(jumbel.Text);
   f:=strtofloat(diskon.Text);
   h:=(a*e)+b+c+d-f;
   totbay.Text :=floattostr(h);
   ubay.SetFocus;
   end;

procedure TForm3.ubayKeyPress(Sender: TObject; var Key: Char);
var a,b,c:real;
  begin
  If key=#13 then
  begin
   a:=strtofloat(ubay.Text);
   b:=strtofloat(totbay.Text);
   c:=a-b;
   if a < b then
     begin
       messagedlg('Uang Bayar Anda Kurang! Rp. '+ floattostr(b-a),
       mtconfirmation,[MBOK],0);
       ubay.Text:='';
       ubay.SetFocus;
     end
   else
     begin
     ukem.Text :=floattostr(c);
     messagedlg('Terima Kasih ',mtconfirmation,[MBOK],0);
    end;
    end;
  end;


procedure TForm3.bexitClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin Akan Keluar ?','Informasi',MB_YESNO)=IDYES) then
close;
end;

procedure TForm3.blagiClick(Sender: TObject);
begin
jenis.Text :='';
nama.Text :='';
isi.Clear;
harga.Text :='';
jumbel.Text :='';
diskon.Text :='';
mjus.Text :='';
mteh.Text :='';
jus.Checked:= False;
teh.Checked:= False;
rditempat.Checked :=False;
rdelivery.Checked :=False;
tempat.Text :='';
totbay.Text :='';
ubay.Text :='';
ukem.Text :='';
end;

end.

Percabangan Delphi ( Rumah Sakit Bakti Insan )

Bagaimana dengan Percabangan Rumah Sakit ini?

Liatlah ketentuannya :
1. Gunakan perintah IF, untuk mencari Nama dokter, Spesialis dan Biaya ketika Kode
Dokter dipilih (klik)

Kode Dokter   Nama Dokter        Spesialis       Biaya Periksa
DRD01          dr Oka            Penyakit Dalam    2000000
DRJ02           dr Yondra        Gangguan Jiwa     1500000
DRM03         dr Wulan          Mata                   1000000

2. Gunakan Perintah IF , untuk mencari nama obat dan harga obat ketika Kode Obat
diinput lalu diEnter.
    Kode Obat      Nama Obat        Harga Obat
     B001              Paracetamol        Rp. 10.000
     B002              Paratusin             Rp. 12.000
     B003              Amoxilin             Rp. 15.000

3. Total bayar didapat dari harga Obat + harga Dokter.
4. Uang bayar diinput, ketika dienter maka Uang Kembali keluar.
5. Tombol bersih untuk membersihkan seluruh objek.
6. Tombol Keluar untuk keluar dari form.


Terus Bagaimana Dengan Listingnya? Perhatikan !!

unit UBaktiInsan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    edokter: TEdit;
    cdokter: TComboBox;
    espesialis: TEdit;
    ebiaya: TEdit;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    eobat: TEdit;
    eharga: TEdit;
    btotal: TButton;
    etotal: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    eubay: TEdit;
    eukem: TEdit;
    bkeluar: TButton;
    bbersih: TButton;
    cobat: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure cdokterClick(Sender: TObject);
    procedure cobatKeyPress(Sender: TObject; var Key: Char);
    procedure btotalClick(Sender: TObject);
    procedure eubayKeyPress(Sender: TObject; var Key: Char);
    procedure bkeluarClick(Sender: TObject);
    procedure bbersihClick(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
cdokter.Items.Add('DRD01');
cdokter.Items.Add('DRJ02');
cdokter.Items.Add('DRM03');
end;

procedure TForm2.cdokterClick(Sender: TObject);
begin
If cdokter.Text ='DRD01' then
   begin
   edokter.Text :='dr. Oka';
   espesialis.Text :='Penyakit Dalam';
   ebiaya.Text:='2000000'
   end
Else
If cdokter.Text ='DRJ02' then
   begin
   edokter.Text :='dr. Yondra';
   espesialis.Text :='Gangguan Jiwa';
   ebiaya.Text:='1500000'
   end
Else
   begin                                                
   edokter.Text :='dr. Wulan';
   espesialis.Text :='Mata';
   ebiaya.Text:='1000000'
   end
end;

procedure TForm2.cobatKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then
If cobat.Text ='B001' then
   begin
   eobat.Text :='Paracetamol';
   eharga.Text :='10000'
   end
Else
If cobat.Text ='B002' then
   begin
   eobat.Text :='Paratusin';
   eharga.Text :='12000'
   end
Else
If cobat.Text ='B003' then
    begin
    eobat.Text :='Amoxilin';
    eharga.Text :='15000'
    end
Else
    begin
    showmessage('KODE OBAT TIDAK ADA !! ');
    cobat.Text :='';
    end
end;

procedure TForm2.btotalClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(eharga.Text);
b:=strtofloat(ebiaya.Text);
c:=a+b;
etotal.Text:=floattostr(c);
eubay.SetFocus;
  end;

procedure TForm2.eubayKeyPress(Sender: TObject; var Key: Char);
 var a,b,c:real;
  begin
  If key=#13 then
  begin
   a:=strtofloat(eubay.Text);
   b:=strtofloat(etotal.Text);
   c:=a-b;
   if a < b then
     begin
       messagedlg('Uang Bayar Anda Kurang! Rp. '+ floattostr(b-a),mtconfirmation,[MBOK],0);
       eubay.Text:='';
       eubay.SetFocus;
     end
   else
     begin
     eukem.Text :=floattostr(c);
     messagedlg('Terima Kasih ',mtconfirmation,[MBOK],0);
    end;
    end;
  end;

procedure TForm2.bkeluarClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin Akan Keluar ?','Informasi',MB_YESNO)=IDYES) then
close;
end;

procedure TForm2.bbersihClick(Sender: TObject);
begin
cdokter.Text:='';
edokter.Text:='';
espesialis.Text:='';
eobat.Text:='';
ebiaya.Text:='';
cobat.Text:='';
eharga.Text:='';
etotal.Text:='';
eubay.Text:='';
eukem.Text:='';
end;

end.

Percabangan Delphi

 

Ketentuan Dari soal ini adalah :

1. Nama Pegawai diinput sendiri.

2.
Isi dari Combo Jabatan adalah ’Direktur’ , ’Manager’ , ’Karyawan’.

3.  Ketentuan Gaji pokok diambil dari Jabatan sebagai berikut : 

             Jabatan        Gaji Pokok
                 Direktur       5000000
                 Manager      2000000
                 Karyawan    1000000

4. Tunjangan Status diperoleh dari jenis status :

          Jika Status Karyawan ‘Tetap’ maka Tunjangan 30% dari Gaji Pokok
              Jika Status Karyawan ‘Honorer’ maka Tunjangan 10% dari Gaji Pokok

5. Button Hitung untuk menghitung nilai Gaji Bersih = Gaji Pokok + Tunjangan

6. Button Isi Data Lagi maka seluruh edit text kosong


Dan berikut Listingnya :
unit UNusaIndah;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    enama: TEdit;
    ejabatan: TComboBox;
    epokok: TEdit;
    GroupBox1: TGroupBox;
    rtetap: TRadioButton;
    rhonorer: TRadioButton;
    Label4: TLabel;
    etunjangan: TEdit;
    btotal: TButton;
    Label5: TLabel;
    ebersih: TEdit;
    blagi: TButton;
    bclose: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ejabatanClick(Sender: TObject);
    procedure rtetapClick(Sender: TObject);
    procedure rhonorerClick(Sender: TObject);
    procedure btotalClick(Sender: TObject);
    procedure blagiClick(Sender: TObject);
    procedure bcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ejabatan.Items.Add('Direktur');
ejabatan.Items.Add('Manager');
ejabatan.Items.Add('Karyawan');
end;

procedure TForm1.ejabatanClick(Sender: TObject);
begin
if ejabatan.Text ='Direktur' then
   epokok.Text :='5000000'
else if ejabatan.Text ='Manager' then
   epokok.Text :='2000000'
else
   epokok.Text :='1000000';
end;

procedure TForm1.rtetapClick(Sender: TObject);
var a,hasil:real;
begin
if rtetap.Checked = true then
   a:=strtofloat(epokok.Text);
   hasil:=a*0.3;
   etunjangan.Text :=floattostr(hasil)
end;

procedure TForm1.rhonorerClick(Sender: TObject);
var a,hasil:real;
begin
if rhonorer.Checked = true then
   a:=strtofloat(epokok.Text);
   hasil:=a*0.1;
   etunjangan.Text :=floattostr(hasil)
end;

procedure TForm1.btotalClick(Sender: TObject);
var a,b,c:real;
begin
  a:=strtofloat(epokok.Text);
  b:=strtofloat(etunjangan.Text);
  c:=a+b;
  ebersih.Text :=floattostr(c);
end;

procedure TForm1.blagiClick(Sender: TObject);
begin
ejabatan.Text :='';
enama.Text :='';
epokok.Text :='';
ebersih.Text :='';
etunjangan.Text :='';
rtetap.Checked :=false;
rhonorer.Checked :=false;
end;

procedure TForm1.bcloseClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin Akan Keluar ?','Informasi',MB_YESNO)=IDYES) then
close;
end;

end.

Menghitung Luas dan Keliling Bangun Datar dengan VB

Silahkan Download aplikasi ini dengan klik link dibawah ini :
http://www.mediafire.com/?rpd30oxphr1ybi3

Kalkulator Sederhana dengan VB

Untuk mendownload aplikasi kalkulator sederhana dengan VB ini silahkan download link dibawah ini :
http://www.mediafire.com/?3oe3adda8u81u6u

Sequintal Searching

#include "stdio.h"
#include "conio.h"
#include "iostream.h"

void main()
{
 clrscr();
 int data[8] = {8,10,6,-2,11,7,1,100};
 int cari;
 int flag=0;
 cout<<"\n";
 cout<<"\tSequential Searching \n";
 cout<<"\t-------------------- \n\n";
 printf("  Masukkan data yang ingin dicari = ");scanf("%d",&cari);
 for(int i=0;i<8;i++)
  {
  if(data[i]==cari) flag=1;
  }
  if (flag==1) printf("\n\n  Data Ada \n");
  else printf("\n\n  Data Tidak Ada\n");
 getch();
 }


Apabila ada kesalahan dalam diatas , Silahkan download yang ini :
http://www.mediafire.com/?435y8fnand22fdf

Binary Searching

#include "stdio.h"
#include "conio.h"
#include "iostream.h"
#include "stdlib.h"

void main()
{
 clrscr();
 int data[9]= {3,9,11,12,15,17,23,31,35};
 int l,r,m;
 int n=9;
 int cari=17;
 cout<<"\n";
 cout<<"\tBinary Searching \n";
 cout<<"\t---------------- \n";
 l=0;
 r=n-1;
 int ktm=0;
 while(l<=r && ktm==0)
 { m=(l+r)/2;
 printf("\n\tData Tengah %d \n",m);
 if(data[m] == cari) ktm=1;
 else if(cari < data[m])
  {
   printf("\n\tCari Dikiri \n");
   r=m-1;
  }
   else
  { l=m+1;
   printf("\n\tCari Dikanan \n");
   }
  }
  if (ktm=1) printf("\n\n  Data yang dicari sudah Ditemukan\n");
  else printf("\n\n  Data yang dicari Tidak Ditemukan\n");
  getch();
}


Apabila ada kesalahan running , silahkan download disini :
http://www.mediafire.com/?jrsoknz1wx2wo4h

Pohon Biner

#include "iostream.h"
#include "stdio.h"
#include "conio.h"
#include "stdlib.h"
struct tree_node
   {
    tree_node* left;
    tree_node* right;
    int data;
   };

tree_node* root;

 bool isEmpty()
  {return root==NULL;}

 void insert(int d)
 {
  tree_node* t = new tree_node;
  tree_node* parent;
  t->data = d;
  t->left = NULL;
  t->right = NULL;
  parent = NULL;
   if(isEmpty())root = t;
   else
   {
    tree_node* curr;
    curr = root;

while(curr!=NULL)
 {
  parent = curr;
  if(t->data > curr->data) curr = curr->right;
  else curr = curr->left;
 }
 if(t->data < parent->data)
 parent->left = t;
 else
 parent->right = t;
  }
 }

void inorder(tree_node* p)
 {
  if(p!=NULL)
  {
   if(p->left)
   inorder(p->left);
   cout<<" "<data<<" ";
   if(p->right)
   inorder(p->right);
  }
  else
  return;
 }
void print_inorder()
 { inorder(root); }

void preorder(tree_node* p)
 {
  if(p!=NULL)
 {
  if(p->left)
  preorder(p->left);
  cout<<" "<data<<" ";
  if(p->right)
  preorder(p->right);
 }
  else
  return;
 }
void print_preorder()
{ preorder(root); }

void postorder(tree_node* p)
 {
  if(p!=NULL)
  {
   if(p->left)
   postorder(p->left);
   cout<<" "<data<<" ";
   if(p->right)
   postorder(p->right);
  }
  else
  return;
 }
void print_postorder()
{ postorder(root); }

int main()
{
  root=NULL;
  int ch,tmp;
  while(1)
  {
 system("cls");
 cout<<"\n Menu Utama Operasi Pohon Biner";
 cout<<" -----------------------------";
 cout<<" 1. Insert/Tambah Data";
 cout<<" 2. Kunjungan In-Order";
 cout<<" 3. Kunjungan Pre-Order";
 cout<<" 4. Kunjungan Post-Order";
cout<<" 5. Exit";
 cout<<" Pilihan Anda : ";cin>>ch;

 switch(ch)
 {
 case 1 :
 cout<<"  Masukan Data : ";cin>>tmp;
 insert(tmp);
 break;
 case 2 :

cout<<"  Kunjungan In-Order";
 cout<<"  ------------------";
 print_inorder();getch();
 break;
 case 3 :
 cout<<"  Kunjungan Pre-Order";
 cout<<"  -------------------";
 print_preorder();getch();
 break;
 case 4 :
 cout<<"  Kunjungan Post-Order";
 cout<<"  --------------------";
 print_postorder();getch();
 break;
 case 5 : return 0;
 break;
 default:
 cout<<"  Pilihan yang Anda Masukkan salah!";
 getch();
 break;
  }
 }
}






Apabila ada kesalah dalam running , silahkan downolad yang ini:
http://www.mediafire.com/?7iy971zw1hsec55   atau   http://www.mediafire.com/?94ok2ts2l8m64ro

Maaf Link ini dicopas saja yaa buka di Tab baru :)