Wiki

Pemrograman Visual:Form dan Objek Kontrol 2: Difference between revisions

← Older editNewer edit →
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
No edit summary
Line 71: Line 71:
* Klik icon view code pada solution Explorer, di atas Public Class '''Form2''', ketikkan kode program berikut ini :
* Klik icon view code pada solution Explorer, di atas Public Class '''Form2''', ketikkan kode program berikut ini :


<syntaxhighlight lang="vb.net" line="1">
Imports System.IO
Imports System.IO
Public Class Form2
Public Class Form2
</syntaxhighlight>


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


<syntaxhighlight lang="vb.net" line="1">
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
End Sub
End Sub
</syntaxhighlight>


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


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


* Jika kode program digabungkan
* Jika kode program digabungkan


<syntaxhighlight lang="vb.net" line="1">
<syntaxhighlight lang="vb.net" line="1">
Imports System.IO
Imports System.IO
Public Class Form2
Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
    End Sub
    End Sub
 
    Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
    Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
        LstInfo.Items.Clear()
        LstInfo.Items.Clear()
        LstInfo.Items.Add("Nama Drive :" & Dir("" & _
        LstInfo.Items.Add("Nama Drive :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.Volume) & "")
        Cmb_Drive.Text & "", FileAttribute.Volume) & "")
        LstInfo.Items.Add("System :" & Dir("" & _
        LstInfo.Items.Add("System :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.System) & "")
        Cmb_Drive.Text & "", FileAttribute.System) & "")
        Dim dvr As New DriveInfo(Cmb_Drive.Text)
        Dim dvr As New DriveInfo(Cmb_Drive.Text)
        Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"
        Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"
        Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
        Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
        Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"
        Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"
        LstInfo.Items.Add("Kapasitas : " & kapasitas)
        LstInfo.Items.Add("Kapasitas : " & kapasitas)
        LstInfo.Items.Add("Terpakai : " & Terpakai)
        LstInfo.Items.Add("Terpakai : " & Terpakai)
        LstInfo.Items.Add("Sisa : " & sisa)
        LstInfo.Items.Add("Sisa : " & sisa)
    End Sub
    End Sub
End Class
End Class
</syntaxhighlight>


[[File:Form dan Objek Kontrol 2-4.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-4.png|center|thumb]]
Line 184: Line 178:
* Klik ganda pada '''form''', ketikkan kode program berikut ini:
* Klik ganda pada '''form''', ketikkan kode program berikut ini:


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


* Klik ganda pada '''Timer1''', ketikkan kode program berikut ini :
* Klik ganda pada '''Timer1''', ketikkan kode program berikut ini :


<syntaxhighlight lang="vb.net" line="1">
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
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")
      Lbl12Jam.Text = Format(Now, "h:mm:ss tt")
      Lbl24Jam.Text = Format(Now, "hh:mm:ss")
      Lbl24Jam.Text = Format(Now, "hh:mm:ss")
End Sub
End Sub
</syntaxhighlight>


* Jika kode program dijadikan satu:
* Jika kode program dijadikan satu:
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Form_dan_Objek_Kontrol_2"