Browsing "Older Posts"

Dalam tutorial sebelumnya yang berjudul “Komponen Di Delphi” dalam tutorial itu masih dalam tutorial IDE Delphi,, untuk melengkapinya disini akan dibahas mengenai komponen apa saja yang berada di delphi..
Untuk dapat membuat program aplikasi, programmer harus meletakkan komponen-komponen yang diambil dari component palatte serta mengatur tata letak komponen-komponen tersebut pada bagian form designer.

Meletakkan komponen pada form designer

Untuk meletakkan komponen pada form designer , klik sebuah komponen pada component palette , sebagai contoh pilih komponen Edit.
image
Kemudian klik pada bagian form designer , yaitu pada posisi dimana komponen tersebut akan diletakkan.
image
Setelah semua komponen diletakkan pada form, langkah berikutnya yang harus dilakukan adalah mengganti properties dan events dari komponen-komponen yang telah diletakkan pada form designer .

Mengubah Properties komponen

Properti komponen yang telah diletakkan pada bagian form designer dapat diubah dengan menggunakan tab Properties pada jendela object inspector .
image

Mengubah komponen Event

Event dari komponen pada form designer dapat diubah dengan menggunakan tab events pada jendela object inspector guna menangani kejadian-kejadian dari suatu komponen.
image

Jenis-jenis komponen standar Delphi 7.

Komponen Fungsi
component delphi
Pointer
Pointer adalah komponen khusus dan terdapat disetiap tab dalam component  palatte. Komponen pointer adalah komponen select yang digunakan untuk memilih komponen dalam form designer.
component delphi[4]
Frames
Sebuah kontainer yang digunakan untuk menampung komponen frame dapat diletakkan dalam form atau frame-frame yang lain.
component delphi[8]
MainMenu
Komponen yang digunakan untuk membuat menu bar dan menu drop down. Komponen ini bersifat inv isible.
component[10]
PopUpMenu
Komponen yang digunakan untuk membuat menu popup yang akan muncul jika pemakai melakukan proses klik kanan. Komponen ini bersifat invisible.
clip_image002[12]
Label
Komponen ini hanya digunakan untuk menambahkan teks di dalam form
clip_image002[14]
Edit
Komponen yang digunakan untuk menerima satu baris teks yang merupakan data input pemakai.
Komponen ini juga dapat digunakan untuk menampilkan teks.
komponen delphi[16]
Memo
Komponen Memo dipakai untuk memasukkan atau menapilkan beberapa baris teks di dalam form.
component delphi
Button
Komponen yang dipakai untuk membuat button yang akan dipakai untuk memilih pilihan di dalam aplikasi. Jika mengklik komponen button tersebut maka suatu perintah atau kejadian akan dijalankan
component delphi[20]
CheckBox
Komponen yang digunakan untuk memilih atau membatalkan suatu pilihan, yaitu dengan cara mengklik komponen.
component delphi[22]
RadioButton
Komponen yang digunakan untuk memberikan sekelompok pilihan dan hanya ada satu pilihan yang dapat dipilih. Untuk memilih salah satu pilihan adalah dengan mengklik tombol pilihan yang diinginkan.
component delphi[24]
ListBox
Komponen yang digunakan untuk membuat sebuah daftar pilihan, dimana hanya ada satu pilihan yang dapat dipilih. Untuk mencari dan kemudian memilih salah satu pilihan yang terdapat di dalam daftar dapat menggunakan batang penggulung.
component delphi[26]
ComboBox
Komponen yang digunakan untuk membuat sebuah daftar pilihan, dimana hanya ada satu pilihan yang dapat dipilih. Untuk mencari dan kemudian memilih salah satu pilihan yang terdapat di dalam daftar dapat menggunakan mengklik tombol drop down
component delphi[28]
ScrollBar
Komponen ini mempunyai fungsi yang sama seperti batang penggulung yang terdapat dalam program-program berbasis Windows pada umumnya.
component delphi[30]
GroupBox
Sebuah kontainer yang dapat digunakan untuk mengelompokkan komponen-komponen lain seperti Radio Button, CheckBox dan komponen kontainer yang lain.
component delphi[32]
RadioGroup
Komponen ini merupakan komponen kombinasi dari GroupBox dan didesain untuk membuat sekelompok RadioButton.
component delphi[34]
Panel
Sebuah kontainer yang dapat digunakan untuk membuat StatusBar, ToolBar dan ToolPalette.
component delphi[36]
ActionList
Komponen yang berisi daftar action yang digunakan bersama-sama dengan komponen dan kontrol seperti item menu dan button.

