Selasa, 11 Desember 2012



Tugas Pemrograman Visual MdiParents

judul :  MdiParents With Tile Horizontal, Vertical, and Casecade
 cara membuat MdiParents dan membuat menu windownya Tile Horizontal, Vertical, dan Cascade

Langkah pertama :
Buat Form dengan tampilan menggunakan Menustrip di Menus and Toolbars
Langkah kedua :
Tulis sesuai kehendak anda, kalau saya sih seperti di bawah ini :
Langkah tiga :
Silahkan anda menambahkan Form dengan cara klik Project pada menu bar, kemudian pilih Add Windows Form. Tambah Form sesuai banyaknya jumlah sub menustrip yang anda buat pada langkah 2.

Langkah empat :
Setelah Menambah Form, buka Form1, kemudian pada Properties Menu, cari IsMdiContaint dan Ganti menjadi True.

Langkah kelima :
Kemudian klik dua kali pada "Latihan 1" yang ada di menustrip tang tadi telah di  buat.
Masukan Listing nya sebagai berikut :




Public Class Form1

    Private Sub Latihan1ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub KeluarToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub LatihanToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LatihanToolStripMenuItem.Click

    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub Latihan4ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles Latihan4ToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
        Me.LayoutMdi(MdiLayout.TileHorizontal)

Langkah 6 :
Setelah semua langkah dikerjakan, lalu tinggal di Run, hasilnya

NB : Apabila menu windows ingin di ganti menjadi Vertical atau Cascade, ganti saja (  Me.LayoutMdi(MdiLayout.TileHorizontal ) dengan ( Me.LayoutMdi(MdiLayout.Tilevertical) atau  Me.LayoutMdi(MdiLayout.Casecade) )

------------------------------------------------------------------------------------------------------------------------------

MENU TAMBAHAN

Anda bisa menambahkan berbagai fitur dengan menambahkan MenuContext atau menambah Insert Standart Item.
1.Masukan ContextMenuStrip Dari Toolbox Kelompok Menus & Toolbars sehinggaterlihat
Taplikan sebagai berikut
2.Langkah Selanjutnya sama dengan membuat menustrip

Selasa, 30 Oktober 2012

TUGAS PEMROGRAMAN VISUAL 2


PEMROGRAMAN VISUAL

1.       Latihan 1

1.       Apa yang menyebabkan program eror pada btalamat_Click baris program alamat = “Kuningan”
Jawab :

Variabel tersebut belum di deklarasikan dengan “Dim” sehingga, variable tersebut tidak bisa dijadikan sebagai target operasi.



2.       Kenapa saat ditekan tombol nama1 dan nama2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 alamat yang ditampilkan pada textbox alamat sama ?
Jawab :

Alamat 1 & Alamat 2 :
Const merupakan suatu fungsi yang digunakan untuk mendeklarasikan suatu variabel yang ruang lingkupnya umum namun masih dalam satu form.


                      

3.     Kenapa saat ditekan tombol tambah umur 1 umur selalu keluar angka 1 sedangkan saat ditekan tombol tambah umur 2 umur akan selalu bertambah 1 dari umur sebelumnya ?





4.       Berikan analisa Form 2 ?

Form 2 bekerja bila mana user menekan tombol Tambah Form 2 dari form 1, nama “Nandang hermanto” di text box 1 didapat dari Module1 :




Latihan 2
1.       Kelemahan Program
Ketika program di jalankan, diskon, total bayar, itu tidak menunjukan hasil yang benar
2.      




Hasil setelah perbaikan






Senin, 22 Oktober 2012

membuat aplikasi rumah makan



PROJECT
“ PROGRAM  RUMAH MAKAN “
          Pada program kali ini saya akan membuat Program Rumah Makan dengan menggunakan visual basic 2010, dalam program kali ini toolbox yang kita gunakan hanya 3 yaitu : button, label dan textbox. Untuk lebih jelasnya kita simak dan pelajari langkah - langkah pembuatan program di bawah ini.
Langkah-langkah pembuatan program calculator
1.   Buka Microsoft Visual Studio 2010 lalu New Project



( tampilan utama pada Microsoft visual 2010)




2.   Kemudian pilih Windows Form Application, kemudian mengganti nama sesuai dengan keinginan anda.




3.     Buat Form seperti dibawah ini.



4.     Kemudian masukan label, button, textbox, dan checkbox.
5.     Lalu merubah nama label, button, textbox, dan checkbox sesuai gambar dibawah ini.

6.     Kemudian desain tampilan pada program tersebut  seperti dibawah ini.





7.     Kemudian membuat koding seperti gambar di bawah ini.


8.     kemudian langkah terakhir klik debug > klik start debugging
(selesai)

(tampilan program rumah makan padang)




“Listing program”
Public Class Form1

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

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        TxtTotbay.Text = Val(Txtnascin.Text) + Val(TxtNasrend.Text) + Val(Txtnastel.Text)
        Txtchange.Text = Val(Txtcash.Text) - Val(TxtTotbay.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Total Bayar :" & TxtTotbay.Text & vbNewLine &
                "CASH :" & Txtcash.Text & vbNewLine &
                "CHANGE :" & Txtchange.Text)


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Txtcash.Clear()
        Txtchange.Clear()
        Txtnascin.Clear()
        TxtNasrend.Clear()
        Txtnastel.Clear()
        TxtTotbay.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Anda Yakin", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class