» » » » » Kasus Procedure dan Function Visual Basic 2010

Kasus Procedure dan Function Visual Basic 2010

, , ,
Assalamualaikum kali ini penulis akan share kasus" pada Function dan Procedure
untuk materi lainnya dapat dilihat disini

  1. Tipe Data dan Variabel pada Visual Basic
  2. Local, Global Variabe, Structure dan Konversi Data pada Visual Basic
  3. Operator pada Visual Basic
  4. Percabangan pada Visual Basic
  5. Lanjutan Percabangan pada Visual Basic
  6. Percabangan pada Visual Basic 2
  7. Percabangan pada Visual Basic Select - Case
  8. Perulangan pada Visual Basic
  9. Perulangan pada Visual Basic 2
  10. Perulangan pada Visual Basic 3
  11. Array di Visual Basic
  12. Array Dua Dimensi
  • Kasus 1 (Procedure and Function)
Buat form dibawah ini


Gunakan Procedure untuk menampilkan 
  1. Agama 
  2. Jurusan
  3. Program Studi
  4. Kota

Source Code 
Public Class Pertemuan_6_Kasus_1_Praktikum

    Sub KomboAgama()
        Me.cbAgama.Items.Add("Islam")
        Me.cbAgama.Items.Add("Kristen Protestan")
        Me.cbAgama.Items.Add("Kristen Katolic")
        Me.cbAgama.Items.Add("Hindu")
        Me.cbAgama.Items.Add("Buddha")
    End Sub

    Sub KomboJurusan()
        Me.cbJurusan.Items.Add("Manajemen Informatika")
        Me.cbJurusan.Items.Add("Teknik Informatika")
        Me.cbJurusan.Items.Add("Sistem Informatika")
    End Sub

    Sub KomboProgi()
        Me.cbProgdi.Items.Add("D1")
        Me.cbProgdi.Items.Add("D2")
        Me.cbProgdi.Items.Add("D3")
        Me.cbProgdi.Items.Add("D4")
        Me.cbProgdi.Items.Add("S1")
        Me.cbProgdi.Items.Add("S2")
        Me.cbProgdi.Items.Add("S3")
    End Sub

    Sub ListKota()
        Me.lstKota.Items.Add("Bandung")
        Me.lstKota.Items.Add("Denpasar")
        Me.lstKota.Items.Add("Jakarta")
        Me.lstKota.Items.Add("Surabaya")
        Me.lstKota.Items.Add("Manado")
        Me.lstKota.Items.Add("Medan")
        Me.lstKota.BackColor = Color.Silver
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If message = vbYes Then
            End
        End If

    End Sub

    Private Sub Pertemuan_6_Kasus_1_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If message = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Pertemuan_6_Kasus_1_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
        KomboAgama()
        KomboJurusan()
        KomboProgi()
        ListKota()
    End Sub
End Class


Running Program 


  • Kasus 2 
Buatlah form dibawah ini



  • Buat Prosedur Bersih utk membersihkan semua textbox
  • Buat Function hitung untuk Menghitung Total Harga.
  • Buat Prosedur Cekdatakosong utk mengecek inputan textbox mulai kode barang sd Jumlah harus diisi dan panggil Function hitung. 
  • Pada saat Form di jalankan dan pada saat di klik Clear, Panggil Prosedur Bersih
  • Tombol Hitung, panggil Prosedure cekdatakosong
  • Tombol exit utk menutup aplikasi dengan Messagebox

Ketentuan Kasus 2

  • Buat Prosedur Bersih utk membersihkan semua textbox
  • Buat Function hitung untuk Menghitung Total Harga.
  • Buat Prosedur Checkemptydata untuk mengecek inputan textbox mulai kode barang sd Jumlah harus diisi dan panggil Function hitung.
  • Pada saat Form di jalankan dan pada saat di klik Clear, Panggil Prosedur Bersih
  • Tombol Hitung, panggil Prosedure Checkemptydata
  • Tombol exit utk menutup aplikasi dengan Messagebox
Source Code :

