Tugas Pemrograman Visual 4

Tugas Pemrograman Visual 4

Latihan Membuat menu & tool strip, dan MDI form

Nama  : Anton Nugroho

NIM    : 11.11.2352

Kelas   : TI 11 A

Pada Posting saya kali ini, saya akan sedikit menjelaskan tentang pembuatan menu strip dan tool strip dalam visual studio 2010, menggunakan bahasa visual basic.

Berikut adalah screenshot nya :

Printscreen 1

Printscreen 2

dari screenshot di atas, di tunjukan penempatan menu strip di bagian atas dan tools strip di bagian samping kiri.

Menu digunakan untuk mengorganisasikan semua form dan laporan pada aplikasi yang dibuat, sehingga dapat di panggil dengan mudah.

dan menu strip adalah deretan menu yang ada pada tampilan awal aplikasi, seperti pada visual studio yaitu File, Edit, View, Project, DLL ..

Dan Menu Strip di visual studio ada pada toolbox Menu Strip Dari Toolbox Kelompok Menus & Toolbars.

Dalam tugas kali ini , saya buat menu untuk merubah tata Letak form yang di buka dalam MDI,

ada 3 macam jenis tampilan menunya, yaitu cascade atau menumpuk, vertical atau menyamping, dan horizontal atau atas bawah.

dengan koodingnya :

Me.LayoutMdi(MdiLayout.Cascade) = "untuk posisi Cascade"

Me.LayoutMdi(MdiLayout.TileVertical) = "untuk posisi Vertical"

Me.LayoutMdi(MdiLayout.TileHorizontal)  = "untuk posisi Horizontal"

menunya ada di dalam Tools > Layout Position

dan untuk keluar nya dengan kode :

 If MsgBox("Do You want Log Off ?", 4 + 32 + 256, "Log Off") = vbYes Then
            Me.Close()
        End If

 

Cascade Position

Horizontal Position

Vertical Position

 

Berikut adalah kooding method nya :

  

Public Class Form1

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

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

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Form2.ShowDialog()
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Form3.ShowDialog()
    End Sub

    Private Sub ExitToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem2.Click
        If MsgBox("Do You want Exit ?", 4 + 32 + 256, "Exit") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
        If MsgBox("Do You want Log Off ?", 4 + 32 + 256, "Log Off") = vbYes Then
            Me.Close()
        End If
    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 VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

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

    Private Sub ClearTextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearTextToolStripMenuItem.Click
        TextBox1.Clear()
    End Sub

    Private Sub NewTextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewTextToolStripMenuItem.Click
        TextBox1.Clear()
        TextBox1.Focus()
    End Sub

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

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

Mohon Maaf apabila banyak kekurangan dalam postingan kali ini, karena saya telah membuat sebisa saya , Terimakasih ..

:-) 

Tugas Pemrograman Visual 3

Tugas Pemrograman Visual 3

Modifikasi dari Tugas 2 :

1).  Saat program dijalakan, semua isian tidak aktif, tombol isi data dan tutup aktif sedangkan tombol clear tidak aktif.

berikut adalah method nya :

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

        Dim a As Windows.Forms.Control
        For Each a In Me.Controls
            If a.GetType.Name = "TextBox" Then
                a.Enabled = False
            ElseIf a.GetType.Name = "ComboBox" Then
                a.Enabled = False
            ElseIf a.GetType.Name = "RadioButton" Then
                a.Enabled = False
            End If
            btclear.Enabled = False
        Next

        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")

    End Sub

Printscreen 1

2).  Saat tombol isi data ditekan, kodebarang, jumlah barang, cara beli dan tombol clear aktif, sedangkan tombol isidata tidak aktif.

berikut adalah method nya :
 Private Sub btisidata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisidata.Click
        Dim b As Windows.Forms.Control
        For Each b In Me.Controls
            If b.GetType.Name = "ComboBox" Then
                b.Enabled = True
            ElseIf b.GetType.Name = "RadioButton" Then
                b.Enabled = True
            End If
            btclear.Enabled = True
            bttutup.Enabled = False
            txtjumlah.Enabled = True
            btisidata.Enabled = False

        Next
    End Sub 

Printscreen 2

3).  Lalu saat tombol clear di jalankan ....

berikut adalah method nya :
  Private Sub btclear_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        Dim c As Windows.Forms.Control
        For Each c In Me.Controls
            If c.GetType.Name = "TextBox" Then
                c.Enabled = False
            ElseIf c.GetType.Name = "ComboBox" Then
                c.Enabled = False
            ElseIf c.GetType.Name = "RadioButton" Then
                c.Enabled = False
            End If
            btclear.Enabled = False
            btisidata.Enabled = True
            bttutup.Enabled = True
        Next
        txtbayar.Clear()
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        cmbkode.Text = ""
    End Sub

Printscreen 3

  

Berikut adalah tugas ke-2 nya :

Membuat Puzzle

Berikut method koding nya :

