Perancangan Menu & Toolbar pada Visual Basic 2010

Hi sobat blogger, apa kabar ? setelah melalui mid semester akhirnya program visual basic yang saya pelajari setelah mid dapat saya bagikan ke teman teman sekalian, pada kali ini sobat bloger akan mempelajari “perancangan Menu & Toolbar”.

Pertama buat sebouah form dengan menu dan toolbar menggunakan Menustrip pada toolbox untuk menambahkan menu bar pada form, dan Toolstrip untuk menambahkan toolbar/ icon – icon seperti save, new, dan image.
          Berikut tampilan program saat dijalankan :

Untuk menambahkan gambar pada sub menu tinggal Klik kanan pada sub menu dan set image, sedangkan untuk member shortcutkeys klik kanan – Properties – dan cari Shortcutkeys dan ubah sesuai keinginan.

Selanjutnya ketika kita meng-klik menu TugasSatu dan TugasDua  program akan menampilkannya secara Cascade/ Bertumpukan dan terkesan kurang rapi.

Dengan member koding pada menu horizontal, vertical dan cascade kita bias mengatur posisi form yg sedang dijalankan berikut kodingnya :

Koding dari tombol-tombol tersebut adalah : 

1. Tombol Cascade: Me.LayoutMdi(MdiLayout.Cascade) 

2. Tombol Vertical : Me.LayoutMdi(MdiLayout.TileVertical)

3. Tombol Horizotal : Me.LayoutMdi(MdiLayout.TileHorizontal)

DAFTAR TUGAS PEMROGRAMAN VISUAL

NAMA : BAYU SAPUTRA
NIM    :  11.11.2362
KELAS : TI 11 A

TUGAS 1
TUGAS 2
TUGAS 3

Tugas Visual Basic “PERULANGAN”

 Modifikasi program sebelumnya (dapat anda lihat pada postingan saya sebelumnya)

1. Saat form dijalankan : semua isian tidak aktif, tombol isi data dan tutup aktif, tombol clear tidak aktif, Yupps.... langsung masuk coding yang dirubah pada program sebelumnya, yaitu pada Form1.

Dan ini adalah Gambar saat form dijalankan :

      2. Saat ditekan tombol isi data : kode barang, jumlah barang, cara beli, tombol clear (Aktif), tombol isi data tidak aktif.

Berikut coding dan gambar pada botton isi data :

For  gambar :

      3. Saat ditekan clear sama dengan saat form dijalankan.

Berikut coding untuk botton clear :

Nah berikutnya adalah Game Puzzle Seferhana dengan Visual Basic

1. Saat form dijalankan posisi Random/acak.
2. Saat ditekan tombol yang terletak di dekat tombol kosog maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai tersusun secara urut.

For Gambar : posisi

 3.   Saat semua sudah tersusun maka akan keluar tampilan pesan “selamat anda berhasil”

For Gambar :

 

Yuk tengok Codingnya biar bisa kaya gitu... 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button4.Visible = False Then

            Button1.Visible = False

            Button4.Visible = True

            Button4.Text = Button1.Text

        ElseIf Button2.Visible = False Then

            Button1.Visible = False

            Button2.Visible = True

            Button2.Text = Button1.Text

        End If

        pesan()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button1.Visible = False Then

            Button2.Visible = False

            Button1.Visible = True

            Button1.Text = Button2.Text

        ElseIf Button5.Visible = False Then

            Button2.Visible = False

            Button5.Visible = True

            Button5.Text = Button2.Text

        ElseIf Button3.Visible = False Then

            Button2.Visible = False

            Button3.Visible = True

            Button3.Text = Button2.Text

        End If

        pesan()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If Button6.Visible = False Then

            Button3.Visible = False

            Button6.Visible = True

            Button6.Text = Button3.Text

        ElseIf Button2.Visible = False Then

            Button3.Visible = False

            Button2.Visible = True

            Button2.Text = Button3.Text

        End If

        pesan()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button1.Visible = False Then

            Button4.Visible = False

            Button1.Visible = True

            Button1.Text = Button4.Text

        ElseIf Button7.Visible = False Then

            Button4.Visible = False

            Button7.Visible = True

            Button7.Text = Button4.Text

        ElseIf Button5.Visible = False Then

            Button4.Visible = False

            Button5.Visible = True

            Button5.Text = Button4.Text

        End If

        pesan()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        If Button2.Visible = False Then

            Button5.Visible = False

            Button2.Visible = True

            Button2.Text = Button5.Text

        ElseIf Button4.Visible = False Then

            Button5.Visible = False

            Button4.Visible = True

            Button4.Text = Button5.Text

        ElseIf Button6.Visible = False Then

            Button5.Visible = False

            Button6.Visible = True

            Button6.Text = Button5.Text

        ElseIf Button8.Visible = False Then

            Button5.Visible = False

            Button8.Visible = True

            Button8.Text = Button5.Text

        End If

        pesan()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        If Button3.Visible = False Then

            Button6.Visible = False

            Button3.Visible = True

            Button3.Text = Button6.Text

        ElseIf Button9.Visible = False Then

            Button6.Visible = False

            Button9.Visible = True

            Button9.Text = Button6.Text

        ElseIf Button5.Visible = False Then

            Button6.Visible = False

            Button5.Visible = True

            Button5.Text = Button6.Text

        End If

        pesan()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If Button4.Visible = False Then

            Button7.Visible = False

            Button4.Visible = True

            Button4.Text = Button7.Text

        ElseIf Button8.Visible = False Then

            Button7.Visible = False

            Button8.Visible = True

            Button8.Text = Button7.Text

        End If

        pesan()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        If Button9.Visible = False Then

            Button8.Visible = False

            Button9.Visible = True

            Button9.Text = Button8.Text

        ElseIf Button7.Visible = False Then

            Button8.Visible = False

            Button7.Visible = True

            Button7.Text = Button8.Text

        ElseIf Button5.Visible = False Then

            Button8.Visible = False

            Button5.Visible = True

            Button5.Text = Button8.Text

        End If

        pesan()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        If Button6.Visible = False Then

            Button9.Visible = False

            Button6.Visible = True

            Button6.Text = Button9.Text

        ElseIf Button8.Visible = False Then

            Button9.Visible = False

            Button8.Visible = True

            Button8.Text = Button9.Text

        End If

        pesan()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim acak As Integer

        acak = Rnd() * 10

        Button1.Text = acak

        Button2.Text = acak - 2

        Button3.Text = acak - 5

        Button4.Text = acak - 3

        Button5.Text = acak + 1

        Button6.Text = acak - 1

        Button7.Text = acak - 6

        Button8.Text = acak - 4

    End Sub

    Private Sub pesan()

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" Then

            MsgBox("Selamat Anda Berhasil")

        End If

    End Sub

End Class