Pemrograman Visual:Form dan Objek Kontrol 1

Tujuan

• Memahami dan mengenal Form dan Objek Kontrol;
• Dapat membuat aplikasi sederhana dengan menggunakan form dan objek control.

Perangkat Lunak (Software)

• Microsoft Visual Basic 2008

Dasar Teori

Form merupakan media interaksi antara pengguna dengan aplikasi yang dibuat. Form dapat dikatakan sebagai wadah atau penampung objek control yang akan digunakan. Form juga dapat dikatakan objek karena dapat memberikan reaksi saat menemui suatu kejadian. Form dapat dikategorikan menjadi 2 yaitu :

1. Form Dinamis

Yaitu form yang dapat dimanipulasi atau diubah bentuk serta disisipi objek control yang berisi perintah-perintah yang diperlukan oleh aplikasi yang akan dibuat, contoh :

• Window (Windows Form, Console, Class Library, WPF dsb.)
• Web (ASP.Net Web Application, ASP.NET Web Servis dsb)
• Smart Device (Smart Device Project)
• Database(Access dan SQL Server)
• Report (Report Aplication dan Crystal Report)
• WCF (Windows Communication Foundation)
• dll

2. Form Statis

Yaitu form yang tidak dapat dimanipulasi atau diubah bentuk serta disisipi objek control. Form ini hanya dapat dipanggil melalui kode perintah, Contoh :

a. Form Pesan (Messagebox)

Form yang bertugas untuk menampilkan pesan keterangan terhadap suatu kejadian yang diterima oleh aplikasi.

b. InputBox (Kotak Input Pesan)

Form ini digunakan untuk interaksi antara pengguna dengan aplikasi yang dibuat, dimana pengguna tersebut memasukkan suatu nilai lalu mengklik suatu tombol dan menunggu efek yang ditimbulkan oleh aplikasi yang dibuat.

Objek Kontrol

Label, TextBox dan Button

Label merupakan objek control yang dapat menampilkan output tetapi tidak dapat memberikan input pada saat dijalankan.

TextBox Merupakan objek control yang dapat diberikan input pada saat program dijalankan.

Button merupakan objek control yang dapat mengeksekusi perintah-perintah yang telah diberikan.

CheckBox dan RadioButton

CheckBox merupakan objek control yang berfungsi untuk memilih beberapa item data. Dengan objek ini anda dapat lebih dari satu pilihan dan bahkan memilih semua pilihan tersedia.

RadioButton fungsi hampir sama dengan checkbox, tetapi hanya dapat memilih satu pilihan yang tersedia.

ComboBox dan ListBox

ComboBox merupakan objek control yang dapat digunakan untuk menampilkan daftar item dengan pilihan dropdown.

ListBox merupakan objek control yang jauh berbeda dengan ComboBox hanya saja pada listbox menu daftar pilihan ditampilkan secara kesuluruhan.

Timer dan DateTimerPicker

Timer merupakan objek control yang berfungsi untuk mengatur dan menampilkan waktu yang diperlukan.

DateTimerPicker objek control yang berfungsi untuk menampilkan tanggal dengan menu DropDown.

Praktikum

CheckBox dan RadioButton

• Buat project baru, dengan nama Prak2.
• Desain Tampilan form seperti gambar berikut ini:

Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name	Form1
	Text	CheckBox dan RadioButton
Label1	Name	Lbl_Font
	Autosize	False
	BorderStyle	Fixed3D
	Font	Microsoft Sans Serif, 16
	TextAlign	Center
	Text	CheckBox dan RadioButton
GroupBox1	Text	Efek
GroupBox2	Text	Font Style
CheckBox1	Text	StrikeOut
CheckBox2	Text	Underline
RadioButton1	Text	Regular
RadioButton2	Text	Italic
RadioButton3	Text	Bold
RadioButton4	Text	BoldItalic

• Klik ganda pada CheckBox1, kemudian ketikkan kode program berikut ini :

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _
        Lbl_Font.Font.Style Xor FontStyle.Strikeout)
End Sub

• Klik ganda pada CheckBox2, kemudian ketikkan kode program berikut ini:

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _
        Lbl_Font.Font.Style Xor FontStyle.Underline)
End Sub

• Klik ganda pada RadioButton1, kemudian ketikkan kode program berikut ini:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _
       Lbl_Font.Font.Style Xor FontStyle.Regular)
End Sub

• Klik ganda pada RadioButton2, kemudian ketikkan kode program berikut ini:

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _
       Lbl_Font.Font.Style Xor FontStyle.Italic)
End Sub

• Klik ganda pada RadioButton3, kemudian ketikkan kode program berikut ini:

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
       Lbl_Font.Font = New Font("Microsoft sans Serif", _
       Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold)
End Sub

• Klik ganda pada RadioButton4, kemudian ketikkan kode program berikut ini:

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
       Lbl_Font.Font = New Font("Microsoft sans Serif", _
       Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold Xor FontStyle.Italic)
End Sub

• Seluruh kode program jika dijadikan satu

Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _
        Lbl_Font.Font.Style Xor FontStyle.Strikeout)
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _
        Lbl_Font.Font.Style Xor FontStyle.Underline)
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _
        Lbl_Font.Font.Style Xor FontStyle.Regular)
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _
        Lbl_Font.Font.Style Xor FontStyle.Italic)
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Lbl_Font.Font = New Font("Microsoft sans Serif", _
        Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold)
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        Lbl_Font.Font = New Font("Microsoft sans Serif", _
        Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold Xor FontStyle.Italic)
    End Sub
End Class

• Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
• Simpan aplikasi Anda.
• Hasil

Note:

Jika kamu menemukan kesalahan dalam penulisan kode program bisa hubungi saya melalui email yang ada di menu Contac Us