Diatas adalah daftar komponen di Delphi beserta penjelasannya, karena komponen di delphi sangat banyak, apalagi belum yang terhidden jadi diatas adalah daftar komponen delphi yang perlu diketahui bagi pemula delphi,,

Jika ada pertanyaan silahkan berkomen,, karena ini adalah tutorial sambungan yang sebelumnya,, bagi yang belum membaca silahkan klik disini,,,,,,,
Tags:

Komponen di Delphi (Part 02)

By TonBad → Mar 29, 2010
Tutorial kali ini akan dibahas bagaimana membuat aplikasi sederhana berbasis database menggunakan delphi,, karena di Indonesia kebanyakan program yang sering diminta adalah berbasis database.mari kita belajar,,,,

Perlu diketahui dalam tutorial Kali ini adalah tutorial lanjutan dari sebelumnya,,, untuk pembuatan database silahkan klik disini dan untuk lainnya disini,,

Query merupakan perintah yang diberikan kepada database sebagai usaha untuk memanipulasi data. Query biasanya berupa perintah untuk menampilkan/mencari data, mengubah data, dan menghapus data. Berikut ini adalah contoh aplikasi yang menggunakan query untuk pencari data dengan menggunakan Delphi dan bagaimana cara membuatnya. Aplikasi tersebut digunakan untuk mencari data mahasiswa yang memanfaatkan tabel MHS yang telah dibuat sebelumnya.

Gambar 4.1 merupakan tampilan aplikasi saat dijalankan.

image
Pada gambar tersebut, terdapat kategori pencarian data yaitu berdasarkan NIM, nama mahasiswa, angkatan, dan alamat. Dalam aplikasi terdapat pula tempat memasukkan kata kunci terkait dengan data yang akan dicari. Hasil pencarian data akan ditampilkan pada DBGrid.

Berikut ini adalah cara membuatnya:
image
image
image
image
image
image
Keterangan:
Apabila properti REQUESTLIVE di set TRUE, maka data hasil pencarian dapat diedit.
image
Selanjutnya tambah code berikut ini pada event ON CLICK pada BUTTON1

procedure TForm1.Button1Click(Sender: TObject);
var query : string;
begin
{perintah untuk menghapus query SQL}
AdoQuery1.SQL.Clear;
{perintah SQL untuk pencarian berdasarkan kategori}
If Radiobutton1.Checked then
query := 'SELECT * FROM MHS WHERE NIM = :katakunci'
else If Radiobutton2.Checked then
query := 'SELECT * FROM MHS WHERE NAMAMHS LIKE:katakunci'
else If Radiobutton3.Checked then
query := 'SELECT * FROM MHS WHERE ANGKATAN = :katakunci'
else If Radiobutton4.Checked then
query := 'SELECT * FROM MHS WHERE ALAMAT LIKE :katakunci';
{menjalankan perintah query SQL}
AdoQuery1.SQL.Add(Query);
{mengganti parameter ‘katakunci’ dengan teks di dalam Edit1}
If Radiobutton2.Checked or Radiobutton4.Checked then
AdoQuery1.Parameters.ParamByName('katakunci').Value :=
'%'+Edit1.Text+'%'
else If RadioButton3.Checked then
AdoQuery1.Parameters.ParamByName('katakunci').Value :=
StrtoInt(Edit1.Text)
else
AdoQuery1.Parameters.ParamByName('katakunci').Value :=
Edit1.Text;
{menampilkan hasil pencarian}
AdoQuery1.Open;
{peringatan jika data pencarian tidak ditemukan}
If AdoQuery1.RecordCount = 0 then
MessageDlg('Data tidak ditemukan',mtinformation,[mbOK],0);
end;


Demikian tutorial mengenai query,,  Bagaimana sahabat BringInfo???  mudahkan membuat program berbasis database di delphi,, saya harap dengan adanya tutorial ini, kemampuan kita dalam hal programming semakin meluaasss (pedenya penuliss!! heheee)… Seperti biasa disini BringInfo selalu memberikan tutorial seringkas-ringkasnya namun sangat jelas,, jika ada pertanyaan atau kririkan silahkan berkomentar teman,,,,atau bertanya ke-MbahGoogle!!& hehee,,,
Tags:

Belajar Query Di Delphi

By TonBad → Mar 28, 2010

Halo sahabat Bring Info,, di kesempatan kali ini akan di bahas bagaimana bekerja menggunakan komponen tabel pada delphi ini adalah tutorial sambungan dari artikel yang berjudul  “Cara Koneksi Delphi ke MS Access ADO” ,, Jadi saya anjurkan untuk melihat postingan sebelumnya sebelum melangkah lebih jauh,,,,  :)

