Pertemuan 2 | 16 Februari 2015 | Membuat Program Font Property

Membuat Program Font Property menggunakan VB 2008

• Langkah pertama yang harus dilakukan adalah buka Program VB 2008, kemudian buatlah project baru, caranya klik File > New Project atau dengan shortcut Ctrl+N. Setelah itu pilih Windows Form Aplication, dan masukkan nama projek nya. Lalu Klik OK.

• Kemudian langkah selanjutnya buatlah desain form seperti pada gambar di atas ini. form di atas terdapat 1 buah Label, 2 buah Button, 1 buah TextBox, 2 GroupBox untuk font style dan font color, 3 buah CheckBox, dan 3 buah RadioButton.Setelah selesai membuat desain form, langkah selanjutnya masukkan kode sintaksnya, Double click Button1 atau 'OK', lalu masukkan kode berikut ini:   

Public Class Form1 'memasukan input pada textbox ke label Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = TextBox1.Text End Sub 'keluar dari program Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub 'font menjadi warna hitam Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged Label1.ForeColor = Color.Black End Sub 'font menjadi warna putih Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged Label1.ForeColor = Color.White End Sub 'font menjadi warna merah Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged Label1.ForeColor = Color.Red End Sub 'font menjadi Bold Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Bold) Else Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Bold) End If End Sub 'font menjadi Italic Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked Then Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Italic) Else Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Italic) End If End Sub 'font menjadi Underline Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked Then Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Underline) Else Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Underline) End If End Sub End Class

• Berikut Tampilan jika Program telah berhasil dijalankan. 

• Jangan lupa untuk save projek anda sebelum menutup visual basic 2008.