![8. Dan tuliskan sintaknya dibawah ini:
Dan sebelumnya kita ke atas tuliskan sintak seperti dibawah ini :
Dan sebelum menulis sintak pada form utama on click, dan diatasnya kita tarik
dibawah tanda {$R *.dfm} kita tuliskan sintak yang seperti diatas.
Dan keterangan programnya :
Nama Program Keterangan Program
uses unit2; // memanggil unit 2 dari unit pertama
procedure Tform1.buatf2; // prosedur dengan Tform1 dengan
buat form 2
var Form2: TForm2; // dengan variabel
Begin // memulai sebuah program
form2:=Tform2.create(form1); // form2 dengan hasil dari
pembuatan form1
form2.Caption:= stringreplace (OP,'&','',[RFReplaceAll]); // ditempatkan semua
form2.Button1.Caption:=OP; // dari form 2 tombol button](https://image.slidesharecdn.com/membuatformdenganmdi-160114142900/85/form-dengan-FormMDI-Delphi-7-4-320.jpg)
form dengan FormMDI Delphi 7
- 1. “Membuat Form Dengan MDI ” Disusun Guna Memenuhi Tugas Mata Kuliah : Pemrograman Visual Dosen Pengampu : Mumun, S.T Disusun Oleh : Hera Wijaya (140511041) UNIVERSITAS MUHAMMADIYAH CIREBON FAKULTAS TEKNIK TEKNIK INFORMATIKA 2016
- 2. Latihan 1 : Membuat Form Dengan MDI Di pertemuan yang selanjutnya ini, saya akan mencoba meresume dari materi- materi sebelumnya dengan ini penambahan materi dengan menggunakan MDI, dan langsung saja pada pembahasan : 1. Pertama kita buat folder terlebih dahulu, folder dengan misalkan nama latihan MDI di simpan di partisi D , setelah buat folder, kita buka aplikasi delphi 7 dengan membuka file new application. 2. Setelah itu kita Save all dari form 1 yang kita buat, dengan nama unit yaitu un1, dan nama project secara default saja ( sesuai selera), dan selanjutnya pada form utama di properties kita pilih formstyle dalam bentuk MDI yang seperti gambar dibawah ini : 3. Setelah itu, kita pilih main menu pada pallet standard seperti biasa kita drag di dalam form utama, dan jika sudah kita isikan dalam mani menu pada tab pertama kita isi form form satu, jendela petak dan tumpuk operator (tambah, kurang, bagi, kali). 4. Setelah membuat main menu seperti diatas, kita buat form 2 seperti biasa file new application dengan caption nama default serta save all dengan default juga. Dan jangan lupa formstyle nya fsMDIChild, dan kita membutuhkan 2 edit teks, 1 label dan 1 tombol button seperti tampilan berikut :
- 3. 5. Jangan lupa untuk mendeklarasikan terlebih dahulu di bagian type sebelum membuat implementasinya. Pada form childnya juga jangan lupa untuk menambahkan procedure pada event FormClose yang kemudian diisi dengan perintah: 6. Jika dirasa sudah melalaui beberapa tahap, jangan lupa klik project option dan kita geserkan dari option form 1 ke form dua kesebelahnya, seperti gambar dibawah ini : 7. Setelah membuat form dua, kita buka kembali form pertama sekarang ketikkan sintak pada main menu di form form satu
- 4. 8. Dan tuliskan sintaknya dibawah ini: Dan sebelumnya kita ke atas tuliskan sintak seperti dibawah ini : Dan sebelum menulis sintak pada form utama on click, dan diatasnya kita tarik dibawah tanda {$R *.dfm} kita tuliskan sintak yang seperti diatas. Dan keterangan programnya : Nama Program Keterangan Program uses unit2; // memanggil unit 2 dari unit pertama procedure Tform1.buatf2; // prosedur dengan Tform1 dengan buat form 2 var Form2: TForm2; // dengan variabel Begin // memulai sebuah program form2:=Tform2.create(form1); // form2 dengan hasil dari pembuatan form1 form2.Caption:= stringreplace (OP,'&','',[RFReplaceAll]); // ditempatkan semua form2.Button1.Caption:=OP; // dari form 2 tombol button
- 5. dengan caption button OP form2.show; // menampilkan form 2 End; // berakhirnya program 9. Dan jika sudah selanjutnya ketik sintak pada jendela petak : Dan ketika dirunning : 10. Dan selanjtunya dengan menggunakan jendela tumpuk Dan ketika dirunning :
- 6. 11. Proses terakhir dengan menuliskan sintak pada main menu Operasi, dan adapun sintaknya on click setiap main menu ( +, -, *, /) Tanda // artinya keterangan program.
- 7. 12. Dan setelah itu, kita tuliskan sintak untuk proses operatornya dengan membuka form2 double klik tombol button yang sudah dibuat dan tuliskan sintaknya :
- 8. Keterangan Program dari proses operator: procedure TForm2.Button1Click(Sender: TObject); // prosedur tombol button 1 begin // memulai sebuah program if ((edit1.Text='') or (edit2.Text='')) then // jika edit1 teks atau edit teks maka keluar exit; a:=strtofloat(edit1.Text); // a sebagai string to float dalamedit1 b:=strtofloat(edit2.Text); // b sebagai string float dalamedit2 if button1.Caption='kali' then // jika judul kali maka begin // memualai sebuah program c:=a*b; // c dengan hasil a *b end; if button1.Caption='bagi' then // jika proses operator bagi maka begin // memulai sebuah program c:=a/b; // dengan c = a/b end; if button1.Caption='tambah' then // jika proses operator tambah maka begin // mulai program c:=a+b; // c dnegan proses a+b end; if button1.Caption='kurang' then // jika proses operator kurang maka begin // mulai program c:=a-b; // dengan proses c = a-b end; label1.Caption:=floattostr(c); // dengan label 1 judul c dengan bilangan pecahan. end; // berakhirprogram
- 9. KESIMPULAN Ketika progam dijalankan lebih dari satu form dan klik main menu jendela tile maka tampilan form yang lebih dari satu tadi membentuk petakm dan sebaliknya jika menggunakan cascade yaitu secara tumpuk. Dan pengoperasiannya seperti kalkulator sederhana, dan proses pengerjaan sintaknya pun hampir mirip dengan latihan sebelumnya membuat program kalkulator sederhana, dan tampilan dengan membuat MDI dan beranak ini tampilannya lebih dinamis dan fleksibel dan harus di hide sebelumnya. Mudah-mudahan bermanfaat Aamiin.