Pemrograman Visual:Form dan Objek Kontrol 2: Difference between revisions
No edit summary |
|||
| 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"> | <syntaxhighlight lang="vb.net" line="1"> | ||
Imports System.IO | Imports System.IO | ||
| Line 75: | Line 77: | ||
* 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"> | <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 | ||
| Line 82: | Line 85: | ||
* 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 | ||
| Line 100: | Line 104: | ||
* 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 | ||
| Line 123: | Line 128: | ||
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]] | ||
* 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 183: | ||
* Klik ganda pada '''form''', ketikkan kode program berikut ini: | * Klik ganda pada '''form''', ketikkan kode program berikut ini: | ||
<syntaxhighlight lang="vb.net" line="1"> | <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 | ||
| Line 185: | Line 193: | ||
* Klik ganda pada '''Timer1''', ketikkan kode program berikut ini : | * Klik ganda pada '''Timer1''', ketikkan kode program berikut ini : | ||
<syntaxhighlight lang="vb.net" line="1"> | <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 | ||
| Line 193: | Line 202: | ||
* 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 217: | ||
End Sub | End Sub | ||
End Class | End Class | ||
</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 269: | ||
* 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"> | <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 | ||
| Line 268: | Line 281: | ||
* 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"> | <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 | ||
| Line 278: | Line 292: | ||
* 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"> | <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 | ||
| Line 285: | Line 300: | ||
* 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 315: | ||
* 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 346: | ||
End Sub | End Sub | ||
End Class | End Class | ||
</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]] | ||