Belajar Delphi Pascal From NEWBIE to ADVANCED

Album Gigi - Dunia (1995)

2012-01-22T15:30:00.001+07:00

Album Kedua Gigi Berjudul Dunia

Happy Unduhing

Gigi - Yang tlah berlalu (Nirwana)
Gigi - All For Money
Gigi - Bimbang
Gigi - Dewi Impian
Gigi - Dunia
Gigi - Hikayat Insani
Gigi - Janji
Gigi - Kropos (Instr)
Gigi - Pesta

PLnR

Album Gigi - Angan (1994)

2012-01-21T14:37:00.001+07:00

Ini Album Pertama Gigi dari Armand dkk,dan Gigi adalah salah satu Band Favorit gw yang lagu2nya kekal ga ngebosenin sampai tahun 2012 ini,so lets think smart about music,clear your mind from useless music,

SILAHKAN SEDOT

Gigi - Angan
Gigi - Adakah Yang Tersisa
Gigi - Kuingin
Gigi - Hasrat
Gigi - Kau kan kembali
Gigi - Garis Warna
Gigi - Terpisahkan
Gigi - Lelah
Gigi - Burning Star

Grafik Sinus Kosinus dengan Delphi

2012-01-18T00:01:00.000+07:00

Lumayan Panjang nih,sekarang akan bermain sudut sudutan
oke dah lets begin
kita akan memakai komponen Chart & StringGrid untuk memainkannya,
kalo step nya ga diikuti jamin pusiing
skrinsut aplikasi pada akhirnya akan seperti ini :

lanjuuuuuut........

1. untuk komponen StringGrid ada di pallete Additional seperti pada gambar dibawah :

2. untuk komponen chart(pada delphi xe,xe2,2010) ada pada pallete Tee Chart Std

untuk versi delphi yang lain silahkan cari pallete mana,ane lupa
3. lalu rancang form nya seperti ini :

4. lalu klik 2x pada komponen chart nya sehingga muncul kaya gini

pilih add
5. pada chart gallery pilih type line

setelah ditambah

6. selesai,sekarang mulai pada kodingnya,
tambahkan variabel global seperti ini :

7. setelah itu tambahkan sebuah prosedur pripat,namanya mah bebas,kalo ane pake nama apdetnilai :

8. lalu tulis koding untuk procedure apdetnilai

procedure TForm1.apdetnilai;
var
 i : integer;
begin
 stringgrid1.ColCount:=3;
 stringgrid1.RowCount:=ndat+1;
 stringgrid1.Cells[0,0]:=' i ';
 stringgrid1.Cells[1,0]:='X ( i )';
 stringgrid1.Cells[2,0]:='Y ( i )';
 x[0]:=teta;
  for i := 0 to ndat do
   begin
    if ceksin then
     y[i]:=sin(x[i]*3.14/180)
    else
     y[i]:=cos(x[i]*3.13/180);
     x[i+1]:=x[i]+step;
     stringgrid1.Cells[0,i+1]:=inttostr(i);
     stringgrid1.Cells[1,i+1]:=floattostr(x[i]);
     stringgrid1.Cells[2,i+1]:=formatfloat('#0.000',y[i]);
   end;
end;

9. lalu pada button sinus isikan kode

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
 begin
  showmessage('tidak boleh kosong');
 end
else
 begin
  teta:=strtofloat(edit1.Text);
  ndat:=strtoint(edit2.Text);
  step:=strtofloat(edit3.Text);
  series1.Clear;
  x[0]:=teta;
   for a := 0 to ndat do
    begin
     y[a]:=sin(x[a]*3.14/180);
     series1.AddXY(x[a],y[a],'',clred);
     x[a+1]:=x[a]+step;
    end;
    chart1.Title.Clear;
    chart1.Title.Text.Add('Grafik Trigonometri');
    chart1.Title.Font.Style:=[fsBold];
    chart1.LeftAxis.Title.Caption:='Nilai Sinus';
    ceksin:=true;
    apdetnilai;
 end;
end;

10. terakhir pada tombol kosinus beri kode :

procedure TForm1.Button2Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
 begin
  showmessage('tidak boleh kosong');
 end
else
 begin
  teta:=strtofloat(edit1.Text);
  ndat:=strtoint(edit2.Text);
  step:=strtofloat(edit3.Text);
  series1.Clear;
  x[0]:=teta;
  for a := 0 to ndat do
   begin
    y[a]:=cos(x[a]*3.14/180);
    series1.AddXY(x[a],y[a],'',clred);
    x[a+1]:=x[a]+step;
   end;
   chart1.Title.Clear;
   chart1.Title.Text.Add('Grafik Trigonometri');
   chart1.Title.Font.Style:=[fsBold];
   chart1.LeftAxis.Title.Caption:='Nilai Cosinus';
   ceksin:=false;
   apdetnilai;
 end;
end;

11. beres tinggal dicoba sajah run
12. kalau mau liat projeknya bisa di unduh saajaah

13. semoga bermanfaat

Prevent Input Text or Number with Delphi

2012-01-17T00:27:00.002+07:00

coba bayangkan,misal dalam sebuah form aplikasi dalam penginputan text hanya mengizinkan teks sajah atau nomer sajah,ini mungkin dilakukan misal dalam aplikasi database,field-field yang bertipe nomer maka harus diisi dengan nomer,jika misal si edit.text tidak dikoding dengan maksimal maka field yang bertipe nomer tersebut bisa kita inputkan huruf,dengan begitu aplikasi kita menjadi jelek.
sekarang saya akan share koding bagaimana untuk mencegah inputan berupa text atau nomer pada sebuah edittext.
bentuk formnya sederhana sajah seperti gambar dibawah ini :

langsung sajah pada koding,
pada masing2 edittext kita beri event OnKeyPress
kode untuk edittext tidak bisa diinputkan nomer :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key in ['0'..'9'] then
  key:=#13;
end;

sederhana ko

begitu pula untuk edittext yang tidak bisa diinputkan huruf :

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key in ['a'..'z','A'..'Z'] then
  key:=#13;
end;

Sumpah cuma sebegitu simpel ko

kalau mau donlod buat koleksi bisa di sedot

Jazz House and Jazz Hop Music

2012-01-15T14:24:00.001+07:00

Senin UAS
so sorry kalo ane belum share delphi2 nya lagi
WTF UAS dua minggu,biasa lah jadwal kampus aneh ngaco tolol dll,
and lets dance with a minimal dugem house dulu

Are u Comin

awesome Brooo

next . . . . .

Kentaro ft Jazzinpark - please please please

mantap gila

kenichiro nishihara ft steph pockets - livin

gelo anjing

Kenichiro lagi

RGB Sample Using Delphi

2012-01-02T23:57:00.002+07:00

posting lagii aaaaaah
sekarang tentang warna warni ceria,
form sederhana dengan 3 buah scrollbar untuk merubah warna form (bukan cuma form tapi sample nya form aja)
penampakannya kaya gini gan :

itu penggunaan warna RGB aja ko gan,
oke bahannya kata ane juga cuma 3 buah scrollbar ama label doang,

komponen scrollbar bisa di temukan di pallete standar

yang perlu di perhatikan adalah properti max pada masing2 scrollbar harus bernilai 255

oke,

sekarang kita koding eventnya,
beri event OnChange pada satu scrollbar sajah,misal pada scrollbar1
kode :

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 Form1.Color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
 Label1.Font.Color:=RGB(
  255-ScrollBar1.Position,
  255-ScrollBar2.Position,
  255-ScrollBar3.Position);
 Label1.Caption:='RGB('+
  IntToStr(ScrollBar1.Position)+','+
  IntToStr(ScrollBar2.Position)+','+
  IntToStr(ScrollBar3.Position)+')';
end;

sumpah satu aja tar pada scroll bar kedua dan ketiga cukup isikan event scrollbar1 change

selesai dan kita RUN

dan semoga bermanfaat

ganti arsip jadi 2012

2012-01-01T00:04:00.001+07:00

Hepi nyu yir sajah dulu aah

Blog gw pindah arsip jg jadi 2012

Hahaha

No delphi post dulu ya ;-)

Gw post blog nya dari hape gini

Nb : janjinya mau ganti template tpi belum mulu,sori ah gw nya ga keburu,tenang,pasti ganti ko :)

Published with Blogger-droid v2.0.2

Check System Uptime pake Delphi

2011-12-18T23:00:00.001+07:00

memang seperti apa??
niih seperti ini nih:

parah banget kan yang ane,leptop idup 3 hari

bahannya cuma dua,cuma timer ama label doank

untuk kodenya,tinggal buka spoiler aja gan :

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function UpTime: string;
const
  ticksperday: Integer    = 1000 * 60 * 60 * 24;
  ticksperhour: Integer   = 1000 * 60 * 60;
  ticksperminute: Integer = 1000 * 60;
  tickspersecond: Integer = 1000;
var
  t:          Longword;
  d, h, m, s: Integer;
begin
  t := GetTickCount;
  d := t div ticksperday;
  Dec(t, d * ticksperday);
  h := t div ticksperhour;
  Dec(t, h * ticksperhour);
  m := t div ticksperminute;
  Dec(t, m * ticksperminute);
  s := t div tickspersecond;
  Result := 'Uptime: ' + IntToStr(d) + ' Days ' + IntToStr(h) + ' Hours ' + IntToStr(m) +
    ' Minutes ' + IntToStr(s) + ' Seconds';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:=uptime;
end;

end.

DONE beres dan semoga bermanfaat

Cek Koneksi Internet (online / offline)

2011-12-17T01:13:00.001+07:00

simple aplikasi lagi aaah,kecil-kecilan banget,orang bahannya cuma edit text sama button doank,haha.

sebelumnya untuk membuat aplikasi ini rekan2 perlu menambahkan uses WinInet pada bagian usesnya,
nah,sekarang langsung sajah pada kodenya,ane kasih semuanya aja ya seperti berikut :

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, WinInet;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function online : boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if online then
  edit1.Text:='status online'
 else
  edit1.Text:='status offline';
end;

function TForm1.online;
begin
 result := (InternetGetConnectedState(nil, 0))
end;

end.

NB : tampilan uses yang ane jangan di ikutin,itu karena ane pake delphi XE2,jadi cukup tambahkan WinInet nya sajah

yah yah
nah sekarang inilah hasilnya :

yoooo aaah dan semoga bermanfaat :D

File Explorer Sederhana Dengan Delphi

2011-12-15T01:28:00.002+07:00

kalo bikin kaya windows eksplorer beneran,jelas ane ga mampu gan,yang akan di share sekarang adalah hanya yang sederhana-sederhananya sajah ,tanpa ada operasi file apapun,just menampilkan sajah.
penampakannya seperti ini gan :

sekarang tinggal bahan2 yang diperlukan,untuk kasarnya kita bisa lihat gambar dibawah mengenai bahan2nya,mereka adalah :

untuk mendapatkan bahan di atas,kita cari komponennya yang berada pada pallete win 3.1

okeh DONE,
sekarang kita ke kodingnya,ga ribet ko,namanya juga sederhana
langsung aja dah semuanya,event2 nya hanya DriveComboBoxOnChange,DirectoryListboxOnChange,dan FileListBoxOnClick

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
 filelistbox1.Directory:=directorylistbox1.Directory;
end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
 directorylistbox1.Drive:=drivecombobox1.Drive;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
var
 i : integer;
begin
 label3.Caption:=filelistbox1.FileName;
 with filelistbox1 do
  for i:=0 to items.Count-1 do
   if selected[i] then
    edit1.Text:=filelistbox1.Items.Strings[i];
end;

oke finish dan semoga bermanfaat,
setting labelnya mah terserah we nya.

mohon kesabarannya ya :D

2011-12-13T16:05:00.000+07:00

buat pembaca,sebelumnya saya mau minta maaf karena baru onlen blog lagi,dari komen2 yang saya baca,ada posting saya yang broken link
sabar ya,ane cari bek ap nya buat di aplod ulang ,
plus ane habis nyelesein tugas web dari kampus,cekidot disini gan,sori jelek amburadul abis,ane bakal fix-in broken link di post yang jadul dulu,tengs bipor,don porget di like tweet ama +1,
untuk komen2 yang isinya pertanyaan,insya allah tar malem ane jawab

Funk dulu bentar

2011-12-04T15:14:00.001+07:00

programming melulu :D
santeyan dikit yo
BTW,gw gasuka musik indo jaman sekarang kecuali (GIGI,PADI,SO7,peterpan,DEWA + band2 indo jadul)
gw anak jazz and lets funk today with :

Tes posting pake blogger droid

2011-12-02T21:34:00.001+07:00

Ngetes doang

Moga keren dan pasti keren

Wkwkwkww

Tes yo tar posting asli gw pake lepi gw aja

Published with Blogger-droid v2.0.1

Stopwatch sederhana dengan delphi

2011-11-29T19:30:00.001+07:00

sedikit share ah
kali ini tentang stopwatch sederhana,
bahan yang diperlukan adalah seperti ini :

lets dengan kodenya
1. tambahkan variabel dulu dibawah TForm seperti ini:

var
 Form1: TForm1;
 awal ,akhir : TDatetime;
 lama : real;

2. tambahkan listing ini pada event Form Oncreate

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Interval:=1;
end;

3. sekarang pada event timer OnTimer

procedure TForm1.Timer1Timer(Sender: TObject);
var
 Slama : string;
begin
if Button1.Caption = 'Stop' then
 begin
  akhir:=time;
  edit2.Text:=timetostr(akhir);
  lama:=(akhir - awal)*100000;
  str(lama:12:2,Slama);
  edit3.Text:=Slama;
 end;
end;

4.terakhir pada event button OnClick

procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.Caption = 'Start' then
 begin
  awal:=time;
  edit1.Text:=timetostr(awal);
  button1.Caption:='Stop';
 end
 else if button1.Caption = 'Stop' then
  button1.Caption:='Selesai'
 else
  application.Terminate;
end;

5. DONE,tinggal di run sajah :D

semoga bermanfaat

MSSQL Server Manager

2011-11-12T23:46:00.001+07:00

masih tentang sopwer buat ngolah databes,kali ini databesnya SQL server / MSSQL,yang ane pake yaitu SQL Manager for MSSQL,
penampakannya kaya gini gan:

yang ane punya udah pasti registered lah tenang :D

silahkan yang mengunduh dan selamat mengunduh

Firebird Maestro

2011-11-11T22:53:00.001+07:00

sorry kawan2 pembaca setia blog jelek ane
dikarenakan saya UTS jadi tertinggal deh buat apdet2 post2 terbarunya
sekarang adalah bagean firebird maestro,sorry ya ane belum nyiapin trik2 delphi atau pascal laennya,insya allah lah di next post share2 lagi,sekarang mah bagean share2 sopwer DBMS dulu
noh skrinsut nya,silahkan sedooot

Link Donlod Buat Sopwer Firebird Maestronya

Ini Service Firebird nya

dan Ini Firebird-2.1.3.18185-0_Win32_embed yang isinya fbembed.dll yang harus diganti saat selesai instal firebird maestro karena versi dll di firebird maestro nya bukan versi 2.1.3.18185,so di .rar ini sudah disediakan untuk versi 2.1.3.18185

MySQL Maestro

2011-10-19T13:59:00.000+07:00