Setelah koneksi dengan Access dengan ADO berhasil, selanjutnya kita dapat dengan mudah membuat aplikasi database yang kita inginkan. Untuk pembahasan kali, terlebih dahulu akan disajikan bagaimana bekerja dengan komponen ADOTABLE. Komponen ini digunakan untuk mengakses suatu tabel dalam database.

Supaya lebih memudahkan pembaca mengenai pembahasan ini, kita akan membuat aplikasi sederhana menggunakan Delphi dengan memanfaatkan database DATA KULIAH yang telah dibuat sebelumnya. Gambaran tampilan aplikasi yang akan dibuat tampak pada Gambar 3.1.

image

Aplikasi tersebut dapat digunakan untuk entri dan manipulasi data mahasiswa.

Untuk membuat aplikasi di atas, berikut ini adalah caranya.

Sisipkan komponen-komponen berikut ini dan ubah properti masing-masing dengan ketentuan sbb:

ADOCONNECTION

image

ADOTABLE

image

Keterangan:
Komponen ini digunakan untuk melakukan koneksi ke tabel MHS.

DATASOURCE

image

Keterangan:
Komponen ini digunakan untuk mengarahkan sumber data yang akan ditampilkan di aplikasi. Dalam hal ini sumber datanya adalah dari komponen TABLE1.

DBGRID

image

Keterangan:
Komponen ini digunakan untuk menampilkan data dalam bentuk tabel yang memiliki sel- sel (grid). Data yang akan ditampilkan pada komponen ini menyesuaikan dengan DATASOURCE nya.

DBNAVIGATOR

image

Keterangan:
Komponen ini terdiri dari tombol-tombol yang digunakan untuk memanipulasi data. Perhatikan Gambar 3.1. Fungsi dari tombol-tombol tersebut mulai dari paling kiri adalah untuk meloncat ke data pertama, untuk pindah ke data sebelumnya, untuk pindah ke data berikutnya, untuk meloncat ke data terakhir, untuk menambah data, untuk menghapus data, untuk mengedit data, untuk memposting data, untuk membatalkan edit data, dan untuk merefresh data.

Secara skematis, hubungan antara komponen ADOCONNECTION, ADOTABLE, DATASOURCE, DBGRID, DBNAVIGATOR, dan komponen untuk manipulasi lain adalah
sebagai berikut:

image

Sekian Dulu tutorial lanjutan dari  Cara Koneksi Delphi ke MS Access ADO Apabila Ada request program bisa DISINIII,, atau jika ingin bertanya silahkan berkomentar,,, teman – teman brininfo,,!!! mudah kan!!!!

Tags:

Bekerja dengan Komponen ADO Tabel Delphi

By TonBad → Mar 24, 2010

Setelah Pada tutorial sebelumnya telah diberikan dasar-dasar penggunaan MS. Access, selanjutnya pada bab tutorial kali ini  akan dibahas mengenai bagaimana membuat koneksi dari Delphi ke MS. Access menggunakan
ADO.

Langkah-langkah  yang harus sahabat bringinfo lakukan adalah Sebagai berikut :

Meregister File Database Access ke ODBC

Sebelum Delphi dikoneksikan ke file database MS. Access yang telah dibuat, terlebih dahulu dilakukan register file database ke ODBC. Dalam hal ini peran ODBC adalah sebagai media penghubung antara file Access ke Delphi. Berikut ini adalah cara meregister file database Access ke ODBC.

  • pada Windows XP, klik START > CONTROL PANEL Pada Windows , klik START > CONTROL PANEL > ODBC Sedangkan > (PERFORMANCE AND MAINTENANCE) > ADMINISTRATIVE TOOLS > ODBC dan selanjutnya akan muncul seperti pada Gambar dibawah ini :
  •  image
  • Klik ADD…
  • Pilih Driver Database, untuk MS. Access pilihlah Microsoft Access Driver (*.mdb).
  • Klik FINISH, selanjutnya muncul kotak dialog ODBC Microsoft Access Setup
  • Isilah DATASOURCE NAME dengan sebarang nama, misalkan DATAKULIAH
  • Klik SELECT
  • Carilah file database Access yang telah dibuat. Pada contoh ini, carilah file SAMPEL.mdb  yang telah dibuat di awal.
  • Klik OK

Dengan demikian, file database SAMPEL.mdb sudah teregister di ODBC dan siap untuk diintegrasikan dengan Delphi.

Menghapus File Access yang Teregister di ODBC