Public Class Pertemuan_6_Kasus_2_Praktikum

    Sub Clean()
        tbamount.Clear()
        tbgoodscode.Clear()
        tbgoodsname.Clear()
        tbtotal.Clear()
        tbunit.Clear()
        tbunitprice.Clear()
    End Sub

    Private Function hitung()
        Dim amount, priceamount, total As Double
        amount = tbamount.Text
        priceamount = tbunitprice.Text
        total = amount * priceamount
        tbtotal.Text = total
        Return total
    End Function

    Sub CheckEmptyData()
        If tbgoodscode.Text = "" Then
            MessageBox.Show("Item Code Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            tbgoodscode.Focus()
        ElseIf tbgoodsname.Text = "" Then
            MessageBox.Show("Item Name Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            tbgoodsname.Focus()
        ElseIf tbunit.Text = "" Then
            MessageBox.Show("Unit Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            tbunit.Focus()
        ElseIf tbamount.Text = "" Then
            MessageBox.Show("Amount Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            tbamount.Focus()
        ElseIf tbunitprice.Text = "" Then
            MessageBox.Show("Unit Price Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            tbunitprice.Focus()
        Else
            Call hitung()
        End If
    End Sub

    Private Sub Pertemuan_6_Kasus_2_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If message = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Pertemuan_6_Kasus_2_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
        Call Clean()
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If message = vbYes Then
            End
        End If
    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        Call Clean()
    End Sub

    Private Sub btprocess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btprocess.Click
        Call CheckEmptyData()
    End Sub
End Class


Running Program :
You can try it by yourself on sourcode above

  • Kasus 3
Buat form seperti dibawah



Source Code :
Public Class Pertemuan_6_Kasus_3_Praktikum

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strganjil, strgenap, strprima, strfibo As Integer
        proses(strganjil, strgenap, strprima, strfibo)
        ShowSum(TextBox1.Text, TextBox2.Text)
    End Sub

    Sub ShowSum(ByRef intnum1 As Integer, ByVal intnum2 As Integer)
        Dim intsum As Integer
        intsum = intnum1 + intnum2
        TextBox3.Text = intsum
    End Sub

    Sub bilganjil()
        Dim ganjil As Integer
        bilangan.Items.Clear()
        ganjil = 1
        Do While ganjil <= 20
            bilangan.Items.Add(ganjil)
            ganjil = ganjil + 2
        Loop
    End Sub

    Sub bilgenap()
        Dim genap As Integer
        bilangan.Items.Clear()
        genap = 0
        Do While genap <= 20
            bilangan.Items.Add(genap)
            genap = genap + 2
        Loop
    End Sub
    Sub bilprima()
        Dim prima, x, y, z As Integer
        bilangan.Items.Clear()
        For x = 2 To 100
            z = 0
            For y = 2 To x
                prima = x Mod y
                If prima = 0 Then
                    z = z + 1
                End If
            Next y
            If z <= 1 Then
                bilangan.Items.Add(x)
            End If
        Next x
    End Sub

    Sub bilfibo()
        bilangan.Items.Clear()
        Dim a As Integer = 0
        Dim b As Integer = 1
        Dim fib As Integer = 0
        bilangan.Items.Add("1")
        Do
            fib = a + b
            a = b
            b = fib
            bilangan.Items.Add(fib.ToString)
        Loop While fib <= 100
    End Sub


    Sub proses(ByVal strganjil As String, ByRef strgenap As String, ByVal strprima As String, ByVal strfibo As String)
        If (ComboBox1.SelectedIndex.Equals(0)) Then
            bilganjil()
        ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then
            bilgenap()
        ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then
            bilprima()
        ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then
            bilfibo()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If message = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_6_Kasus_3_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If message = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub PT_14_TG_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
    End Sub
End Class


Running Program 


Sekian untuk post kali ini 
semoga bermanfaat 
どうもありがとうございました…!


Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Subscribe to receive free email updates:

0 Response to "Kasus Procedure dan Function Visual Basic 2010"

Post a Comment

Subscribe to: Post Comments (Atom)