Cari Blog Ini

1 modul 8 Mengubah Warna Component Form Pada Delphi 7

Jumat, 14 Maret 2014
AssalamualaikumTemen Temen Semua, Salam Luar Biasa Hari ini. Hari ini saya mau share materi delphi lagi nich. Hal yang akan kita bahas kali ini adalah bagaimana merubah warna suatu component di borland delphi 7. beberapa component yang biasa kita gunakan dalam design form bisa kita rubah warnanya dengan 2 cara : yakni merubah melalui properties di object inspector pada colom tab atau merubahnya menggunakan listing code. untuk saat ini kita akan membahas bagaimana merubah warna component melalui listing code pada Borland Delphi 7.
Untuk component yang akan kita coba ganti warnanya adalah component formnya, jadi kita akan merubah rubah warna form menggunakan component button dengan list code. Langsung saja disimak ya Temen Temen.
Pertama Buat Design Form Seperti Dibawah ini :
Ubah Properties Namenya sebagai Berikut:
Berikut Alur Logika Programnya :
- Pada Saat Program jalan kita bisa memilih button dengan warna yang kita inginkan.
- Jika button warna diklik maka warna dari form akan berubah mengikuti warna yang sudah diset berdasarkan caption button.
- jika button keluar diklik maka akan keluar dari program.
———————————————————————————————————————————————————————-
Berikut List Programnya :
1
2
3
4
5
6
procedure Tfrm_materi9.button_merahClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clskyblue;
 
end;
- Saat Button Merah Di Klik layar nanti layar berubah jadi biru langit *hahaha salah tulis penamaan button ” Gomenne”
1
2
3
4
5
6
procedure Tfrm_materi9.button_navyClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clnavy;
 
end;
- Saat button Navy diklik nanti warna form berubah menjadi Biru Navy
1
2
3
4
5
6
procedure Tfrm_materi9.button_greenClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clgreen;
 
end;
- Jika Button Green Di Klik Maka Form Menjadi Warna Hijau Gelap
1
2
3
4
5
6
procedure Tfrm_materi9.button_maroonClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clmaroon;
 
end;
- Saat Button Maroon Di Klik Maka Form berubah warna menjadi merah maroon.
1
2
3
4
5
6
procedure Tfrm_materi9.button_oliveClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clolive;
 
end;
- Saat Button Olive di klik makan warnanya berubah jadi warna Olive.
1
2
3
4
5
6
procedure Tfrm_materi9.button_yellowClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clyellow;
 
end;
- Saat Button Yellow Di Klik Warna Form menjadi warna kuning.
1
2
3
4
5
6
procedure Tfrm_materi9.button_purpleClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clpurple;
 
end;
- Jika Button Purple di klik Warna form berubah warna Ungu *hahahaha.
1
2
3
4
5
6
procedure Tfrm_materi9.button_redClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clred;
 
end;
- Jika Button Red di klik maka warna form menjadi warna Merah.
1
2
3
4
5
6
procedure Tfrm_materi9.button_blueClick(Sender: TObject);
begin
 
  frm_materi9.Color:=clblue;
 
end;
- Saat Button Blue di klik maka warna form menjadi warna biru.
1
2
3
4
5
6
procedure Tfrm_materi9.button_climeClick(Sender: TObject);
begin
 
  frm_materi9.Color:=cllime;
 
end;
- Jika Button Clime Di Klik Maka Warna berubah jadi warna Clime
1
2
3
4
5
6
procedure Tfrm_materi9.button_keluarClick(Sender: TObject);
begin
 
  close;
 
end;
- Saat Button Keluar diklik makan akan keluar dari program
Ini hasil Button Green Saat Di Klik
Saat Button red Di Klik
ini Warna Blue Sky
Nah Mudah sekali kan temen temen, berikut ini list warna yang tersedia yang bisa rubah sesuka hati :
List And Preview Warna Pada Delphi 7.0
Nah Gampang Kan, Pastinya dunk. Yah itu dulu ya Temen Temen untuk Share Kali ini *hehehehe dah lumayan ngantuk nich -,- . tetap ditunggu saja materi lainnya untuk tutorial diblog ini. Nah bagi yang mau coba liat langsung projek materi ini bisa langsung download di link dibawah ini ya. Gampang kok dan tentu aja bisa memperlancar kita mengenal code program delphi lebih dekat, monggo di coba :
Nah hari ini itu dulu yang bisa saya share nich, mudah mudahan kedepan ada kesempatan untuk share materi materi delphi lagi sekali belajar bersama sama temen temen semua. See you next Tutorial ya, Salam Luar Biasa.
Read more