jika kemarin mengenai SQLite maestro nya,sekarang untuk mysql nya,
yang suka saya pakai untuk GUI mysql,saya pakai Mysql Maestro,enak lah pakenya,
tapi sebelumnya ente mesti instalin service mysql nya dulu ya,bisa pake wamp,xampp,atau apa lah bebas,
silahkan di unduh aja gaan

skrinsut nya gan :

SQLite Maestro

2011-10-18T22:45:00.001+07:00

ukuran database SQLite sangat mini,silahkan dicoba,kalau mau konekin ke delphi tinggal pake zeos

silahkan unduh :D

Pasang Emot Kaskus (Refixed)

2011-09-18T04:20:00.001+07:00

apdetannya hanya mengupload ulang skrip emotannya,karena opendrive cacad hanya untuk user di view nya dan harus sudah ter register,silahkan gan
INI merupakan apdet postingan dari pasang emote kaskus dibawah kotak komentar
ane melakukan apdet karena ada smiley kaskus yang baru,,
yaitu gambar dan ini
ya otomatis buat emot komen di blogger nya ane perbaharui lagi skripnya
,, sebelum menggunakan emote kaskus di kotak komen,kita harus mengedit templet blog kita supaya kotak komentar nya ada dibawah postingan blog kita,bisa diliat tutornya di pasang kotak komentar dibawah postingansetelah membuat kotak komentar berada dibawah postingan,maka kita percantik lagi komentar di bawah postingan itu dengan mempercantiknya dengan emote kaskus ,yang fungsinya kalo kita komentar di blog,kita bisa menyisipkan emote2 kaskus dalam komentar tersebut.
tertarik????
Sebelum menggunakan emote kaskus di komentarnya,pasang dulu kotak komentarnya gan Disini. langsung saja dah ....
Berikut Tutorialnya :

1. Pertama login ke blogger, trus ke "Layout (Tataletak) --> Edit HTML "
2. Beri tanda centang pada kotak "expand widget template"
3. Lalu letakkan script berikut sebelum kode </body>
ini skripnya

<script src='http://anjingedan.googlecode.com/files/emotkaskusnew.js' type='text/javascript'/>

4. Kemudian cari kode berikut ini :

<p class='comment-footer'>
<b:if cond='data:post.embedCommentForm'>
<b:include data='post' name='comment-form'/>
<b:else/>
<b:if cond='data:post.allowComments'>
<a expr:href='data:post.addCommentUrl' expr:onclick='data:post.addCommentOnclick'><data:postCommentMsg/></a>
</b:if>
</b:if>
</p>

5. Kalo sudah ketemu letakkan kode2 berikut setelah kode <p class='comment-footer'>
ini niiiiiiiiiiiih:

<b>
<b><img width='30' border='0' src='http://www.kaskus.us/images/smilies/I-Luv-Indonesia.gif'/>
:iloveindo
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/s_sm_ilovekaskus.gif'/>
:ilovekaskus
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/cewek.gif'/>
:kiss
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/s_sm_maho.gif'/>
:maho
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/najis.gif'/>
:najis
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/nosara.gif'/>
:nosara
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/marah.gif'/>
:marah
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/berduka.gif'/>
:berduka
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/malu.gif'/>
:malu
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/ngakak.gif'/>
:ngakak
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/sundul.gif'/>
:sup
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/s_big_cendol.gif'/>
:cendol
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/s_big_batamerah.gif'/>
:bata
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/takut.gif'/>
:takut
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/ngacir2.gif'/>
:bajay
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/shakehand2.gif'/>
:jabat
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/bingung.gif'/>
:bingung
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/capede.gif'/>
:cd
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/hammer.gif'/>
:palu
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/toastcendol.gif'/>
:toast
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/hoax.gif'/>
:hoax
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/selamat.gif'/>
:selamat
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/jempol1.gif'/>
:thumb
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/jempol2.gif'/>
:thumbs
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/mewek.gif'/>
:mewek
<img width='30' border='0' src='http://www.kaskus.us/images/smilies/matabelo1.gif'/>
:mata
<img width='30' border='0' src='http://static.kaskus.us/images/smilies/sorry.gif'/>
:sorry
<img width='30' border='0' src='http://static.kaskus.us/images/smilies/kaskus_radio.gif'/>
:radio
</b>

6. saving dah templetnya
coba gan coba pasti mantap dah
thanks gan atas visitnya jangan lupa follow gan atau like atau komen

DevExpress 5.6 delphi all version

2011-09-17T02:36:00.004+07:00

Share komponen keren aaah

mau????????????

silahkan gaaaaan

Alphaskin for Delphi

2011-09-14T19:14:00.000+07:00

nah liat bro,formnya jadi unyu
itu pakai skin,ane suka pake skin dari alpha controls gan,
tertariiiiikkkk???

1. Download dulu komponen alpha skinnya

2. setelah itu ekstrak sajah

buka polder lib nya
3. sesuaikan sesuai versi delphi masing2,yang sayah kan D7

4. buka delphi nya,lalu dobel klik file acntD7.dpk nya

5. klik compile lalu instal

dan akan muncul box inpormasi sukses bro

6. belum selesai bro,biasa,kita perlu menyimpan kopian library nya di direktori delphinya
kita kopikan semua file yang ada di folder lib yang isinya aneka macam itu

lalu seperti kemarin pada zeos,kita buat folder dulu di C:\program files\borland\delphi7\lib dengan nama bebas,ane alphaskin ajah biar gampang

lalu paste kan semua file nya disanah

7. kita pakai teknik yang sama seperti kemarin,pergi ke tools - environments options

8. lets check komponennya di pallete

9. terakhir kita kopikan folder skins yang hasil dari ekstrakan donlodan ke C,

ke C

10. kita coba buat test2 lah, pasang komponen skinmanager yang berada pada palette Alpha Tools pada form

atur2 objek inspektor nya bebas,untuk milih skin tinggal cari properties skinname

dan taraaaaaaaaa

NB : kalau ga jalan berarti baca ulang dari nomer 1

Install Komponen Zeos buat Delphi

2011-09-13T23:54:00.000+07:00

ada yang rikues temen :
"ndry,gimana sih cara instal komponen di delphi?"
sekalian aja dah disini,niatnya sambil promosi komponenya + cara installnya,
komponen yang di share kali ini adalah ZEOS,yang beralamat di Sini,komponen ini merupakan komponen buat koneksi ke berbagai database seperti : MySQL, PostgreSQL, Interbase, Firebird, MS SQL, Sybase, Oracle and SQLite
untuk download komponennya bisa di donlod

setelah di donlod sekarang kita cara installnya

1. di extract sajah zip nyah,lalu pilih folder packages

2. eke pake delphi 7 so ane pilih polder yang delphi 7

sekarang buka delphi masing2 nya

3. sudah? lalu dobelklik ZComponent

akan tampil pic seperti ini :

lalu klik compile

4. lalu ke file - close all,kembali ke explorer,pilih yang ZComponentDesign

dobel klik lagih

klik compile - install maka akan muncul box informasi bahwa zeos berhasil di instal

5. belum selesai bro,kita perlu menambahkan library2 nya supaya si komponen zeos bisa digunakan,caranya :
buka folder build

select all / Ctrl + A lalu Copy

6. kita buat folder di C:\Program files\borland\delphi7\lib dengan nama bebas lah (ane zeos ajah supaya gampang)

lalu pastekan semua file.dcu nya disitu

7. masih belum selesai
pergi ke Tools - Environment Options

akan muncul gambar :

pilih tab library,lalu klik kotak kecil paling kanan di bagian library pathnya
lalu klik kotak browse nya :

lalu browse folder yang tadi dibuat

klik add - ok - sampai kembali ke jendela environment options nya pun klik OK

8. untuk mengecek nya,kita bisa lihat di Component - Configure Palette

dan sukses bro

dan kita cek dengan form

9. DONE,jika ga berhasil coba baca lagi dari awal sob

Lebaran euy

2011-08-30T22:57:00.000+07:00

Pokonya minta maaf kalo sayah belum ada waktu buat menyempatkan diri ngapdet ini blog,sibuk soalnya insya allah lah bulan depan siap buat apdet2 lagi ni blog,sumpah jadi ga keurus gini dah blog nya,hehe,hampura nya

Ramadhan

2011-08-05T01:46:00.001+07:00

pusing gw mau post apa

2011-07-15T23:10:00.001+07:00

hmmmmmmm
apa masih berat kawan2 ?
mohon kritik dan sarannya...
apa sajah yang harus dibuang dan dihilangkan
saya sudah remove beberapa,,,
kira2 apa lagi??
mohon kerjasamanya

Login Database pake delphi

2011-07-01T22:26:00.004+07:00

hmmmmmmmm
lumayan buat bantu teman2 yang mengalami kesulitan dalam pengumpulan tugas delphi nya
kita pake contoh database paradox sajah ya,
pake database lain juga sama sajah lah,bebas.
misal contohnya dengan dua field sajaNAMA,PASWOD

lalu buka delphinya
bentuk form nya kaya gini aja dah

lalu tambahkan datamodule dengan klik file - new - datamodule

mengapa memakai datamodule
bayangkan sajah jika dalam suatu projek program database dengan form banyak dan setiap form memerlukan komponen database. itu namanya pemborosan,data module adalah wadah untuk menyimpan komponen nonvisual seperti komponen koneksi database,jadi satu data module untuk semua form.
begono ceritanya
nah lalu pada datamodule tersebut tambahkan komponen yang diperlukan,tabel dan datasource
lalu tambahkan satu form lagi sebagai bukti keberhasilan
jadi pada projek terdapat dua for satu datamodule

JANGAN LUPA SAVE PROJECT AS
satukan dengan si tabel yang dibuat di database desktop tadi
supaya gada pertanyaan lagi
okeey lanjuuuut
sekarang sorot form satu lalu klik file - use unit

pilih unitdm (datamodule),dan unit2(form2) itu yang saya,kalo yang rekan2 tinggal sesuaikan saja

lalu jangan lupa set active = true si komponen tabelnya dengan sebelumnya set dulu tabel dan datasource nya

lalu ini yang paling penting yaitu script pada tombol loginnya

procedure TForm1.btn1Click(Sender: TObject);
begin
  if dm.tblpengguna.Locate('NAMA',edt1.Text,[locaseinsensitive]) then
    if dm.tblpengguna.FieldByName('PASWOD').AsString = edt2.Text then
      begin
        showmessage('login berhasil'); 
        hide;
        Form2.Show;
      end
    else
      begin
        ShowMessage('passwod salah');
      end
  else
    ShowMessage('username tidak terdaptar');
end;

pasti jika di compile tidak jalan maka dari itu pada bagean uses tambahkan uses DB oke

silahkan run dan pasti berhasil
yang ga jalan =

Broken Link Download?? Lapor ane gan

2011-05-14T00:56:00.000+07:00

dikarenakan ziddu nya menjadi tolol,
ane ganti aplod aplodannya ke media api
baru dua yang bisa ane apdet
ini untuk Delphi LED delphi LED
ini untuk postingan konversi waktu
jika nemu yang laennya,tolong mesej ane di chatbox ya

Demonstrasi String (Bag 2)

2011-05-01T14:32:00.000+07:00

kita ke pascal2 an tentang string dulu lagi ya
jika posting yang string bag(1) adalah tentang menentukan panjang string,sekarang adalah bagaimana untuk menggabungkan string.

untuk menggabungkan string dalam pascal kita memakai fungsi concat.
sebenarnya ada dua cara sih,dengan memakai concat atau menggunakan operator plus (+),satu contoh dua penerapan aja,berikut adalah contoh programnya
note : sayah pakai lazarus
mau TPW mau lazarus = bebas

program gabungstring;
uses sysutils,classes;
var
 s1,s2,spasi:string;
 pakeplus,pakeconcat:string;
begin
 s1:='gue'
 spasi:=' ';
 s2:='ganteng';
 pakeplus:=s1+spasi+s2;
 pakeconcat:=concat(s1,spasi,s2);
 writeln(pakeplus);
 writeln(pakeconcat);
 //DONE
end.

hasilnya adalah

Delphi database bag 1

2011-04-27T20:55:00.000+07:00

berhubung di kampus ane lagi main2 delphi database dengan paradox (database desktop),
tutorial bertahap ini akan membahas tentang database database an,
mulai dari koneksi dan contoh,
contoh disini kita pake database bebas,bebas disini maksudnya yang suka ane pake di projek,mulai dari paradox,access,mysql,mssql,sqlite,firebird,
dari cara koneksi nya dan komponen yang diperlukannya.
satu satu ya,
post selanjutnya tentang DBMS dan sopwer2 GUI keren nya

