Membuat Main

Program Delphi juga menyediakan fasilitas untuk pembuatan Menu dan PopUpMenu. Menu tersebut akan menghubungkan atara form satu dengan form lainnya. kita langsung mulai gan....

- Jalankan dahulu program delphi, lalu buka fom baru.
- Pilih Mainmenu  yang terdapat pada Tab Standar dan letakkan didalam form.
- Klik ganda pada Mainmenu maka akan muncul gambar berikut :
- Pada Object Inspector pilih propertis dan pada Caption isi dengan &File lalu Enter. maka akan tampil gambar berikut :
- Lakukan hal yang sama sehingga seperti gambar berikut :
    *Untuk membuat garis pada main menu isikan caption dengan strip (-)

- Untuk membuat SubMenu ke samping Klik pada Entry lalu tekan CTRL + tanda Panah Kekanan. isikan pada caption seperti gambar berikut.
      * &File, &Entry, &Exit, Data &Mahasiswa, Data Mata &Kuliah

Selanjutnya kita akan memberikan Gambar pada menu tersebut, caranya :
- Tambahkan komponen ImageList pada tab Win32. lalu letakkan pada form
- Klik Ganda pada Komponen ImageList
- klik Tomol Add
- dan cari gambar yang berekstensi *.bmp atau *.icon. bila sudah ketemu pilih gambar tersebut misalnya 3 gambar lalu klik Open dan OK. untuk kembali pada form

- Klik Kemabli pada komponen mainmenu. dan pada propertis pilih images lalu pilih imageLis1.
- Klik ganda pada MainMenu. lalu pilih menu ayng akan diberi gambar misalnya Entry pada property, pilih ImageIndex klik Dropdown dan pilih gambarnya.
- Lakukan hal yang sama pada Data Mahasiswa dan Data Mata Kuliah.
- Buat 2 buah form baru untuk Form Data Mahasiswa dan Data Mata Kuliah. sehingga tampil Form2 dan Form3
- Rubah property namenya untuk Form1 menjadi F_MHS dan Form3 menjadi F_MK.
- Kembali ke Form1. dengan cara klik View-> Forms.
- Klik File -> pilih Entry -> Klik Data Mahasiswa.
- Tuliskan Kode berikut diantara begin dan end;
    FMHS.Show;
- Klik kembali File-> Pilih Entry -> Klik Data Mata Kuliah
- Tuliskan Kode berikut diantara Begin dan End;
     FMK.Show;
- Tuliskan Kode berikut diantara Begin dan End;
- save projek tersebut pada folder yang agan sediakan.
- Jalankan....






Membuat Kotak Pesan Pada Delphi

Ok gan, tutorial ini hanya untuk pembelajaran, adapun agan mau mengembangkannya saya sangat senang sekali.
Kali ini kita akan membuat sebuah aplikasi sederhana yang dapat menyampaikan atau memunculkan pesan ketika kita hendak melakukan eksekusi terhadap program.
Langsung saja...

- Buka Program Delphi lalu pilih File -> New -> Form.
- Pada Object Inspector sebelah kiri pada propertis untuk Height isikan dengan nilai 200 dan Width isikan dengan nilai 250. serta untuk Caption ketikan dengan MessageBox.
- Beri warna pada form tersebut dengan memilih Color pada Object Inspector.
- Pilih Label1 pada Tab Standar dan letakkan didalam Form.
- Rubah caption Label1 pada Object Inspector dengan Nilai 1.
- Letakkan Pula label2 pada form lalu rubah Captionnya dengan Nilai 2
- Letakkan Pula Edit1 dan Edit2 yang terletak pada Tab standar pada form seperti pada gambar berikut.
- Letakkan 2 buah Button yang terletak pada tab setandar pada form, lalu rubah captionnya. Button1 rubah captionnya menjadi "Bandingkan Nilai. dan Button2 rubah captionnya menjadi "Tampilkan Dialog"
Selanjutnya adalah penulisan sintak.

- Klik area form (jangan mengklik di daerah tombol, edit1&2 dan label). pada Object Inspector pilih Events lalu cari OnCloseQuery Double Clik pada Kolom Kosong disebelah kanannya lalu ketikkan sintak berikut.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Apakah anda akan keluar dari aplikasi ?',mtConfirmation, [mbYes, mbNo],0) = mrYes then
CanClose := True
else
CanClose := false;
end;


- Double Clik pada Button1(Tombol Bandingkan Nilai) lalu ketikan sintak berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
if strtoint(edit1.Text) > strtoint(edit2.Text) then
showMessage('Nilai ' + edit1.text + 'Lebih Besar Dari Nilai' + edit2.Text)
else
if strtoint(edit2.Text) > strtoint(edit1.text)then
showMessage('Nilai' + edit2.Text + 'Lebih Besar Dari Nilai' + edit1.Text)
else
showMessage('Nilai 1 Sama Dengan Nilai 2');
end;


- Double Clik pada Button2(Tombol Tampilkan Dialog) dan ketikan sintak berikut.

