Home » All posts

Membuat Window Entry Data

Posted by Gg Friday, 8 February 2013 0 comments
Postingan : | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 |


Ok Gan, pada kali ini kita akan melanjutkan dengan membuat window siswa, yang mana window siswa ini akan kita akan mengentry data siswa.
Kita langsung gan, sebelumnya pastikan aplikasi sekolah telah terbuka.
-         - Setelah terbuka pastikan database terkoneksi
-          - Sebelum kita membuat window siswa, terlebih dahulu buat “Data Window”. Caranya klik “New” ->”Data - Window”->”FreeForm”
-          - Pilih SQL Select lalu Next,  pada select Tables kita pilih “Siswa”
- Setelah terbuka table siswa, “select seluruh item” lalu pilih “Return”
-          - Klik “next” lalu “Finish”
- Agan dapat menghiasnya dengan menggunakan toolbar berikut
Sehingga tampilannya seperti gambar dibawah ini
- Setelah selesai save dengan nama “dw_siswa”.

Setelah selesai selanjutnya kita akan membuatkan window untuk data window, caranya :
- Klik “New” ->  “PB Object” -. “Window”
- Setelah window terbuka, tarik dan Drag dw_siswa ke tengah window dan atur posisinya sehingga seperti gambar dibawah ini.
-         -  Agan pula dapat memberikan judul dengan mengklik  “Static Text Control”
hSetelah itu kita akan membuat “Data Grid Siswa”, Caranya :
-       - Klik “New” -> “Data Window” -> “Tabular”
-       - Klik “OK” -> “SQL Select” -> Next. Pada form select tables pilih “Siswa”.
-       - Select All lalu “Return”. Setelah itu Next-> Finish.
     - Agan atur agan hias dengan 
-         - Sehingga seperti gambar dibawah ini


-          - Setelah selesai simpan dengan nama “Dw_Grid_Siswa” dan keluar dengan mengklik tanda silang diatas toolbar.
- Drag dw_grid_siswa kedalam Window sehingga akan tampilannya seperti gambar dibawah ini.
-         -  Simpan Window tersebut dengan nama W_Siswa
-         -   Agar terdapat scroll bar vertical dan horizontal, klik dw_grid_siswa tersebut, lalu pada propertis General -   checklist pada “HScrollBar dan VScrollBar”
- Buatlah tombol dengan menggunakan “command Button” . pada propertis –general, untuk name isi -dengan “cb_add” dan pada text isi dengan “Add”.  
- Buat “tombol Cancel”, “tombol Save”, “tombol Edit”, “tombol Delete” dan “tombol Close”. Ingat name harus sesuai dengan nama tombol tersebut. sebagai contoh tombol Cancel, pada propertis “Name = cb_cancel”, Text = Cancel”. Maka tampilan yang dihasilkan seperti dibawah ini.
- Pekerjaan selanjutnya adalah pemberian sintak. Dan perlu agan perhatikan, pada w_siswa bagian atas itu disebut dw_1 sedangkan grid disebut dw_2.
OK gan tahap selanjutnya pemberian sintak.
- Double Klik pada sebarang tempat selain pada bagian "dw_1 dan Dw_2 untuk membuka Event Open. disini saya mengklik di samping dw_1.
- Setelah terbuka ivent open ketikan sintak berikut 
- Setelah selesai kembali kepada tampilan depan dengan mengklik "Layout" pada bagian bawah.
- Double Clik pula pada "dw_2", lalu pada Declare Type pilih "rowfocuschanged" lalu tuliskan sintak seperti gambar berikut.
- Masih pada Declare Type, Kemudian pilih "Clicked" tuliskan sintak berikut 

- Setelah selesai kembali ke Layout.
- Double Clik pada tombol "Add". Isikan sintak berikut
     long a
    a= dw_1.insertrow(0)
    dw_1.scrolltorow(a)
    dw_1.setfocus()
    dw_1.setcolumn(1)
    dw_1.object.datawindow.readonly='no'

    cb_add.enabled=false
    cb_cancel.enabled=true
    cb_save.enabled=true
    cb_edit.enabled=false
    cb_delete.enabled=false


- Double Clik pada tombol "Cancel. Isikan dengan sintak berikut
    dw_2.retrieve()
    dw_1.object.datawindow.readonly='yes'

    cb_add.enabled=true
    cb_cancel.enabled=false
    cb_save.enabled=false
    cb_edit.enabled=true
    cb_delete.enabled=true


- Double Clik pada tombol "Save". Isikan sintak berikut.
      if dw_1.update()=1 then
   messagebox("Pesan","Sukses .. ",Information!)
   dw_1.object.datawindow.readonly='yes'
   cb_add.enabled=true
   cb_cancel.enabled=false
   cb_save.enabled=false
   cb_edit.enabled=true
   cb_delete.enabled=true
   dw_2.retrieve()
         else
   messagebox("Pesan", "Gagal .. ",information!)
      end if