Untuk menghapus file database Access dari ODBC apabila sudah tidak digunakan, caranya adalah:

  • Pada Windows , klik START > CONTROL PANEL > ODBC Sedangkan pada Windows XP, klik START > CONTROL PANEL > ADMINISTRATIVE TOOLS > ODBC
  • Pilih nama datasource yang akan dihapus
  • Klik REMOVE

Mengubah File Access yang Teregister di ODBC

Suatu file Access yang sudah teregister dalam ODBC diwakili oleh satu nama datasource. Seperti halnya contoh di atas, untuk DATAKULIAH merupakan nama datasource yang meregisterkan file Access SAMPEL.mdb. Selanjutnya, apabila kita ingin mengubah file yang telah teregisterkan tersebut dengan file yang lain (dengan datasource yang sama), langkahnya adalah:

  • Pada Windows , klik START > CONTROL PANEL > ODBC Sedangkan pada Windows XP, klik START > CONTROL PANEL > ADMINISTRATIVE TOOLS > ODBC
  • Pilih nama datasource yang akan diubah file yang diregister
  • Klik CONFIGURE…
  • Klik SELECT… untuk memilih file Access yang lain
  • Klik OK

Koneksi Database Access dengan Delphi

Untuk melakukan koneksi dari Delphi ke Access dapat melalui 2 cara, yaitu dapat melalui BDE (Borland Database Engine) dan juga dapat melalui ADO (ActiveX Data Object).

Apabila akan melakukan koneksi ke Access menggunakan ADO, maka caranya adalah:

  • Sisipkan komponen ADOConnection (berada dalam palette ADO) pada form.
  • Misalkan kita akan melakukan koneksi ke Datasource ODBC bernama DATAKULIAH yang telah dibuat sebelumnya, maka selanjutnya ubah properties dari komponen ADOConnection seperti di bawah ini
  • image
  • Apabila properti CONNECTED berhasil diberi nilai True, maka berarti koneksi berhasil. Selamat Membuat program dekstop menggunakan delphi,, Jika ada pertanyaan silahkan mengemail bringinfo DISINI,,,, atau dengan berkomentar ,,,
Tags:

Cara Koneksi Delphi ke MS Access ADO

By TonBad → Mar 22, 2010
Ini adalah sambungan tutorial Pengenalan MS. Access (Part 01) yang telah di posting sebelumnya,,, oke tanpa banyak cincong kita lanjutkan tutorialnya,,,,,,
Dengan cara yang sama dengan pembuatan tabel pada Tabel MHS , selanjutnya dapat dibuat pula tabel MK dan AMBILMK. Hasil akhir setelah membuat ketiga tabel di atas dapat dilihat pada Gambar di bawah ini,,,
image
Mengganti Nama Tabel
Apabila suatu saat kita akan mengganti nama suatu tabel yang pernah dibuat sebelumnya, maka caranya adalah:
  • Klik kanan pada salah satu nama tabel yang sudah dibuat (lihat tampilan pada Gambar diatas)Klik RENAME
  • Gantilah nama tabel sesuai yang diinginkan
Menghapus Tabel
Sedangkan apabila akan menghapus tabel, caranya adalah:
  • Klik kanan pada salah satu nama tabel yang sudah dibuat (lihat tampilan pada Gambar diatas )
  • Klik DELETE
Membuat Relationship
Relationship antara tabel dapat dibuat dengan mudah menggunakan MS. Access. Misalkan kita akan membuat relationship antar tabel MHS, MK, dan AMBILMK, caranya adalah:
  • Klik menu TOOLS > RELATIONSHIPS
  • Tampilkan semua tabel (MHS, MK, dan AMBILMK) dengan cara mendouble klik pada setiap tabel tersebut. Hasilnya dapat dililihat pada Gambar dibawah ini:
  • image
  • Selanjutnya kita akan membuat relasi antar field NIM pada tabel MHS dan AMBILMK. Caranya adalah dengan mengklik NIM pada tabel MHS kemudian drag sampai pada NIM pada tabel AMBILMK atau kebalikannya dan lepaskan.
  • Kemudian beri tanda check pada option Enforce Referential Integrity, Cascade Update Related Field, dan Cascade Delete Related Field
  • Dengan cara yang sama dapat dibuat relasi antara field KODEMK pada tabel MK dan AMBILMK. Hasil relationship ketiga tabel tampak pada Gambar 1.6
  • image