Public Class Form1
    Public tampung As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            If control.GetType.Name = "Button" Then
                bt1.Text = "6"
                bt2.Text = "1"
                bt3.Text = "8"
                bt4.Text = "7"
                bt5.Text = "5"
                bt6.Text = "2"
                bt7.Text = "4"
                bt8.Text = "3"
                bt9.Text = " "
            End If
        Next

    End Sub
    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click

        If bt2.Text = " " Then
            tampung = bt1.Text
            bt1.Text = bt2.Text
            bt2.Text = tampung
        ElseIf bt4.Text = " " Then
            tampung = bt1.Text
            bt1.Text = bt4.Text
            bt4.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click

        If bt1.Text = " " Then
            tampung = bt2.Text
            bt2.Text = bt1.Text
            bt1.Text = tampung
        ElseIf bt3.Text = " " Then
            tampung = bt2.Text
            bt2.Text = bt3.Text
            bt3.Text = tampung
        ElseIf bt5.Text = " " Then
            tampung = bt2.Text
            bt2.Text = bt5.Text
            bt5.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt3.Click

        If bt2.Text = " " Then
            tampung = bt3.Text
            bt3.Text = bt2.Text
            bt2.Text = tampung
        ElseIf bt6.Text = " " Then
            tampung = bt3.Text
            bt3.Text = bt6.Text
            bt6.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click

        If bt1.Text = " " Then
            tampung = bt4.Text
            bt4.Text = bt1.Text
            bt1.Text = tampung
        ElseIf bt5.Text = " " Then
            tampung = bt4.Text
            bt4.Text = bt5.Text
            bt5.Text = tampung
        ElseIf bt7.Text = " " Then
            tampung = bt4.Text
            bt4.Text = bt7.Text
            bt7.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt5.Click

        If bt2.Text = " " Then
            tampung = bt5.Text
            bt5.Text = bt2.Text
            bt2.Text = tampung
        ElseIf bt4.Text = " " Then
            tampung = bt5.Text
            bt5.Text = bt4.Text
            bt4.Text = tampung
        ElseIf bt6.Text = " " Then
            tampung = bt5.Text
            bt5.Text = bt6.Text
            bt6.Text = tampung
        ElseIf bt8.Text = " " Then
            tampung = bt5.Text
            bt5.Text = bt8.Text
            bt8.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt6.Click

        If bt9.Text = " " Then
            tampung = bt6.Text
            bt6.Text = bt9.Text
            bt9.Text = tampung
        ElseIf bt3.Text = " " Then
            tampung = bt6.Text
            bt6.Text = bt3.Text
            bt3.Text = tampung
        ElseIf bt5.Text = " " Then
            tampung = bt6.Text
            bt6.Text = bt5.Text
            bt5.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt7.Click

        If bt4.Text = " " Then
            tampung = bt7.Text
            bt7.Text = bt4.Text
            bt4.Text = tampung
        ElseIf bt8.Text = " " Then
            tampung = bt7.Text
            bt7.Text = bt8.Text
            bt8.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt8.Click

        If bt9.Text = " " Then
            tampung = bt8.Text
            bt8.Text = bt9.Text
            bt9.Text = tampung
        ElseIf bt7.Text = " " Then
            tampung = bt8.Text
            bt8.Text = bt7.Text
            bt7.Text = tampung
        ElseIf bt5.Text = " " Then
            tampung = bt8.Text
            bt8.Text = bt5.Text
            bt5.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt9.Click

        If bt6.Text = " " Then
            tampung = bt9.Text
            bt9.Text = bt6.Text
            bt6.Text = tampung
        ElseIf bt8.Text = " " Then
            tampung = bt9.Text
            bt9.Text = bt8.Text
            bt8.Text = tampung
        End If
        berhasil()
    End Sub
    Private Sub berhasil()
        If bt1.Text = "1" And bt2.Text = "2" And bt3.Text = "3" And bt4.Text = "4" And bt5.Text = "5" And bt6.Text = "6" And bt7.Text = "7" And bt8.Text = "8" Then
            MessageBox.Show("SELAMAT ANDA BERHASIL")
        End If

    End Sub

    Private Sub btacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btacak.Click
        Dim jalan As Integer
        If btacak.Text = "&ACAK" Then
            btacak.Text = "&STOP"
        ElseIf btacak.Text = "&STOP" Then
            btacak.Text = "&ACAK"
        End If
        Timer1.Enabled = jalan
        jalan = Not jalan

        Dim a As Windows.Forms.Control
        For Each a In Me.Controls
            If a.Tag = "1" Then
                a.Enabled = True
            End If
        Next


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim jalan As Integer
        jalan = Rnd() * 10
        bt1.Text = jalan
        Timer1.Enabled = False
    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
        If MsgBox("Apakah Anda ingin keluar ? ", 4 + 32 + 256, _
                 "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Printscreen Puzzle

Saya mohon maaf atas keterlambatannya, karena banyak halangan saat akan mengerjakan tugas ini.

saya sadar akan hal tersebut, saya harap ketersediaannya.

atas segala kekurangannya saya mohon maaf.

Terimakasih atas perhatiannya Bapak Nandang Hermanto.

:-) 