0 modul 7 Mengenal Operator Aritmatika Pada Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa Malam ini. Hmmmm Hari ini Pengen Share Lagi Lagi dan Lagi *hihiihihi kalau kata Sponge Bob Aku Siap Aku Siap Aku Siap.
Nah kesempatan kali ini masih berkutat dengan pembelajaran Delphi nich. Untuk Kategori tutorial materi lain masih dalam penyiapan materi dan ide ide. jadi jangan bosen belajar Delphi disini  ya :) . Untu Materi Kali ini meneruskan Materi sebelumnya yang sudah kita bahas yakni mengenal tipe data pada delphi untuk saat ini kita akan mengenal Operator Aritmatikanya nich, mari disimak ya.
Operator Aritmatikan mempunyai fungsi untuk melakukan suatu proses aritmatika yang dapat meliputi penambahan, pengurangan, perkalian, pembagian dan fungsi fungsi aritmatika lainnya. *hmmmm ini dilakukan untuk mengubah nilai suatu variable yang nantinya akan menghasilkan nilai yang baru. kemarin kita sudah membahas mengenai operator penambahan atau ” + ” nah kali ini kita lengkapi Operator Operator yang tersedia sekalian memberikan latihan latihan guna memperlancar bahasa pemograman delphi kita.
Berikut ini adalah Tipe Operator Aritmatika dalam Bahasa Pemograman Borland Delphi :
Berikut Contoh Hasil Penggunaan Operator Aritmatika Diatas :
Nah Langsung Aja Kita Praktek ya, Pertama Kita buat form design sebagai berikut :
Ubah Properties Namenya Sebagai Berikut :
Berikut Alur Logikanya :
- Nilai 1 dan Nilai 2 diisi manual oleh user.
- Pada Saat Button Tambah diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan penambahan nilai 1 dan nilai 2.
- Pada Saat Button Kurang diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengurangan nilai 1 dan nilai 2.
- Pada Saat Button Kali diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2.
- Pada Saat Button Bagi diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2.
- Pada Saat Button Div diklik maka nilai 1 dan nilai 2 berubah menjadi nilai integer, kemudian nilai hasil ditampilkan hasil div nilai 1 dan nilai 2.
- Pada Saat Button Mod diklik maka nilai 1 dan nilai 2 berubah menjadi nilai integer, kemudian nilai hasil ditampilkan hasil Mod nilai 1 dan nilai 2.
- Jika Button Keluar diklik maka akan keluar dari program.
———————————————————————————————————————————————————————
Berikut list Programnya :
1
2
3
4
var
  frm_materi8: Tfrm_materi8;
  a,b,c:real;
  d,e,f:integer;
Buatlah Variable Dengan tipe data seperti Di atas.
1
2
3
4
5
6
7
8
9
10
11
procedure Tfrm_materi8.button_tambahClick(Sender: TObject);
begin
 
  a:=strtofloat(edit_nilai1.Text);
  b:=strtofloat(edit_nilai2.Text);
 
  c:=a+b;
 
  edit_hasil.Text:=floattostr(c);
 
end;

1
2
3
4
5
6
7
8
9
10
11
procedure Tfrm_materi8.button_kurangClick(Sender: TObject);
begin
 
  a:=strtofloat(edit_nilai1.Text);
  b:=strtofloat(edit_nilai2.Text);
 
  c:=a-b;
 
  edit_hasil.Text:=floattostr(c);
 
end;

1
2
3
4
5
6
7
8
9
10
11
procedure Tfrm_materi8.button_divClick(Sender: TObject);
begin
 
  d:=strtoint(edit_nilai1.Text);
  e:=strtoint(edit_nilai2.Text);
 
  f:=d div e;
 
  edit_hasil.Text:=inttostr(f);
 
end;

1
2
3
4
5
6
7
8
9
10
11
procedure Tfrm_materi8.button_kaliClick(Sender: TObject);
begin
 
  a:=strtofloat(edit_nilai1.Text);
  b:=strtofloat(edit_nilai2.Text);
 
  c:=a*b;
 
  edit_hasil.Text:=floattostr(c);
 
end;

1
2
3
4
5
6
7
8
9
10
11
procedure Tfrm_materi8.button_bagiClick(Sender: TObject);
begin
 
  a:=strtofloat(edit_nilai1.Text);
  b:=strtofloat(edit_nilai2.Text);
 
  c:=a/b;
 
  edit_hasil.Text:=floattostr(c);
 
end;

1
2
3
4
5
6
7
8
9
10
11
procedure Tfrm_materi8.button_modClick(Sender: TObject);
begin
 
  d:=strtoint(edit_nilai1.Text);
  e:=strtoint(edit_nilai2.Text);
 
  f:=d mod e;
 
  edit_hasil.Text:=inttostr(f);
 
end;

1
2
3
4
5
6
procedure Tfrm_materi8.button_keluarClick(Sender: TObject);
begin
 
close;
 
end;

