Sedikit latihan sobat hehe, berikut adalah contoh program-program yang akan saya berikan dibawah ini sebagai berikut:
➤ Penggunaan CheckBox Dan Radio Button
Berikut gambaran nya:
1.Desain program
Public Class cbdanrb
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 GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter
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
3.Setelah selesai didesain dan memasukkan kode programnya, kemudian jalankan program dan hasilnya adalah seperti yang dibawah ini: Perhatikan nanti ketika sudah menjalankan program pada kata = "TULISAN INI AKAN BERUBAH" TEKS TERSEBUT AKAN BERUBAH BAIK DARI EFFECT PENULISANNYA DAN DARI FONT STYLE NYA YANG BERUBAH"
➤ Penggunaan Combo Box dan ListBox
Berikut gambarannya :
1.Desain Program
Imports System.IO
Public Class FrmCombo
Private Sub FrmCombo_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
3.Setelah itu kemudian jalankan program dengan menekan tombol F5 di keyboard atau menekan Icon Play pada bagian atas Form Aplikasi.
Berikut Hasilnya: "Menghitung Kapasitas dan pemakaian pada penyimpanan didalam Komputer anda"
➤ Penggunaan Timer dan DateTimePicker
Berikut gambarannya:
1.Desain Program
Public Class FrmTimer
Private Sub FrmTimer_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
Private Sub Lbl24Jam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lbl24Jam.Click
End Sub
End Class
3.Jalankan Program :
Maksud dari hasil program ini adalah format waktu 12 Jam dan 24 Jam
Dan Format tanggal,bulan,tahun
➤ Penggunaan Menu Strip
1.Desain Program:
2.Ketikkan Kode Program
Public Class FrmMenu
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
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
3.Jalankan Program :
"Pilih File dan akan menampilkan 3 menu yaitu Baru,Buka,Simpan. Ketiga Menu tersebut memiliki fungsi masing masing tentunya. Selamat Mencoba, Good Luck ^_^
