Pemrograman Visual:Form dan Objek Kontrol 2

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

Objek Kontrol

MenuStrip, ContextMenuStrip dan RichTextBox

MenuStrip adalah merupakan objek control yang berfungsi untuk membuat menu pilihan dropdown.

ContexMenuStrip adalah merupakan objek control yang berfungsi untuk membuat menu pilihan yang akan tampil pada saat tombol kanan mouse di klik.

RichTextBox adalah merupakan objek control yang fungsinya hampir sama seperti textbox hanya saja di objek control ini lebih banyak menampung karakter dan bisa manipulasi karakter seperti menggaris bawahi sdb.

OpenFileDialog dan SaveFileDialog

OpenFileDialog adalah merupakan objek control yang berfungsi untuk membuka kotak dialog Open.

SaveFileDialog berfungsi untuk membuka kotak dialog save yang dimiliki windows.

ToolStrip dan StatusStrip

ToolStrip adalah merupakan objek control yang berfungsi hampir sama dengan tombol pada umumunya hanya saja pada objek control ini setiap tombol memiliki gambar dan digunakan untuk mengakses gambar dengan cepat.

StatusStrip digunakan untuk menampilkan informasi seperti nama aplikasi, jam, tanggal dll. Pada umumnya objek control ini terletak di bagian bawah aplikasi.

Praktikum

ComboBox dan ListBox

• Tambahkan Form baru, dengan dengan cara klik kanan pada Prak2. Klik Add, pilih Windows Form … . Beri nama Form2
• Buatlah desain Tampilan form seperti gambar berikut ini:

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

Object	Properties	Nilai
Form2	Name	Form2
	Text	ComboBox dan ListBox
	Start Position	CenterScreen
Label1	Text	Drive
Label2	Text	Keterangan
ComboBox1	Name	Cmb_Drive
ListBox1	Name	LstInfo

• Klik icon view code pada solution Explorer, di atas Public Class Form2, ketikkan kode program berikut ini :

Imports System.IO
Public Class Form2

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

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
End Sub

• Klik ganda pada ComboBox, Kemudian ketik kode program berikut ini :

Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
        LstInfo.Items.Clear()
        LstInfo.Items.Add("Nama Drive :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.Volume) & "")
        LstInfo.Items.Add("System :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.System) & "")
        Dim dvr As New DriveInfo(Cmb_Drive.Text)
        Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"
        Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
        Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"
        LstInfo.Items.Add("Kapasitas : " & kapasitas)
        LstInfo.Items.Add("Terpakai : " & Terpakai)
        LstInfo.Items.Add("Sisa : " & sisa)
End Sub

• Jika kode program digabungkan

Imports System.IO
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
    End Sub

    Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
        LstInfo.Items.Clear()
        LstInfo.Items.Add("Nama Drive :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.Volume) & "")
        LstInfo.Items.Add("System :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.System) & "")
        Dim dvr As New DriveInfo(Cmb_Drive.Text)
        Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"
        Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
        Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"
        LstInfo.Items.Add("Kapasitas : " & kapasitas)
        LstInfo.Items.Add("Terpakai : " & Terpakai)
        LstInfo.Items.Add("Sisa : " & sisa)
    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

Timer dan DateTimePicker

• Tambahkan Form baru, dengan dengan cara klik kanan pada Prak2. Klik Add, pilih Windows Form … . Beri nama Form3
• Buatlah desain Tampilan form seperti gambar berikut ini:

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

Object	Properties	Nilai
Form3	Name	Form3
	Text	Timer dan DateTimePicker
	Start Position	CenterScreen
Label1	name	Lbl12jam
Label2	Name	Lbl24jam
DateTimePicker1	Name	Dtanggal
Timer1	Enable	True
	Interval	1000

• Klik ganda pada form, ketikkan kode program berikut ini:

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dtanggal.Format = DateTimePickerFormat.Custom
    Dtanggal.CustomFormat = "dddd,dd/MM/yyyy"
    Dtanggal.Value = Format(Now)
End Sub

• Klik ganda pada Timer1, ketikkan kode program berikut ini :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Lbl12Jam.Text = Format(Now, "h:mm:ss tt")
      Lbl24Jam.Text = Format(Now, "hh:mm:ss")
End Sub

• Jika kode program dijadikan satu:

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dtanggal.Format = DateTimePickerFormat.Custom
        Dtanggal.CustomFormat = "dddd,dd/MM/yyyy"
        Dtanggal.Value = Format(Now)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Lbl12jam.Text = Format(Now, "h:mm:ss tt")
        Lbl24jam.Text = Format(Now, "hh:mm:ss")
    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

MenuStrip, ContextMenuStrip dan RichTextBox

• Tambahkan Form baru, dengan dengan cara klik kanan pada Prak2. Klik Add, pilih Windows Form … . Beri nama Form4
• Buatlah desain Tampilan form seperti gambar berikut ini:

• Tambahkan menuStrip seperti pada form di atas
• Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name	Form1
	Text	NotePad
	Start Position	CenterScreen
MenuStrip1	name	MenuStrip1
RichTextBox1	Name	RchTeks
	ContextMenuStrip	ContextMenuStrip1
ContextMenuStrip1	Name	ContextMenuStrip1

• Klik ganda pada menu buka, ketikkan kode program berikut ini:

Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click
        Dim kotak_dialog As OpenFileDialog = New OpenFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        Dim fileText As String = My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)
        RchTeks.Text = fileText
End Sub

• Klik ganda pada menu simpan, ketikkan kode program berikut ini:

Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click
        Dim kotak_dialog As SaveFileDialog = New SaveFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "",RchTeks.Text, False)
End Sub

• Klik ganda pada menu Baru, ketikkan kode program berikut ini:

Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
        RchTeks.Text = ""
End Sub

• Klik ganda pada menu ContextMenuStrip dengan menu regular, kemudian ketik kode program berikut ini :

Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click
        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Regular)
End Sub

• Klik ganda pada menu ContextMenuStrip dengan menu Bold, kemudian ketik kode program berikut ini :

Private Sub BoldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripMenuItem.Click
        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Bold)
End Sub

• Jika kode program digabung

Public Class Form1

    Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click
        Dim kotak_dialog As OpenFileDialog = New OpenFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        Dim fileText As String = My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)
        RchTeks.Text = fileText
    End Sub

    Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click
        Dim kotak_dialog As SaveFileDialog = New SaveFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "", RchTeks.Text, False)
    End Sub

    Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
        RchTeks.Text = ""
    End Sub

    Private Sub RegulerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegulerToolStripMenuItem.Click
        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Regular)
    End Sub

    Private Sub BoldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripMenuItem.Click
        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Bold)
    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