1. Membuka Visual Basic 2010 Express :
· Klik Start di Desktop.
· Klik Microsoft Visual Basic 2010 Express.
Sehingga Tampil Jendela Berikut :
2. Membuat Project baru :
· Di Start Page, pilih New Project.
Pilih Windows Form Application.
· Klik Ok.
Sehingga tampil jendela berikut :
3. Tambahkan MenuStrip pada Form1 :
· Di Toolbox, bagian Menus & Toolbars, pilih MenuStrip.
sehingga Tampilan Menjadi :
· Input data sebagai berikut :
Di menu File : Exit
o Di menu View :
§ Text Colour : White, Red, Blue, Yellow, dan Default
§ Background Colour : Black, Peach Puff, Light Blue, Gold, dan Default
§ Font Case : Upper dan Lower
o Di menu Help : Text Colour, Background Colour, dan Font Case
· Untuk memasuki separator atau garis pemisah, tinggal ketik tanda “-“.
4. Tambahkan TextBox dan berikan setting sebagai berikut :
· Di Toolbox, bagian Common Controls, pilih TextBox.
Posisikan Toolbox di bagian tengah Form1
· Klik lambang panah di sebelah kanan atas TextBox, sehingga muncul TextBox Tasks.
· Klik MultiLine, untuk mempermudah pengaturan besar kecil TextBox.
· Di Properties, bagian TextAlign, pilih Center.
Untuk menjalankan fungsi-fungsi yang ada di MenuStrip, dimulai Coding :
· Klik File.
· Double klik Exit, sehingga muncul tampilan berikut :
· Mulai koding untuk Sub Menu Exit.
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Close()
End Sub
· Lalu klik View, pilih Text Colour.
· Double klik pada Sub Sub Menu White dan mulai kodingnya.
Private Sub WhiteToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles WhiteToolStripMenuItem.Click
TextBox1.ForeColor = Color.White
End Sub
· Kemudian klik View, pilih Text Colour.
· Double klik pada Sub Sub Menu Red dan mulai kodingnya.
Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedToolStripMenuItem.Click
TextBox1.ForeColor = Color.Red
End Sub
· Terus klik View, pilih Text Colour.
· Double klik pada Sub Sub Menu Blue dan mulai kodingnya.
Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueToolStripMenuItem.Click
TextBox1.ForeColor = Color.Blue
End Sub
· Dilanjutkan klik View, pilih Text Colour.
· Double klik pada Sub Sub Menu Yellow dan mulai kodingnya.
Private Sub YellowToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles YellowToolStripMenuItem.Click
TextBox1.ForeColor = Color.Yellow
End Sub
· Terakhir klik View, pilih Text Colour.
· Double klik pada Sub Sub Menu Default dan mulai kodingnya.
Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles DefaultToolStripMenuItem.Click
TextBox1.ForeColor = Color.Black
End Sub
· Setelah itu, klik View, pilih Background Colour.
· Double klik pada Sub Sub Menu Black dan mulai kodingnya.
Private Sub BlackToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlackToolStripMenuItem.Click
TextBox1.BackColor = Color.Black
End Sub
· Lalu klik View, pilih Background Colour.
· Double klik pada Sub Sub Menu Peach Puff dan mulai kodingnya.
Private Sub PeachPuffToolStripMenuItem1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles PeachPuffToolStripMenuItem1.Click
TextBox1.BackColor = Color.PeachPuff
End Sub
· Kemudian klik View, pilih Background Colour.
· Double klik pada Sub Sub Menu Light Blue dan mulai kodingnya.
Private Sub LightBlueToolStripMenuItem1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles LightBlueToolStripMenuItem1.Click
TextBox1.BackColor = Color.LightBlue
End Sub
· Terus klik View, pilih Background Colour.
· Double klik pada Sub Sub Menu Gold dan mulai kodingnya.
Private Sub GoldToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles GoldToolStripMenuItem.Click
TextBox1.BackColor = Color.Gold
End Sub
· Dilanjutkan klik View, pilih Background Colour.
· Double klik pada Sub Sub Menu Default dan mulai kodingnya.
Private Sub DefaultToolStripMenuItem1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles DefaultToolStripMenuItem1.Click
TextBox1.BackColor = Color.White
End Sub
· Setelah itu, klik View, pilih Font Case.
· Double klik pada Sub Sub Menu Upper dan mulai kodingnya.
Private Sub UpperToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles UpperToolStripMenuItem.Click
TextBox1.Text = TextBox1.Text.ToUpper()
End Sub
· Lalu klik View, pilih Font Case.
· Double klik pada Sub Sub Menu Lower dan mulai kodingnya.
Private Sub LowerToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles LowerToolStripMenuItem.Click
TextBox1.Text = TextBox1.Text.ToLower()
End Sub
· Setelah itu, klik Help.
· Double klik pada Sub Menu Test Colour dan mulai kodingnya.
Private Sub TextColourToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles TextColourToolStripMenuItem.Click
TextBox1.Clear()
TextBox1.ForeColor = Color.Black
TextBox1.BackColor = Color.White
MessageBox.Show("Text Colour untuk mengubah warna text.", "Information", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
· Kemudian klik Help.
· Double klik pada Sub Menu Background Colour dan mulai kodingnya.
Private Sub BackgroundColourToolStripMenuItem1_Click(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles BackgroundColourToolStripMenuItem1.Click
TextBox1.Clear()
TextBox1.ForeColor = Color.Black
TextBox1.BackColor = Color.White
MessageBox.Show("Background Colour untuk mengubah warna background.", "Information", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
· Terakhir klik Help.
· Double klik pada Sub Menu Font Case dan mulai kodingnya.
Private Sub FontCaseToolStripMenuItem1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles FontCaseToolStripMenuItem1.Click
TextBox1.Clear()
TextBox1.ForeColor = Color.Black
TextBox1.BackColor = Color.White
MessageBox.Show("Font Case untuk mengubah bentuk huruf.", "Information", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Setelah selesai Coding, tampilan akan menjadi sebagai berikut :
6. Setelah selesai Coding, di Save All (Ctrl+Shift+S). Akan muncul tampilan berikut, pilih tempat untuk penyimpanan data dan menamakan sesuai dengan keinginan. Setelah semua selesai, klik Ok.
7. Untuk menjalankan program :
· Klik Debug, pilih Start Debugging atau langsung tekan tombol F5.
SELESAI
-SELAMAT MENCOBA-
