Wiki

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

← Older edit
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
 
(5 intermediate revisions by the same user not shown)
Line 31: Line 31:
* Tambahkan Form baru, dengan dengan cara klik kanan pada '''Prak2'''. Klik Add, pilih Windows Form … . Beri nama '''Form2'''
* 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:
* Buatlah desain Tampilan form seperti gambar berikut ini:
[[File:Form dan Objek Kontrol 2-1.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-1.png|center|thumb]]


Line 69: Line 70:


* 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
Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Imports System.IO
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
Public Class Form2
    End Sub
    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


    Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
[[File:Form dan Objek Kontrol 2-4.png|center|thumb]]
        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


</syntaxhighlight>
[[File:Form dan Objek Kontrol 2-4.png|center|thumb]]
* Jalankan aplikasi dengan menekan tombol '''F5''' (di keyboard), atau melalui ikon '''Start Debugging''' di toolbar, atau melalui menu '''Debug''' > '''Start Debuging'''.
* Jalankan aplikasi dengan menekan tombol '''F5''' (di keyboard), atau melalui ikon '''Start Debugging''' di toolbar, atau melalui menu '''Debug''' > '''Start Debuging'''.
* '''Simpan''' aplikasi Anda
* '''Simpan''' aplikasi Anda
* Hasil
* Hasil
[[File:Form dan Objek Kontrol 2-5.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-5.png|center|thumb]]


=== Timer dan DateTimePicker ===
=== Timer dan DateTimePicker ===
* Tambahkan Form baru, dengan dengan cara klik kanan pada '''Prak2'''. Klik Add, pilih '''Windows Form''' … . Beri nama '''Form3'''
* 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:
* Buatlah desain Tampilan form seperti gambar berikut ini:
[[File:Form dan Objek Kontrol 2-2.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-2.png|center|thumb]]


Line 176: Line 175:


* 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:
<syntaxhighlight lang="vb.net" line="1">
<syntaxhighlight lang="vb.net" line="1">
Public Class Form3
Public Class Form3
Line 207: Line 205:
     End Sub
     End Sub
End Class
End Class
</syntaxhighlight>


</syntaxhighlight>
[[File:Form dan Objek Kontrol 2-6.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-6.png|center|thumb]]
* Jalankan aplikasi dengan menekan tombol '''F5''' (di keyboard), atau melalui ikon '''Start Debugging''' di toolbar, atau melalui menu '''Debug''' > '''Start Debuging'''.
* Jalankan aplikasi dengan menekan tombol '''F5''' (di keyboard), atau melalui ikon '''Start Debugging''' di toolbar, atau melalui menu '''Debug''' > '''Start Debuging'''.
* Simpan aplikasi Anda
* Simpan aplikasi Anda
* Hasil
* Hasil
[[File:Form dan Objek Kontrol 2-7.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-7.png|center|thumb]]


=== MenuStrip, ContextMenuStrip dan RichTextBox ===
=== MenuStrip, ContextMenuStrip dan RichTextBox ===
* Tambahkan Form baru, dengan dengan cara klik kanan pada '''Prak2'''. Klik Add, pilih Windows Form … . Beri nama '''Form4'''
* 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:
* Buatlah desain Tampilan form seperti gambar berikut ini:
[[File:Form dan Objek Kontrol 2-3.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-3.png|center|thumb]]


Line 257: Line 257:


* 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 :
<syntaxhighlight lang="vb.net" line="1">
<syntaxhighlight lang="vb.net" line="1">
Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click
Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click
Line 299: Line 297:


* Jika kode program digabung
* Jika kode program digabung
<syntaxhighlight lang="vb.net" line="1">
<syntaxhighlight lang="vb.net" line="1">
Public Class Form1
Public Class Form1
Line 329: Line 328:
     End Sub
     End Sub
End Class
End Class
</syntaxhighlight>


</syntaxhighlight>
[[File:Form dan Objek Kontrol 2-9.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-9.png|center|thumb]]
* Jalankan aplikasi dengan menekan tombol '''F5''' (di keyboard), atau melalui ikon '''Start Debugging''' di toolbar, atau melalui menu '''Debug''' > '''Start Debuging'''.
* Jalankan aplikasi dengan menekan tombol '''F5''' (di keyboard), atau melalui ikon '''Start Debugging''' di toolbar, atau melalui menu '''Debug''' > '''Start Debuging'''.
* Simpan aplikasi Anda
* Simpan aplikasi Anda
* Hasil
* Hasil
[[File:Form dan Objek Kontrol 2-8.png|center|thumb]]
[[File:Form dan Objek Kontrol 2-8.png|center|thumb]]


{{Note|Jika kamu menemukan kesalahan dalam penulisan kode program bisa hubungi saya melalui email yang ada di menu Contac Us}}
{{Note|Jika kamu menemukan kesalahan dalam penulisan kode program bisa hubungi saya melalui email yang ada di menu Contac Us}}


{{DISPLAYTITLE:Form dan Objek Kontrol 2}}
[[Category:Materi]]
[[Category:Materi]]
[[Category:Matkul]]
[[Category:Matkul]]
[[Category:Pemrograman]]
[[Category:Pemrograman]]
[[Category:Pemrograman Visual]]
[[Category:Pemrograman Visual]]
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Form_dan_Objek_Kontrol_2"