Sori D7,aku tidak akan melupakanmu :(

2011-04-20T23:52:00.001+07:00

dulu ane belajar pake D7,
semua tutorial di blog ini pake D7 semua,
ane migrasi gan
jadi pake

tapi kalo ane tutor2 disini lagi pake D2010,
itu sama aja ko gan,yang beda cuma borland delphi ama embarcadero delphi nya doank,

Main Pascal dengan Lazarus

2011-04-19T00:22:00.007+07:00

ada yang rikues
"bagaimana bermain pascal di lazarus?"
tinggalkan turbo pascal dan beralihlah memakai lazarus. keren gan,bisa delphi2an bisa pascal2an,
langsung sajah

sudah di donlodkah lazarusnya??
nih linknya

1. buka lazarusnya
2. pilih new

3. pilih custom program

4. jangan lupa save all
5. bebas lah mau ngetik kode apa aja,ni juga program contoh

program project1;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils
  { you can add units after this };

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
var
  tes : string;
begin
  tes:='using pascal with lazarus';
  writeln(tes);
  readln;
end.

6. terserah mau di compile,build,atau run tinggal pilih menu run

7. dan program akan running

8. selamat belajar

Demonstrasi String (Bag 1)

2011-04-10T20:51:00.002+07:00

gini dah kalo banyak kerjaan,blog pun jadi tak terurus,ga posting lah,sibuk lah sedih ane...

tapi sekarang sayah kembali dengan berbagi ilmu kali ini kita pascal2 an dulu saja yah,kangen banget soalnya ,materi nya berupa string stringan dulu,sengaja di bag-bag gitu soalnya banyak sub-bag nya oke dah langsung sajah,
kenapa string-stringan? karena string adalah merupakan kumpulanm karakter,string merupakan array dari karakter yang selalu dimulai dari indeks 1.

program demonstrasi;
uses wincrt;
const
 s : 'andry';
var
 i,jmlhkar : integer;
begin
 jmlhkar:=length(s); //length adalah fungsi untuk mendapatkan jumlah karakter
 for i:=1 to jmlhkar do
  begin
   writeln('S[',i,'] = ''', s[i], '''');
  end;
 readln;
end.

jika kita coba jalankan akan mendapatkan hasil seperti ini :
s[1] = 'a'
s[2] = 'n'
s[3] = 'd'
s[4] = 'r'
s[5] = 'y'

berdasarkan hail output,kita bisa simpulkan bahwa string 'andry' merupakan array okeeeh??

Form dengan warna Gradasi

2011-03-20T23:12:00.000+07:00

fiuh,sori dan maap,ane ga posting2 lagi nih sori ya banyak kerjaan kampus dll,oke lah sekarang kita ber warna warna ria,kali ini kita akan membuat sebuah form pada delphi memiliki warna gradasi (gradient)seperti pada gambar di bawah :

untuk membuatnya,maka event yang di beri adalah OnPaint,.

sekarang kita mulai kodingnya,lihat pada obkject inspector tersebut lalu pada events onpaint tersebut ketikan mantra berikut :

procedure TForm1.FormPaint(Sender: TObject);
var Row, Ht: Word ;
begin
  Ht := (ClientHeight + 255) div 256 ;
  for Row := 0 to 255 do
   with Canvas do begin
     Brush.Color := RGB(0, 0, Row) ;
     FillRect(Rect(0, Row * Ht,ClientWidth, (Row + 1) * Ht)) ;
   end;
end;

untuk modifikasi warna ganti dll,rekan2 bisa memakai potosop buat nyontek kode warna RGB nya

Aplikasi Text To Speech (program ngomong)

2011-03-13T14:18:00.000+07:00

mengambil dari blog mas fajar di http://delphiscript.blogspot.com/ kayanya sederhana juga keren,lumayan lah kita bisa buat sopwer kecil2an yang bisa ngomong kaya si mikrosop Sam di control panel,wkwkkwkw kali ini kita buat si Sam pake koding delphi. now lets begin

bahannya sederhana ko kita hanya butuh 1 button dan 1 edit text
langkah membuatnya kita tambahkan uses Comobj pada bagian uses nya,lalu tambahkan variabel global dengan tipe variant.
untuk lebih lengkap rekan-rekan bisa lihat source di bawah ini :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  spvoice : variant;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  spvoice:=createoleobject('SAPI.spvoice');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  spvoice.speak(edit1.Text);
end;

end.

jika di run maka aplikasi mu akan berbicara sesuai text

Lagi di Warnet,belum bisa Posting untuk bulan maret

2011-03-02T19:58:00.000+07:00

Sesuai judul,jadi ane belum bisa mosting cuy
ane nya juga lagi lagi bikin modul Delphi,bikin program proyek,banyaaaaaaak daaaaah

terus maksudnya kemarin2 adaapa nih sama imageshack?? masa gambar2 ane jadi kodok semua??? WTF
bodo amat ah

Mencari Faktorial dengan Delphi

2011-02-24T23:21:00.000+07:00

Matematik lagi gan sesuai judul,kali ini kita akan mencari nilai faktorial dari sebuah bilangan,asal tau teori matematik nya,maka mau di delphi kan atau di pascal kan takan jadi masalah
lanjuuut...

formnya kita bentuk amat sangat sederhana pulamga usah bagus2 lah yang penting listing nya

maka untuk listingnya bisa dilihat disini :

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,n: integer;
  faktorial : real;
begin
  n:=strtoint(edit1.Text);
  faktorial:=1;
  for i:=2 to n do
    faktorial:=faktorial*i;
  label2.Font.Style:=[fsbold];  
  label2.Caption:=inttostr(n)+' faktorial = '+floattostr(faktorial);
end;

end.

silahkan coba gan dan itu pasti working 100%

Menghitung Banyak Huruf Vokal

2011-02-21T23:36:00.000+07:00

sesuai judul aja gan,jelas kan?
dengan penampakan form seperti ini :

membuatnya?? simple gaaan

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  nama : string;
  i,vok : integer;
begin
  nama:=edit1.Text;
  vok:=0;
  for i:=1 to length(nama) do
    case nama[i] of
      'A','a','I','i','U','u','E','e','O','o' : vok:=vok+1;
    end;
  label2.Caption:='jumlah vokal dari kata '+nama+' ada '+inttostr(vok)+' buah';    
end;

end.

harus jalaan karena begitulah skripnya

Mengecek Bilangan Prima

2011-02-20T00:48:00.000+07:00

ini koding iseng gan yaaa tambah ga ada aja (tamba euweuh) tapi semoga lumayan lah,karena ini matematika,sumpah itu form amat sangat super sederhana

mmmmmmh kita mulai koding nya ya

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  prima : boolean;
  batas,bil : integer;
  i : byte;
begin
  prima:=true;
  bil:=strtoint(edit1.Text);
  batas:=round(sqrt(bil))+1;
  if (bil = 2) or (bil = 3) then
    prima:=true
  else
    for i:=2 to batas do
      if (bil mod i = 0) then
        prima:=false;
  if prima then
    label1.Caption:=inttostr(bil)+' adalah bilangan prima'
  else
    label1.Caption:=inttostr(bil)+' bukan bilangan prima';          
end;

end.

dicukupkan sekian,selamat belajar dan semoga bermanfaat

Membuat Link Dengan Label Saja

2011-02-19T01:02:00.000+07:00

kalo buka2 browser yaaaa onlen2 gitu kita tak lepas dari yang namanya link atau URL,itu browser,mmmmh di delphi pun kita bisa membuatnya,buat link maksudnya. link kan biasanya pas disorot berubah biru dan kursor akan menjadi gambar tangan dan pas di klik akan menuju ke sebuah site tertentu,di delphi mudah banget ko membuatnya,lets BEGIN

ini cuma contoh misal ya gan

yang paling penting dari koding ini adalah logika link pada browser,pada saat disorot akan berubah warna dan jika mouse dijauhi maka akan kembali normal,event tersebut akan kita temukan di onmouseenter dan onmouseleave.

selain bermain properties pada object inspector,kita juga coba aktifkan link itu seperti nyata,maksudnya kalo di klik,langsung jalan gitu,maka dari itu tambahkan ShellApi pada bagian Uses nya.
full source nya seperti ini gan:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Label1MouseEnter(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Label2MouseEnter(Sender: TObject);
    procedure Label2MouseLeave(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  label1.Font.Color:=clblue;
  label1.Cursor:=crHandpoint;
  label1.Font.Style:=[fsbold,fsunderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  label1.Font.Color:=clblack;
  label1.Cursor:=crdefault;
  label1.Font.Style:=[];
end;

procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
  label2.Font.Color:=clblue;
  label2.Cursor:=crhandpoint;
  label2.Font.Style:=[fsbold,fsunderline];
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
  label2.Font.Color:=clblack;
  label2.Cursor:=crdefault;
  label2.Font.Style:=[];
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  shellexecute(handle,'open','http://www.google.com',nil,nil,0);
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
  shellexecute(handle,'open','http://www.facebook.com',nil,nil,0);
end;

end.

sekarang,uses ShellApi yang saya suruhkan ditambah pada uses itu gunanya agar perintah shellexecute dikenali
harus jalan gan pokonya

Mencari bilangan terbesar terkecil (pascal)

2011-02-18T15:37:00.000+07:00

lupa ni blog ga di pascal2in,ini latihan saja dulu dah,seminggu kemarin saya sakit semoga yang ini bermanfaat
sesuai judul,program kali ini adalah program untuk mencari bilangan terbesar dan terkecil, dari beberapa buah nilai uang kita inputkan.

bisa dilihat source nya seperti ini gan :

program maxmin;
uses wincrt;
var
 bil :array[1..100] of integer;
 max,min,i,n :integer;
begin
write('Masukkan jumlh bilangannya gan =');readln(n);
for i:= 1 to n do
 begin
  write('Bilangan ke ',i,' = ');readln(bil[i]);
 end;
max:=bil[1];
min:=bil[1];
for i:= 2 to n do
 if bil[i] > max then
  max:=bil[i]
 else
 if bil[i] < min then
  min:=bil[i];
 writeln('Bilangan terbesar =',max);
 writeln('Bilangan terkecil =',min);
end.

silahkan compile dan run

POTO CANGGIH

2011-02-11T23:35:00.000+07:00

Berhubung ane lagi mikir buat postingan delphi nya,jadi untuk sementara ane posting gambar2 keren aja dulu,mayan lah ngisi post blog ane,
pokonya gatau dah ini poto maksudnya apa,yang penting keren ga ketulungan,ane dapet dari Kaskus

pemutar file WAV simple

2011-02-07T18:29:00.000+07:00

dilihat dari judulnya pun ya memang fungsinya hanya untuk memutar file wav,yang amat sangat sederhana,maklum belajar
liat aja skrinsutnya

tapi semoga bermanfaat

membuatnya sangat mudah,bahannya hanya 1 buah edit text,3 bitbutton dan 1 buah opendialog,
sebelumnya jangan lupa tambahkan Uses MMSystem ppada Uses nya. nah nih full source code nya gan

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    od: TOpenDialog;
    Label1: TLabel;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if od.Execute then
  edit1.Text:=od.Filename
else
  exit;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text = '' then
  showmessage('pilih dulu wav soundnya')
else
  PlaySound(PChar(edit1.Text),0,SND_NODEFAULT Or SND_ASYNC);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  sndPlaySound(nil, 0); // Stops the sound
end;

end.

kalau mau unduh projeknya silahkan unduh aja disini

Simple Image View

2011-02-03T14:58:00.000+07:00

im coming bebh,wkkwkwkw ya sekarang postingan iseng kali ini program yaa semacam windows picture viewer gitu lah ,skrinsunya ni gan

maklum lah nyubi,ane bikinnya pake koding seada2 nya,
silahken gan unduh projeknya disini

terakhir,semoga bermanfaat

Try....Except di Delphi

2011-01-23T16:57:00.002+07:00

oke,sekarang kita berkenalan dengan klausa try...except,berbeda dengan if...then...else,klausa try...except digunakan untuk menghandle error,untuk contoh kita coba dengan form seperti berikut:

niatya kita akan buat program untuk membagi bilangan dengan nol dan mengeksekusi perhitungan(pertambahan sih),namun jika kita salah input?? (maksudnya ada angka ada kata) so read this and check this.

keisengan pertama pada button1 coba ketik listing berikut:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : real;
begin
  a:=1;
  b:=0;
  c:=a/b;
  showmessage(floattostr(c));
end;

jalankan.
pasti begini:

dan sejak kapan ada bilangan yang bisa dibagi nol???wkwkwkkw]
nah,maka dari itu kita pakai error handler dengan menggunakan try...except,sebelum itu jump dulu kesini, pilih Tool - Debugger Options

lalu pilih Language Exceptions,dan uncheck(jangan ceklis) bagian Stop On Delphi Exceptions nya,OK.

lalu kita coba try...except nya,cuma tambah ko,maka kode baru tersebut jadi seperti ini:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : real;
begin
  try
    a:=1;
    b:=0;
    c:=a/b;
    showmessage(floattostr(c));
  except
    showmessage('bilangan tidak bisa dibagi nol');
  end
end;

coba di run,dan anda bisa menghandle error bahwa showmessage('bilangan tidak bisa dibagi nol');
gampang kan??
begitu juga untuk perhitungan jika kita salah input,perhatikan kode dibawah:

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c : integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:=a+b;
  showmessage('hasil penjumlahan adalah = '+inttostr(c));
end;

hmmmmmm sepertinya kode diatas berjalan lancar2 saja,namun coba jika pada edittext jangan masukan angka,ex : karakter/kalimat/apa lah
pasti muncul begini :

maka dari itu gunakan kembali Try...Except.
ubah kode pada button2 menjadi seperti ini :

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c : integer;
begin
  try
    a:=strtoint(edit1.Text);
    b:=strtoint(edit2.Text);
    c:=a+b;
    showmessage('hasil penjumlahan adalah = '+inttostr(c));
  except
    showmessage('jangan masukan kata men');
  end;
end;

jalankan kembali dan anda berhasil kembali.
anda tidak bisa memakai klausa if...then...else untuk menghandle code tersebut,eksepsi sangat diperlukan,artinya try....except adalah error handling dimana blok try adalah perintah untuk memaksa dan blok except adalah jika terjadi fatal error. so semoga bermanfaat.

Menampilkan gambar GIF di Delphi

2011-01-21T20:46:00.002+07:00

UAS KONYOL NYA BERAKHIIIIIIIIR GAAAAAAN
sumpek muak dah ane,
now im back and i'll post my blog again with delphi pascal exercise
sekarang adalah bagian pemanasan dulu,tutor kecil lah,tentang bagaimana memunculkan gambar .gif di komponen TImage,nih dah ane kasih tutornya.

misal,potongan standar mentah kita hanya,1 button,1 Image,1 openpicturedialog dengan uses awal sbb:

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

kemudian beri event onclick pada button1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if openpicturedialog1.Execute then
    image1.Picture.LoadFromFile(openpicturedialog1.FileName)
  else
    exit;
end;

anda hanya bisa menampilkan gambar dengan ekstensi .bmp .ico .wmf .emf
maka dari itu untuk menampilkan gambar gif,maka donlod dulu compiler unit nya disini

kemudian extract here,file itu bernama GIFImage.dcu,kopikan GIFImage.dcu ke C:\Program Files\Borland\Delphi7\Lib paste disana.
cara penggunaannya tambahkan GIFImage pada uses.
lalu coba jalankan lagi program tadi,dan anda bisa masukan gambar gif pada TImage
dijamin BERHASIL

yeeaaah,UAS COOOOY

2011-01-10T11:57:00.000+07:00

10 days,dua minggu ane bakal ngelakuin kebodohan UAS,
minggu pertama : selasa,rabu,kamis
minggu kedua : selasa,rabu,kamis
napa ga di satu mingguin saja sih?? payah

pasang emot kaskus (updated)

2011-01-09T23:39:00.000+07:00

apdetannya hanya mengupload ulang skrip emotannya,karena opendrive hanya untuk user di view nya dan harus sudah ter register,silahkan gan
INI merupakan apdet postingan dari pasang emote kaskus dibawah kotak komentar
ane melakukan apdet karena ada smiley kaskus yang baru,,
yaitu gambar dan ini
ya otomatis buat emot komen di blogger nya ane perbaharui lagi skripnya
,, sebelum menggunakan emote kaskus di kotak komen,kita harus mengedit templet blog kita supaya kotak komentar nya ada dibawah postingan blog kita,bisa diliat tutornya di pasang kotak komentar dibawah postingansetelah membuat kotak komentar berada dibawah postingan,maka kita percantik lagi komentar di bawah postingan itu dengan mempercantiknya dengan emote kaskus ,yang fungsinya kalo kita komentar di blog,kita bisa menyisipkan emote2 kaskus dalam komentar tersebut.
tertarik????
Emote Kaskus :

Sebelum menggunakan emote kaskus di komentarnya,pasang dulu kotak komentarnya gan Disini. langsung saja dah ....
Berikut Tutorialnya :

1. Pertama login ke blogger, trus ke "Layout (Tataletak) --> Edit HTML "
2. Beri tanda centang pada kotak "expand widget template"
3. Lalu letakkan script berikut sebelum kode </body>
ini skripnya

<script src='https://sites.google.com/site/akatsukifadrie/wa/ere/updatescriptver2.js' type='text/javascript'/>

4. Kemudian cari kode berikut ini :

<p class='comment-footer'>
<b:if cond='data:post.embedCommentForm'>
<b:include data='post' name='comment-form'/>
<b:else/>
<b:if cond='data:post.allowComments'>
<a expr:href='data:post.addCommentUrl' expr:onclick='data:post.addCommentOnclick'><data:postCommentMsg/></a>
</b:if>
</b:if>
</p>

5. Kalo sudah ketemu letakkan kode2 berikut setelah kode <p class='comment-footer'>
ini niiiiiiiiiiiih:

6. saving dah templetnya
coba gan coba pasti mantap dah
thanks gan atas visitnya jangan lupa follow gan atau like atau komen

Pemberitahuan Saja

2010-12-22T21:36:00.000+07:00

Maaf gan jarang apdet ni blog,ane lagi sibuk2nya mau UAS,bentar lagi UAS ane gan.insya Allah Januari ane bakal Up to Date in lagi ni blog,
ane mau jawab2in yang tanya2 di message visitor atau di komen2nya,mulai dari :

Tanggal 19 Dec 2010 LcN berkomentar pada bot perfect world indo samudera all :
LcN said...

kk saya suka ma link ini berguna banget hehehehe tapi tolong donk kk cari BOT yg buat monster no-agresif kos itu harus di pake di monster yg agresif aja...... thx ya sebelumnya.... hehehee

jawab : bot yang baru kalo ga salah namanya bot oracle,posting besok saya akan coba upload

Tanggal 16 Dec 2010 Anonymous berkomentar pada bot perfect world samudera:
ada instalan pw_a gx gan

jawab: ada gan tinggal donlod dari website resminya saja,atau kalau mau lebih cepat,tinggal ngopiin di warnet,wkwkwkwk

Tanggal 16 Dec 2010 notebaris berkomentar pada blog comment with kaskus emote ver 2:
gan ane nyoba kok gagal ya ?

jawab: yakin gan? kotak komentarnya mesti ada dulu gan,o iya + agan mesti daftar opendrive dulu,supaya direct link nya jalan, kaya ane,pasang banner opendrive

Tanggal 11 Dec 2010 nyamu ajjaib berkomentar pada belajar pascal:
kok pascalnya gakbisa di instal ya????apa komputernya yang eror. . . . . ZZZZZZZ

jawab : cek antivir kompi agan,terinstal apa tidak,lalu kalo mau lebih mantap pake lazarus saja gan

# DeeKiM "mun aya dmn DL nya ya?"

# Guest "kang aya program multi client smurfin?"

@ deekim : donlod apa gan?
@ guest : aya rumusna mun hoyong dual client teh

Uprade TPW 1.5 mu Pake INI

2010-12-08T23:29:00.001+07:00

selama ini ane pascal2an pake ini:

berkat jasanya ane lumayan ngerti pascal (bukan bisa total seluruhnya,still newbie)
bagi yang belum tau compiler pascal yang satu ini,ane bakal ngenalinnya gan,SUMPAH KEREN TOTAL GA KETULUNGAN (JAVA LEWAAAAAAAAAAT).. NIH DIA

ane suka semboyannya "Write Once Compile Everywhere" tidak seperti java yang "write once run anywhere".
karena bahasa pascal dan delphi satu bahasa,ni compiler menyediakan fasilitas yang amat sangat memuaskan,bisa pascal2an bisa delphi2an,mantap dah pokonya,ayo gan sebelum ketinggalan

segera miliki dan upgrade tools dan potensi dirimu
website resmi lazarus.freepascal
kalau ingin unduh seluruh lazarusnya tinggal ke sini :

Portable Device

2010-12-05T15:38:00.001+07:00

Post ini ditujukan untuk memenuhi tugas mata kuliah Organisasi komputer STMIK Tasikmalaya.
Portable Device secara umum adalah alat (perangkat komputer,gadget) yang bisa dibawa yang di rancang untuk memudahkan kebutuhan manusia.
Macam-macam Portable Device
1. Laptop
Laptop dikatakan portable device karena laptop adalah PC Portable,build PC yang mencakup Monitor,Processor,Harddisk,RAM,Optical Drive,dll dibuat seramping mungkin sehingga bentuk laptop di design agar bisa dibawa-bawa.

2. Portable Harddisk
Portable harddisk adalah harddisk yang dirancang agar bisa dibawa-bawa pula,bentuknya seperti internal harddisk komputer pada umumnya,namun dilengkapi lapisan pelindung sebagai cover luar.ukurannya bervariasi umumnya disamakan dengan internal harddisk.konektornya rata-rata memakai USB untuk disambungkan ke komputer.

3. USB Flash Drive
kita biasa menyebutnya flash disk,dengan gadget ini kita bisa menyimpan data besar dalam bentuk Flash Drive yang ukurannya kecil.flash drive membutuhkan socket USB agar FD bisa digunakan di komputer.ukurannya pun bervariasi.

4. Portable Optical Drive
alat ini rata2 sering dibawa oleh teknisi komputer untuk menginstal sistem operasi pada komputer kita.sebagai jaga-jaga bilamana komputer yang akan di instal tidak memiliki optical drive. Sama seperti External Harddisk,External Optical drive pun memakai USB socket sebagai konektornya.

5. All about Memory Card
merupakan alternatif dari flash drive,banyak jenis dari memory card ini(kita sering menyebutnya MMC) antara lain : MS (memory stick),M2,Micro SD,Tflash Memory,SD Card.
untuk menggunakan memory card kita biasa memakai alat card reader/writer.

6. Cell Phone
telepon selular merupakan portable dari telepon rumah,bentuknya mudah digenggam,menggunakan teknologi GSM/CDMA sebagai saluran komunikasi nya,ada yang prabayar atau pascabayar.gadget ini hampir dimiliki oleh hampir setiap orang karena fungsinya yang sangat penting sebagai alat komunikasi.

7. Digital Camera
gadget satu ini tidak asing lagi,menggunakan MMC sebagai storage nya dan memiliki display yang merupakan hasil dari capture kita.koneksi dengan komputernya bisa memakai MMC yang terdapat dalam kamera atau langsung menggunakan kabel USB pada kamera tersebut.ukuran MMC kamera mempengaruhi jumlah foto yang telah diambil.

8. Camcorder
jika digital camera hanya menangkap object diam,namun pada camcorder,object yang bergeraklah yang akan disimpan pada storagenya yang outputnya merupakan video,bagi awam tentu nama camcorder akan asing,istilah lainnya adalah handycam,sama seperti digital camera,untuk melihat hasil rekaman video,bisa menggunakan USB langsung atau via MMC storage pada camcorder tersebut.

9. PDA
PDA merupakan gadget seperti handphone namun berbasis komputer,karena memiliki sistem operasi (windows mobile),rata-rata dipakai pebisnis atau eksekutif,fungsinya sudah seperti komputer pada umumnya,ada kalkulator,pembaca file doc,xls,pdf,dll.
ciri dari PDA adalah touch screen nya

Tool Delphi keren (Tips Explorer)

2010-12-03T00:38:00.000+07:00

belum ada postingan dul ugan,maaf ya ,ane lagi sibuk2nya buat projek tugas kuliah ane,kalo selese ane postingin tugas ane tersebut (about delphi ko),rencananya bikin program buat dokter2 gitu dah,hahahha
mohon doanya gan,
meski belum ada postingan tapi ane mau bagi2 tool sajah,sesuai judul,ini merupakan tool buat latihan2 delphi yang berisi tips trik dari saentaro DEWA-DEWA DELPHI di DUNIA,semoga bermanfaat

Menghindari download Lagu dari Blog + Optimalisasi koneksi

2010-11-28T20:38:00.003+07:00

bagi pengunjung yang komplain karena blog ane banyak mantranya plus berlagu. just for firefox user and IDM. karena kasusnya jika blog ane tampil,pada bagian mixpod (widget mp3) akan tampil box "download this audio" dan jika di close akan muncul kembali,begitu pula seterusnya klos-muncul-klos-muncul-klos-muncul itu diakibatkan IDM nya menggunakan versi lama. buat koneksi dewa,nih ane kasih IDM ter ANYAR nya gan..

IDM ver 6.03 beta build 10

atau supaya optimal (bukan cuma di blog ane) khusus nya kalau agan2 sering2 donlod tidak mau terganggu dengan iklan2,buat firefox only,agan2 bisa instal addons Adblock. tinggal blok sajah mixpod di blog ane seperti ini dengan adblock:

semoga bermanfaat

MessageDlgPos

2010-11-26T23:50:00.002+07:00

Berbeda dengan Messagedlg,MessageDlgPos adalah message dialog yang posisinya bisa kita sesuaikan,artinya berbeda dengan messagedlg biasa yang kotak dialognya hanya muncul di tengah,dari namanya juga ada kata2 POS otomatis letak bisa kita atur kordinatnya. kordinatnya dalam X dan Y.

dibawah berikut merupakan bunyi fungsi MessageDlgPos dalam Delphi:

function MessageDlgPos ( const Message : string; DialogType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpContext : Longint; X, Y : Integer ) : Integer;

kita lihat penampakan contoh program yang ane bikin gan :

so si kotak akan muncul tidak di tengah2,namun di tempat lain yang telah kita set kordinatnya

buat dipahami,ane share in projek ane gan

Gambar Ngakak (Kemiripan Konyol)

2010-11-25T23:45:00.002+07:00

Represing lagi gaaaaaaaaan,,
tenang,ane bakal apdet pascal2an ama delphi2an nya
ane ambil dari forum ane tercinta KASKUS
kali ini merupakan gambar2 yang menurut ane ngakak buat diliat
niih gan langsung sajah cekidot

Komik Parodi GAYUS TAMBUNAN

2010-11-24T20:47:00.001+07:00

Represing dulu gaaaaaan
represing dari koding2an dulu (pascal + delphi)..
hahaha,, nih gan ane nemuin yang bagus di kaskus tentang si GAYUS TAMBUNAN yang dan yang kerjaannya piknik dari sel gan. karena keTOLOLannya,ane nemuin parodi ngakaknya gan.. cekidot..

cerita 1

cerita 2

cerita 3

cerita 4

cerita 5

cerita 6

cerita 7

cerita 8

cerita 9

cerita 10

cerita 11

cerita 12

gimana gan??
ngakak ga??

Login Database with Encrypt Decrypt

2010-11-20T11:12:00.001+07:00

berhubung postingan kemarin tentang enkrip dekrip sekarang,yang akan di enkrip adalah saat kita mengisi user password dalam databes dan di dekrip saat kita login. jadi ane buat program Login2 database dengan fitur encrypt decrypt. database yang akan kita pakai adalah ms.access,pake mySQL juga bisa namun kita pake yang basic2nya sajah dulu
okeh!!! lanjut gan.
NB : tenang,ane sediain link donlod projeknya,buat latihan

ini adalah penampakannya gan :

secara default beri saja dulu

user : pein
pass : akatsuki

tar juga muncul apa2 saja user dan pass yang bisa kita pakai,maka akan muncul ini gan:

coba di klik atau pindah2kan,maka itulah isi databesnya. dan kita bisa edit,ganti,tambah,hapus

sesuai janji,supaya bisa lihat source nya..
ini link donlod nya gan

Encrypt dan Decrypt

2010-11-18T23:25:00.000+07:00

liat gan,pada edittext 2 ,kalimat pada edittext1 ,menjadi ngaco,bukan ngaco sih

itulah encrypt decrypt,encrypt adalah suatu metode untuk mengacak karakter menjadi kode Ascii,dan decrypt adalah sebaliknya.
ga bisa ngejelasin secara skill dewa gan,cuma tebakan cupunya doank,tapi semoga benar.
kita buat aja gan di delphinya

buat form kaya diatas gan.
sebelumnya nih gan fungsi encrypt decrypt nya,pasang dibawah "Implementation"

function Encrypt(const s:String; CryptInt:Integer): String;
var
  i: integer;
  s2: string;
begin
  if not (Length(s) = 0) then
    for i := 1 to Length(s) do
      s2 := s2 + Chr(Ord(s[i]) + CrypTint);
  Result := s2;
end;

function Decrypt(const s:String; CryptInt:Integer): String;
var
  i: integer;
  s2: string;
begin
  if not (Length(s) = 0) then
    for i := 1 to Length(s) do
      s2 := s2 + Chr(Ord(s[i])-cryptint);
  Result := s2;
end;

beri dulu event form show nya gan

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit3.ReadOnly:=true;
edit2.ReadOnly:=true;
end;

lalu kita panggil fungsi enkrip pada button1

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=encrypt(edit1.Text,length(edit1.Text));
end;

lalu dekrip pada button2

procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:=decrypt(edit2.Text,length(edit2.Text));
end;

jadi gan tinggal dicoba

InputBox dan InputQuery

2010-11-14T22:24:00.001+07:00

all right dah akhirnya ane bisa posting2 delphi lagi.sudah sekian lama blog ane tercinta kaga diurus total. maaf ya say
about delphi again gan.jika kemarin mengenal messagedialog dan messagebox sekarang bagian Inputbox dan InputQuery.ane satuin aja,soalnya bahasannya pendek gan.
langsung aja gan kita testing. buat form aja yang standar dengan penampakan seperti ini gan:
ada 3 button dan 1 label

menurut delphi.about.com
deklarasi fungsi inputbox tu kaya gini :
function InputBox(const ACaption, APrompt, ADefault: string): string;
sedangkan deklarasi fungsi inputQuery kaya gini gan :
function InputQuery(const ACaption, APrompt; var Value: string): boolean;
ada boolean dan ada string.
supaya tidak bingung kita coba kodingkan dalam 3 buah button yang sudah disiapkan gan:
sebelumnya beri event pada form show seperti ini gan:

procedure TForm1.FormShow(Sender: TObject);
begin
form1.Caption:='inputbox dan inputquery';
label1.Caption:='';
end;

button pertama kita beri listing seperti ini gan:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=inputbox('masukan nama anda','input here',s);
showmessage('nama anda adalah '+s);
form1.Caption:='selamat datang '+s;
end;

coba dicoba gan:
kemudian button kedua listing nya seperti ini gan:

procedure TForm1.Button2Click(Sender: TObject);
var
  nama:string;
  s:boolean;
begin
nama:='nama kamu';
s:=inputquery('Masukan lagi nama anda','again beybeh',nama);
if s then
  showmessage('nama anda adalah '+nama)
else
  showmessage('ko gak diisi men???');
end;

semoga bisa menemukan perbedaanya gan.
setelah paham,untuk button ketiga kodingin buat mengecek bilangan gan
seperti ini gan:

procedure TForm1.Button3Click(Sender: TObject);
var
  angka:string;
  cek:boolean;
begin
cek:=inputquery('testing gan','Masukan angka dari 1..100000',angka);
label1.Font.Style:=[fsBold];
try
 if (cek)and(strtofloat(angka) >= 1)and(strtofloat(angka) < 10) then
  label1.Caption:=angka+' merupakan bilangan satuan'
 else if (cek)and(strtofloat(angka) >= 10)and(strtofloat(angka) < 100) then
  label1.Caption:=angka+' merupakan bilangan puluhan'
 else if (cek)and(strtofloat(angka) >= 100)and(strtofloat(angka) < 1000) then
  label1.Caption:=angka+' merupakan bilangan ratusan'
 else if (cek)and(strtofloat(angka) >= 1000)and(strtofloat(angka) < 10000) then
  label1.Caption:=angka+' merupakan bilangan ribuan'
 else if (cek)and(strtofloat(angka) >= 10000)and(strtofloat(angka) < 100000) then
  label1.Caption:=angka+' merupakan bilangan puluh ribuan'
 else if (cek)and(strtofloat(angka) >= 100000)and(strtofloat(angka) < 1000000) then
  label1.Caption:=angka+' merupakan bilangan ratus ribuan'
 else if cek = false then
  showmessage('udah ah gan');
except
  label1.Caption:='jangan ngaco';
end;
end;

semoga bermanfaat gan

UTS

2010-11-11T18:34:00.002+07:00

GADA POSTING DULU ANE ISENG AJA.
AKHIRNYA UTS di kampus ane kelar juga.
bayangin aja 2 MINGGU GITU LOH,
napa ga di seminggu in aja sih,liat ni akibatnya blog ane kaga keurus payaaaaaaaaaaaaaah
makan ni hero favorit gw di DOTa

Konversi suhu dengan Delphi

2010-10-31T21:14:00.001+07:00

ya ini adalah posting akhir bulan oktober ini dimana besok hari 1 november ane bakal menjalani kebodohan kampus dahulu gan,yaitu UTS gan
sesuai judul posting ane gan masih dalam delphi2an yaitu tentang konversi suhu,ane niat bikin ginian abis keingetan tugas C++ dari kampus so ane buat juga aja dah delphinya + error handlingnya
penampakannya gan :

kita coba masukin nili gan

saat yang diinputkan itu berupa kalimat,karakter maka akan ada penampakan kaya gini gan

woho rampung sudah projek kecil2an ane silahkan gan kalo mau donlod projeknya

Penggunaan List View di delphi

2010-10-27T14:53:00.002+07:00

Ini merupakan Tugas dari kampus ane gan,bikinnya ampe jam 3 subuh,wkwkwkkw
pusing buat sortir2annya tapi alhamdulillah akhirnya rampung juga deh,so ane postingin aja dah.
dia ga pake database,hanya array,fiturnya ane tambah aja dari yang ditugaskan,biar dapet nilai++ ,hehehe
Fitur :
1.tambah data
2.edit data
3.simpan setelah edit
4.hapus data
5.report
6.Sortir berdasarkan Nama Barang
dengan meng klik kolom Nama Barang
7.Simpan Aktif List View ke file
8.Load Kembali hasil Simpanan Listview dari file

penampakannya gan:

buat tambah data:

data akan bertambah pada listview paling bawah:

tugasnya yaitu sortir berdasarkan Nama Barang.
untuk melakukan sortir,tinggal klik pada kolom "Nama Barang"

dan terakhir yaitu reportnya:

untuk projeknya bisa di donlod di mari gan:

Delphi LED

2010-10-22T11:15:00.002+07:00

RESPAWN AGAIN
baru aja login blogger ada yang komen,yang isinya kaya gini:

slam kenl ya mas..

saya ndo, mw tny bs g buat program lampu led hidup manual and 
otomatis pkai timer di delphi??
ni buat tugas kuliah mas, tinggl 1 minggu lg wktuny...hehee..
blas ya mas....
kebuutt..

waduh,bikin LED ternyata,ane nyubi gan,hehe gabisa langsung konek ke hardware nya,yang ane bikin cuma cupu2 nya doank,tapi semoga bisa membantu (ane juga tanya2 dulu ke orang)

kira-kira penampakannya kaya gini gan:

pungsi timernya bisa buat waktu kecepatan si lampu,semakin kecil akan semakin cepat

buat mas ndo dan seluruh pembaca setia http://andry-pein.blogspot.com/ nih ane sediain projek cupu nyubinya,maaf kalo ane nyubi,bisa protes atau koreksi kalau tidak memuaskan,hehe

Cek Umurmu dengan ini

2010-10-18T19:58:00.002+07:00

yang ini merupakan percobaan ko gan,masukin tanggal terus ketauan umur dari juragan itu berapa,hahahhaha.
yah ini bisa jadi tutor atau apa lah terserah yang pasti ane sengaja iseng2 lagi bikin ginian terus di postingkan sajalah.
penampakannya kaya gini gan:

ya maklum lah ane kan nyubi..
penampakan skripnya kaya gini ko gan dan mudah dimengerti.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  tahunskrng, bulanskrng, hariini: Word;
  tahun, bulan, hari: Word;
  umur: Word;
begin
  if Edit1.Text<>'' then
  begin
    DecodeDate(Now, tahunskrng, bulanskrng, hariini);
    DecodeDate(StrToDateTime(Edit1.Text), tahun, bulan, hari);
    if bulanskrng>bulan then
      umur:=tahunskrng-tahun;
    if bulanskrng      umur:=tahunskrng-tahun-1;
    if Bulanskrng = bulan then
    begin
      if hariini>=hari then
        umur:=tahunskrng-tahun;
      if hariini<=hari then
        umur:=tahunskrng-tahun-1;
    end;
    Label1.Caption:='Umurmu adalah : '+IntToStr(umur)+' Tahun';
  end;
end;

procedure TForm1.Edit1Click(Sender: TObject); 
begin 
application.HintColor:=clred; 
edit1.ShowHint:=true; 
edit1.Hint:='formatnya yaitu bulan/tanggal/tahun'; 
end;  

procedure TForm1.FormCreate(Sender: TObject); 
begin 
label1.Caption:=''; 
end;  

end.

selamat mencoba gan

Konversi dari detik ke (jam,menit,detik)

2010-10-15T18:38:00.001+07:00

jika kemarin tentang konversi bilangan bulat menjadi romawi,kali ini merupakan konversi dari detik menjadi jam,menit,detik. agar lebih jelasnya perhatikan penampakannya seperti ini gambarannya:

source codenya sederhana ko gan

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label2.Caption:='';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
jam,menit,detik,sisa,input:longint;
begin
input:=strtoint(edit1.Text);
jam:=input div 3600;
sisa:=input mod 3600;
menit:=sisa div 60;
detik:=sisa mod 60;
label2.Font.Style:=[fsbold];
label2.Caption:='hasil dari konversi adalah :'+inttostr(jam)+' jam '+inttostr(menit)+' menit '+inttostr(detik)+' detik';
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
edit1.Clear;
label2.Caption:='';
edit1.SetFocus;
end;

end.

ini link untuk donlod projeknya gan :

Delphi Task Manager

2010-10-14T18:45:00.000+07:00

sempat terpikir betapa sangat menjengkelkannya kalau OL di warnet dengan keadaan Task Manager tidak bisa dibuka karena di disable oleh billing,yah bete akhirnya karena kalau program NOT RESPONDING tapi task manager terkunci. untung ane nemu nih bagus pengganti task manager yah disini ane sharing kan saja,maklum yang buat orang laen karena ane belum bisa buatnya gan,hahahahhaha cupu nyubi..

liat source codenya aja ampun sumpahh ga ngerti banget ,tapi fungsinya mantap gan,sama2 kaya task manager window,cekidot saja lah donlod projeknya gan.

Konversi Bilangan ke Romawi

2010-10-13T10:39:00.001+07:00

Bukan termasuk tutorial,biasa lah ane cuma iseng doank posting ginian,hahaha,dari judul udah ketauan ko kalo program ini pungsinya merubah bilangan bulat menjadi Romawi,

nah kaya gitu gan.
skripnya ane kopas dari porum,ane cuma nambahin error handling nya aja

oke dah gan nih silhkan kalo mau lihat skripnya:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function IntToRoman(m: integer): string;
const
k=10;
roman_unit:array[1..k] of string = ('','I','II','III','IV','V','VI','VII','VIII','IX');
roman_tens:array[1..k] of string = ('','X','XX','XXX','XL','L','LX','LXX','LXXX','XC');
roman_hund:array[1..k] of string = ('','C','CC','CCC','CD','D','DC','DCC','DCCC','CM');
roman_thou:array[1..6] of string = ('','M','MM','MMM','MMMM','MMMMM');
var
n,v,w,x,y:integer;
begin
n:=m;
if n<>5999 then
result:='5999';
v := ((n - (n mod 1000)) div 1000)+1;
n := (n mod 1000);
w := ((n - (n mod 100)) div 100)+1;
n := (n mod 100);
x := ((n - (n mod 10)) div 10)+1;
y := (n mod 10) + 1;
result:= roman_thou[v] + roman_hund[w] + roman_tens[x] + roman_unit[y];
end;

procedure TForm1.Button1Click(Sender: TObject);
var bil : integer;
begin
if (edit1.Text='') then
  begin
    messagebox(self.Handle,'oow men check what you have done!!','Warning',MB_OK + MB_ICONINFORMATION);
  end else
  begin
    try
      bil:=strtoint(edit1.Text);
      if (bil < 0) or (bil > 5999) then
        showmessage('jangan kurang dari 1 dan jangan lebih dari 5999')
      else
        edit2.Text:=IntToRoman(bil);
    except;
      exit;
    end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.Hint:='hanya dari angka 1 sampai 5999';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.HintColor:=clred;
end;

end.

kalo mau donlod,ane sediain projeknya ko gan

Membuat Menu Item Pada Delphi

2010-10-11T20:16:00.000+07:00

jika kemarin merupakan popupmenu maka sekarang membahas tentang menu item,bisa dilihat pada setiap aplikasi pada windowmu,menu tersebut ada paling atas biasanya tersusun dari file,edit,view,dll sebagainya di delphi pun tentu kita bisa membuatnya. sama seperti kemarin kita akan mencoba yang nyubi2 saja sambil mengingat kembali posting kemarin,program kita kali ini hanya memunculkan form2 lain namun menggunakan main menu.

oke kita mulai saja,TMainMenu berada pada palette standard

lalu setelah itu kita klik kanan lalu pilih menu designer

sebelumnya kita tambahkan dua form baru seperti kemarin "file-new-form" aturlah ukurannya.
dalam contoh gambar saya dibawah ini niatnya hanya untuk meng exit program dan memunculkan dua form yang telah disiapkan sebelumnya.

untuk membuat menu tambahan kesamping kita klik kanan pada form kemudian klik insert submenu sehingga kita bisa menambahkan item baru kesamping.

setelah beres semua kita beri listing yang sama seperti posting sebelum ini saja.
kreasi ini tidak terpaku pada contoh,jadi rekan2 bisa mengkreasikan atas semua tutor nyubi yang semua saya buat ini.
selamat berkreasi

Komunikasi 2 form atau lebih

2010-10-10T16:23:00.002+07:00

Mengapa judulnya komunikasi?soalnya yang namanya komunikasi kan artinya memanggil,jika selama ini hanya terpacu pada satu form,sekarang bagaimana kita bekerja dengan 2 form atau lebih?
Namanya juga nyubi,jadi kita hanya membuat program nyubi2 sajah yang intinya kita memanggil form lain gitu loh.Lantas bagaimana membuatnya?
kita coba tes dengan 3 buah form.

biasa buka projek baru,kemudian tampilan awal hanya memperlihatkan 1 buah form dan satu buah unit,untuk menambahkan form baru kita pergi ke "file-new-form"

atau melalui shortcut di

yang gambarnya biru
setelah itu akan muncul form2,atur2 lah sampai ukurannya memungkinkan atau pas,kemudian lakukan hal yang sama untuk menambahkan form3 sehingga dalam lembar kerja terdapat 3 buah form

dan akan terbentuk 3 buah unit

pada form satu kita pasang 2 button untuk memanggil form2 dan form3,beri event onclick pada button pertama.

kemudian pergi ke "project - compile project1"

kemudian akan ada MANTRA yang berbunyi seperti ini :

pilih yes,kemudian lakukan hal yang sama pada button kedua untuk memanggil form ketiga.
setelah beres semua tinggal dijalankan saja "project - run"

Penggunaan Popup Menu di Delphi

2010-10-08T18:34:00.000+07:00

judulnya popup. popup disini bukan new window yang tiba2 muncul kalau kita mengklik iklan disuatu website (browser).popup disini adalah menu kecil yang floating (melayang) apabila kita mengklik tombol kanan mouse. seperti ini:

dalam delphi dikenal sebagai popup menu.

sekarang tutornya bagaimana membuat popup menu tersebut.
bentuk form yang ukurannya standar lah tidak terlalu besar.
kita hanya memakai 2 bahan yaitu popup dan shape,popup ada di palette standard

yang disamping label
kemudian 1 buah shape pada palette additional

nah setelah semua dipersiapkan kita bentuk dengan sangat sederhana saja seperti ini:

lantas untuk menampilkan menu2 dalam popup nya kita klik kanan komponen popupmenu pada form nya lalu klik "menu designer"

karena program yang akan kita buat itu hanya mengganti shape-shape pada form.
lalu kita isi semua caption pada popup nya seperti ini :

sampai 6 buah bentuk shape

setelah semua selesai kita koneksikan agar popup tersebut tampil pada saat program di run,yaitu dengan cara sorot bagian formnya

terlihat disana pada bagian "popupmenu",nah itulah yang akan kita panggil desain popup yang telah kita buat agar popup tersebut bisa tampil saat program run.
setelah itu dilakukan kita hanya beri listing pada masing2 menu item di popup menunya,

bahan bertambah dan kita langsung saja beri event onclicknya

karena ada 6 jadi ya kita kasih 6 aja,hhahahahhahaha

procedure TForm1.rectangle1Click(Sender: TObject);
begin
shape1.Shape:=stRectangle;
end;

procedure TForm1.circle1Click(Sender: TObject);
begin
shape1.Shape:=stCircle;
end;

procedure TForm1.elips1Click(Sender: TObject);
begin
shape1.Shape:=stEllipse;
end;

procedure TForm1.square1Click(Sender: TObject);
begin
shape1.Shape:=stSquare;
end;

procedure TForm1.roundrect1Click(Sender: TObject);
begin
shape1.Shape:=stRoundRect;
end;

procedure TForm1.roundsquare1Click(Sender: TObject);
begin
shape1.Shape:=stRoundSquare;
end;

selesai sudah dan sudah bisa dijalankan

bentar ane siapin postingnya

2010-10-04T01:00:00.001+07:00

iseng doank lah,,gada post gada artikel,
pusing kuliah,CAPE
bntar2,,ane lanjut ngetik dulu buat posting full sebulan ini

Array Bag IX (Record Berisi Array)

2010-09-25T23:55:00.001+07:00

Lanjutan yang kemarin gan jika yang kemarin merupakan Array Berisi Record maka sekarang adalah kebalikannya,yaitu Record Berisi Array.Contoh programnya yaitu berupa perhitungan nilai mahasiswa yang memiliki tiga buah nilai (nilai kuis,nilai UTS,nilai UAS). Adapun nilai akhir (NA) akan dihitung berdasarkna ketentuan berikut.
NA = (20% x kuis)+(30% x UTS)+(50% x UAS).
Berdasarkan kasus diatas,kita dapat mendefinisikan mahasiswa kedalam sebuah record yang didalamnya mengandung field bertipe array,dengan penulisan kode seperti berikut:

type
 TSiswa = record
  NIM:string[8];
  Nama:string[30];
  Nilai:array[1..3] of real;
 end;

kode diatas menunjukan bahwa setiap mahasiswa memiliki tiga buah nilai.
berikut contoh programnya:

program RecordArray;
uses wincrt;

const max = 100;

type
 TSiswa = record
  NIM:string[8];
  Nama:string[30];
  Nilai:array[1..3] of real;
 end;
 TKumpulanSiswa = array[1..max] of TSiswa;

var
 A : TKumpulanSiswa;
 i,n : integer;
 NA : real

begin
 write('Masukan jumlah siswa yang akan diisikan: ');
 readln(n);
 writeln;

 {Memasukan data}
 writeln('Memasukan Data');
 writeln('----------------');
 for i:=1 to n do begin
  writeln('Data siswa ke-',i);
  with A[i] do begin
   write('NIM   :');readln(NIM);
   write('Nama  :');readln(Nama);
   writeln('Nilai');
   write('Nilai 1(kuis): ');readln(nilai[1]);
   write('Nilai 2(UTS): ');readln(nilai[2]);
   write('Nilai 3(UAS): ');readln(nilai[3]);
  end;
  writeln;
 end;

 {Menampilkan data} 
 writeln('DAFTAR NILAI MAHASISWA');
 writeln('==========================');
 writeln('NIM':8, '':2, 'NAMA':25, '':2, 'NILAI');
 writeln('==========================');
 for i:=1 to n do begin
  with A[i] do begin
   NA:=(0.2*Nilai[1])+(0.3*Nilai[2])+(0.5*Nilai[3]);
   write(NIM:8, '':2, Nama:25, '':2, NA:0:2);
  end;
  writeln;
 end;  
end.

Array Bag VIII (Array Berisi Record)

2010-09-24T16:07:00.000+07:00

welcome back gan kali ini tentang record dan array,ada yang record berisi array,ada yang array berisi record,masing2 ada penjelasannya,yang sekarang bagian array yang berisi record. Pembuatan array yang elemen-elemennya berupa record sebenarnya sangat sederhana,konsepnya sama seperti kita mendefinisikan array untuk tipe data dasar (integer,real,string,char). Langkah awal untuk melakukan ini kita harus mendefinisikan record terlebih dahulu yang selanjutnya akan dijadikan tipe data pada saat pendeklarasian array,kaya gini gan :

type
 {Mendefinisikan tipe data record dgn nama TSiswa}
 TSiswa = record
  NIM : string[8];
  Nama: string[30];
 end;
 
 {mendefinisikan tipe data berupa Array dari tipe TSiswa}
 TKumpulanSiswa = array[1..100] of TSiswa;

 {deklarasikan variabel dengan yang bertipe TKumpulanSiswa}
var
 A : TKumpulanSiswa;

Terlihat diatas bahwa tipe TkumpulanSiswa merupakan tipe bentukan berupa array dimana setiap elemennya berupa record TSiswa. Selanjutnya tipe tersebut digunakan untuk mendeklarasikan variabel A. Dengan demikian,variabel A dapat menampung 100 buah record yang bertipe TSiswa.
berikut contoh programnya gan :

program ArrayRecord;
uses wincrt;
const max = 100;
type
 TSiswa = record
  NIM:string[8];
  Nama:string[30];
 end;
TKumpulanSiswa = array[1..max] of TSiswa;

var
 a: TkumpulanSiswa;
 i,n: integer;
begin
 clrscr;
 write('Masukan jumlah siswa yang diinginkan');
 readln(n);
 writeln;
 
 {masukan data ke array}
 writeln('Memasukan data');
 writeln('________________');
 for i:=1 to n do begin
  writeln('Data siswa ke-',i);
  write('NIM :');readln(A[i].NIM);
  write('Nama:');readln(A[i].Nama);
  writeln;
 end;
 
 {menampilkan data dari array}
 writeln;
 writeln('DAFTAR SISWA');
 writeln('_________________');
 writeln('NIM    ', '':2,'  NAMA');
 writeln('_________________');
 for i:=1 to n do begin
  with A[i] do begin
   writeln(NIM:8, '':2, Nama);
  end;
 end; 
end.

Jika dijalankan harus menghasilkan result seperti ini :

Masukan jumlah siswa yang diinginkan :2

Memasukan data
------------------
Data siswa ke1
NIM  :123456789
Nama :Andry

Data siswa ke-2
NIM : 456321879
Nama: Fadrie

DAFTAR SISWA
----------------
NIM        Nama
123456789  Andry
456321879  Fadrie

mudah kan?? posting selanjutnya berupa kebalikannya,yaitu record yang berisi array

Deret Fibonacci dengan delphi (3 style)

2010-09-23T01:22:00.000+07:00

Kali ini bukan tutorial lagi,ane sengaja posting aja siapa tau bermanfaat,lanjut saja gan .
program yang ane buat adalah program untuk menentukan bilangan fibonacci,dari judulnya ane tulis 3 style maksudnya ada 3 gan.sebelum ke program,ane mau ngejelasin dulu apa itu bilangan fibonacci. gambaran bilangannya kaya gini : 1,1,2,3,5,8,13,21 kalo dijelasin menurut kata2 sendiri,deret fibonacci yaitu deret yang bilangan selanjutnya merupakan penjumlahan dua suku sebelumnya (maaf ngaco gabisa matematika ane ) tapi kira2 begitulah. kita coba di delphikan saja

maksud 3 style dari judul diatas adalah dimana program pertama hanya menentukan barisan deret yang kita inputkan hanya satu angka,untuk 2 program selanjutnya yaitu bilangan pertama,kedua dan banyak deretnya kita inputkan sendiri dan ada dua metode yaitu dengan array dan tanpa array.
liat penampakannya kaya gini gan :

silahkan donlod projeknya aja gan dibawah.

Selisih 2 Tanggal dengan Delphi

2010-09-21T01:24:00.000+07:00

gambarnya kaya gini gan,postingan kali ini bukan termasuk tutorial,ini merupakan draft program kecil2an delphi ane di kampus buat dikumpulkan ,namanya program untuk menghitung selisih dua tanggal yang berbeda. untuk gambarnya bisa dilihat saja gan.

cara membuatnya sangat mudah,kita hanya cukup

buat form dengan penampakan seperti ini :

dan bahan2nya adalah:

untuk komponen datetimepicker berada di pallete win32
ditunjukan pada gambar yang paling kanan,kemudian pada object inspector,beri nilai kind = dtkDate pada propertiesnya

dan komponen statictext berada pallete additional

kemudian beri event onchange pada kedua datetimepicker tersebut,kira-kira seperti ini :

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
edit1.Text:=datetostr(datetimepicker1.Date);
end;

procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
edit2.Text:=datetostr(datetimepicker2.Date);
end;

kemudian pada bitbtn beri event onclick dan ketikan rumus ini :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text = '') or (edit2.Text = '') then
begin
showmessage('Jangan Ada Kekosongan di antara kita');
edit1.Clear;
edit2.Clear;
end else begin
try
statictext1.Caption:= 'selisih dari kedua tanggal adalah = '+
floattostr(strtodate(edit1.Text)-strtodate(edit2.Text))+' hari';
except
exit;
end;
end;
end;

silahkan dicoba dan jalankan

Array Bag VII (Array sebagai parameter)

2010-09-18T18:58:00.000+07:00

kal ini adalah menggunakan array sebagai parameter,dalam kasus-kasus pemrograman tertentu kita juga dituntut untuk menggunakan array sebagai parameter sebuah prosedur atau fungsi. Hal ini akan kita jumpai pada saat kita akan melakukan pencarian data maupun pengurutan sekumpulan data, (materi mengenai prosedur dan fungsi akan ada bahasannya,disini hanya menyinggung sedikit).
berikut adalah contoh penggunaan array sebagai parameter :

type
 Bilangan = array[1..100] of integer;
procedure InputArray(A: Bilangan; N:integer);
var
 i:integer;
begin
 for i:=1 to N do
  write('Masukan elemen array ke- ',i);readln(A[i]);
end;

Pada contoh kode di atas kita telah membuat prosedur yang memiliki paramater betipe array. Prosedur tersebut akan digunakan untuk melakukan pengisisan elemen array sebanyak N,dimana 1<=N<=100 .Perlu sekali untuk diperhatikan bahwa array yang dilewatkan sebagai parameter ini harus dideklarasikan terlebih dahulu. Berikut adalah penggunaan array yang tidak diijinkan oleh kompiler pascal.

procedure InputArray(A:array[1..100]of integer; N); {SALAH}

Sebagai gantinya,apabila kita memang tidak ingin mendeklarasikannya terlebih dahulu,maka kita harus menggunakan array terbuka. Array terbuka adalah array yang tidak memiliki batas.yang kita pelajari disini array terbuka hanya dapat digunakan sebagai parameter. Artinya kita tidak dapat menggunakannya untuk pendeklarasian variable biasa.
nah kode ngaco diatas perbaikannya seperti ini:

procedure InputArray(A:array of integer; N); {BENAR}

Untuk memahaminya,nah ini merupakan contoh program pascalnya,bahasan mengenai procedure akan ada ko,jadi tenang saja.

program paramArray
uses
 wincrt;
const 
 max = 100;
type
 Bilangan = array [1..max] of integer;

procedure InputArray(A:Bilangan; N:integer);
var
 i:integer;
begin
 writeln('Masukan data: ');
 for i:=1 to N do
  write('Masukan nilai A[',i,'] : ');readln(A[i]);
emd;

procedure OutputArray(A:Bilangan; N:integer);
var
 i:integer;
begin
 writeln('Menampilkan data: ');
 for i:=1 to N do
  write('A[',i,'] = ',A[i]);
end;

var 
 Arr:Bilangan;
 count:integer;
begin
 clrscr;
 write('Masukana banyaknya elemen array :');readln(count);
 writeln;
 {memamggil prosedur input array}
 InputArray(Arr, count);
 writeln;
 {memanggil prosedur output array}
 OutputArray(Arr, count);
 readln;

end.

contoh hasilnya dari program diatas akan seperti ini:

Masukan banyaknya elemen array : 3

Memasukan data :
masukan nilai A[1] : 10
masukan nilai A[2] : 20
masukan nilai A[3] : 30

Menampilkan data :
A[1] = 10
A[2] = 20
A[3] = 30

jangan khawatir jika ada kata2 seperti procedure
itu ada bahasannya sendiri ko gan,nyantey aja,namanya juga bertahap

Array Bag VI (Array Konstan)

2010-09-14T17:54:00.000+07:00

sekarang kita lanjut lagi pascal2annya,kali ini mengenai array konstan.
maksud dari array konstan adalah nilai yang terkandung di dalam sebuah array selalu bernilai konstan,artinya nilai-nilai tersebut tidak dapat diubah .
untuk mendeklarasikan array konstan kita harus menggunakan kata kunci const. Berikut adalah bentuk umumnya.

const
  NamaArray : array[indeksAwal..IndeksAkhir] of tipe_data =
              (nilai1,nilai2, ...);

Perlu diperhatikan bahwa nilai konstan yang dituliskan diatas harus sesuai dengan banyaknya elemen array yang didefinisikan.Sebagai contoh,apabila kita ingin mendeklarasikan array dengan jumlah elemen 5,maka nilai konstan yang diisikan pun haruslah berjumlah 5. contohnya kaya gini :

const
 A: array[1..5] of char =('A','B','C','D','E');

oleh karena array A diatas bersifat konstan,maka kita tidak dapat mengubah nilainya dengan nilai yang lain,deskripsinya kaya gini gan:

A[1]:='V'; {SALAH,karena elemen A[1] selalu bernilai 'A'}
A[2]:='W'; {SALAH,karena elemen A[2] selalu bernilai 'B'}
A[3]:='X'; {SALAH,karena elemen A[3] selalu bernilai 'C'}
A[4]:='Y'; {SALAH,karena elemen A[4] selalu bernilai 'D'}
A[5]:='Z'; {SALAH,karena elemen A[5] selalu bernilai 'E'}

Hal ini menunjukan bahwa array konstan nilainya hanya dapat dibaca,namun tidak untuk diubah.
nih contoh programnya :

program ArrayKonstan;
uses wincrt;
const
  BULAN : array[1..12] of string = 
          ('Januari','Februari','Maret','April','Mei','Juni',
           'Juli','Agustus','September','Oktober',
           'November','Desember');
var 
  noBulan : integer;
begin
  write('Masukan nomor bulan : ');readln(noBulan);
  write('Nama bulan ke-', noBulan,' adalah',BULAN[noBulan]);
end.

maka output hasil dari program di atas adalah

Masukan nomor Bulan : 9
Nama bulan ke-9 adalah September

sekian dulu gan dan semoga bermanfaat

Messagebox di Delphi

2010-09-13T00:00:00.000+07:00

lama tidak posting delphi lagi ,lama banget dah,
langsung saja lah,,
yang sekarang kita berdelphi dengan messagebox gan,
jika yang kemarin merupakan message dialog,sekarang message box nya gan,sama kok seperti message dialog,cuma beda skripnya saja,jika lupa tentang messagedialog,bisa kunjungi message dialog delphi
secara fungsi delphi,penggunaan messagebox dalam delphi kira2 seperti ini gan:

messagebox(hWnd:HWND;lpText:PAnsiChar;lpCaption:PAnsiChar;uType:Cardinal);
yang dimana
hWnd:HWND; adalah handle nya,artinya kita bisa pakai angka 0 untuk membuat mesejbox dapat keluar dari form sehingga form dapat digeser,dan menggunakan self.handle supaya mesejbox fokus di form yang artinya mesejbox harus diklik tombolnya dan form otomatis tidak aktif.
lpText:PAnsiChar; adalah kata2 yang kita buat di kotak mesejbox nya.
lpCaption:PAnsiChar; adalah judul mesejbox nya.
uType:Cardinal; adalah type dari tombol dalam mesejbox beserta ikonnya.
sekarang kita percobaan membuat formnya,
kalo ane sederhana kaya ini aja gan :

nah kalau bisa kita samakan saja dulu gan supaya ane gampang ngejelasinnya.
pertama2 kita dobel klik button yang ini

lalu beri skrip seperti ini:
messagebox(self.handle,'ikon konfirmasi','coba lagi',mb_yesno+mb_iconinformation);
lalu button ini

skripnya kaya gini:
messagebox(self.Handle,'ikon warning','coba lagi',mb_okcancel+mb_iconwarning);
lalu ini

skripnya ini:
messagebox(self.Handle,'ikon stop','coba lagi',mb_abortretryignore+mb_iconstop);
dan terkahir yang ini:

dengan skrip:
messagebox(self.Handle,'ikon question','coba lagi',mb_yesno+mb_iconquestion);
buat tombol paling bawah yang ini:

if messagebox(self.Handle,'liat ni gan','liat',mb_yesno+mb_iconquestion) = 6 then
showmessage('anda menekan tombol yes')
else
showmessage('anda menekan tombol no');
disitu terlihat ada angka 6 kan?
itu merupakan message result gan,bahwa artinya jika ingin menggunakan statemen if diatas yang menggunakan message box dengan tombol yes no,maka untuk message result tombol yes,dalam delphi memakai angka 6
nih ane kasih tabel nya gan untuk tombol2 lain

message result	untuk tombol
1:	tombol OK
2:	tombol Cancel
3:	tombol Abort
4:	tombol Retry
5:	tombol Ignore
6:	tombol Yes
7:	tombol No

gimana gan??paham kan???

NB:
sebenarnya kita tidak harus terpaku mencontoh diatas,kita bisa mengkombinasikan tombol dalam mesej box beserta ikon2nya,,yang diatas hanya contoh,,bahkan satu tombolpun bisa ko.lalu coba ganti self.handle dengan angka 0 dan bandingkan perbedaanya ,,oke gan??semoga bermanfaat

Blog Comment With Kaskus Emote Ver 2

2010-09-12T16:53:00.000+07:00

INI merupakan apdet postingan dari pasang emote kaskus dibawah kotak komentar
ane melakukan apdet karena ada smiley kaskus yang baru,,
yaitu gambar dan ini
ya otomatis buat emot komen di blogger nya ane perbaharui lagi skripnya
,, sebelum menggunakan emote kaskus di kotak komen,kita harus mengedit templet blog kita supaya kotak komentar nya ada dibawah postingan blog kita,bisa diliat tutornya di pasang kotak komentar dibawah postingansetelah membuat kotak komentar berada dibawah postingan,maka kita percantik lagi komentar di bawah postingan itu dengan mempercantiknya dengan emote kaskus ,yang fungsinya kalo kita komentar di blog,kita bisa menyisipkan emote2 kaskus dalam komentar tersebut.
tertarik????
Emote Kaskus :

<script src='https://www.opendrive.com/files/7141279_OzLgL_30fd' type='text/javascript'/>

4. Kemudian cari kode berikut ini :

5. Kalo sudah ketemu letakkan kode2 berikut setelah kode <p class='comment-footer'>
ini niiiiiiiiiiiih:

6. saving dah templetnya
coba gan coba pasti mantap dah
thanks gan atas visitnya jangan lupa follow gan atau like atau komen

Array bag V (array sebagai tipe bentukan)

2010-09-11T20:18:00.000+07:00

ketemu lagi gan masih dalam pascal2an,kali ini akan menjelaskan tentang array sebagai type data bentukan sebenarnya materi ini sudah sedikit disinggung ditipe bentukan array,sekarang akan dibahas lebih detilnya lagi gan .
array bisa i deklarasikan seaai type gan,kita hanya menambah kata kunci type. ni gan contoh array yang didefinisikan sebagai type data :

type
  Bilangan = array [1..100] of integer;
  Vokal = array [1..5] of char;

Setelah mendefinisikan typenya,maka kita memerlukan variabel untuk memanggilnya,deklarasi variabelnya seperti ini gan:

var
  x : Bilangan;
  abjad : Vokal;

jadi penjelasannya kita mendeklarasikan variabel dengan nama x yang bertipe Bilangan dan variabel abjad yang bertipe Vokal.
sama seperti bahasan kemarin,kita bisa mengisinya dengan nilai gan.contohnya kaya gini:

begin
  x[1]:=4;
  x[2]:=9;
  ...
  vokal[1]:='a';
  vokal[2]:='i';
  ...
end.

nah begitu gan ceritanya,,semoga bermanfaat gan

Array Bag IV (Mengapa Menggunakan Array?)

2010-09-09T21:52:00.000+07:00

nah,judul posting ini adalah sebuah pertanyaan yang mesti ane jawab gan ,ini bagian IV tentang penjelasan array gan,oke dah langsung saja lagi,ceritanya gini gan.
kenapa kita harus mendeklarasikan array?,nah apabila kita akan membuat program untuk menyimpan sekumpulan data,misalnya data-data hasil penelitian yang berupa bilangan,dimana jumlah data itu puluhan,ratusan,atau bahkan ribuan,apakah kita akan menggunakan variabel sebanyak data yang ada??? ,jawabannya tentu tidak,karena hal tersebut merupakan sesuatu yang tidak efisien.sebagai contoh,misalkan data tersebut ada sepuluh,lalu kita pakai variabel biasa untuk mendeklarasikan ke sepuluh data tersebut.ini kasusnya :

var
 n1,n2,n3,n4,n5,n6,n7,n8,n9,n10:integer;
begin
 write('masukan data ke-1: ');readln(n1);
 write('masukan data ke-2: ');readln(n2);
 write('masukan data ke-3: ');readln(n3);
 write('masukan data ke-4: ');readln(n4);
 write('masukan data ke-5: ');readln(n5);
 write('masukan data ke-6: ');readln(n6);
 write('masukan data ke-7: ');readln(n7);
 write('masukan data ke-8: ');readln(n8);
 write('masukan data ke-9: ');readln(n9);
 write('masukan data ke-10: ');readln(n10);

betapa tidak efisiennya dan akan sangat merepotkannya pada kita ,bayangkan jika datanya ratusan atau ribuan,gimana tuh??

Untuk mengatasinya,maka kita memakai array gan,supaya selain lebih sederhana maka program akan mudah dalam pengerjaannya,kode konyol diatas ane persingkat lagi oke,dan menjadi seperti ini gan :

const
 max = 10;
var
 n : array[1..max] of integer;
 i : integer;
begin
 for i:=1 to max do 
  write('Masukan data ke-', i, ' : ');readln(n[i]);
end.

gimana gan?ngerti kan?kalau datanya ingin seratus,tinggal ganti const max nya menjadi 100.
semoga bermanfaat gan

Array Bag III (Mengakses Elemen Array)

2010-09-08T23:20:00.000+07:00

lanjut ke bag III gan,masih array2an,kali ini ane bakal ngejelasin mengakses array,langsung saja lagi dah.Langkah pertama yang adalah mengisikan nilai kedalam elemen-elemen array yang bersangkutan.Bentuk umumnya kaya gini gan :

NamaArray[indeks]:= nilai;

itu hanya bentuk umumnya gan,untuk lebih jelasnya liat yang bawah gan:

var 
  A: array[1..100] of integer;
begin
  A[1]:=1; {mengisi elemen pertama dengan nilai 1}
  A[2]:=2; {mengisi elemen kedua dengan nilai 2} 
  A[3]:=3; {mengisi elemen ketiga dengan nilai 3}
  ...
  A[100]:=100;{mengisi elemen keseratus dengan nilai 100}
end.

tapi kode diatas,tidak efisien gan,ampe 100 kita harus ngisi manual .
untuk lebih sederhananya,kita bisa pakai pengulangan gan,kode diatas ane sederhanain jadi kaya gini:

var 
  A: array[1..100] of integer;
  i: integer;
begin
  for i:=1 to 100 do begin
    A[i]:=i;
  end;
end.

nah dibawah ini adalah contoh progamnya gan

program AksesArray;
uses wincrt;
const
  max = 26; {jumlah alpabet}
var
  A: array[1..max] of char;
  c: char;
  i: integer;
begin
  c:='a';
  i:=1;
  while (i<=max) do begin
    A[i]:=c;
    Inc(c);
    Inc(i);
  end;
  
  for i:=1 to max do begin
    write(A[i], ' ');
  end; 
end.

hasilnya mesti abjad dari a sampe jet gan

Array Bag II (Deklarasi Array)

2010-09-06T00:41:00.000+07:00

lanjut lagi gan main pascalnya kali ini ane bakal ngejelasin bagaimana mendeklarasikan array dalam pascal. langsung saja oke gan?
Sama seperti variabel lain,array juga di deklarasikan di dalam deklarasi variabel. Bila akan di definisikan sebagai tipe bentukan,maka array juga akan di deklarasikan di bagian definisi tipe (dibawah kata kunci type). dalam bahasa pascal,pendeklarasian array menggunakan kata kunci array dan tipe data yang akan disimpan di dalamnya,selain itu juga harus disertai dengan batas-batas indeksnya yang diapit oleh tanda bracket ([]). Berikut adalah bentuk pendeklarasiannya.

NamaArray : array [indeksawal..indeksakhir] of tipe_data;
Sebagai contoh,apabila ingin mendeklarasikan array dengan nama A yang berisi 10 buah elemen yang bertipe data integer,maka kita harus mendeklarasikannya dengan cara berikut :

var
  A : array [1..10] of integer;

Pada kode tersebut,indeks array dimulai dari satu.beda dengan bahasa C yang indeks array nya dimulai dari angka 0,pada pascal,indeks bisa dimulai dari angka berapapun. Selain itu indeks array juga dapat bertipe karakter maupun tipe enumerasi. Berikut ini contoh-contoh kode yang digunakan untuk mendeklarasikan 10 buah elemen array yang bertipe integer.

var
  A1 : array [0..9] of integer;
  A2 : array [5..15] of integer;
  A3 : array ['a'..'j'] of integer;
  A4 : array ['A'..'J'] of integer;

Dalam bahasa pascal tersedia dua buah fungsi yang dapat digunakan untuk mengambil indeks terendah dan tertinggi suatu array,yaitu dengan fungsi low dan High. Adapun parameter dari kedua fungsi tersebut adalah nama array yang akan dicari indeksnya. Kodenya kaya gini gan

var
  A : array [1..10] of integer;
  terendah,tertinggi: ineteger;
begin
  terendah:= Low(A);  {akan menghasilkan 1}
  tertinggi:= High(A); {akan menghasilkan 10}
  ...
end;

nah sekian dulu gan,array selanjutnya tentang mengakses elemen array.
moga bermanfaat gan

BOT Perfect World Indo SAMUDERA ALL SERVER Reloaded

2010-09-05T20:53:00.001+07:00

NIH GAN,,HOT
BOT PW SAMUDERA...... BISA MOMON YANG GA AGRESIF
ADA DUA,,
BUAT NGEBOT SAMBIL DITINGGAL KOMPI SAMA NGEBOT SAMBIL NGERJAIN TUGAS(BISA SAMBIL NGETIK)
INI BUAT BLACK BOT YANG BARU,

INI PROPHET BOT YANG BISA SAMBIL NGETIK

Semua Tentang Array (pascal)

2010-09-02T22:54:00.000+07:00

yampun,miris ane ini blog udah ga keurus lagi.. abis kuliah si gan .
tapi sekarang ane bakal aktip lagi gan,,bulan baru materi baru gan,kali ini kita pascal2 an dulu yang akan membahas tentang array sampai tuntas .
langsung saja ya..
apa itu array??????????

menurut definisinya, array (larik) adalah sebuah variabel yangdapat menyimpan lebih dari satu nilai sejenis (artinya tipe datanya sama). Hal ini tentu berbeda dengan variabel biasa yang hanya mampu menampung satu buah nilai. setiap nilai yang disimpan di dalam array disebut elemen array,sedangkan nilai urut yang digunakan untuk mengakses elemennya disebut indeks array. sebagai contoh,misalkan terdapat array A yang memiliki 10 buah elemen nilai yang bertipe integer,maka kita dapat merepresentasikannya dengan gambar berikut.

Setiap elemen array diatas menyimpan nilai bertipe integer dan akan menempati alamat memori yang berbeda, hal ini akan menyebabkan array memeiliki ukuran 40byte,yang berasal dari 10 x 4. nilai sepuluh merupakan banyaknya elemen array dan nilai 4 merupakan ukuran dari tipe data integer .

nah baru segitu dlu gan array nyam itu masih bahasan pemanasan,kesananya tunggu posting selanjutnya aja gan

penggunaan progress bar di delphi

2010-08-22T20:40:00.000+07:00

sebelumnya liat dulu pic ini gan

nah yang ijo2nya itu adalah progress bar (ijo = mirip ) haha..
nah kali ini di delphi kita akan membuat contoh penggunaan progress bar tersebut,ya dengan program nyubi tentunya,, yang nyubi2 aja dulu lah.
nah penampakan program nyubi kita kali ini seperti :

bahan2nya berupa

progressbar ada di palette win 32

dan statictext berada di palette additional

statictext ditunjukan oleh gambar yang A itu
nah sekarang kodingnya.
beri event on create pada formnya

nah pada buttonnya beri event click

oke dah selesai coba run saja,,
dan semoga bermanfaat

penggunaan trackbar + shape di delphi

2010-08-19T22:12:00.000+07:00

lanjut lagi delphi nya men, jika delphi kemarin mengenalkan tentang shape,kali ini tentang trackbar,trackbar adalah komponen yang memungkinkan kita melakukan geser2 gitu,seperti volume,komponen trackbar ada di palette additional.

penggunaannya bisa di aplikasikan pada program nyubi kali ini yang memungkinkan kita merubah ukuran suatu shape dengan menggeser trackbar tersebut,formnya kaya gini gan:

bahan2nya berupa:

setelah itu baru kita mulai listing2nya,,
beri event pada form dengan event formcreate dan listingnya kaya gini :

atur properties pada trackbar nya dengan angka 4 di max nya

lalu pada trackbar nya beri event change,

dan pada combobox change

dan terakhir pada combocolornya

oke dah sekian dan silahkan run gan

penggunaan shape di delphi

2010-08-16T23:58:00.000+07:00

delphi kali ini akan menjelaskan penggunaan komponen shape
program nyubitolnya berupa program yang bisa mengganti shape dan merubah warnanya dengan menggunakan colorcombobox,kedua komponen berada pada palette additional.
penampakannya kaya gini gan:
untuk shape

untuk colorcombobox
.
kita akan membuat program nyubitol yang seperti ini penampakannya :

bentuk sedemikian rupa,persis ga persis gapapa .
jadi yang dibutuhkannya yaitu:

lalu pada listboxnya di properties object inspector beri item 6 buah.

dengan meng klik kotak kecil nya dan pada editornya masukan ininya:

setelah semua disiapkan saatnya memberi listing pada komponen listbox dan combocolornya.
untuk listbox beri event click dan listingnya kaya gini:

dan untuk combocolor beri event onchange.

lalu coba run oleh rekan2 semua dan penampakan akhirnya seperti ini:

oke dah selesai juga,,
semoga bermanfaat

Sotosop Keren,Gambar yang Sereeeem

2010-08-15T23:59:00.001+07:00

Ni yang sotosop salut dah jago banget pokonya,,
sumbernya dari kaskus gan
cekidot......

Spoiler for alien lagi:

Spoiler for sesuatu dari matamu:

Spoiler for ga ngerti juga:

Spoiler for meleleh:

Spoiler for pendengaran sempurna:

lagi gan klik link bawah ane

Spoiler for mumi:

Spoiler for ga ngerti:

Spoiler for bathub sendiri:

Spoiler for mirip alien:

Penggunaan Timer di Delphi

2010-08-14T01:01:00.002+07:00

kali ini trik blogging nya di pending dulu,, karena ane akan mengusung title blog ini lagi yang ngebahas tutor2 for nyubi tentang pascal dan delphi
untuk tutor kali ini ane bakal ngasih sepintas tentang penggunaan timer di delphi
komponen timer ada di palette system nih penampakannya.

program nyubi yang akan kita buat sekarang yaitu cuma nampilin jam,tanggal,jam+detik dan tanggal+hari. ya namanya juga nyubi ane sedih nyubi mulu.
oke dah langsung aja buat form yang kecil aja dan pasang 4 label dan 1 timer

nah beri code pada timer nya,,
tinggal dobel klik aja men dan kodenya kaya gini :

dan coba jalankan gan,hasilnya mesti kaya gini gan :

terlihat masing2 caption berbeda kan???

label1 yang captionnya 11:10:51 PM menunjukan waktu sistem komputer kita
label2 yang 8/13/10 berati itu tanggal sistem
label3 yang ada jumatnya itu didapat dari fungsi array yang ada di listing
label4 kan ada formatdatetime berati kita memformat sendiri tampilan waktu nya,dan 'hh:nn:ss' adalah pemformatannya dimana hh=(hour)jam,nn=(menit)dan ss=(second)detik

NB :
bahasan tentang array akan termunculkan di bagian pascal ntar
oke dah silahkan dicoba dan semoga bermanfaat !!

Pasang Emot Kaskus di bawah Kotak Komentar

2010-08-12T23:17:00.002+07:00

INI yang paling cool dan hot,, kali setelah kemarin membuat kotak komentar berada dibawah postingan,maka kita percantik lagi komentar di bawah postingan itu dengan mempercantiknya dengan emote kaskus ,yang fungsinya kalo kita komentar di blog,kita bisa menyisipkan emote2 kaskus dalam komentar tersebut.
tertarik????
Emote Kaskus :

<script src='https://www.opendrive.com/files/6856801_hvL9O_9d3c' type='text/javascript'/>

4. Kemudian cari kode berikut ini :

5. Kalo sudah ketemu letakkan kode2 berikut setelah kode <p class='comment-footer'>
ini niiiiiiiiiiiih:

6. saving dah templetnya
coba gan coba pasti mantap dah
thanks gan atas visitnya jangan lupa follow gan atau like atau komen

BOT Perfect World Samudera

2010-08-12T00:41:00.001+07:00

Hot gan ni bot PEWE SAMUDERA,,,,
CEKIDOT GAN

memasang kotak komentar di bawah postingan

2010-08-11T00:00:00.003+07:00

tutor ngeblog kali ini akan membahas tentang cara memasang kotak komentar dibawah postingan, yang dimana posting selanjutnya akan lebih keren dari yang ini
penampakan yang terjadi yaitu ketika rekan2 mencoba klik saja salah satu judul postingan di blog dan lalu lihat, ada atau tidak kotak kita buat komennya...? untuk yang tidak ada,mari kita obrak abrik HTML nya
oke lantas begini caranya..... :

1. login lah ke draft.blogger loh bukan blogger
2. Trus ke menu Setting-->Comments. Kemudian ganti "Comment Form Placement" menjadi "Embedded below post" (lihat gambar dibawah)

3. Save Setting
4. Sekarang coba kamu lihat blogmu dan coba di klik salah satu postinganmu kemudian lihat hasilnya, apakah sudah ada kotak komentarnya yg dibawah postingan atau belum. kalau sudah berarti langkahnya cukup disini. Kalau belum ikuti langkah berikut ini.
(ini karena kode HTML tiap2 template itu berbeda. Untuk template default dari blogger yang baru, kode HTMLnya sudah berubah, sedangkan template yg lama atau ambil dari luar ada yg belum dan ada juga yg sudah).
5. Selanjutnya pergi ke menu "Layout-->Edit HTML"
6. Ceklis kotak "Expand widget templates".
7. CAri KOde ini :

8. Kemudian ganti kode tersebut dengan kode dibawah ini:

9. Lalu simpan template kamu.

Lihat deh hasilnya, coba kamu klik salah satu postingan kamu, maka dibawahnya akan muncul kotak komentar seperti punya ane ini (Bagi yang berhasil).

SUMBER : BLOG MAS KENDHIN
BOCORAN : UPDATE POST HABIS INI YAITU PASANG EMOT KASKUS DI KOTAK KOMEN

membuat title berjalan pada blogger

2010-08-10T14:17:00.000+07:00

tutor kali ini yaiut menjelaskan tentang membuat title nya bergerak pada blogspot kalian,contonya kaya yang punya saya ini,
oke langsung saja kawan...
login bloggernya lalu masuk DESIGN - EDIT HTML,lalu pasang skrip dibawah ini di...

bawah tag <head;>

save template dan reload blog agan2
yang dicetak tebal tinggal ganti oleh agan2 semua kata2nya terserah
bergerak lambat cepatnya tinggal ganti angka 200 nya. semakin kecil semakin lambat dan semakin besar semakin cepat...
oke sekian dulu trik dari saya,,,
terima kasih sudah visit2 nya,, hahahaha

Custom Mouse Pointer Buat Blogger

2010-08-09T17:57:00.001+07:00

karen ane ngaskus dan ada kaskuser yang minta kalo blog ane jangan cuma tutor delphi pascal saja,so ane bakal kasih tutor blogging yang keren dah,sumbernya dari blog ane sendiri dan searching2 google
untuk tutor pertama (pertama kalinya di blog ane,tapi posting delphi pascal pasti tetep jalan ko) di blog ini yaitu mengganti tampilan pointer mouse kita saat kita buka blog kita,maksudnya biar mouse kita tampil selalu ga gambar panah melulu
so langsung saja,,inilah caranya :

login dlu bloggernya....
lalu masuk ke "Design" - "Edit HTML"
nongol dah tuh skrip HTML nya...
temukan <body></body>
lalu rekan2 tinggal pasang skrip ini

<style type='text/css'>body, a, a:hover {cursor: url(http://cur.cursors-4u.net/cursors/cur-2/cur226.cur), progress;}</style>

http://cur.cursors-4u.net/cursors/cur-2/cur226.cur adalah url pointer mouse nya,,rekan2 bisa cari lagi yang rekan2 sukai,,

di bagian <body></body> itu sendiri. untuk jelasnya kaya dibawah ini
<body>
paste skripnya disini
</body>
jadi bisa diatas tag </body> atau dibawah tag <body> asal dibagian body aja.
untuk gambar pointer mousenya bisa rekan2 cari di cursor4u atau di myspacecursor
gitu men...
thanks for visit,,moga bermanfaat

BitButton,tombol yang bisa dikasih gambar (DELPHI)

2010-08-06T23:27:00.000+07:00

kali ini tidak ada codingnya,hanya mengenalkan button lain selain button standard,yaitu bitbtn,button yang bisa diberi gambar,gambar itu bisa default atau kita tentukan sendiri di komputer masing2 maunya apa. bitbtn ada di pallete komponen additional bitbtn itu yang ada ceklis ijonya.
untuk penampakan formnya kaya gini:

gambar yang kita set,semua kita tentukan di object inspector
untuk gambar default seperti tombol yes,no,ok,cancel,abort, kita hanya mengatur properti kind saja

karena disana semua jenis gambar default bawaan delphi ada semua,
untuk mengatur pake ikon sendiri kita cukup klik kotak kecil pada properties glyph pada object inspector
untuk mengatur posisi gambarnya kita hanya perlu ganti properties layoutnya pada object inspector

oke dah sekian aja dlu gan,,bsok lanjut posting lagi

Latihan Sederhana Pake Delphi

2010-08-05T14:48:00.000+07:00

kali ini kita coba buat program kecil2an yang maskudnya buat ngitung biaya kita masuk ke hotel gtu, :D
niatnya sih sebagai review dari tutor delphi selama di blog ane ini,tar pasti ada tutor baru di blog ini for awamer delphi programer delphi kaya ane ini
langsuung saja dah,,berikut adalah penampakan formnya:

ready?????
ada 4 edit text
4 radio button
3 button
dan 1 combobox
penjelasan program konyol ini adalah sbb:
kamar hotel ada 3 kelas yaitu biasa,eksekutif,dan president suite dengan harga yang berbeda.
tarif kamar biasa senilai 500000,eksekutif 1000000 dan president suite 2000000,
diskon kalo cek in pagi 2%,siang 6%,sore 10% dan malam 14%.
ini langsung aja listing programnya.
untuk event form create,kasih script kaya ini

lalu untuk combobox nya

untuk radiobutton

dan terakhir untuk menghitung total bayar lakukan pada button1

untuk data baru

terakhir jangan lupa tambahkan variabel global ini

buat koleksi bisa rekan semua donlod projek nya.... :D
thanks buat yang udah visit
nih ane sediain link donlodnya :D :D :D

lagu terburuk yang pernah ada selama saya dilahirkan ke dunia ini

2010-08-04T18:14:00.002+07:00

BUKAN MENGHINA TAPI COBA PIKIRKAN OLEH REKAN SEMUA BAGAIMANA KUALITAS MUSIK INDONESIA BISA MAJU KALAU ADA BERKELIARAN BAND2 DENGAN KUALITAS MUSIK YANG RENDAH SEPERTI INI,MEREKA SEMUA HANYA MEMPERMALUKAN CITRA MUSIK INDONESIA SAJA.RATA2 KUALITAS TIDAK DIPERHATIKAN DALAM BERKARYA YANG PENTING RUPIAH MENGALIR KE KANTONG MEREKA. SAYA AKAN KASIH SAMPLE LAGU TERBURUK YANG PERNAH SAYA DENGAR SELAMA SAYA LAHIR KE DUNIA INI. SEBAGAI PENELITI MUSIK SAYA SANGAT PRIHATIN DENGAN LAGU SAMPAH DIBAWAH INI

Berapa kali ku harus katakan cinta
berapa lama ku harus menunggumu
Diujung gelisah ini aku
tak sedetikpun tak ingat kamu
Namun dirimu masih begitu
acuhkanku tak mau tahu

Luka, luka, luka yang kurasakan
bertubi, tubi, tubi engkau berikan
cinta ku bertepuk sebelah tangan
tapi aku balas senyum keindahan

[chorus]
bertahan satu cinta
bertahan satu C.I.N.T.A
bertahan satu cinta
bertahan satu C.I.N.T.A

Pernahkah engkau sejenak mengingat aku
pernahkah ingat walau seperti angin berlalu
Disetiap malam kini aku
tak sedetikpun tak ingat kamu
namun dirimu masih begitu
acuhkanku tak mau tahu

Luka, luka, luka yang kurasakan
bertubi, tubi, tubi engkau berikan
cinta ku bertepuk sebelah tangan
tapi aku balas senyum keindahan

[chorus]
bertahan satu cinta
bertahan satu C.I.N.T.A
bertahan satu cinta
bertahan satu C.I.N.T.A

Luka, luka, luka yang kurasakan
bertubi, tubi, tubi engkau berikan
cinta ku bertepuk sebelah tangan
tapi aku balas senyum keindahan

bertahan satu cinta
Bertahan satu C.I.N.T.A
bertahan satu cinta
bertahan satu C.I.N.T.A
bertahan satu cinta
bertahan satu C.I.N.T.A
bertahan satu cinta
bertahan satu C.I.N.T.A

ANJEEEEEEEEEEEEEEEEENK TU LAGU BAND CACAT LAGU CACAT

LAGUNYA NGEJA KAYA ANAK TK BELAJAR BACA...........
NAJIS BANGET DENGERNYA
TELINGA GW BAKAL BERDARAH
IDUNG GW MIMISAN
MULUT GW BERBUIH DENGER LAGU CACAT KAYA GINIAN
BUKAN C.I.N.T.A TAPI T.I.N.J.A INI BARU COCOK

nasihat dari saya:
1.BAKAR TIPI YANG MUTERIN/NAYANGIN DBAGINDAS
2.DELETE PERMANEN MP3 DBAGINDAS DI HAPE ATAU KOMPI REKAN SEMUA
3.USAHAKAN PERIKSA TELINGA REKAN SEMUA APAKAH MASIH NORMAL ATAU TIDAK
4.JAUHKAN DIRI DARI LAGU2 DEMIKIAN (4l4y)
5.BAGI YANG PUNYA KASET ATAU CD DBAGINDAS HARAP HANCURKAN,BUANG KE TPA SKALIAN

Lanjutan Tipe Bentukan Pascal (BAG VI [Pointer])

2010-07-31T15:41:00.000+07:00

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :( tidaaaaaaaaaaaaaaaaaaaak betapa tidak terurusnya ni blog,,,, sial kesibukan dll bikin blog ku tersayang kaya gini :( oke dah ini dah tanggal akhir bulan. 31 men pas banget dengan bahasan terakhir pada tipe bentukan pascal ini... tanpa babibu langsung saja lah kita mulai. kali ini tipe data bentukan pascalnya bernama pointer (bukan pointer mouse). :D sebenarnya ini bahasan tingkat tinggi bagi seorang programer,bisa dibilang dewa kalo dah mengerti apa itu pointer,saya hanya memaparkan saja karena saya bukan advanced yang segalanya paling mengerti :$ ane kan cuma nyubitol yang masih awam. :D

oke jadi gini ya,,yang di maksud pointer disini (dalam pemrograman) adalah tipe yang mendefinisikan sebuah variabel yang menyimpan alamat memori dari variabel lain sesuai dengan tipe data yang didefinisikan di dalam pointer tersebut. (jujur mudeng ane juga). untuk mendefinisikan tipe pointer dalam pascal kita harus menggunakan tanda caret ( ^ ). Berikut bentuk umumnya kaya gini :

NamaPointer = ^tipe_data;

Contoh:

type
  contohPtr = ^integer;
var
  p: contohPtr;
  x: integer;

pada contoh tersebut kita telah mendefinisikan tipe pointer dengan nama ContorPtr yang akan menunjuk ke alamat yang menyimpan tipe data integer. Selanjutnya kita mendeklarasikan variabel P yang bertipe ContorPtr dan variabel x yang bertipe integer. dengan demikian kita dapat menyimpan alamat memori dari variable x kedalam variabel p,yaitu dengan cara menggunakan operator @. maksudnya kaya gini:

begin 
  p:=@x;
  ...
end.

semoga bingung dan semoga bermanfaat maaf kalo cuma segini sepengetahuan saya,, maklum newbie :D

Lanjutan Tipe Bentukan Pascal (BAG V [Set])

2010-07-21T22:08:00.000+07:00

fiuuuuuuuuuuuuuuuuuuh 2 lagi coy tipe-tipe data bentukan selesai haha,,dah lah lanjut saja kali bagian kelim akan membahas tentang tipe set.
tipe set digunakan untuk menampung sekumpula nilai dari tipe ordinal tertentu,yang pada umumnya berbentuk enumerasi. Dengan tipe set, sebuah variabel dapat menampung nilai yang banyaknya lebih dari satu, yaitu dengan mengisikannya secara langsung dengan menggunakan tanda [..] dan dibatasi dengan operator koma (,). Hal inilah yang membedakan tipe set dari tipe-tipe lainnya.
bentuk umumnya seperti ini :

NamaTipeSet = set of TipeOrdinal;

perhatikan contoh dibawah ini.

type
 TBilangan = 0..9;
 TKegiatan = (mancing,sport,baca,piknik);
 {mendeklarasi tipe set}
 TKarakter = set of char;
 TAngka = set of TBilangan;
 THobi = set of TKegiatan;

var
 hobiku,hobinya: THobi;
 AngkaFavorit: TAngka;
 Vokal: TKarakter;

begin
 hobiku:=[baca];
 hobinya:=[sport,piknik,mancing];
 AngkaFavorit:=[1,3,7];
 Vokal:=['A','a','I','i','U','u','E','e','O','o'];
 ...
end;

mudeeng ya? sama :D
gunanya apa ya?
liat lagi kodenya :$

type
 TKegiatan = (mancing,sport,baca,piknik);
 THobi = set of TKegiatan;
var 
 Hobinya:THobi;

dengan kode tersebut kita dapat mengisikan lebih dari satu nilai ke dalam variabel Hobinyamisalnya kaya ini.

Hobinya:=[sport,piknik,mancing];

sekarang apabila kita menuliskan kode tanpa tipe set seperti berikut.

type
 TKegiatan = (mancing,sport,baca,piknik);
var 
 Hobinya:TKegiatan;

maka kita hanya dapat mengisikan satu nilai kedalam variabel Hobinya,misalnya :

Hobinya:= mancing;
{BENAR}
Hobinya:=[sport,piknik,mancing]; {SALAAAAAAAAAAH}

satu lagi bahwa banyaknya elemen maksimum yang dapat dimasukan dalam tipe set dibatasi sampai 255 buah nilai.
finish
semoga bermanfaat :D

Habis Jonin Part 5 Dulu

2010-07-20T20:40:00.004+07:00

waaaaaaaaaaaaaaaah ni blog dah seminggu ga di urus,ga posting :$ :( sorry kawan-kawan semua,,dikarenakan habis melakukan kegiatan bodoh nan keren yaitu JONIN EXAM ninja saga gw,,, wkwkwkwkwkwkwkkwkwkw dan ni dia hasilnya :
jreng jreng

gimana?keren kan

akgirnya setelah rekrut rekrut fren ga jelas,,,
part 4 cm 2 turn :D
part 5 jg 2 turn
but part 3 yg jengkel mpe berhari2 :(
wkwkwkwkwkkwkwkw
but now my ninja is jounin,, so cool and strong
add aja cuy fb gw,,,
rekrut ninja ane buat jonin exam nya