Wiki

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

← Older edit
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,206 edits
VisualWikitext
 
(2 intermediate revisions by the same user not shown)
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">
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">
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 176:
* 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:
Line 270: Line 258:
* Klik ganda pada '''menu buka''', ketikkan kode program berikut ini:
* Klik ganda pada '''menu buka''', ketikkan kode program berikut ini:


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


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


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


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


<syntaxhighlight lang="vb.net" line="1">
Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
        RchTeks.Text = ""
        RchTeks.Text = ""
End Sub
End Sub
</syntaxhighlight>


* Klik ganda pada '''menu ContextMenuStrip''' dengan menu regular, kemudian ketik kode program berikut ini :
* Klik ganda pada '''menu ContextMenuStrip''' dengan menu regular, kemudian ketik kode program berikut ini :
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Form_dan_Objek_Kontrol_2"