- Double Clik pada tombol "Edit". isikan sintak berikut.
       dw_1.object.datawindow.readonly='no'
       dw_1.setfocus()
       dw_1.setcolumn(2)
       cb_add.enabled=false
       cb_cancel.enabled=true
       cb_save.enabled=true
       cb_edit.enabled=false
       cb_delete.enabled=false

- Double Clik pada tombol "Delete". Isikan sintak berikut.
        long a

        a=messagebox("Pesan", "Yakin Data Dihapus !! ",question!,yesno!)

        if a = 1 then

        dw_1. deleterow(0)

        dw_1. update()

        messagebox("Pesan","Sukses .. ",information!)

        dw_1.object.datawindow.readonly='yes'

        cb_add.enabled=true

        cb_cancel.enabled=false

        cb_save.enabled=false

        cb_edit.enabled=true

        cb_delete.enabled=true
        dw_2.retrieve()
        else
        messagebox("Pesan","Gagal .. ",information!)
        end if


- Double Clik pada tombol "Close". Isikan sintak berikut
     close(parent)

Save dan tekan menu run -> Run Latihan_01 atau dengan menekan gambar  lalu pilih menu Input -> siswa. jika terbuka form siswa, maka entry data siswa sesuai hati...
Coba agan klik tombol Add selanjutnya Entry Lalu Simpan. Uji seluruh tombol dan pastikan kerjalan dengan baik.

Untuk selanjutnya dalam pengisian data siswa, mungkin terdapat sedikit kesulitan. diantaranya penulisan format tanggal. Untuk mengetahui caranya, agan coba ikuti tutorial selanjutnya Klik disini....

Sekian semoga bermanfaat... :)











h

Aplikasi Penerapan Kondisi Tunggal

Posted by Gg Monday, 4 February 2013 0 comments
Pada sebelumnya kita telah mengetahui tentang penerapan kondisi pada delphi. pada kali ini kita akan mencobanya dalam program.

- Buka program aplikasi delphi dan form baru lalu simpan pada folder yang telah disediakan.
- Desain Form dengan bagus seperti tampilan gambar berikut
- Dengan menggunakan Komponen dan nilai pada property seperti berikut

- Klik Tombol Proses lalu  tuliskan sintak berikut :

     procedure TForm1.Button1Click(Sender: TObject);
     var
         A:integer;
         b:integer; 
     begin
     A:=strtoint(edit1.Text);
     B:=strtoint(edit2.Text);
     IF A > B THEN 
         Label4.Caption:='Anda Benar';
  end;

- Klik Tombol Proses lalu tuliskan sintak berikut  :
           application.Terminate;

Setelah selesai save dan jalankan...
Isi Nilai pertama dengan 80 lalau nilai kedua dengan 50, lalu klik tombol proses. Maka Label4 berubah menjadi "Anda Benar". tetapi apabila sebaliknya nilai pertama 50 nilai kedua 80, maka tidak terjadi apa.
Sekian Semoga Bermanfaat...


Penerapan Kondisi Pada Delphi

Posted by Gg Saturday, 2 February 2013 0 comments
Kondisi adalah proses penyeleksian alternatif-alternatif jawaban yang ada. Dan alternatif jawaban akan dikerjakan tergantung dari berbagai ketentuan dari suatu kondisi yang diberikan.

Perintah kondisi ini biasanya dengan menggunakan
IF Kondisi THEN atau
CASE seleksi type ordinal OF
End;

Macam-macam Kondisi IF

  1. Kondisi Tunggal : memiliki satu kondisi dan satu alternatif jawaban
  2. Kondisi Ganda : memiliki satu kondisi dan dua alternatif jawaban. Dan terdapat 1 perintah ELSE didalamnya sebagai pengecualian
  3. Kondisi Jamak : Memiliki banyak kondisi dan banyak alternatif jawaban. dan terdapat banyak perintah ELSE di dalamnya sebagai pengecualian

Kondisi Tunggal
Contoh :
IF Kondisi THEN
     Alternatif Jawaban

Penerapan
A := strtoint(edit1.text);
B := strtoint(edit2.text);
If A>B THEN
        Edit3.text := 'benar';

Kondisi Ganda
Contoh :
IF Kondisi THEN
     Alternatif jawaban-1
ELSE
     Alternatif jawaban-2

Penerapan
A:= strtoint(edit1.text);
B:= strtoint(edit2.text);
IF A > B THEN
    Edit3.text := 'benar'
ELSE
    Edit3,text := 'salah';

Kondisi Jamak
Contoh:
IF Kondisi-1 THEN
      Jawaban-1
ELSE
     IF Kondisi-2 THEN
            Jawaban-2
     ELSE
          IF Kondisi-3 THEN
                   Jawaban-3
          ELSE
                   Jawaban-n

Penerapan
A:= edit1.text;
IF A = 'Hijau' THEN
        Edit2.text:= 'Jalan'
