jump to navigation

Membuat file *.jar Oktober 27, 2007

Posted by samsonasik in Tutorial Java.
10 comments

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 :)

Cara Extends Kelas di Delphi Oktober 3, 2007

Posted by samsonasik in Tutorial Delphi.
add a comment

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.

Penggunaan class pada Delphi Oktober 2, 2007

Posted by samsonasik in Tutorial Delphi.
2 comments

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

Asp konek ke SQL Server Oktober 2, 2007

Posted by samsonasik in Tutorial ASP.
add a comment

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
%>

memanggil Function Oktober 1, 2007

Posted by samsonasik in Tutorial VB.
2 comments

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