TUGAS V- Return Value Function, Overloading function & Beberapa function bawaan VB.

TUGAS V- Return Value Function, Overloading function & Beberapa function bawaan VB.

oke, ketemu lagi dengan tugas Visual Basic (VB). tugas kali ini adalah return value function, overloading function dan juga beberapa function bawaan dari VB. berikut adalah penjelasan dari masing-masing  pertanyaan atau tugas di atas:

• Return Value Function (segera hadir... ^_^)

 

• Overloading Function

Overloading function merupakan beberapa fungsi yang memiliki perintah berbeda tetapi namanya sama. Sebagai contoh adalah program dibawah ini. Terdapat 2 Fuction hitung pada program ini namun program hanya akan menjalankan salah satunya saja.

  

Pada contoh diatas program menjalankan function hitung yang ke-2 yang memiliki perintah :
hitung = bil4 + bil7 + bil11

• Beberapa Function Bawaan Visual Basic

Msg Box() Function
Fungsi dari MsgBox adalah untuk menghasilkan kotak pesan/ pop-up dan meminta pengguna untuk mengklik pada tombol perintah yang disediakan, sebelum bisa melanjutkan ke perintah selanjutnya.
Contoh :
MsgBox(“Apa anda akan lanjut belajar VB?”, MsgBoxStyle.OkCancel, “MsgBox”)

InputBox() Function
Fungsi InputBox () akan menampilkan kotak pesan di mana pengguna dapat memasukkan nilai atau pesan kedalamnya.
Contoh :
InputBox(“Masukan nilai VB anda!”, “InputBox”)

dan masih banyak function yang tidak sempat ditulis di sini.

sekian penjelasan dari tugas ke lima. thanks for your understanding...  ^_^

 

TUGAS IV

TUGAS IV-RANCANGAN APLIKASI MENU & TOOLBAR DI VB.

kembali lagi saya bergelut dengan kuliah VB, sekitar satu bulan sudah tidak mengunjungi blog ini karena UTS. kini saatnya mencoba untuk memulainya lagi dengan adanya tugas yang diberikan. pembahasan kali adalah mengenai aplikasi menu & toolbar. berikut adalah tampilan awal yang saya coba buat :

dalam membuat tampilan seperti di atas, maka dibutuhkan komponen-komponen seperti contextMenuStrip, toolstrip dan juga button sehingga akan menampilkan seperti gambar di bawah ini

 

 

selanjutnya adalah menu-menu yang ada dalam aplikasi di atas. antara lain :

• menu latihan
• menu tugas
• menu exit
• dll.

apabila kita klik pada latihan1, maka akan muncul form seperti di bawah

dan selanjutnya kita klik pada latihan 3, maka form selanjutnya adalah seperti gambar di bawah ini

dan begitu juga dengan library yang di bawah nya. seperti menu pilihan dan kontrol. maka akan muncul seperti tampilan di atas.

apabila kita ingin keluar dari aplikasi, maka pilih menu exit, dan pilih keluar.
berikut adalah koding dari program di atas :

Public Class Form1

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

    End Sub

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

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

    End Sub

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

    Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

    End Sub

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

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

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

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


terima kasih atas perhaatiannya. semoga bermanfaat...

^_^

TUGAS PEMROGRAMAN VISUAL 3

Setelah program latihan If dan Case yang pertama selesai, kini saya memodifikasinya. Dan saya beri judul pemrograman if dan case 2.

Langsung saja, dalam modifikasi ini saya menambah beberapa button seperti isi data, clear dan tutup. Berikut adalah tampilan awal dari aplikasi tersebut.

Keterangan :

·         Pada saat form dijalankan, akan muncul seperti tampilan di atas. Berikut adalah keterangannya : Semua isian tidak aktif, tombol isi data dan tutup aktif, namun tombol clear tidak aktif.

·  Saat ditekan tombol Isi Data, maka combo box  kode barang, text box  jumlah barang, radio button cara beli dan tombol Clear aktif tetapi tombol Isi Data tidak aktif. Seperti gambar di bawah

·           Saat tombol Clear ditekan maka akan kembali ke tampilan awal.

·         Pada saat tombol tutup ditekan, maka akan ada tampilan “anda yakin?” seperti gambar di bawah ini

Di bawah ini adalah listing dari program diatas