ELSE
        IF A = 'Kuning' THEN
              Edit2.text := 'Hati-Hati'
        ELSE
           Edit2.text := 'Berhenti';


#CASE
Case adalah perintah untuk mengelompokkan alternatif-alternatif jawaban yang diberikan yang diseleksi berdasarkan nilai var. Nilai var harus yang bertype ordinal (tunggal)

Bentuk Umum Perintah Case
CASE VAR OF
       Nilai-Var-1 :  Jawaban-1 
       Nilai-Var-2 : Jawaban-2
       Nilai-Var-3 : Jawaban-3
       ELSE
               Nilai-Var-n : Jawaban-n
END;

Penerapan
A := combobox1.itemIndex;
CASE A OF
      0 : Edit1.text := 'Jalan';
      1 : Edit1.text := 'Hati-hati';
       ELSE
               Edit1.text :='Berhenti';
END;


PERULANGAN
# FOR .... DO
*  for <var> := <nilai awal> to <nilai akhir> do
    begin
  .......
  end;

* for <var> := <nilai awal> DownTo <nilai akhir> do
     begin
  .......
  end;

Penerapan FOR .... DO
*  For a := 1 to 10 do
    begin
      Memo1.lines.add(inttostr(a));
   end;

# WHILE .... DO
<var> := <nilai init>
while kondisi do
begin
...../ counter <var>
end;

Penerapan While .... do
b := 0;
While b <5 do
begin
     b := b + 1;
     Memo1,lines.add(inttostr(b));
end;

# REPEAT .... UNTIL
<var> := <nilai init>
Repeat 
    ...... / counter <var>
Until Kondisi

Penerapan Repeat
b := 0;
Repeat
     b := b + 1 ;
     Memo1.lines.add(inttostr(b));
Until b = 5;


Membuat Pop-Up Menu pada Delphi

Posted by Gg Friday, 1 February 2013 0 comments
Tutorial ini merupakan kelanjutan dari tutorial membuat menu, tapi kali ini kita akan membuat Pop-UpMenu. Cara kerja dari Pop-UpMenu ini adalah apabila kita klik kana pada sembarang tempat, maka akan tampil menu..
Cara membuatnya adalah :
- Buka kembali projec yang kemarin telah dibuat.
- Tambahkan pada form1 komponen popupmenu pada Tab Standar
- Setelah ditambahkan, Klik ganda pada komponen popupmenu
- Isi popupmenu seperti pada pembuatan MainMenu seperti gambar berikut :
- Tambahkan Komponen Panel dari Tab Standar pada Form1.
- Ubah Property Panel Sebagai Berikut :
    Caption : Aku Bisa Berubah Loh...
    BevelInner   : bvlowered
    BevelOuter  : bvraised
    BevelWidth  : 3
- Atur Desainya seperti gambar berikut :
- Setelah selesai, Klik Panel1 lalu pada property isikan PopupMenu dengan PopupMenu1.
- Agar terdapat gambar pada property panel1. untuk Image isikan dengan ImageList1.
- Setelah selesai jalankan....
- Klik Kanan pada panel, maka PopupMenu pun muncul....

Karena belum dituliskan Sintak pada popup menu, maka belum terjadi sesuatu. 
Selanjutnya adalah pemberian Sintak.

- Klik ganda pada PopUpMenu
- Klik  Ukuran -> Klik Ganda pada 12, isikan dengan sintak berikut.
    panel1.Font.Size:=12;
- Lakukan hal yang sama untuk ukuran 14, 16, 18, dan 20.

- Klik ganda pada PopUpMenu, pilih Warna -> Klik ganda pada Merah lalu isikan sintak berikut :
  panel1.Font.color:=clred;
  Ulangi hal yangsama untuk Biru : panel1.Font.color:=clblue;
  Ulangi hal yangsama untuk Kuning : panel1.Font.color:=clYellow;
     Ulangi hal yangsama untuk Hijau :panel1.Font.color:=clgreen;


- Klik ganda pada PopUpMenu, pilih Style-> Klik ganda pada Bold lalu isikan sintak berikut :
    Panel1.Font.Style:=[FSBOLD];
    Ulangi hal yang sama untuk Italic : panel1.Font.Style:=[FSItalic];
    Ulangi hal yang sama untuk Underline : panel1.Font.Style:=[FSUnderline];

Setelah selesai maka jalankan,...
Semoga Bermanfaat......





Membuat Main

Posted by Gg Thursday, 31 January 2013 0 comments
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

Posted by Gg Wednesday, 30 January 2013 0 comments
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

Posted by Gg 0 comments
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

Posted by Gg Wednesday, 16 January 2013 0 comments
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

Posted by Gg Sunday, 13 January 2013 0 comments
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....

.

Copyright © Blog G21. All rights reserved.

Super SEO created by Blogger Tuts From Jom Kenal Islam