Nah Gampang Kan, Pastinya dunk. Yah itu dulu ya Temen Temen untuk Share Kali ini *hehehehe dah lumayan ngantuk nich -,- . tetap ditunggu saja materi lainnya untuk tutorial diblog ini. Nah bagi yang mau coba latihan untuk materi Operator  Aritmatika ini temen temen bisa download latihan materi ini dilink dibawah ini. Gampang kok dan tentu aja bisa memperlancar kita mengenal code program delphi lebih dekat, monggo di coba :
Nah hari ini itu dulu yang bisa saya share nich, mudah mudahan kedepan ada kesempatan untuk share materi materi delphi lagi sekali belajar bersama sama temen temen semua. See you next Tutorial ya, Salam Luar Biasa.
Read more

0 modul 6 Mengenal Tipe Data Di Delphi 7

Selamat Malam Temen Temen Semua, *hehehehehe Salam Luar Biasa tak lupa saya sampaikan. Hmmm Abis kalo nurutin kehendak hati yang lemes ini kayaknya gak semangat nich.
Jadi Saya Suka menyemangati diri sendiri \(^o^\) (/^0^)/ semangat semangat *hihihiihi (stress mode on) maklum abis kehujanan nich. Nah Temen Temen semua malam ini saya coba sharing lagi nich pengetahuan tentang delphi untuk sama sama belajar dan mengenal pemrograman delphi dengan lebih baik lagi. Sok Monggo Kita Belajar Bersama Disini, Hari ini saya mau bahas mengenai tipe data di Delphi.
Secara Simplenya sich yang namanya tipe data itu istilah tempat untuk menentukan / memberikan nilai suatu variabel sesuai dengan nilai yang diberikan oleh seorang User. atau istilah lainnya batasan pengenal untuk semua nilai yang diterima oleh program / aplikasi. Contoh Mudahnya begini nich jika kita pengen menambahkan angka atau harga suatu barang dalam aplikasi delphi, jika kita memberikan tipe data string ( kalimat / alphanumerik ) maka hal tersebut akan ditolak karena nilai tidak dapat ditambah karena tidak sesuai dengan tipe data yang harusnya ada.
Berikut Macam Macam Tipe Data Di Delphi :
1. Tipe Data Integer merupakan tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan. bentuk umumnya sebagai berikut :
          Var
               Nilai_1:integer;
          begin
               Nilai_1:100000;
2. Tipe Data Real merupakan tipe data bilangan yang mengenal bilangan bulan dan juga bilangan pecahan, jadi kalau urusan pembagian yang jawabannya pecahan kita kalau bisa pake tipe data ini temen temen. Bentuk Umumnya Sebagai Berikut  :
          Var
               Nilai_2: Real;
          Begin
               Nilai_2: 10,5;
3. Tipe Data Char merupaan tipe data yang sama dengan String berupa nilai Anumerik, hanya berbeda dari kapasitas ruang dari datanya kalau Tipe Data Char hanya mengenal 1 Karakter saja
4. Tipe Data String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value. Berikut Bentuk Umumnya
          Var
               Nilai_3: String;
         Begin
               Nilai_3: ‘Eko Wardoyo’;
Dalam Delphi Default Tipe data yang tampil di form Adalah Berupa String, Jadi kalau mau membuat fungsi operator atau penambahan,pengurangan,kali,bagi kita harus merubah tipe datanya dulu menjadi Tipe data numerik bisa Real / Integer. Untuk Perintah untuk merubah Tipe data Sebagai Berikut :
strtofloat : untuk merubah tipe data string ke tipe data Real.
strtoint     : untuk merubah tipe data string ke tipe data integer.
floattostr  : untuk merubah tipe data real ke tipe data string.
inttostr     : untuk merubah tipe data integer ke tipe data string.
untuk menampilkan teks dalam edit box, combo_box, ataupun memo borland delphi hanya mau menampilkan tipe data yang string jadi jika kita mau memberikan fungsi penggantian tipe data ke Real / Integer. dan pada saat mau kita tampilkan kembali kita harus merubahnya kembali menjadi string untuk ditampilkan.
berikut Materi Merubah Tipe Data : Buat Tampilan Form Sebagai Berikut
Ubahlah Properties Name nya Sebagai Berikut :
Berikut Alur Logikanya :
- pada Saat Program Berjalan Kita Akan Memasukkan Nilai 1 dan Nilai 2 dengan angka / Numeric untuk melihat hasil penjumlahannya
- Pada Saat Button_tambah diklik maka hasil akan memberikan nilai hasil dari Nilai 1 di tambah Nilai 2.
- Pada Saat Button_Bersih diklik maka akan membersihkan nilai 1 dan nilai 2.
- Pada Saat Button_Keluar di klik maka akan keluar dari program.
——————————————————————————————————————————————————————————
Berikut List Code Programnya :
1
2
3
4
5
6
7
8
9
10
11
procedure Tfrm_materi7.button_tambahClick(Sender: TObject);
begin
 
  a:=strtoint(edit_nilai1.Text);
  b:=strtoint(edit_nilai2.Text);
 
  c:=a+b ;
 
  edit_hasil.Text:=inttostr(c);
 
