Catatan Si Upil

Senin, 10 Desember 2012

TUGAS KE 4 : BELAJAR MEMBUAT MENU

JAN29

Post Info

Puji syukur saya panjatkan kepada ALLOH SWT yang telah memberikan kesempatan kepada saya untuk kembali meng update blog ini :v

pada posting kali ini saya akan memaparkan beberapa cara membuat menu pada program MICROSOFT VISUAL STUDIO 2010.Apliaksi yang nantinya kita akan buat seperti yang kita liat di bawah ini

Pada gambar di atas terdapat 3 menu, Context,toolstrip, dan tab control yang letaknya berbeda dan memiliki fungsi tertentu,berikut beberapa cara dalam membuat menu dalam aplikasi VB.NET

1. Membuat Menu Context Strip

Gambar di atas terdapat menu FILE yang berisi Data baru,Laporan Baru, Tugas Baru dan Keluar, gunakan menu CONTEXTMENUSTRIP pada toolbox seperti gambar di samping

2 .Membuat Menu Library

Selanjutnya kita akan membuat menu Library dengan menggunakan TAB CONTROL, tab control ini merupakan menu yang memiliki beberapa tab yang berisi tool sesuai kategori, pada aplikasi ini terdapat dua kategori yaitu Menu dan tampilan, Menu berisi beberapa menu yaitu data,laporan,tugas semua yang memiliki fungsi memanggil form lain

Dan pada menu TAMPILAN terdapat beberapa menu yaitu Vertikal, Horizontal, Casecade yang memiliki untuk menata form yang terbuka

Untuk membuat menu seperti diatas, kita gunakan TOOL TABCONTROL pada toolbox di sebelah kiri

3.Membuat menu Tool Strip

membuat menu toolstrip pada menggunakan

pada Toolbox sebelah kiri,dan hasilnya seperti gambar di bawah ini

pada aplikasi ini juga bisa membuat Shortcut key menelalu propertis pada menu yang akan di sisipi shortcut,perhatikan gambar berikut

BERIKUT CODING YANG DIGUNAKAN UNTUK MEMBUAT APLIKASI INI

Public Class Form1
    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
        Me.Close()
    End Sub

    Private Sub TugasBaruToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasBaruToolStripMenuItem1.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub
    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub CasecadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CasecadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form4.Show()
    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form3.MdiParent = Me
        Form3.Show()
        Form2.MdiParent = Me
        Form2.Show()
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub HelpToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripButton.Click
        MsgBox("jika anda mengalami kendala dalam menjalankan aplikasi ini,silahkan anda hubungi pembuat atau dosen yang bersangkutan ^_^.....")
    End Sub
End Class

TERIMAKASIH.....SEMOGA BERMANFAAT

Minggu, 11 November 2012

FORSIMIBA di STMIK Amikom Purwokerto

JAN29

Post Info

FORSIMIBA, merupakan acara bulanan yang di adakan oleh LDK yang berada di BANYUMAS, disinilah para mahasiswa muslim yang mewakili beberapa perguruan tinggi di banyumas berkumpul.

Tepatnya pada tanggal 10-11-12 IMAM di tunjuk sebagai tuan rumah FORSIMIBA kali ini, dan ini juga untuk pertama kalinya saya mengikuti acara forsimiba ini. mungkin hampir mirip seperti seminar atau kajian, di situ kita membahas tentang masalah masalah yang saat ini sedang terjadi "oleh kaum muslim" di situ juga kita mendapatkan sedikit motivasi dari psang pemicara.

meskipun kursi kosong banyak berderet karena peserta yang sedikit, tapi Alhamdulillah acara pada hari itu bisa berjalan dengan lancar, meskipun ada sedikit kendala (snack buat pembicara belum beli) tapi akhirnya bisa teratasi walopun dengan sedikit pengorbanan :D

Dan untuk FORSIMIBA yang akan datang, STAIN Purwokerto di tunjuk sebagai tuan rumah, meskipun awalnya masih kurang setuju dari tuan rumah,tapi akhirnya mereka akan mengusahakanya. sampai jumpa lagi di forsimiba yang akan datang dan jangan lupa datang ke FSLDKD

Selasa, 06 November 2012

MABIT With IMAM

JAN29

Post Info

ASSALAMU'ALAIKUM WAROHMATULLOHI WABAROKATUH

Mungkin banyak yang masih bingung dengan istilah itu, namun bagi anak IMAM ( Ikatan Mahasiwa Amikom Muslim) atau anak rohis,acara mabit itu merupakan salah satu acara yang di tunggu.

Yap ..ini merupakan acara untuk perkenalan, biasanya di selenggarakan hika ada penerimaan anggota baru, mkn bahasa kerenya MAKRAB alias malam keakraban, namun jika di anak anak rohis berubah menjadi MABIT. acaranya pun beda neda sama dengan acara MAKRAB pada umumnya,namun di mabit lebih menitik beratkan kepada pendekatan diri kepada sang maha pencipta, seperti pengajian, motivasi,perkenalan..tapi tetep ada acara hiburanya juga loooo....

Tetap semangat buat anak anak IMAM ^_^

WASSALAMU'ALAIKUM WAROHMATULLOHI WABAROKATUH

Kamis, 01 November 2012

Adventure To Pulau Tidung

JAN29

Post Info

Ini petualangan ku, di hari besar dan di hari yang berwarna merah. mkn ini memang perjalanan yang jauh dan melelahkan, namun keinginan dan hasrat ku untuk bisa pergi ke daerah kepualauan seribu membuat semua itu tak berarti untuk bisa menahan ku.