Menghapus Relationship
Untuk menghapus relationship antar tabel, caranya cukup mudah hanya dengan mengklik garis penghubung relationship yang akan dihapus. Kemudian tekan tombol DELETE
Entri Data
Setelah membuat tabel dan relationshipnya, data-data dapat dimasukkan ke dalam tabel. Cara untuk memasukkan data ke dalam tabel adalah dengan mendouble klik pada tabel yang akan dimasukkan datanya (lihat tampilan Gambar 1.4).

Misalkan kita akan memasukkan data-data di bawah ini ke dalam tabel MHS, maka double klik tabel MHS pada tampilan Gambar 1.4, selanjutnya isikan datanya ke dalam sel-sel yang
ada (menyesuaikan kolom fieldnya).
image
Bekerja dengan SQL
Berikut ini adalah cara membuat statement SQL untuk manipulasi data.
  • Klik QUERIES pada tampilan Gambar 1.4
  • Double klik pada CREATE QUERY IN DESIGN VIEW
  • Apabila muncul window SHOW TABLES, klik tombol CLOSE
  • Klik menu VIEW > SQL VIEW
  • Tuliskan statement SQL pada bagian kosong yang disediakan
  • Setelah statement SQL dituliskan, selanjutnya harus dijalankan dengan mengklik menu QUERY > RUN dan akan muncul hasil outputnya
  • Sebagai contoh, tuliskan SQL berikut ini dan jalankan
  • SELECT * FROM MHS
  • SELECT NIM, NAMAMHS FROM MHS WHERE ANGKATAN = 1998
  • SELECT NAMAMHS FROM MHS WHERE ANGKATAN = 1999 OR ALAMAT = ‘KUDUS’
  • SELECT NAMAMHS FROM MHS WHERE TGLLAHIR >= #1/1/1979# AND TGLLAHIR <= #30/12/1979#
  • Sekian dulu tutorialnya Pengenalan MS. Access (Part 02)  semoga bermanfaat bagi teman-teman,,,,, jika ada pertanyaan silahkan berkomentar,,,,,

Pengenalan MS. Access (Part 02)

By TonBad → Mar 20, 2010
MS. Access merupakan salah satu aplikasi yang termasuk Database Management System (DBMS) yang terdapat dalam satu paket aplikasi MS. Office. DBMS merupakan aplikasi yang dapat digunakan untuk mengatur/memanajemen sistem database. Beberapa hal yang termasuk dalam proses memanajemen adalah membuat tabel dan strukturnya, memanipulasi tabel dan strukturnya, entri data, update data, hapus data, cari data, penanganan backup dan restore data, dan juga sekuriti.oke

Beberapa hal yang merupakan keunggulan dari penggunaan MS. Access adalah:
  1. Aplikasinya mudah diperoleh (meskipun bajakan ☺)
  2. Manipulasi tabel dan data sangat mudah dilakukan
  3. Relasi antar tabel dapat dibuat dengan mudah
  4. Perintah SQL dapat diberikan
  5. Dapat diintegrasikan dengan bahasa pemrograman, misalnya Delphi, VB, dll
  6. Tersedia fasilitas untuk sekuriti data
  7. Mampu menyimpan data dalam jumlah sangat besar (jauh lebih besar daripada Paradox) Adapun kekurangannya adalah aplikasinya tidak free alias tidak gratis.
    Untuk memulai MS. Access, berikut ini adalah langkah-langkahnya:
    Memulai MS. Access
  • Klik START > PROGRAMS > MS. ACCESS
  • Selanjutnya akan tampil seperti Gambar
    image
Membuat Database Baru
Setelah masuk ke dalam MS. Access, kita dapat membuat database baru. Misalkan kita akan membuat database dengan nama file SAMPEL, caranya adalah:
  • Klik BLANK DATABASE yang ada di bagian New (sebelah kanan tampilan MS. Access)
  • Tentukan nama file (database) pada bagian FILENAME (isilah dengan SAMPEL)
  • Tentukan pula folder letak penyimpanan file tersebut di bagian SAVE IN
  • Klik CREATE dan setelah itu akan tampil seperti pada Gambar
  • image
Membuat Tabel Baru
Sebagai contoh, misalkan kita akan membuat tabel dalam database SAMPEL yang telah kita buat sebelumnya dengan kriteria sbb:
image
image
image
Untuk membuat tabel-tabel di atas dalam database SAMPEL adalah sbb:
  • Dari tampilan seperti pada Gambar 1.2, langkah berikutnya adalah double klik pada
    CREATE TABLE IN DESIGN VIEW
  • Kita akan membuat tabel MHS dahulu. Selanjutnya isilah nama field, tipe data dan size nya pada kotak yang disediakan. Secara lengkap isian dari nama field, tipe data dan size dari tabel MHS tampak pada Gambar dibawah ini.
  • Catatan: Khusus untuk TGLLAHIR, gunakan format SHORT DATE saja