end;
a,b,c adalah variable penamaan dari nilai yang muncul pada edit box di delphi. karena kita mau membuat penjumlahan maka kita akan mengubah tipe data dari default string menjadi tipe data integer. dengan memberikan penamaan sementara dan kode perubahannya strtoint yakni merubah tipe data string menjadi integer. Pada Saat menampilkan c kita merubah kembali tipe data c yang tadinya integer menjadi string karena Tampilan default pada editbox delphi adalah string.
1
2
3
var
  frm_materi7: Tfrm_materi7;
  a,b,c:integer;
jika kita menggunakan penamaan variable maka jangan lupa untuk menambahkan tipe data dari variable di code list delphi Var seperti diatas. temen temen bisa scroll up unitnya dan cari tulisan seperti diatas var kemudian ditambahkan dengan format variable_1 , Variable2 : tipe data;
1
2
3
4
5
6
7
8
procedure Tfrm_materi7.button_bersihClick(Sender: TObject);
begin
 
  edit_nilai1.text:='';
  edit_nilai2.text:='';
  edit_hasil.Text:='';
 
end;
Pada Saat Button Bersih diklik maka akan menghapus seluruh teks pada edit box.
1
2
3
4
5
6
procedure Tfrm_materi7.button_keluarClick(Sender: TObject);
begin
 
  close;
 
end;
Pada Saat Button Keluar di klik maka akan keluar dari program. Berikut Tampilan Saat Dijalankan :
saat klik tambah muncul hasil nilai1 + nilai2
Saat Bersih Di Klik Seluruh Teks Hilang
Nah Gampang Kan, Pastinya dunk. Untuk Pertemuan Berikutnya kita akan membahas keseluruhan dari fungsi operator yang kalau saat ini baru kita coba operator penambahan aja ” + “. Nah bagi yang mau coba latihan untuk materi tipe data ini temen temen bisa download latihan materi pdf atau liat langsung project Latihan 7 ini bisa di download dilink dibawah ini. Gampang kok dan tentu aja bisa memperlancar kita mengenal code program delphi lebih dekat, monggo di coba :
Nah hari ini itu dulu yang bisa saya share nich, mudah mudahan kedepan ada kesempatan untuk share materi materi delphi lagi sekali belajar bersama sama temen temen semua. Oooooo iya kedepan kita akan memberikan katergori tambahan nich gak cuma belajar delphi aja tapi ada kategori belajar lainnya ya :) ditunggu Saja.
Thanks & Regards
Read more

0 modul 5 Percabangan Case Pada Combo Box – Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa untuk pagi ini. Terbangun dari Tidur memberikan kesempatan untuk membuat materi Blog ini lagi *hehehehe. Kalau Kemarin Kemarin Kita Sudah Belajar Fungsi Percabangan IF Pada Borland Delphi 7 kali ini kita pakai percabangan versi lainnya yakni Menggunakan Percabangan Case Of.
Namun untuk saat ini saya mengkhususkan untuk percabangan Case pada Combo Box. Apa beda percabangan case dengan if, jika percabangan if lebih mengedepankan pernyataan statement yang jelas kondisinya pada Fungsi Case kita memberikan percabangan berdasarkan Kriteria Integer, Artinya Fungsi Case Hanya Menerima untuk kondisi kondisi yang dimana menggunakan tipe data Interger atau aritmatika.
*hmmmm kita belum bahas Tipe Data dalam delphi ya *hihihi. Okelah Nanti kita akan bahas, nah untuk materi ini kita belum akan menggunakan fungsi variable integer pada Fungsi Case ini, Kenapa ?? karena kita akan membuat percabangan case pada combo box dimana sudah tersedia jenis data integer pada properties namenya. Monggo Disimak.
Bagaimana Combo Box punya tipe data Integer padahalkan kita kalau mengisi Itemsnya selalu menggunakan Kata kata /(^o^’), Tidak lain dan tidak bukan ialah karena kita menggunakan properties items index atau urutan dari isi combo box tersebut, karena ia berbentuk aritmatik dan termasuk tipe data integer jadi bisa kita gunakan fungsi Case Of. *hmmmm Bingung Kan, Ayo langsung Praktek Aja.
Buat Form Design Sebagai berikut :
Ubah Properties Namenya Sebagai Berikut :
Untuk Properties Frm_materi6 saya menambahkan penggantian pada Position menjadi Po Desktop Center yang tujuannya pada saat frm_materi6 dijalankan maka akan muncul di tengah layar desktop temen temen semua, jadi terlihat lebih rapih dan terposisi dengan baik.
Berikut Alur Logika nya :
- Pada Saat Program Dijalankan Maka Combo Box Akan Terisi NIM 11110216, 11110219, dan 11062142 dengan menggunakan code program.
- Pada Saat Combo Box Di Klik dan dipilih maka akan terkoneksi dengan fungsi Case dimana jika ia urutan dengan index sebagai berikut :
0 :  maka edit_nama akan muncul teks : Radjanta Ashari
1  :  maka edit_nama akan muncul teks : Eko Wardoyo
2  :  maka edit_nama akan muncul teks : Eriyanah Caswati
- Jika Button Keluar Di Klik maka akan keluar dari program
————————————————————————————————————————————————————————-
Nah Berikut Code Programnya :
1
2
3
4
5
6
7
8
procedure Tfrm_materi6.FormCreate(Sender: TObject);
begin
 
  combo_nim.Items.Add('11110216');
  combo_nim.Items.Add('11110219');
  combo_nim.Items.Add('11062142') ;
 
