Beranda » Algoritma » Merubah Font Menggunakan Komponen CheckBox

Merubah Font Menggunakan Komponen CheckBox

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

Blog Stats

  • 201,058 hits

Tamu

free counters

Traffic

Google PageRank Checker

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 !

radiolabel.jpeg

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 !


1 Komentar

  1. John mengatakan:

    good article!

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

%d blogger menyukai ini: