Program Java (PEWARISAN)

kudena.blogspot.com,Woyooo arek-arek kampus yang kepupus karena tresno iku telah putus :D, siki lagi jaman sing jenenge mumet nang java dengan tema PEWARISAN , nah iki aku west gawe program tentang perhitungan gajih..
west rak usah basa-basi meneh,gek ndang diketik men ngerti opo kui pewarisan :

Java Classs

package tugas4;

import javax.swing.JOptionPane;

public class UTAMA {

    public static void main(String[] args) {

int pil=3;

switch (pil) {

     case 1:

Manajer mj=new Manajer();

mj.input();

mj.output();

break;

     case 2:

Karyawantetap kt=new Karyawantetap();

kt.input();

kt.output();

break;

     case 3:

KaryawanKontrak kk= new KaryawanKontrak();

kk.input();

kk.output();

break;

     default:

        System.out.println("SELESAI"); break;

          }

    }

   

}

Java Classs

package tugas4;

import javax.swing.JOptionPane;

public class Manajer extends poultryshop implements inputouput{

public double gaji,tunjangan,total;

public int golongan;

public void Manajer(){

   

}

public double getGaji(){

    return gaji;

}

public double getTunjangan(){

   

    return tunjangan;

}

public String getNama(){

    return nama;

}

public String getAlamat(){

    return alamat;

}

public void input(){

    nama=JOptionPane.showInputDialog(null,"Masukan Nama        :");

    String a=JOptionPane.showInputDialog(null,"Masukan Gaji        :");

    gaji=Double.parseDouble(a);

    String b=JOptionPane.showInputDialog(null,"Masukan Tunjangan   :");

    tunjangan=Double.parseDouble(b);

total=(gaji+tunjangan)*15/100;

}

public void output(){

   System.out.println("Laman Khusus Manajer\n"

           + "Nama        : "+nama+""

           + "\nGaji        : "+gaji+""

           + "\ntunjangan   : "+tunjangan+""

           + "\nTotal       : "+total+""

           + "\nData Diatas merupakan daftar gajih anda dengan pajak 15%");

}

}

Java Classs

package tugas4;

import javax.swing.JOptionPane;

public class Karyawantetap extends poultryshop implements inputouput {

   

public double gaji,tunjangan,total;

public int golongan;

public void Manajer(){

   

}

public double getGaji(){

    return gaji;

}

public double getTunjangan(){

    return tunjangan;

}

public String getNama(){

    return nama;

}

public String getAlamat(){

    return alamat;

}

public void input(){

    nama=JOptionPane.showInputDialog(null,"Masukan Nama        :");

    String a=JOptionPane.showInputDialog(null,"Masukan Gaji        :");

    gaji=Double.parseDouble(a);

    String b=JOptionPane.showInputDialog(null,"Masukan Tunjangan   :");

    tunjangan=Double.parseDouble(b);

total=(gaji+tunjangan)*10/100;

}

public void output(){

   System.out.println("Laman Khusus Karyawan Tetap\n"

           + "Nama        : "+nama+""

           + "\nGaji        : "+gaji+""

           + "\ntunjangan   : "+tunjangan+""

           + "\nTotal       : "+total+""

           + "\nData Diatas merupakan daftar gajih anda dengan pajak 10%");

}

}

Java Classs

package tugas4;

import javax.swing.JOptionPane;

public class KaryawanKontrak extends poultryshop implements inputouput {

    

public double gaji,tunjangan,total;

public int golongan;

public void Manajer(){

   

}

public double getGaji(){

    return gaji;

}

public double getTunjangan(){

    return tunjangan;

}

public String getNama(){

    return nama;

}

public String getAlamat(){

    return alamat;

}

public void input(){

    nama=JOptionPane.showInputDialog(null,"Masukan Nama        :");

    String a=JOptionPane.showInputDialog(null,"Masukan Gaji        :");

    gaji=Double.parseDouble(a);

    String b=JOptionPane.showInputDialog(null,"Masukan Tunjangan   :");

    tunjangan=Double.parseDouble(b);

total=(gaji+tunjangan)*5/100;

}

public void output(){

   System.out.println("Laman Khusus Karyawan kontrak\n"

           + "Nama        : "+nama+""

           + "\nGaji        : "+gaji+""

           + "\ntunjangan   : "+tunjangan+""

           + "\nTotal       : "+total+""

           + "\nData Diatas merupakan daftar gajih anda dengan pajak 5%");

}

  

}

Java Interface

package tugas4;

public interface inputouput {

public void input();

public void output();

}

Java Main Class

package tugas4;

import javax.swing.JOptionPane;

public class UTAMA {

    public static void main(String[] args) {

int pil=3;

switch (pil) {

     case 1:

Manajer mj=new Manajer();

mj.input();

mj.output();

break;

     case 2:

Karyawantetap kt=new Karyawantetap();

kt.input();

kt.output();

break;

     case 3:

KaryawanKontrak kk= new KaryawanKontrak();

kk.input();

kk.output();

break;

     default:

        System.out.println("SELESAI"); break;

          }

    }

   

}