end;
Pada Saat Program Dijalankan maka combo box terisi beberapa Items dari NIM :
1
2
3
4
5
6
7
8
9
10
procedure Tfrm_materi6.combo_nimClick(Sender: TObject);
begin
 
  case combo_nim.ItemIndex of
    0:edit_nama.Text:='Radjanta Ashari';
    1:edit_nama.Text:='Eko Wardoyo';
    2:edit_nama.Text:='Eriyanah Caswati';
  end;
 
end;
Pada Saat Combo_Nim di klik maka akan menjalankan percabangan Fungsi Case combo_nim.itemindex of : dimana itemindex merupakan penamaan dari urutan isian Combo Box Nim dimana urutan pertama akan diawali dengan index 0, jadi urutan paling atas memiliki index 0. nah jika index yang dipilih adalah 0 maka akan muncul teks nama yang sudah kita atur sebelumnya. untuk fungsi percabangan Case Of maka kita harus diakhir / ditutup dengan perintah End; untuk mengakhiri fungsi Case.
1
2
3
4
procedure Tfrm_materi6.button_keluarClick(Sender: TObject);
begin</p>
<p style="text-align: justify;">close;</p>
<p style="text-align: justify;">end;
Pada Saat Button Keluar Di Klik Maka akan keluar dari program. Berikut Tampilan Hasil Form Setelah Dijalankan :
Combo Terisi pada saat program dijalankan
Funsi Case dijalankan dengan index dari combo Box
Nah Mudah kan Temen Temen Semua, Belajar Delphi Memang Mudah Kok *hehehe. Siapa ada kemauman pasti ada jalan yang akan ditempuh untuk menggapainya. Nah buat temen temen yang mau mencoba latihan dari materi ini bisa download materi percabangan case pada combo box Delphi 7 di link dibawah ini. untuk memperlancar materi yang sudah kita sampaikan dan memberikan beberapa materi tambahan yang bisa temen temen coba, jika ada kesulitan dalam pengerjaan bisa langsung lihat dari code program yang juga sudah saya siapkan dalam file tersebut.
Nah itu dulu yang bisa saya share pada kesempatan pagi ini, mudah mudahan kedepan bisa berbagi lagi di blog ini. Kutak Kutik bermanfaat buat kita bersama. Nah See You Next Lesson ya Temen Temen Semua, Salam Luar Biasa.
Read more

0 modul 4 Percabangan IF Pada Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa Untuk Hari ini. Hari ini kita share Belajar Materi Delphi 7 lagi nih yang akan kita bahas kali ini ialah Mengenal Fungsi Percabangan IF pada Delphi 7.
Apa Sih Percabangan IF ????, Percabangan IF ialah kondisi dimana kita memberikan nilai yang berbeda pada output Delphi sesuai dengan kriteria yang sudah kita Buat Sebelumnya. jadi Semacam Kondisi dimana jika terjadi kondisi satu maka akan muncul statement satu namun jika kondisi dua akan muncul kondisi dua, begitu seterusnya. Nah Ayo Sama Sama kita simak Temen Temen.
Pertama Tama Kita Buat Tampilan Form Design Sebagai Berikut :
Ubahlah Properties Name Tiap Object Sebagai Berikut :
Nah Berikut Alur Algoritma Programnya :
- Pada Saat Program Di Jalankan Maka Combo Box Akan Terisi 3 Items sebagai berikut : Maw01-10, Mel02-20, Ros03-30.
- Pada Saat Combo_kode dipilih Maw01-10 maka akan Tampil Teks :
o Nama Kamar : Kamar Mawar
o Lantai Kamar : Lantai 1
o No Kamar : No 10
- Pada Saat Combo_kode dipilih Mel02-20 maka akan Tampil Teks :
o Nama Kamar : Kamar Mawar
o Lantai Kamar : Lantai 2
o No Kamar : No 20
- Pada Saat Combo_kode dipilih Ros03-30 makan akan tampil Teks :
o Nama Kamar : Kamar Rose
o Lantai Kamar : Lantai 3
o No Kamar : No 30
- Saat Button_keluar di Klik Maka akan Keluar dari Program.
Berikut ini Lict Code Programnya :
1
2
3
4
5
6
7
8
procedure Tfrm_materi5.FormCreate(Sender: TObject);
begin
 
  combo_kode.Items.Add('Maw01-10');
  combo_kode.Items.Add('Mel02-20');
  combo_kode.Items.Add('Ros03-30');
 
