**package pada java**

Assalamualikum..
salam buat semua sahabat blogger...
Nah..buat postingan kali ini,aq bakal share beberapa program (plus coding tentunya..) yang berhubungan dengan packaging.
pada tau gak apa itu package?
gak tau ya???gak tau ya???
hehe..yang gak tau nich aq kasih tau #sok tau --". buat yang udah tau aq tetep mau ngasih tau :p
package atau paket adalah cara Java untuk membuat suatu pustaka class, maksudnya class-class yang ada dalam satu project akan dikumpulkan dalam satu folder.
naaah...sekarang udah tau khan apa itu package? #pinteeeeer...
yaudah..kalo udah tau, sekarang langsung aja yuuk liat contoh programnya.
yang pertama, program yang memiliki satu interface dengan nama MtkDasar, satu class yang mengimplementasi interface MtkDasar, dan satu main class yang dapat menghasilkan return value object.
untuk kasus program yang kayak gini, codingnya bisa didownload disini

nih hasil runningnya :

program yang kedua, hampir sama dengan program yang pertama, hanya saja pada program ini tidak menghasilkan return value object dan pada interfacenya ditambah method kali dan bagi. naaah...coding untuk program yang ini bisa didownload disini

hasil runningnya :

program yang ketiga, kita buat 2 project di netbean. project pertama berisi 2 class, project kedua berisi class utama yang mengimplementasikan project pertama.

untuk program yang ketiga ini codingnya bisa didownload disini

ini hasil runningnya :

hm...bingungkan gimana cara include project kedua ke project pertama. ni aku kasih bocorannya :

1. klik kanan pada library project kedua

2. pilih project yang ingin di include

3. dan akhirnya project pertama telah masuk dan bisa digunakan di project kedua #prok..prok..prok..

Nah, untuk yang terakhir saya akan share cara untuk mengcompile dan merunning program ketiga melalui command prompt (cmd). langkah-langkahnya :

1. setting path pada cmd, caranya ketikkan "set path=%path%;<alamat bin pada laptop atau pc anda>;

2. lalu letakkan project yang ingin di compile pada suatu folder. disini, aku save project yang sudah aku buat di directory E dengan foldel projek. cara compile dan runningnya liat gambar dibawah ini :

Taraaaaaaaaaaa.....setelah dirunning keluar dech hasil projectnya.

sekian aja ya sharing-sharing program dari aku.

semoga bermanfaat ^_^

wassalamualikum wr.wb..

**buat yang baca wajib tinggalkan jejak :) **

DON'T BE SILENT READER

»»  READMORE...

CODING MENGHITUNG PERSAMAAN KUADRAT DENGAN PASCAL

Program PersamaanKuadrat;

uses wincrt;

var

a,b,c : integer;

d,x1,x2 : real;

begin

write('Masukkan nilai a : '); readln(a);

write('Masukkan nilai b : '); readln(b);

write('Masukkan nilai c : '); readln(c);

d:=b*b-(4*a*c);

x1:=((-1*b)+sqrt(d))/(2*a);

x2:=((-1*b)-sqrt(d))/(2*a);

writeln('x1 = ' ,x1:1:0);

writeln('x2 = ' ,x2:1:0);

end.

»»  READMORE...

CODING MENGHITUNG TOTAL HAMBATAN (SERI & PARALEL) DALAM PASCAL

program total_hambatan;

uses wincrt;

var
p,r1,r2,r3: integer;
rt : real;

begin
     write('masukkan nilai r1: ');readln(r1);
     write('masukkan nilai r2: ');readln(r2);
     write('masukkan nilai r3: ');readln(r3);
     write('masukkan pilihan anda: ');readln(p);  
begin
     if p=1 then
     rt:=r1+r2+r3  
else
    if p=2 then
    rt:=(r1*r2*r3)/(r1*r2+r1*r3+r2*r3)
 
else
    write('maaf....pilihan salah,pilih 1 atau 2');
    writeln('jadi hambatannya adalah : ',rt:1:1);
 
end
end.

»»  READMORE...

Script Program Matriks Delphi (penjumlahan & pengurangan)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    GroupBox1: TGroupBox;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    GroupBox2: TGroupBox;
    StringGrid3: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var mx1:array[0..2,0..2] of integer;
var mx2:array[0..2,0..2] of integer;
var mx3:array[0..2,0..2] of integer;
var m1a,m1b:integer;
var m2a,m2b:integer;
var m3a,m3b:integer;
begin

begin
for m1a:=0 to StringGrid1.RowCount-1 do
begin
for m1b:=0 to StringGrid1.ColCount-1 do
begin
mx1[m1a,m1b]:=StrToInt(StringGrid1.Cells[m1a,m1b]);
end
end
end;

begin
for m2a:=0 to StringGrid2.RowCount-1 do
begin
for m2b:=0 to StringGrid2.ColCount-1 do
begin
mx2[m2a,m2b]:=StrToInt(StringGrid2.Cells[m2a,m2b]);
end
end
end;

begin
for m3a:=0 to StringGrid1.RowCount-1 do
begin
for m3b:=0 to StringGrid1.ColCount-1 do
begin
mx3[m3a,m3b]:=mx1[m3a,m3b]+mx2[m3a,m3b];
StringGrid3.Cells[m3a,m3b]:=IntToStr(mx3[m3a,m3b]);
end
end
end;
end;

procedure TForm1.Button2Click(Sender: TObject);

var mx1:array[0..2,0..2] of integer;
var mx2:array[0..2,0..2] of integer;
var mx3:array[0..2,0..2] of integer;
var m1a,m1b:integer;
var m2a,m2b:integer;
var m3a,m3b:integer;
begin

begin
for m1a:=0 to StringGrid1.RowCount-1 do
begin
for m1b:=0 to StringGrid1.ColCount-1 do
begin
mx1[m1a,m1b]:=StrToInt(StringGrid1.Cells[m1a,m1b]);
end
end
end;

begin
for m2a:=0 to StringGrid2.RowCount-1 do
begin
for m2b:=0 to StringGrid2.ColCount-1 do
begin
mx2[m2a,m2b]:=StrToInt(StringGrid2.Cells[m2a,m2b]);
end
end
end;

begin
for m3a:=0 to StringGrid1.RowCount-1 do
begin
for m3b:=0 to StringGrid1.ColCount-1 do
begin
mx3[m3a,m3b]:=mx1[m3a,m3b]-mx2[m3a,m3b];
StringGrid3.Cells[m3a,m3b]:=IntToStr(mx3[m3a,m3b]);
end
end
end;
end;

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

end.

»»  READMORE...

Program Luas Segitiga Delphi

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,t,l:real;
begin
a:=strtofloat(edit1.Text);
t:=strtofloat(edit2.Text);
l:=a*t*0.5;
edit3.Text:=floattostr(l);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close
end;

end.

»»  READMORE...