Sistem Manajemen Basis Data (Pertemuan 1)

Kudena.blogspot.com-8/9/2015, Dalam Materi kali ini akan membahas pengertian Basis data, Basis ada terdiri dari basis dan data yang merupakan sekumpulan data yang saling terhubung,disimpan secara bersama-sama didalam sebuah media tanpa mengatap 1 sama lain atau tidak perlu kerangkapan data (controlled redudancy) , disimpan dengan cara tertentu,mudah digunakan,dapat digunakan oleh satu atau lebih program aplikasi.
adapun pengertian menurut pakar :

1. James Martin (1975)basis data adalah sekumpulan data yang tersimpan dan dihubungkan secara bersama-sama tanpa redudancy yang membehayakan 
3. Raymond McLeod & George Schell (2001)
5. keseluruhan data yang disimpan dalam sistem komputer yang menjadi sd organisasi

Adapun Elemen Sistem Basis Data

• Basis Dada
• Software 
• perancangan 
• pengelolaan 
• dBase III++, Foxbase, Foxpro, Visual Dbase, Visual Foxpro, Delphi, Ms Access, MySQL 
• Hardware
• Brainware
• pemakai 
• spesialis informasi 
• perancang 
• pengelola
• SoftWare
• OS
• MS DOS, PC DOS, Windows, Unix, Linux
• language software
• DBMS
• application software
• HardWare
• Input
• Proses
• Output
• Memory

Berikut Merupakan Gambar Hirarkhi Data

• Bit
• sistem biner  0 & 1
• dasar komunikasi atr manusia (bhs manusia) & mesin (bhs mesin) 
• Byte
• bag terkecil yg dialamatkan dlm memori
• sekumpulan bit yg scr konvensional tda kombinasi 8 bit yg menyatakan 1 karakter dlm memori 
• 1 byte = 1 karakter
• Field / atribut / data item
• unit terkecil yg disebut data
• sekumpulan byte yg mpy makna
• Jenis
• Fixed length field
• memiliki ukuran yang tetap => hrs disediakan ukr terbesar
• Variable length field
• memiliki ukr berbeda => hemat, pemrogram rumit
• Data agregate
• sekumpulan field / atribut / data item dgn ciri ttt & diberi nama
• Contoh:
• Tempat-TanggalLahir
• Tempat lahir => Char
• Tanggal lahir => Date
• Record
• sekumpulan field / atribut / data item yg saling berhub thd obyek ttt
• Jenis
• Fixed length record
• semua field dlm record memiliki ukr yg tetap 
• Contoh: linked list dgn array
• Variable length record
• field-field dlm record dpt memiliki ukr berbeda 
• metode penandaan: end of record marker, indikator pjg, & tabel posisi record 
• File
• sekumpulan record sejenis scr relasi yg tersimpan dlm memory sekunder 
• Basis data
• sekumpulan dr bermacam2 tipe record yg memiliki hub antar record & rinci data thd obyek ttt
• Database Systems: 
• BD
• Pemakai
• Perancang & pengelola
• Teknik perancangan & pengelolaan
• Komputer

Demikian materi pertemuan pertama Sistem Manajemen Basis data kali ini,selanjutnya akan bersambung pada tanggal 15/9/2015.

Laman Facebook DiPC Eror ?

Kudena.blogspot.com-17/05/2015, Hallo agan-aganku yang saya banggakan karna agan-agan sudah mau mampir kesini.kali ini akan membahas tentang LAMAN FACEBOOK EROR yang akhir- akhir ini jadi tranding topik diKampus saya dan sayapun juga merasakan tragedi ERORNYA LAMAN FACEBOOK..
saya kira hal ini terjadi karena Koneksi yang lambat,namun setelah saya pakai laptop orang lain ternyata bisa..
saya kira juga masalahnya ada di pengaturan waktu yang tidak pass,karena jejaring sosial sendiri kalau waktu diPCnya berbeda dengan waktu internasional akan membuat laman jejaring sosial tidak bisa dibuka (katanya sih :D),tapi nyatanya waktu diPC saya pas dengan waktu internasional ..
ada juga yang mengatakan bahwa ini terjadi karena viruss,yah ini mungkin saja bisa terjadi dilaptop kalian,tapi tidak dilaptop saya karena dilaptop saya sudah tersedia 5 anti virus yang joss..
lalu kenapa ????
sayapun bingung,mengapa ini terjadi pada pacar saya (laptop)?? Namun dengan tekat dan kekuatan sinar rembulan,akhirnya saya bisa menyelesaikannya..
solusinya mudah :

1. Pertama hapus semua histori 
2. matikan koneksi
3. Restart laptop anda
4. kemudian nyalakan kembali koneksi
5. dan taraaa,selesai ..

Mudah bukan ? yah begitulah tips kita kali ini,jika masih eror mungkin cara terbaik instal ulang :D ,

Program Antrian Rumah Sakit (pascal stack)