end;
pada saat program jalan maka combo_kode terisi 3 items :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure Tfrm_materi5.combo_kodeClick(Sender: TObject);
begin
 
  if combo_kode.Text='Maw01-10' then
    begin
      edit_kamar.Text:='Kamar Mawar';
      edit_lantai.Text:='Lantai 1';
      edit_no.Text:='No 10';
    end
  else if combo_kode.Text='Mel02-20' then
    begin
      edit_kamar.Text:='Kamar Melati';
      edit_lantai.Text:='Lantai 2';
      edit_no.Text:='No 20';
    end
  else
    begin
      edit_kamar.Text:='Kamar Rose';
      edit_lantai.Text:='Lantai 3';
      edit_no.Text:='No 30';
    end;
end;
digunakan pada event onclick pada combo kode dimaksudkan kondisi berjalan pada saat combo kode di klik. penambahan begin setelah if agar bisa menggunakan 2 tampilan keluaran pada satu kondisi if. di else yang terakhir tidak ditambahkan if dikarenakan untuk penyederhanaan code dimana selain dari Mar01-10 dan Mel02-20 maka akan tampil Statement terakhir.
1
2
3
4
5
6
procedure Tfrm_materi5.button_keluarClick(Sender: TObject);
begin
 
  close;
 
end;
Tombor Keluar untuk Keluar dari Program. Berikut untuk Tampilan Hasil Programnya :
pada Saat Tampil Combo Box Terisi 3 Items dengan Menggunakan Code Program. Kemudian Setelah Pemilihan Kombo Box Maka tampil pada nama, lantai dan no kamar sebagai berikut :
Tampilan Menyesuaikan dengan Kondisi Teks Combo, dengan Code Percabangan If yang sudah kita buat tadi. Nah Mudah kan Materi Kali ini, Yoiiii betul banget nich gak Ada yang sulit kok kalau kita mau mencoba dan belajar. Jadi Kita mesti giat dan semangat dalam belajar ya temen temen semua. Untuk Mereview Materi Kita Kali ini temen temen bisa download latihan praktek Delphi untuk materi yang sudah kita bahal kali ini “Percabangan IF Pada Delphi 7” pada link download dibawah ini. Jika ada kesulitan pada praktek latihannya bisa langsung saja liat coding program latihannya yang sudah dilampirkan Pula.
Nah Mungkin ini dulu Nich yang bisa saya share untuk kesempatan kali ini. Mudah Mudahan Kedepan Bisa Share Berbagai Materi Materi Pemberlajaran Delphi 7. Semoga Apa yang Tertulis disini bisa berguna buat temen temen semua termasuk untuk diri saya sendiri. See You Next Lesson, Salam Luar Biasa.
Read more

0 modul 2 Combo Box dan Option Button – Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa nich Untuk Hari ini. *hehehehehe Asik Asik Asik Hari Sabtu Waktunya Liburan nich dari Rutinitas Kantoran *hihihihi jadi bisa nyempetin buat bikin Materi Blog ini. Siapa tau bisa berguna buat temen temen yang memang sedang / baru Belajar Delphi 7 Sama Seperti Saya b(^o^)d. Untuk Materi Kali ini Seperti Judul Diatas Kita bakal mengenal Component Tab Standart Delphi Yang biasa kita temui di Kebanyakan Software Software Programing. Apa itu, Yupssss Combo Box dan Radio Button. Component ini biasanya sering kita pakai dalam pembuatan aplikasi atau program ya karena fungsinya memang sangat dipakai.
Apa Sich Combo Box, Component Combo Box Pada Delphi 7 adalah semacam List Edit Box dimana kita tidak perlu menuliskan teks disana karena dia sudah menyiapkan teks yang akan ia tampilkan sesuai string / kata yang kita setting di sana. Jadi Semacam Pilihan Jawaban yang tinggal kita pilih dengan format List Down. Untuk Component ada di tab Standart dengan Icon Seperti Berikut ini :
 Kalo Radio Button Apaan Sih itu ???, *hmmmmm kalau radio button ialah component dimana kita bisa memberikan pilihan hanya dengan mengklik salah satu dari opsi radio button yang ada. Penyelasan mudahnya ya suatu component pemilihan yang formatnya berbeda dengan combo box yang menggunakan drop down kalau radio button berupa pilihan Option Radio atau titik hitam di tengah lingkaran ^.^’. Untuk Component Radio Button terdapat pula di tab standart dengan Icon Sebagai Berikut :
