Welcome to Abdul Malik Ikhsan's Blog

Membuat file *.jar

Posted in Tutorial Java by samsonasik on October 27, 2007

File jar adalah file hasil compress dari file-file *.class di java yang telah kita buat, untuk mengeksekusi kita tinggal double klik aja, seperti file exe, berikut contohnya :
Misalkan kita punya 3 kelas, yaitu kelas Manusia,kelas Programmer yang merupakan turunan manusia, dan kelas Samsonasik si wujud manusia itu .
________________________
class Manusia{
 String nama;
 void setNama(String n){
  this.nama=n;
 }
 String getNama(){
  return nama;
 }
 String makan(){
  return “nyam…nyam…”;
 }
}
_________________________
class Programmer extends Manusia{
 String coding(){
  return “lieur….”;
 }
}
____________________
import javax.swing.*;
class Samsonasik{
 public static void main(String args[]){
  JFrame.setDefaultLookAndFeelDecorated(true);
  JFrame f=new JFrame(“Latihan *.jar “);

  JLabel l=new JLabel();
  l.setBounds(20,20,400,20);
  Programmer p=new Programmer();
  p.setNama(“Abdul Malik Ikhsan”);
  l.setText(p.getNama()+” sedang “+p.coding()+” dan makan, “+p.makan());
  
  f.getContentPane().add(l);
  
  f.getContentPane().setLayout(null);
  f.setBounds(250,250,450,70);
  f.setResizable(false);
  f.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  f.setVisible(true);
 }
}

//compile file di atas …
—————————————-
Nah, cara membuat file *.jar-nya, kita siapkan dulu file MANIFEST.MF, kalau kita tidak punya, ya membuat sendiri file MANIFEST.MF, berdasarkan program di atas, berarti main classnya class Samsonasik

Manifest-Version: 1.0
Created-By: 1.5.0_01 (Sun Microsystems Inc.)
Main-Class: Samsonasik

____________________________
Berikut cara mengkompress menjadi file *.jar
buka command prompt :
————————————-
F:\java\wordpress>jar cvfm Samsonasik.jar MANIFEST.MF *.class
added manifest
adding: Manusia.class(in = 464) (out= 286)(deflated 38%)
adding: Programmer.class(in = 273) (out= 213)(deflated 21%)
adding: Samsonasik.class(in = 1252) (out= 792)(deflated 36%)
__________
Selamat mencoba 🙂

38 comments

Cara Extends Kelas di Delphi

Posted in Tutorial Delphi by samsonasik on October 3, 2007

Saya contohkan kita punya kelas manusia, dan kelas mahasiswa yang merupakan keturunan manusia :
Cara membuat kelas manusia, klik file – > new -> Unit, simpan dengan nama umanusia.pas

Code:
unit umanusia;
interface
type manusia = class
private
makan,minum,nama,alamat:String;
public
constructor manusia(x:String;y:String);
procedure setnama(n:String);
procedure setalamat(n:String);
function getnama:String;
function getalamat:String;
function getnyam2:String;
end;
implementation
constructor manusia.manusia(x:String;y:String);
begin
makan:=x;
minum:=y;
end;
procedure manusia.setnama(n:String);
begin
nama:=n;
end;
procedure manusia.setalamat(n:String);
begin
alamat:=n;
end;
function manusia.getnama:String;
begin
result:=nama;
end;
function manusia.getalamat:String;
begin
result:=alamat;
end;
function manusia.getnyam2:String;
begin
result:=’makan ‘+makan+’ dan minum ‘+minum;
end;
end.


———————–
Sekarang, kita buat kelas mahasiswa yang merupakan turunan dari manusia : –> umahasiswa

Code:
unit umahasiswa;
interface
uses umanusia;
type mahasiswa = class(manusia)
public
function belajar:String;
end;
implementation
function mahasiswa.belajar:String;
begin
result:=’harus rajin banget lho ‘;
end;end.


————
Now, kita bisa panggil kelas turunan tersebut di form, misalkan form1, unit1.pas

Code:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,umahasiswa,StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Edit2:TEdit;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
o:mahasiswa;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
o:=mahasiswa.manusia(‘sate’,’es teh’);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
o.setnama(edit1.Text);
o.setalamat(edit2.text);
label1.caption:=o.getnama+’ beralamat di ‘+o.getalamat+’ sedang ‘+o.getnyam2+’ dan habis itu belajar ‘+o.belajar;
end;

end.

2 comments

Penggunaan class pada Delphi

Posted in Tutorial Delphi by samsonasik on October 2, 2007