Kudena.blogspot.com-Rabu(2/4) , Hallo sahabat Kudena,kali ini kita akan mengeshare Program Antrian Rumah sakit dengan Menggunakan Sistem Stack , Mungkin ini rumit namun jika terlaten saya yakin anda bisa , langsung saja copas :

program antrian_rs;
uses crt;
const max=10;
type antrian=record
    nomor:array[1..max] of byte;
    depan,belakang:0..max;
    end;
var rs:antrian;
    nomer:0..25;
    i,pil:byte;
   
function penuh(x:antrian):boolean;
begin if x.belakang=max then penuh:=true else penuh:=false;end;
   
function kosong(x:antrian):boolean;
begin if x.belakang=0 then kosong:=true else kosong:=false;end;

procedure masuk_antrian(var x:antrian);
begin
    Writeln('selamat datang di antrian rs sehat selalu');
    inc(nomer);
    inc(x.belakang);x.nomor[x.belakang]:=nomer;
    Writeln('anda mendapat nomor antrian ',nomer);
    Writeln('saat ini sedang mengantri ',x.belakang,' orang');
    Writeln('mohon bersabar');
end;

procedure layanan(var x:antrian);
begin
    Writeln('yang mendapat layanan berikutnya adalah nomor antrian ',x.nomor[x.depan]);
    {gese}
    for i:=x.depan to x.belakang do x.nomor[i]:=x.nomor[i+1];
    dec(x.belakang);
    Writeln('antrian tersisisa ',x.belakang,' orang');
end;

procedure cetak_antrian(var x:antrian);
begin
    Writeln('berikut antrian yang ada saat ini ');writeln;
    Writeln('posisis   nomor antrian');
    Writeln('-----------------------');
    for i:=x.depan to x.belakang do
        Writeln(i:4,'   ',' nomer ',x.nomor[i]:3);
    Writeln('-----------------------');
    Writeln('jumlah antrian : ',x.belakang,' orang' );
end;

procedure sisip_antrian(var x:antrian);
var pos:byte;ada:boolean;
label ulang;
begin
    Writeln('selamat datang di antrian');
    inc(nomer);
    Writeln('anda mendapat nomor antrian ',nomer);
    ulang:
    Write('akan disispkan di antrian nomor berapa ? ');Readln(pos);
    if (pos<x.depan) or (pos>x.belakang+1) then begin Writeln('posisi tidak valid');goto ulang; end else
        begin
            if pos=x.belakang+1 then
            begin
                inc(x.belakang); x.nomor[x.belakang]:=nomer;
            end
            else
            begin
                inc(x.belakang);
                {geser}
                for i:=x.belakang downto pos+1 do x.nomor[i]:=x.nomor[i-1];
                x.nomor[pos]:=nomer;
            end;
        end;
    Writeln('antrian saat ini ',x.belakang,' orang');
end;

procedure keluar_antrian(var x:antrian);
var nk,pos:byte; ada:boolean; ya:char;
begin
    Writeln('keluar dari antrian');
    Write('masukan nomor yang akan keluar :');Readln(nk);
    ada:=false;
    for i:=x.depan to x.belakang do if x.nomor[i]=nk then begin ada:=true;pos:=i;end;
   
    if ada then
    begin
        Write('yakin akan keluar dari antrian ? ');Readln(ya);
        if (ya='Y') or (ya='y') then
        begin
            Writeln('nomor antrian ',nk,' keluar dari antrian');
            for i:=pos to x.belakang do x.nomor[i]:=x.nomor[i+1];
            dec(x.belakang);
        end else
        Writeln('artian nomor ',nk,' batal keluar dar antrian');
    end else
    Writeln('nomor antrian tidak ditemukan');
    Writeln('antrian saat ini ada ',x.belakang,' orang');
end;

begin
rs.depan:=1;rs.belakang:=0;nomer:=0;
repeat
    clrscr;
    Writeln('pelayanan antrian di rs');writeln;
    Writeln('1. masuk antrian');
    Writeln('2. mendapat layanan');
    Writeln('3. cetak antrian');
    Writeln('4. pasien emergency');
    Writeln('5. keluar antrian');
    Write('pilih layanan => ');Readln(pil);
    case pil of
    1: if nomer>=25 then Writeln('nomor antrian sudah habis, silahkan langsung ke icu') else
        if penuh(rs) then Writeln('mohon maaf ruangan sudah penuh, tunggu sebentar lagi') else
        masuk_antrian(rs);
    2: if kosong(rs) then Writeln('tidak ada pasien yang harus dilayani') else layanan(rs);
    3: if kosong(rs) then Writeln('antrian sedang kosong') else cetak_antrian(rs);
    4: if nomer>=25 then Writeln('nomor antrian habis, silahkan langsung ke icu') else
        if penuh(rs) then Writeln(' mohon tunggu sebentar') else sisip_antrian(rs);
    5: if kosong(rs) then Writeln('antrian sudah kosong') else keluar_antrian(rs);
    0: Writeln('terima kasih');
    else Writeln('anda salah memilih menu');
    end;
    readln;
    until pil=0;
end.

Berikut Keluarannya :