Program Sederhana Visual Studio

KHAIRIL MUFLIH NASUTION<*_^>.....

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

2.Kode 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

 2.Kode 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

 2.Kode 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 ^_^