image
  • Setelah menuliskan semua nama field, tipe data dan sizenya. Langkah berikutnya adalah membuat field NIM sebagai PRIMARY KEY dengan cara mengklik kotak di sebelah NIM dan hal itu akan membuat baris NIM akan tersorot. Selanjutnya tekan menu EDIT > PRIMARY KEY. Setelah itu akan muncul gambar kunci di sebelah kiri NIM yang menandakan bahwa NIM sudah diset sebagai PRIMARY KEY
  • Catatan: Apabila dalam satu tabel terdapat lebih dari satu PRIMARY KEY, maka cara untuk membuat PRIMARY KEY nya
  • dengan menyorot field-field yang akan diset sebagai PRIMARY KEY sambil menekan tombol CONTROL (CTRL).
  • Simpan tabel tersebut dengan mengklik menu FILE > SAVE
    Beri nama tabelnya dengan MHS Tekan OK
  • Waduh bikin tutorial memang melelahkan,,,,  sekarang kita lanjutkan ke edisi selanjutnya,,,,,,, disini part 02.
    Jika ada pertanyaan silahkan klik Disini atau bisa dengan berkomentar ria,,, hahaaaa

Pengenalan MS. Access (Part 01)

By TonBad →

Halo sahabat bringinfo , udah bosan bikin program dekstop atau hitung menghitung pake delphi??? Oke sekarang saatnya menyuguhka tutorial cara membuat program game sederhana menggunakan delphi,,,

Game ini sangat lucu atau cupu yaa?? langsung saja ke KTP eh salah ke TKP,,(heheheee). Game ini terdiri dari empat tombol jebakan, lho!! hati-hati yaaa,,, untuk lebih jelasnya lihat form dibawah ini untuk memulai bikin programnya,,,,

 

clip_image002

Dan seperti biasa dalam tutorial delphi di bringinfo ini hanya memberikan screenshot program dan listingnya,, jika sahabat ingin bertanya, silahkan berkomentar ria,,,,,, Dan listingnya,,,,,,

unit  untGames; 

interface 

uses 
... 

type 
TForm1 = class(TForm) 
... 
procedure  Selesai; 
procedure  btnStartClick(Sender: TObject); 
procedure  Timer1Timer(Sender: TObject); 
procedure  btn1Click(Sender: TObject); 
procedure  btn2Click(Sender: TObject); 
procedure  btn3Click(Sender: TObject); 
procedure  btn4Click(Sender: TObject); 
procedure  edtNameKeyPress(Sender: TObject; var Key: Char); 
procedure  Timer2Timer(Sender: TObject); 
procedure  Timer3Timer(Sender: TObject); 
private 
{ Private declarations } 
public 
Tukar, Score, Tanya : Integer; 
Blink : Boolean; 
{ Public declarations } 
end; 

var 
Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure  TForm1.Selesai; 
begin 
Timer1.Enabled := False; 
btn1.Enabled := False; 
btn2.Enabled := False; 
btn3.Enabled := False; 
btn4.Enabled := False; 

edtName.Enabled := True; 
edtName.SetFocus; 

lblClick.Visible := False; 
end; 

procedure  TForm1.btnStartClick(Sender: TObject); 
begin 
Score := 0; 
Tukar := 0; 

lblClick.Visible := True; 
lblClick.Left := 16; 
lblBravo.Caption := ''; 
lblBravo.Visible := False; 
edtName.Enabled := False; 
edtName.Clear; 

Timer1.Enabled := True; 
btn1.Enabled := True; 
btn2.Enabled := True; 
btn3.Enabled := True; 
btn4.Enabled := True; 
lblScore.Caption := '0'; 
end; 

procedure  TForm1.Timer1Timer(Sender: TObject); 
var 
CapTmp : String; 
begin 
CapTmp := btn1.Caption; 
btn1.Caption := btn2.Caption; 
btn2.Caption := btn3.Caption; 
btn3.caption := btn4.Caption; 
btn4.Caption := CapTmp; 
Inc(Tukar); 

if Tukar > 16 then 
Selesai; 
end; 

procedure  TForm1.btn1Click(Sender: TObject); 
begin 
if btn1.Caption = 'x' then 
Score := Score + 10 
else 
Score := Score - 5; 

lblScore.Caption := IntToStr(Score); 
end; 

procedure  TForm1.btn2Click(Sender: TObject); 
begin 
if btn2.Caption = 'x' then 
Score := Score + 10 
else 
Score := Score - 5; 

