MDL-01
Pendahuluan
Komponen Button adalah komponen yang secara default memilik sifat kejadian OnClick, artinya listing program yang disisipkan pada komponen Button akan dieksekusi manakala komponen tersebut di klik.
Berikut ini akan dicoba membuat pogram sederhana dengan dua komponen button yang apabila diklik Button1 maka akan merubah teks Button1 menjadi ‘hallo’ dan Button2 menjadi ‘e x i t’, dan ketika diklik Button2 akan keluar dari program. Silahkan ikuti langkah kerja berikut :
Langkah kerja:
1. Letakkan komponen Button1 dan Button2 pada komponen Form1, seperti berikut ini !
2. Klik dua kali pada Button1 dan ketik list program berkut ini !
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:=’hallo’;
button2.Caption:=’e x i t’;
end;
3. Tekan tombol F12 pada keyboard sehingga kembali pada mode komponen Form1. Klik 2 kali pada Button2 dan ketik list program berikut ini !
application.Terminate;
4. Jalan program tersebut dengan menekan tombol F9 pada keyboar atau klik Run à Run pada menu bar.
Penjelasan listing program:
button1.Caption:=’hallo’;
button2.Caption:=’e x i t’;
Kedua listing di atas artinya memasukan data pada properties Caption dari komponen Button1 dan Button2.
application.Terminate;
Listing ini memberikan perintah agar keluar dari program (program ditutup).
Tugas:
Buatlah sebuah program dengan dua komponen button (sama seperti pada contoh) yang apabila diklik Button1 maka Button1 akan hilang dan Button2 yang tampil, sama halnya sebaliknya apabila diklik Button2, Buton2 hilang dan Button1 yang tampil. Untuk pengaturan tampil dan tidak tampil ojek button terdapat pada properties Komponen Inspektor “Visible”.
Properties Visible bernilai True artinya komponen muncul / terlihat, bernilai False komponen tak terlihat.
MDL-02
Pendahuluan
Komponen Edit digunakan untuk media input dan output data text. Walaupun data tersebut berbentuk angka, maka supaya dapat ditampilkan melalui komponen Edit data tersebut harus dikonversi ke data teks terlebih dahulu. Secara default komponen ini bersifat OnChange, artinya apabila terjadi perubahan pada isi teks pada komponen Edit maka sintak program yang disisipkan akan dieksekusi.
Sekarang akan dibuat program dengan 3 komponen button dan 2 komponen Edit yang apabila Button1 diklik akan tampil teks pada komponen Edit1 dan Edit2 teks ”my first program” dan “its simple”. Apabila Button2 diklik maka teks yang ada pada Edit1 dan Edit2 akan hilang. Button3 digunakan untuk tombol keluar dari program.
Langkah kerja:
1. Letakkan 2 komponen Edit dan 3 komponen Button pada komponen Form1, seperti berikut ini !
2. Klik dua kali pada Button1 dan ketik list program berkut ini !
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=’my first program’;
Edit2.Text:=’its simple’;
end;
3. Klik dua kali pada Button2 dan ketik list program berkut ini !
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=”; Edit2.Text:=”;
end;
4. Klik dua kali pada Button3 dan ketik list program berkut ini !
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
5. Jalan program tersebut dengan menekan tombol F9 pada keyboar atau klik Run à Run pada menu bar.
Penjelasan listing program:
Edit1.Text:=’my first program’;
Edit2.Text:=’its simple’;
Artinya properties Text dari komponen Edit1 diberikan data my first program sama halnya dengan komponen Edit2.
Edit1.Text:=”; Edit2.Text:=”;
Artinya properties Text dari komponen Edit1 dan Edit2 diberikan data teks yang kosong.
Karena list program tersebut disimpan pada komponen Button maka perubahan tampilan visual pada komponen Edit akan terlihat ketika komponen Button di-klik.
Tugas:
1. Double klik pada komponen Edit1 kemudian ketik Button1.Caption:=’Tombol1’; lakukan hal yang sama pada komponen Edit2 kemudian ketik Button2.Caption:=’Tombol1’; jalankan program kemudian ketikkan teks apa saja pada Edit1 dan Edit2. Buat kesimpulan dari percobaan tersebut!
2. Tambahkan listing program pada program di atas sehingga apabila diklik Button1 warna latar Edit1 dan Edit2 menjadi kuning dan ketika diklik Button2 warna latar Edit2 dn Edit2 menjadi merah.
MDL-03
Pendahuluan
Komponen RadioButton kerap kali digunakan untuk menuntun pengguna aplikasi program dalam menentukan salah satu pilihan dari beberapa pilihan yang disajikan, misal pilihan jenis kelamin (L atau P). Pengguna hanya dapat memilih salah satu dan tidak dapat memili keduanya.
Sedangkan komponen Label digunakan hanya untuk memberikan keterangan teks atau pemberian label pada komponen yang belum memiliki keterangan teks.
Sekarang kita coba membuat program aplikasi aritmatik dengan menggunakan 3 komponen RadioButton, 3 komponen Label dan 3 komponen Edit yang apabila RadioButton1 diklik akan menjumlahkan bilangan yang ada pada komponen Edit1 dan Edit2 serta hasilnya ditampilkan pada Edit3. Apabila komponen RadiButton2 yang diklik akan mengurangkan bilangan pada Edi1 dan Edit2. Komponen RadioButton3 digunakan untuk keluar dari aplikasi program.
Langkah kerja
1. Letakkan masing – masing 3 komponen Edit, RadioButton dan Label pada komponen Form1, seperti berikut ini !
2. Karena dalam pembuatan program ini kita akan menggunakan operasi aritmatika, terlebih dahulu buat dulu 3 variabel yang diletakkan pada bagian identifier program. Tekan tombol F12 dan ketikan listing program berikut :
var
Form1: TForm1;
bil1, bil2,hsl,kode:integer;
SHsl:string;
implementation
{$R *.DFM}
Penjelasan : Varibel yang dibuat 5 variabel, yaitu bil1, bil2,hsl,kode dengan tipe data integer dan SHsl dengan tipe data string
3. Tekan kembali F12 untuk kembali ke mode Form dan klik dua kali pada RadioButton1 dan ketik list program berkut ini !
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
val(Edit1.text,bil1,kode);
val(Edit2.text,bil2,kode);
hsl:=bil1+bil2;
Str(hsl:5,SHsl);
Edit3.Text:=SHsl;
end;
4. Tekan kembali F12 dan klik dua kali pada RadioButton2 dan ketik list program berkut ini !
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
val(Edit1.text,bil1,kode);
val(Edit2.text,bil2,kode);
hsl:=bil1-bil2;
Str(hsl:5,SHsl);
Edit3.Text:=SHsl;
end;
5. Tekan kembali F12 dan klik dua kali pada RadioButton3 dan ketik list program berkut ini !
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
application.Terminate;
end;
6. Jalan program tersebut dengan menekan tombol F9 pada keyboard atau klik Run à Run pada menu bar.
Penjelasan listing program
val(Edit1.text,bil1,kode);
val(Edit2.text,bil2,kode);
val pada listing diatas berfungsi untuk mengubah (konversi) data teks yang tersimpan pada komponen Edit1.text dan Edit2.text dan kemudian hasilnya disimpan pada varibel bil1 dan bil2. Hal ini dilakukan karena data teks yang ada pada komponen Edit1 dan Edit2 akan diproses menggunakan operasi aritmatika.
hsl:=bil1+bil2;
Hasil konversi diproses dengan menggunakan persamaan aritmatik.
Str(hsl:5,SHsl);
Hasil dari proses perhitungan aritmatik akan ditampilkan pada komponen Edit3. Tentunya tidak bisa langsung ditampilkan karena komponen Edit hanya bisa membaca data teks. Fungsi Str adalah jawabannya. hsl:5 artinya data numerik dengan maksimal 5 karakter yang ditampilkan dan SHsl adalah variabel tempat menyimpan data hasil konversi dari data numerik ke string.
Edit3.Text:=SHsl;
Isi variabel SHsl dimasukkan ke Edit3.Text.
Tugas
Tambahkan fitur baru pada program di
MDL-04
Pendahuluan
Menggunakan kombinasi efek pada teks menjadi pekerjaan yang rutin dilakukan dalam menggunakan software pengolah kata. Pada modul ini akan dibahas tentang penggunaan komponen ChecKBox untuk memberikan efek pada huruf. Tentunya tidak hanya untuk itu, komponen CheckBox dapat diaplikasikan secara luas. Contoh pogram ini hanyalah menunjukkan cara kerja dari komponen CheckBox.
Sekarang buatlah program dengan 1 komponen Edit, 1 komponen Label, 2 komponen CheckBox dan 2 komponen Button. Apabila program di running, maka akan tampil seperti pada gambar di bawah. Ketika komponen CheckBox1 di ceklist (v), maka teks pada komponen Edit1 akan menjadi miring dan apabila di ceklist pada CheckBox2 maka teks menjadi tebal. Button1 digunakan untuk mengosongkan teks pada komponen Edit1 sedangkan Button2 untuk mengakhiri program.
Langkah kerja
1. Letakkan masing – masing 1 komponen Edit dan Label, 2 komponen CheckBox dan 2 komponen Button pada komponen Form1, seperti berikut ini !
2. Klik dua kali pada komponen CheckBox1 kemudian ketikan listing program berikut!
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then Edit1.Font.Style:=[fsItalic]
else Edit1.Font.Style:=[]
end;
3. Tekan F12 untuk kembali ke mode Form dan klik dua kali pada CheckBox2 dan ketik listing program berikut ini !
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked=true then Edit1.Font.Style:=[fsBold]
else Edit1.Font.Style:=[]
end;
4. Tekan kembali F12 untuk kembali ke mode Form dan klik dua kali pada RadioButton1 dan isikan listing program berikut!
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=”;
end;
5. Kembali ke mode Form dan klik dua kali pada RadioButton2 dan isikan listing program berikut!
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.terminate;
end;
6. Jalan program tersebut dengan menekan tombol F9 pada keyboard atau klik Run à Run pada menu bar.
Penjelasan listing program
if checkbox1.Checked=true then Edit1.Font.Style:=[fsItalic]
else Edit1.Font.Style:=[]
Tentunnya masih ingat dengan fungsi IF, dengan format penulisan
IF<kondisi> THEN <pernyataan1>
ELSE<pernyataan2>
checkbox1.Checked=true merupakan bagian kondisi fungsi IF yang menyatakan bahwa
kondisi true/benar apaila komponen CheckBox1 dalam kondisi di-ceklist v .
Edit1.Font.Style:=[fsItalic]merupakan bagian pernyatan2 yang menyatakan bahwa
Font Style pada komponen Edit1 dalam kondisi tercetak miring (fsItalic).
Edit1.Font.Style:=[]merupakan bagian pernyatan2 yang menyatakan bahwa Font Style
pada komponen Edit1 dalam kondisi normal.
if checkbox2.Checked=true then Edit1.Font.Style:=[fsBold]
else Edit1.Font.Style:=[]
Hal yang serupa pada sintak berikut yang membedakan hanya pada then yaitu Font Style dari komponen Edit1 teks terformat cetak tebal (fsBold)
Setelah program dijalankan ketikan satu kata atau kalimat pada komponen Edit1 kemudian coba klik pada CheckBox 1 dan 2. Klik Button1 untuk membersihkan teks yang ada pada komponen Edit1 dan klik Button2 untuk mengakhiri program
Tugas
Tambahkan fitur baru pada program di atas untuk merubah teks menjadi bergaris bawah dan merubah warna teks !
Januari 26, 2008
MDL-05
Pendahuluan
Menariknya pemograman yang OOP salah satunya adalah dapa menampilkan gambar. Pada program yang akan dibuat pada modul 5 adalah menyisipkan gambar dan menampikan jam sehingga memungkinkan kita memiliki tampilan jam dengan foto pribadi melekat pada form jam.
Program yang akan dibuat membutuhkan satu buah komponen Label, satu buah komponen Button, satu buah komponen Image yang terdapat di Component Palette pada tab Additional,
dan satu buah komponen Timer yang terdapat di Component Palette pada tab System.
Apabila program di running, maka akan tampil jam beserta gambar yang sudah disisipkan . Komponen Button1 digunakan untuk mengakhiri program.
Langkah kerja
1. Pertama – letakkan komponen Label1 terlebih dahulu kemudian atur ukuran fontnya pada Properties yang ada pada Object Inspector.
2. Kedua letakkan komponen Button1 dan atur ukurannya.
3. Ketiga letakkan komponen Image1 yang berada di Component Palette pada tab Additional kemudian klik dua kali pada komponen tersebut dan klik Load untuk memilih gambar yang akan disisipkan kemudian klik Open dan OK. Apabila ukuran gambar terlalu besar ubah properties Stretch menjadi bernilai True.
4. Selanjutnya letakkan obek Timer1 yang berada di Component Palette pada tab System pada sudut kiri atas Form1.
5. Klik dua kali pada komponen Timer1 kemudian ketikan listing program berikut!
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=timetostr(time);
end;
6. Tekan F12 untuk kembali ke mode Form dan klik dua kali pada komponen Button1 kemudian ketik listing program berkut ini !
procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;
7. Jalan program tersebut dengan menekan tombol F9 pada keyboard atau klik Run à Run pada menu bar.
Penjelasan listing program
Label1.Caption:=timetostr(time);
Listing tersebut artinya tampilan teks pada komponen Label1 diisi dengan tampilan jam. timetostr(time) adalah konversi data waktu ke string, hal ini dilakukan karena komponen Label mempunyai sifat yang sama dengan komponen Edit, yaitu hanya menampilkan data string.
disisipkan pada Form.
Tugas
Edit program tersebut dengan menambahkan komponen Label2 untuk menampilkan tanggal!
MDL-06
Pendahuluan
Siapa yang tidak kenal dengan program WinAmp atau Windows Media Player. Program yang digunakan untuk memutar file audio dan video. Sekarang kita akan mencoba membuatnya tetunya masih sangat sederhana. Komponen yang diperlukan adalah satu objek MediaPlayer yang terletak di Componen Palette pada tab System
dan satu objek Button. File audio yang akan digunakan pada program ini adalah file audio yang ber ektension ‘wav’.
Langkah kerja
1. Letakkan satu objek MediaPlayer1 yang terdapat pada tab System dan Button1 pada Form1, seperti yang terlihat pada gambar di bawah ini .
2. Klik dua kali pada objek Button1 kemudian ketikan listing program berikut !
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName:=(‘C:\WINDOWS\Media\notify.wav’);
MediaPlayer1.Open;
end;
3. Jalan program tersebut dengan menekan tombol F9 pada keyboard atau klik Run à Run pada menu bar.
Penjelasan listing program
MediaPlayer1.FileName:=(‘C:\WINDOWS\Media\notify.wav’);
Sintak diatas ditujukan untuk memanggil file audio yang berada pada directori ‘C:\WINDOWS\Media\notify.wav’
MediaPlayer1.Open;
Sintak ini artinya membuka atau dengan kata lain melakukan play pada file yang sudah dipanggil.
Tugas
Lakukan uji coba, apakah bisa format MP3 dipanggil menggunakan MediaPlayer pada DELPHI .
MDL-07
Pendahuluan
Sebuah media player tentunya harus dapat memilih file sesuai dengan keinginan pengguna. Aplikasi yang akan dibuat ini menggunakan komponen Media Player, komponen Edit untuk menampilkan lokasi file, komponen Button, dan komponen OpenDialog untuk menampilkan fitur explorer seperti pada Windows. Komponen OpenDialog disimpan di Componen Palette pada tab Dialogs.
Langkah kerja
1. Letakkan satu komponen MediaPlayer1, Edit1, DialogBox1 yang terdapat di Componen Palette pada tab Dialogs dan 4 buah komponen Button pada Form1. Lakukan perubahan properties Caption komponen Button 1 sampai dengan 4 sehingga tampak seperti yang terlihat pada gambar di bawah ini .
2. Klik dua kali pada komponen Button1 kemudian ketikan listing program berikut!
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.FileName:=’*.mp3′;
Opendialog1.Execute;
Edit1.Text:=Opendialog1.FileName;
end;
3. Tekan F12 untuk kembali ke mode Form dan klik dua kali pada komponen Button2 dan ketik listing program berkut ini !
procedure TForm1.Button2Click(Sender: TObject);
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
4. Tekan F12 untuk kembali ke mode Form dan klik dua kali pada komponen Button3 dan ketik listing program berkut ini !
procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;
5. Tekan F12 untuk kembali ke mode Form dan klik dua kali pada komponen Button4 dan ketik listing program berkut ini !
procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;
6. Jalan program tersebut dengan menekan tombol F9 pada keyboard atau klik Run à Run pada menu bar.
Penjelasan listing program
OpenDialog1.FileName:=’*.mp3′;
Komponen OpenDialog1 diseting untuk menyortir file supaya hanya file yang ber-ekstension mp3 saja yang ditampilkan.
Opendialog1.Execute;
Pemanggilan windows OpenDialog1.
Edit1.Text:=Opendialog1.FileName;
Menampilkan alamat directori file yang diakses pada komponen Edit1.
MediaPlayer1.FileName:=OpenDialog1.FileName;
File yang akan dieksekusi atau diplay oleh MediaPlayer1 diambil atau sama dengan file yang dieksekusi pada OpenDialog1.
MediaPlayer1.Open;
Komponen MediaPlayer1 diaktifkan.
MediaPlayer1.Play;
Perintah untuk komponen MediaPlayer1 agar melakukan play pada file audio.
MediaPlayer1.Stop;
Perintah untuk komponen MediaPlayer1 agar berhenti memainkan file audio.
Application.Terminate;
Keluar dari program yang sedang aktif.
Tugas
Buatlah program untuk memainkan file audio dan video sehingga kalian dapat membuat program VCD Player sendiri.