Penggunaan class dalam delphi, hampir mirip dengan java, php, ataupun yang lainnya, hanya saja, constructor,procedure, maupun function semuanya dideklarasikan dulu, baru diisi, Kita coba ya … 🙂
Kita buka aplikasi borland delphinya :
Kita buat satu unit baru, sebagai kelas, klik file, new – > Unit -> simpan dengan nama umanusia.pas , sekarang, kita tuliskan kode programmnya :

Code:
unit umanusia;interface
type manusia = class
private
makan,minum,nama,alamat:String;
public
constructor manusia(ma:String;mi:String);
procedure setnama(n:String);
procedure setalamat(n:String);
function getnama:String;
function getalamat:String;
function getnyam:String;
end;
implementation
constructor manusia.manusia(ma:String;mi:String);
begin
makan:=ma;
minum:=mi;
end;
procedure manusia.setnama(n:String);
begin
nama:=n;
end;
procedure manusia.setalamat(n:String);
begin
alamat:=n;
end;
function manusia.getnama:String;
begin
result:=nama;
end;
function manusia.getalamat:String;
begin
result:=alamat;
end;
function manusia.getnyam:String;
begin
result:=makan+’ dan minum ‘+minum;
end;
end.

class.JPG
Kita sekarang bisa panggil di aplikasinya , misalkan ada form tampilkanmanusia, kita simpan dengan nama unit1, berikut kode programmnya

Code:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,umanusia,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
o:manusia;
implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
//konstruktor
o:=manusia.manusia(‘bakso’,’es teh’);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
o.setnama(edit1.Text);
label1.caption:=o.getnama+’ sedang makan ‘+o.getnyam;
end;

end.

——————–

tampilkanclass.jpg

2 comments

Asp konek ke SQL Server

Posted in Tutorial ASP by samsonasik on October 2, 2007

Saya menggunakan Baby webserver sebagai webservernya :
Misalkan kita punya database bernama ikhsan, userid ke sql server = sa, dan password ” (kosong), terus kita punya table buku (kode_buku, nama_buku)
berikut source code file configurasinya :

Code:
<%
‘conf.asp
set conn=Server.CreateObject(“ADODB.Connection”)
cstring=”driver={SQL Server};server=”&localhost&”;uid=sa;pwd=;database=”&ikhsan
conn.Open cstringset rs=Server.CreateObject(“ADODB.recordset”)
%>

——————
Tampil.asp
——————
<!–#include file=”conf.asp”–>
<%
sql=”SELECT * from ikhsan.dbo.buku”
rs.Open sql, conn
%>
<table border=1>
<tr>
<td>No.</td>
<td>Kode Buku</td>
<td>Nama Buku</td>
</tr>
<%
Dim no
no=0
while NOT rs.EOF
no = no + 1
%>
<tr>
<td><%=no%></td>
<td><% Response.Write(rs(“kode_buku”)) %></td>
<td><% Response.Write(rs(“nama_buku”)) %></td>
</tr>
<%
rs.MoveNext
Wend
%>

1 comment

memanggil Function

Posted in Tutorial VB by samsonasik on October 1, 2007

Kita ambil contoh, aplikasi menghitung luas persegi panjang dengan function bentukan misalnya luaspp, contoh sebagai berikut :
vb.jpg
Berikut source code-nya :
‘function hitung luas persegi panjang
Public Function luaspp(panjang As Integer, lebar As Integer) As Integer
luaspp = panjang * lebar
End Function

‘procedure button diklik
Private Sub Command1_Click()
If (Text1.Text = “”) Then
MsgBox “panjang harus diisi”
Text1.SetFocus
ElseIf (Text2.Text = “”) Then
MsgBox “lebar harus diisi”
Text2.SetFocus
Else

Dim panjang As Integer
Dim lebar As Integer
panjang = Int(Text1.Text)
lebar = Int(Text2.Text)
If (panjang < lebar) Then
MsgBox “panjang tidak boleh kurang dari lebar”
Text2.SetFocus
Else
‘panggil function
Label3.Caption = “Hasil Perhitungan = ” & luaspp(panjang, lebar)
End If
End If
End Sub

‘procedure text ditulisi
Private Sub Text1_keypress(keyascii As Integer)
‘tanda underscore untuk tampilkan seterusnya, tapi terusinnya
‘dibawah
If Not (keyascii >= Asc(“0”) And _
keyascii <= Asc(“9”)) Then
If keyascii <> vbKeyBack Then
keyascii = 0
End If
End If
End Sub

‘procedure text ditulisi
Private Sub Text2_keypress(keyascii As Integer)
‘tanda underscore untuk tampilkan seterusnya, tapi terusinnya
‘dibawah
If Not (keyascii >= Asc(“0”) And _
keyascii <= Asc(“9”)) Then
If keyascii <> vbKeyBack Then
keyascii = 0
End If
End If
End Sub

4 comments