lblScore.Caption := IntToStr(Score); 
end; 

procedure  TForm1.btn3Click(Sender: TObject); 
begin 
if btn3.Caption = 'x' then 
Score := Score + 10 
else 
Score := Score - 5; 

lblScore.Caption := IntToStr(Score); 
end; 

procedure  TForm1.btn4Click(Sender: TObject); 
begin 
if btn4.Caption = 'x' then 
Score := Score + 10 
else 
Score := Score - 5; 

lblScore.Caption := IntToStr(Score); 
end; 

procedure  TForm1.edtNameKeyPress(Sender: TObject; var Key: Char); 
begin 
if Key = #13 then 
begin 
lblBravo.Visible := True; 
if Score >= 50 then 
lblBravo.Caption := 'Bravooo... ' + edtName.Text 
else 
lblBravo.Caption := 'Not Lucky ' + edtName.Text; 

btnStart.SetFocus; 
end; 
end; 

procedure  TForm1.Timer2Timer(Sender: TObject); 
begin 
Blink := not Blink; 
if Blink then 
lblBravo.Font.Color := clRed 
else 
lblBravo.Font.Color := clBlue; 
end; 

procedure  TForm1.Timer3Timer(Sender: TObject); 
begin 
if lblClick.Left <= 230 then 
lblClick.Left := lblClick.Left + 1 
else 
lblClick.Left := 0; 
end; 

procedure  TForm1.btnExitClick(Sender: TObject); 
begin 
Tanya := Application.MessageBox('Are You Sure To Quit From This Program?', 
'Confirmation', MB_YESNO + MB_ICONQUESTION); 
if Tanya = 6 then 
begin 
Application.MessageBox('Thanx  So  Much...  For  Using  This  Program'
, 'Byee. . Byee..', MB_OK + MB_ICONINFORMATION); Application.Terminate; end; end; end.




Bagaimana tutorialnya??? semoga bermanfaat yaa,,,,  amiinnnn,,,,,, bagi sahabat yang ingin meriquest program delphi,, silahkan kilk disini,,,,,,,,,,,,,,,

Tags:

Program Games Sederhana Delphi

By TonBad → Mar 19, 2010
Sekarang saya lagi bingung mau posting apa,, tapi akhirnya aku dapet ide untuk membuat program menampilkan data mahasiswa di suatu universitas menggunakan delphi,,

Dimana dalam program ini akan menyimpan databasenya di tempat sementara program itu sendiri, dengan menggunakan message box delphi sebagai penampilnya,,,

Oke sahabat dalam tutorial kali ini formnya dibuat lebih komplit, pertama desain form seperti dibawah ini
clip_image002
Dan jika tombol proses di tekan akan muncul message box :
clip_image002[6]
Untuk Listing programnya:

var 
FMahasiswa: TFMahasiswa; 
judul : string; 
i : integer; 

implementation 

{$R *.dfm} 