by Anton Nugroho

Tugas Pemrograman visual 2

Tugas Pemrograman Visual 2

Analisa Program pada Latihan Praktikum Pertemuan ke-2

 

NAMA  : Anton Nugroho

NIM      : 11.11.2352

KELAS : Ti11A

Jawaban untuk soal no. 3 pada Latihan 1 :

a).  Error pada bombol btAlamat1 disebabkan karena belum adanya pendeklarasian Dim alamat As String pada method :

alamat = "Kuningan"
Txtalamat.Text = alamat

dan yang benar adalah :

Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat

atau bisa juga menggunakan Public karena digunakan untuk seluruh alamat, sedangkan tadinya menggunakan const.

b).  Yang menyebabkan adanya perbedaan nama pada btNama1 dan btNama2 adalah adanya tampungan pendeklarasian nama ( Dim ) pada btNama1, sehingga membuat fungsi variabel global (Public Const nama) yang telah di tuliskan dalam module1 tidak berpengaruh karena btnama1 telah memiliki dim variabel nama sendiri.

Dan yang menyebabkan munculnya alamat yang sama pada btalamat1 dan btalamat2 adalah karena terdapat method Const alamat = "Kuningan" pada Public Class frmsatu, lalu jika pada Const alamat = "Kuningan" Public Class frmsatu dihilangkan maka pada btalamat2 akan muncul "Purwokerto" karena diambil dari variabel "Public Const alamat" yang terdapat pada module1.

c).   Karena pada btTambahumur1 dan btTambahumur2 menggunakan pendeklarasian variabel yang berbeda, pada btTambahumur1 menggunakan Dim, yang menyebabkan nilainya ditetapkan pada angka 1, dan tidak memiliki nilai dasar yang dapat ditambahkan karena menggunakan dim,

walaupun dengan rumus yang sama yaitu umur += 1, jika diklik terus menerus tombol tambahumur1 maka hasilnya akan tetap menampilkan 1.

Berbeda dengan btTambahumur2 yang menggunakan pendeklarasiannya dengan Static, jika dalam nilai static maka telah ditetapkan bahwa nilai dasarnya adalah 1, dan tidak akan berubah.

maka jika menggunakan rumus yang sama, dan tombol tambahumur2 maka akan menghasilkan angka yang berbeda, berurutan dan akan terus bertambah menjadi 2 , 3 , 4 , ... sesuai rumus, dengan angka dasarnya 1.

d).  Menurut saya pada form 2 ini tidak terdapat isi variabelnya dalam setiap tombol maupun textboxnya, dan juga terdapat method "Option Explicit Off" yang berarti tidak perlu ada pemberian variabel dalam form2 ini karena secara otomatis program ini menggunakan variabel public yang ada di module ataupun dalam form lain yang bersifat public atau universal.

Jawaban Analisa Kelemahan pada Latihan 2 :

Printscreen nya

Menurut saya pada latihan yang ke-2 ini ada kelemahannya, yaitu Case pada pilihan "TAS" pada combobox belum ada, hal tersebut yang menyebabkan error.
lalu pada cmbkodenya beri method  Case "TAS"               
                                                           namabarang = "Tas"
                                                           harga = 40000
dan juga adanya sedikit perubahan harga barang pada methodnya.

Berikut adalah beberapa printscreennya :

Barang Sepatu dengan cara Tunai

Barang T-shirt dengan cara Tunai

Barang Sandal dengan cara Kredit

Barang Topi dengan cara Tunai

Barang Tas dengan cara Kredit

Apabila akan Keluar dari aplikasi

Berikut Listing method nya :

Public Class Form1    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")
    End Sub
    Private Sub cmbkode_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged
        Dim kdbarang, namabarang As String
        Dim harga As Single
        kdbarang = cmbkode.Text
        Select Case kdbarang
            Case "SPT"
                namabarang = "Sepatu"
                harga = 200000
            Case "SND"
                namabarang = "Sandal"
                harga = 100000
            Case "TST"
                namabarang = "T-Shirt"
                harga = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 50000
            Case "TAS"
                namabarang = "Tas"
                harga = 40000
            Case Else
                namabarang = " "
                harga = 0
        End Select
        txtnama.Text = namabarang
        txtharga.Text = harga
    End Sub
    Private Sub txtjumlah_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged
        txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
    End Sub
    Private Sub radiotunai_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiotunai.CheckedChanged
        txtdiskon.Text = Val(txttotal.Text) * 10 / 100
        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
    End Sub
    Private Sub radiokredit_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokredit.CheckedChanged
        txtdiskon.Text = 0
        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
    End Sub
    Private Sub btclear_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        txtbayar.Clear()
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        cmbkode.Text = ""
    End Sub
    Private Sub bttutup_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
        If MsgBox("Apakah Anda ingin keluar ? ", 4 + 32 + 256, _
                  "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Seperti biasa, saya ucapkan Terimakasih kepada Bapak Nandang Hermanto yang telah memberi latihan-latihan kepada saya untuk dipelajari.