Select Language



Followers

IT Programmer. Powered by Blogger.

27 August 2010

Membuat Program Font Property dalam VB 2008

"Om Swastiastu"

Tiap font memiliki property, seperti Bold, Underline, Italic, juga memberikan efek warna. Kali ini kita akan membuat program simple dengan untuk memberikan efek tertentu pada jenis huruf. Ini adalah program lanjutan dari program sederhana yang saya buat. Dimana dalam program sederhana tersebut kita memasukkan sebuah nama dan menampilkannya. Nah, kali ini kita akan mengedit nama yang sudah ditampilkan, dengan memberi efek warna, efek tebal, miring dan dengan garis bawah.

Untuk mengawali program kali ini, buatlah desain form seperti pada gambar dibawah ini:


Dalam form diatas terdapat 2 buah Label, 2 buah Button, 1 buah TextBox, 1 buah GroupBox, 3 buah CheckBox, dan 4 buah RadioButton.
Kalian dapat saja menambah objek-objek lainnya. Misalkan kalian ingin menambah jenis warna dan efek font.
Jika sudah, kita mulai membuat sintaks dengan 2 Button pertama. Sintaksnya sama dengan program sederhana yang saya berikan sebelumnya. Namun jika ada yang belum sempat melihatnya, maka saya akan berikan lagi. Double click Button1 atau 'OK', lalu masukkan kode berikut ini:

Label2.Text = TextBox1.Text

Kemudian double click Button2 atau 'Keluar', lalu masukkan sintaks: End.
Selanjutnya, double click masing-masing RadioButton, kita mulai dari yang paling atas, lalu masukkan sintaks berikut ini:

Label2.ForeColor = Color.Red untuk RadioButton1
Label2.ForeColor = Color.Green untuk RadioButton2
Label2.ForeColor = Color.Blue untuk RadioButton3
Label2.ForeColor = Color.Yellow untuk RadioButton4

Sintaks diatas akan memberikan efek pergantian warna pada Label2 jika RadioButton diklik. Tahap terakhir memasukkan sintaks pada masing-masing CheckBox. Seperti sebelumnya, kita mulai dari atas:

Untuk CheckBox1 atau 'Italic':

        If CheckBox1.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Italic)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Italic)
        End If


Untuk CheckBox2 atau 'Bold':

        If CheckBox2.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Bold)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Bold)
        End If


Untuk CheckBox3 atau 'Underline':

        If CheckBox3.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Underline)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Underline)
        End If


Disini kita juga mempelajari penggunaan statemen IF dalam VB 2008. Sintaks didalam statemen If CheckBox1.Checked Then berfungsi untuk memberikan efek jika CheckBox1 diklik, maka font pada Label2 akan diberikan efek Italic. Sintaks didalam Else berfungsi jika CheckBox1 tidak diklik, maka font pada Label2 akan kembali normal.
Jika semua sudah komplit, tekanlah F5 untuk menjalankan program. Maka hasilnya akan terlihat seperti gambar berikut:
Semoga membantu teman-teman sekalian.

"Om Santhi, Santhi, Santhi, Om"



Comments:

Ada 7 comments pada “Membuat Program Font Property dalam VB 2008”
Apip Panjul said...
pada hari 

hallu IT Programmer,,,,,,
tolong buatin program matrx transpose 3x3 dunk,,,,,,,

princess pearl joseh said...
pada hari 

pnya gw gk bs di bkin tuh,, kya yg u ajarin,,,
mslah nya ad di checkbox,,
tlong bantuan nya,, agar di perjelas..

Anonymous said...
pada hari 

tidak bisa dijalankan....eror di..
Private Sub Command1_Click()
Label2.Text = TextBox1.Text
End Sub

Annisa Ayu said...
pada hari 

kalau yg coding program Visual C# ada gak.
lagi butuh coding checkbox nya yg di program C#..
mohon bantuannya ya..
trims

Unknown said...
pada hari 

Mantrraaaaappp.... Punya Ane Jalan mas bro.. thanks ^_^

Unknown said...
pada hari 

mas bro mo nanya
aq ada tambahan checkbox untuk font normal, itu listing nya gimana?
jadi saat kita checkbox normal font akan kembali normal dari misal underline

thk mas bro

ade said...
pada hari 

halo pak IT Program sama mau belajar program pak, gmn caranya bisa ketemu bpk

Social Media


Facebook Page

Programming Tutorial


Info


Tips
Downloads
Friends
 
This Blog is proudly powered by Blogger.com | Template by Bali Web Development | Privacy Policy | Rise Up!!