Teorinya Udah Sekarang langsung Aja Praktek penggunaannya Ya, Pertama Tama Buat tampilan Form Sebagai Berikut :

Ubah Properties Tiap Object Sebagai Berikut :

Nah Berikut Alur dari Program nya, Saat Program Dijalankan Maka Combo Box akan terisi 2 Pilihan Item Yakni :
1. Sistem Informasi.
2. Technik Komputer.
Saat Radio Button dipilih Pagi / Siang maka edit box akan memunculkan teks ‘ Waktu Kuliah Anda Pagi / Siang’.
Saat Radio Button dipilih Sore / Malam maka edit box akan memunculkan teks ‘Waktu Kuliah Anda Sore / Malam’.
Dan Saat Button Keluar Di Klik Maka akan keluar dari program,
Berikut List Code Programnya : Untuk Mengisi Combo Box kita bisa menggunakan 2 cara, yakni mengisi langsung pada saat design form dengan mengisinya pada properties name Items Combo Box seperti Gambar berikut ini :
Klik Kota Kecil pada Properties Name combo_jurusan, maka akan muncul dialog Box sebagai berikut :
Kita Tinggal Menuliskan Items / isi list yang ingin ditampilkan setiap baris kata kita tinggal enter. jika semua sudah tinggal klik Ok Saja. maka pada saat program dijalankan maka combo_jurusan akan menampilkan teks yang sudah kita setting tadi.
Namun ada satu cara lagi Mengisi items list pada combo box Delphi 7,  yakni dengan menggunakan coding dimana kita mengatur list yang dimunculkan pada saat form dijalankan dengan menggnakan code program delphi 7, berikut Code Programnya :
1
2
3
4
5
6
7
procedure Tfrm_materi4.FormCreate(Sender: TObject);
begin
 
  combo_jurusan.Items.Add('Sistem Informasi');
  combo_jurusan.Items.Add('Technik Komputer');
 
end;
code tersebut kita bisa terjemahkan sebagai berikut : event formcreate berati code dijalankan pada saat program dijalankan, pada combo_jurusan.items beratir pada properties items add berarti ktia menambahkan (‘Sistem Informasi’) kenapa diberikan kutip karena yang akan kita masukkan berupa teks.
Berikut Code Radio Button nya :
1
2
3
4
5
6
procedure Tfrm_materi4.radio_pagiClick(Sender: TObject);
begin
 
  edit_waktu.Text:='Waktu Kuliah Anda Pagi / Siang Hari';
 
end;
Kalau Radio Button Pagi / Siang di Klik atau dipilih maka edit_waktu akan mengmpilkan teks := ‘Waktu Kuliah Anda Pagi / Siang hari’
1
2
3
4
5
6
procedure Tfrm_materi4.radio_malamClick(Sender: TObject);
begin
 
    edit_waktu.Text:='Waktu Kuliah Anda Sore / Malam Hari';
 
end;
Sama halnya dengan Radio Button Malam, Berikut Code Untuk Button Keluar :
1
2
3
4
5
6
procedure Tfrm_materi4.button_keluarClick(Sender: TObject);
begin
 
  close;
 
end;
Berikut Untuk tampilan Program Saat Sudah Dijalankan :
Combo Jurusan bisa di drop down dengan pilihan Items Sistem Informasi Masi Dan Technik Komputer.
Pada Saat Radio Button Sore / Malam Dipilih Maka Muncul Teks Pada Edit Box Waktu dengan Teks Yang Sudah Ditentukan ‘Waktu Kuliah Anda Sore / Malam Hari’.
Nah Mudah kan, Sekarang kita sudah mengenal 2 componen Combo Box dan Radio Button Kalau ada keinginan belajar itu tidak sulik kok. Nah Untuk Memperlancar penggunaan Combo Box dan radio button. Mengisi List Items Combo Box dengan coding, temen temen bisa download latihan untuk materi kita kali ini dan dipraktekkan langsung. Ikuti Saja Soalnya kemudian jika ada kesulitan bisa di lihat list Coding Jawabannya yang juga sudah disiapkan.
Nah See You Next Lesson Temen Temen Semua, Salam Luar Biasa.
Read more

0 modul ke3 Menghapus Teks Pada Edit Box – Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa hari ini. Nah Pada Kesempatan Kali ini kita bakal Belajar Borland Delphi 7 lagi nich. Kalau Materi Sebelumnya Kita Belajar Menampilkan Teks Pada Component Edit Box Di Delphi 7 Maka Kali ini kita akan belajar Untuk Menghapus Teks Yang Ada Pada Component Edit Box di Delphi 7. Materinya Mudah Kok, Dan Jangan Lupa untuk mengerjakan Latihan latihannya yang tersedia di akhir materi ya, sambil melatih Apa Apa yang sudah Kita Bahas Di Postingan ini. Mari Langsung Aja Kita Mulai Materi Kita Kali ini.
Pertama tama Design Form Sebagai Berikut :
Ubah Properties Name Setiap Object Sebagai Berikut :
Berikut Alur Aplikasinya: Pada Saat Program Dijalankan Maka Nama, Kelas, No Telp dan Alamat kita muncul pada Component Edit Box dan Memo. Nah Jika Kita Mengklik Button_Bersih Maka Seluruh Teks Pada Edit Box Dan Memo Hilang. dan yang terakhir jika Kita Mengklik Button_Keluar maka akan keluar dari program.
Berikut List Codenya:
Pada Saat Dijalankan Maka Teks Muncul Pada Edit Box —> Event FormCreate pada frm_materi3:
1
2
3
4
5
6
7
8
9
procedure Tfrm_materi3.FormCreate(Sender: TObject);
begin
 
  edit_nama.Text:='Eko Wardoyo';
  edit_kelas.Text:='11.7G.01';
  edit_notelp.Text:='0857xxxxxxxx';
  memo_alamat.Text:='Jln Pertanian Selatan RT 014 RW 03 No 12 Klender Jakarta Timur';
 
end;
Pada Saat Button_bersih di Klik Maka Akan Menghapus Teks Pada Edit Box dan Memo, Menggunakan Event On Click Pada Component Button_Bersih : list code nya hampis sama dengan menampilkan teks hanya saja yang kita tampilkan kosong jadi (‘Eko Wardoyo’) kita ganti menjadi (‘ ‘) kutip kutip yang bisa diartikan akan menampilkan teks kosong (^o^)*mudah kan.
1
2
3
4
5
6
7
8
9
procedure Tfrm_materi3.button_bersihClick(Sender: TObject);
begin
 
  edit_nama.Text:='';
  edit_kelas.Text:='';
  edit_notelp.Text:='';
  memo_alamat.Text:='';
 
end;
Pada Saat Button Keluar Di Klik Maka Akan Keluar dari Program Menggunakan Event On Click Pada Component Button_keluar :
1
2
3
4
5
6
procedure Tfrm_materi3.button_keluarClick(Sender: TObject);
begin
 
  close;
 
end;
Berikut ini adalah Hasil Applikasi Pada Saat Dijalankan ( Press F9 ) :
Nah Berikut ini tampilan Form Pada Saat Button Bersih Di Klik :
Nah gampang Kan, Yoiii Dung Kalau mau dipelajari gak ada yang susah kok ‘Belajar Delphi Mudah Kok’. Nah Mungkin Untuk Materi Kali ini itu dulu mudah mudahan kedepan masih punya kesempatan menyampaikan list code delphi lainnya. Buat temen temen yang mau coba latihan yang saya buat untuk materi kita kali ini bisa di download link di bawah ini. Ikuti Soalnya kemudian kerjakan jika ada kesulitan bisa di Liat Aja Listing Codenya yang juga saya lampirkan :
Nah See You Next Lesson Temen Temen Semua, Salam Luar Biasa.
Read more

0 modul 1 Menampilkan Teks Pada Edit Box – Delphi 7

Assalamualaikum, Salam Luar Biasa Temen Temen Semua. Udah Lama Gak Buka Buka Catatan Delphi Di Blog ini *hehehehe biasa menyibukkan diri dengan hal lain. Nah karena ada kesempatan buat bikin postingan kali ini ayo kita belajar lagi. Kalau kemarin kemarin udah install program Borland Delphi 7 nya udah kenalan juga sama area kerja Borland Delphi 7 nya, nah sekarang sudah waktunya kita belajar bermain coding atau membuat program aplikasi dengan bahasa borland delphi 7.  untuk Judul Kali ini kita akan membuat aplikasi sederhana yakni menampilkan Teks pada component edit box di delphi 7, Monggo Disimak sampai akhir karena ada latihan juga yang bisa temen coba di rumah.
Pertama Design Form Sebagai Berikut :
Ubah Properties Name Setiap Object Sebagai Berikut :
Read more
Baca selengkapnya »

0 TUGAS PERTAMA DELPHI

Senin, 10 Maret 2014
pertama kali saya masuk disemester 2 emb.......langsung dikasik tugas ma makul pemograman hah......yang lain masih belum selesai udh ada lagi ha........CPD hehehe...... ya kalok gak mw gitu ya jangan kuliah........hehehe tetap semangat ........sampai kau mati
maaf curhat jadinya......langsung keTKP
carilah modul delphi dan myslq setelah itu langsung ke dosen andi wijya, s.kom cukup dirangkum ambil yang penting penting setelah itu langsung diprint out jangan dibaca ya.......dan langsung dipraktekkan ok
cari digoogle ajah ya........heheh.......
aku mw masuk dulu.....
Read more