procedure  TFMahasiswa.ENimKeyPress(Sender: TObject; var Key: Char); 
begin 
if key = #13 then 
ENama.SetFocus; 
if not (key in ['0'..'9',#13,#8]) then 
key := #0; 
end; 

procedure  TFMahasiswa.ENamaKeyPress(Sender: TObject; var Key: Char); 
begin 
if key = #13 then 
ETTL.SetFocus; 
if not (key in ['a'..'z','A'..'Z',#13,#8,#32]) then 
key := #0; 
end; 

procedure  TFMahasiswa.CheckBoxLainClick(Sender: TObject); 
begin 
if CheckBoxLain.Checked = true then 
begin 
ELain.Enabled := true; 
ELain.Visible := true; 
end 
else 

begin 
ELain.Enabled := false; 
ELain.Visible := false; 
end; 
end; 

procedure  TFMahasiswa.BBersihClick(Sender: TObject); 
begin 
ENim.Text:=''; 
ENama.Text:=''; 
ETTL.Text:=''; 
ELain.Text:=''; 
ComboBoxAgama.Text:=''; 
RGJK.ItemIndex:=-1; 
ComboBoxPendidkan.Text:=''; 
ComboBoxStudi.Text:=''; 
CheckBoxOlahraga.Checked:=false; 
CheckBoxKomputer.Checked:=false; 
CheckBoxKesenian.Checked:=false; 
CheckBoxLain.Checked:=false; 
RGPerkawinan.ItemIndex:=-1; 
RGBiaya.ItemIndex:=-1; 

ENim.SetFocus; 
end; 

procedure  TFMahasiswa.BFotoClick(Sender: TObject); 
var 
namafile : string; 
begin 
if OpenPictureDialog1.Execute = false then exit; 
namafile := OpenPictureDialog1.FileName; 

Image1.Picture.LoadFromFile(namafile); 
end; 

procedure  TFMahasiswa.BProsesClick(Sender: TObject); 
var 
JumlahBaris,Indeks : integer; 
TglLahir : tdate; 
biaya,perkawinan,jk,hobby : string; 
begin 
if CheckBoxOlahraga.Checked then 
hobby := 'Olahraga'; 

if CheckBoxKomputer.Checked and (hobby <> '') then 
hobby := hobby+',komputer' 
else 
if CheckBoxKomputer.Checked and (hobby = '') then 
hobby := 'komputer'; 

if CheckBoxKesenian.Checked and (hobby <> '') then 
hobby := hobby+',kesenian' 
else 

if CheckBoxKesenian.Checked and (hobby = '') then 
hobby := 'kesenian'; 

if CheckBoxLain.Checked and (hobby <> '') then 
hobby := hobby + ','+ELain.Text 
else 
if CheckBoxLain.Checked and (hobby = '') then 
hobby := ELain.Text; 

if RGJK.ItemIndex =0 then 
jk := 'Laki-laki' 
else 
jk := 'Perempuan'; 


if RGPerkawinan.ItemIndex = 0 then 
perkawinan := 'Belum Menikah' 
else if RGPerkawinan.ItemIndex =1 then 
perkawinan := 'Menikah' 
else if RGPerkawinan.ItemIndex =2 then 
perkawinan := 'janda' 
else 
perkawinan := 'Duda'; 

if RGBiaya.ItemIndex = 0 then 
biaya := 'Ditanggung sendiri' 
else if RGBiaya.ItemIndex = 1 then 
biaya := 'Orangtua / keluarga' 
else 
biaya := 'Bea Siswa'; 

TglLahir := DPTLahir.Date; 

FMahasiswa.Height := 483; 
Panel2.Top := 20; 
ProgressBar1.Visible := true; 
JumlahBaris := 5000; 
ProgressBar1.Min := 0; 
ProgressBar1.Max := JumlahBaris; 
ProgressBar1.Position := 0; 

for Indeks := 1 to JumlahBaris do 
ProgressBar1.Position := Indeks; 
MessageDlg('DATA MAHASISWA SUDAH TERSIMPAN.' + chr(10) + ' ' + chr(10) + 
'Nim : ' + ENim.Text + chr(10) + 
'Nama : ' + ENama.Text + chr(10) + 
'Tempat/Tanggal Lahir : ' + ETTL.Text + ' / ' + DateToStr(TglLahir) 
+ chr(10) + 
'Agama : ' + ComboBoxAgama.Text + chr(10) + 
'Jenis Kelamin : ' + jk + chr(10) + 
'Jenjang Pendidikan : ' + ComboBoxPendidkan.Text + chr(10) + 
'Program Studi : ' + ComboBoxStudi.Text + chr(10) + 
'Minat/Bakat : ' + hobby + chr(10) + 
'Status Perkawinan : ' + perkawinan+chr(10) + 
'Biaya Kuliah : ' + biaya,mtInformation,[mbok],0); 

Image1.Picture := nil; 
ProgressBar1.Position :=0; 
ProgressBar1.Visible :=false; 
Panel2.Top := 20; 
FMahasiswa.Height := 513; 
end; 

procedure  TFMahasiswa.FormCreate(Sender: TObject); 
begin 
judul := 'Form Data Mahasiswa STMIK Pontianak'; 
i := 0; 
end; 

procedure  TFMahasiswa.BKeluarClick(Sender: TObject); 
begin 
if MessageDlg('Anda ingin keluar ?', mtConfirmation, [mbyes,mbno],0)
= mryes then 
begin 
MessageDlg('Terima kasih anda telah menggunakan program ini', mtInformation, 
[mbOK], 0); 
Application.Terminate; 
end; 
end; 

procedure  TFMahasiswa.Timer1Timer(Sender: TObject); 
begin 
if i > Length(judul) then 
i := 0; 

i := i +1; 
FMahasiswa.Caption := copy(judul,1,i); 
end; 




Memang sangat panjang listingnya yaaaa,,,(heheheeee) tanganku sampe capek,,, tapi ini demi pembaca setiaku,,,,.Jika ada kesulitan atau ingin bertanya silahkan bertanya dengan memasuukan komentar,,,

Mau request program gratisss!!??? silahkan klik disini,,,,,,
Tags:

Program Tampilan Data Delphi

By TonBad →