procedure TForm1.Button2Click(Sender: TObject);
begin
if messagebox(Handle, 'data akan disimpan?','Pertanyaan', MB_YESNO or  MB_ICONQUESTION)=IDYES then showmessage ('ok');
end;

Jika selesai maka simpan pada folder yang telah disediakan, lalu jalankan....
Isikan dengan sembarang angka, lalu tekan tombol "Bandingkan Nilai", tekan pula tombol "Tampilkan Dialog". lalu tekan tombol Exit pada Pojok kanan atas.

Ok gan hanya itu, semoga bermanfaat dan dapat dikembangkan...










Aplikasi Pemutar File Vidio

Ok gan, kali ini kita akan membuat aplikasi Pemutar File Vidio dengan menggunakan Delphi.
disini kita akan membuat aplikasi multimedia yang biasa memainkan file berekstensi .AVI, WMV, dan yang lain.

- Siapkan dan buka Program Delphi yang ada dikomputer agan.
- Buat Form baru dengan cara klik File -> New -> Form
- Klik Komponen Form yang baru, lalu pada "Object Inspector" pilih Properti yang disebelah kiri atur "BorderStyle" menjadi "bsDialog" dan "Position" menjadi "poDesktopCenter"

- Pada Komponen Tab System pilih Media Player dan letakkan pada bagian tengah form.
- Pilih Pula Komponen "OpenDialog pada tab Dialogs, dan letakkan di dalam form.
- Kemudian Pilih Komponen "Panel" pada tab "standar", dan letakkan dalam form. 
- Pada "panel1", pilih Properties pada Object Inspector, lalu pada caption tuliskan "KLIK  DISINI UNTUK MEMBUKA FILM". Atur tampilan form seperti gambar berikut.
- Untuk pemberian nama pada form. Klik bagian Form (selain Komponen Panel, MediaPlayer dan Opendialog), lalu pada Caption isikan dengan "Aplikasi Pemutar Vidio.

Setelah selesai selanjutnya adalah Listing Program atau penulisan sintak.
- Double Clik pada komponen Panel1 atau pada tulisan "KLIK DISINI UNTUK MEMBUKA FILM". lalu ketikan sintak berikut :
    procedure TForm1.Panel1Click(Sender: TObject);
    begin
      if opendialog1.Execute then
      begin
         mediaplayer1.FileName:=opendialog1.FileName;
         mediaplayer1.Open;
         mediaplayer1.Display:=Panel1;
         mediaplayer1.DisplayRect:=rect(5,5,width-5,height-5);
         with Panel1 do
      end;
    end;


- Setelah selesai simpan pada folder yang agan sediakan dengan nama "Unit1" dan Project "Media Player".

Jalankan... :)


Dan beberapa firmat vidio tidak bisa terbaca karena aplikasi ini hanya bisa membaca format AVI.
OK gan, ini hanya untuk pembelajaran, dan masih jauh dari hasil sempurna.

Semoga bermanfaat ......





Menggunakan Freeze Panes Pada Microsoft Excel 2007

Freeze Panel adalah fiture yang disediakan pada Microsoft Excel untuk membuat heading baik vertikal maupun Horizontal. fiture ini sangat bermanfaat apabila kita mengelola data yang cukup banyak.

Untuk memulainya, anda harus membuat data terlebih dahulu. tetapi saya menyediakan contoh data yang dapat anda download. Untuk mendownload contoh data yang akan kita olah silahkan klik link berikut.
   http://www.ziddu.com/download/21354736/DataSiswa.xls.html

Setelah didownload silahkan buka file tersebut dengan menggunakan Microsoft Excel 2007.
Jika sudah terbuka, tempatkan cursor pada cell "E5"


Pilih "View" pada menu Ribbon, lalu klik "Freeze Pane".

Jika sudah Selesai Coba anda gerakkan "Scrollbar (atas atau bawah). Maka header Nomor, Kelas, Nama Kelas dan lain-lain tidak berpindah ketika Scrolbar Vertikal digerakkan. begitu pula pada kolom Nama siswa tidak bergerak ketika scrollbar vertikal digerakkan.
Selesai....

Untuk menggebalikan kembali kebentuk asal, anda dapat kembali mengklik Freeze Panes pada Ribbon View.

Selamat Mencoba....




Penggabungan Dua Cells Pada Mic. Excel

Ok gan, ini merupakan tutorial bagi pemula
Langsung saja buka microsoft excelnya gan. Disini saya menggunakan versi 2010 tapi untuk tampilan tidak beda jauh dengan yang 2007.

  1. Aktifkan aplikasi office microsoft excelnya...
  2. Setelah terbuka lalu ketik nama seperti gambar dibawah ini gan.
  3. Setelah selesai ketikan pada "Cell C4" rumus berikut "=A4&""&B4" lalu "enter" maka hasilnya seperti gambar ini
  4. Maka hasilnya nama depan dan nama belakang menjadi satu pada cell C4.
  5. Selanjutnya kita copy kan rumus tersebut ke cell selanjutnya dengan cara mengklik cell C4. pada pojok kanan bawah terdapat kotak hitam dan arahkan mouse ke kotak hitam tersebut lalu drag ke cell "C7".
Ok gan, semoga bermanfaat....

.