Public Class Form1



    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

            control.Enabled = False

            Btisi.Enabled = True

            bttutup.Enabled = True

        Next

    End Sub



    Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As String

        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 = 500000

            Case Else

                namabarang = " Tas "

                harga = 30000

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

        txtjumlah.Text = ""

        txttotal.Text = ""

        txtdiskon.Text = ""

        txtbayar.Text = ""

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

    End Sub



    Private Sub txtjumlah_TextChanged(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(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(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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

     

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = False

            Btisi.Enabled = True

            bttutup.Enabled = True

            txtbayar.Clear()

            txtdiskon.Clear()

            txtharga.Clear()

            txtjumlah.Clear()

            txtnama.Clear()

            txttotal.Clear()

            Me.radiotunai.Checked = False

            Me.radiokredit.Checked = False

            cmbkode.Text = ""



        Next



    End Sub



    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        If MsgBox(" anda yakin?", vbYesNo + vbQuestion + vbDefaultButton2, "EXIT") = vbYes Then

            Me.Close()

        End If





    End Sub



 

    Private Sub Btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisi.Click

   

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = True

            Btisi.Enabled = False

            bttutup.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





End Class

PUZZLE

Tugas yang selanjutnya adalah membuat aplikasi sederhana game puzzle,berikut adalah tampilan awal dari game tersebut.

a. ketika form dijalankan, maka akan tampil seperti di atas dan angkanya akan teracak dengan tersendirinya.
b. selanjutnya kita klik tombol stop, untuk menghentikan acakan dari angka tersebut. berikut adalah tampilannya

dalam program ini, yang bergerak adalah angka-angkanya. dan apabila kita berhasil, maka akan ada tampilan "anda sukses"



c. tombol exit, apabila aplikasi akan ditutup. berikut adalah tampilannya

berikut adalah listing dari program di atas

sekian program dan penjelasannya, terima kasih atas perhatiannya. salam

TUGAS PEMROGRAMAN VISUAL 2

TUGAS PEMROGRAMAN VISUAL 2

Di bawah ini merupakan program ke dua saya dalam pembelajaran pemrograman visual. Dan saya akan mencoba untuk menganalisa kesalahan yang terjadi terhadap program tersebut. 

Program di atas nampak sudah selesai dan benar, namun  kesalahan terjadi apabila kita menjalankan program tersebut. Maka muncullah pertanyaan seperti berikut ini :

• Apa yang menyebabkan program error pada btalamat1_Click baris program alamat=”Kuningan”?

•  Kenapa saat ditekan tombol nama 1 dan nama 2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat 1 dan alamat 2 alamat yang ditampilkan pada textbox alamat sama?

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

Berikut adalah penjelasan dari pertanyaan di atas (jawaban latihan1 no3)

a.  Penyebab  Error pada btalamat1_Click baris program alamat = "Kuningan" adalah karena varabel nama belum di deklarasikan :
alamat = "Kuningan"
Txtalamat.Text = alamat
seharusnya adalah :
Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat

b.  Penyebab  munculnya nama yang berbeda pada textbox saat tombol nama1 dan nama2 ditekan adalah karena variabel nama pada Btnama2_Click tidak di definisikan pada class tersebut dan yang yang kedua karena tidak ada deklarasi variabel pada sub tersebut, maka nilai yang diambil adalah nilai yang terdapat pada deklarasi variabel di module.

c.  Yang menyebabkan saat tombol "tambah umur 1" ditekan selalu mengeluarkan angka satu adalah karena tombol tersebut menggunakan variabel Dim, sebab Dim adalah kependekan dari Dinamis, variabel jenis ini akan selalu berubah nilainya saat kita mengeksekusinya dalam sebuat operasi bilangan. Sehingga pada saat tombol "tambah umur 1" kita tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan selalu satu.Berbeda dengan varabel umur pada Bttambahumur2_Click yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya ditambah dengan 1 .

d.  Analisa saya untuk Form Dua adanya Option Explicit Off
berarti varibelya  tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.

Analisa Kelemahan Program pada Latihan 2 If dan Case

Langsung saja kita menuju ke analisa pada latihan Case If

a. listing pada program kurang lengkap sehingga terjadi banyak error

b. saat kita memilih kode barang, yang akan diikuti dengan ditampilkannya nama barang dan  harga barang, lalu kita menginputkan jumlah barang, maka secara otomatis total harga dan total bayar akan dihitung dan ditampilkan pada textbox. Namun saat kita mengganti kode barang, tanpa merubah nilai pada jumlah barang, total harga tidak mau berubah sesuai dengan harga barang.

berikut adalah gambar dan programnya :

dan setelah saya mencoba memperbaiki programnya, maka akan menjadi seperti di bawah ini :

dan masih beberapa koding yang lainnya, maka program akan menjadi seperti berikut ini :