menggunakan procedure pada visual basic

Penggunaan Procdure dalam Microsoft Visual Basic

Procedure adalah sub-program yang tidak mengembalikan nilai. procedure banyak dipakai untuk kumpulan perintah yang sering digunkan namun tidak perlu mengembalikan nilai.

pemanggilan procedure dilakukan dengan menuliskan nama procedure dengan disertai parameter yang dibutuhkan.

Contoh procedure dapat di lihat dari penjelasan program dibawah ini

•  pertama nya,, buka Microsoft visual studio dari computer anda. Kemudian pilih new project, akan     muncul tampilan seperti dibawah ini.

•   kemudian , click ok untuk memulai form baru

 

• setelah itu, tambah kan label, textbox, atau control-control yang diperlukan

• seterusnya, ganti nama label tersebut dengan nama-nama yang dibutuhkan serta atur letak control form tersebut menurut keinginan mu.

• ketik/masukkan coding-coding procedure yang kita perlukan seperti dibawah ini

Public Class Form1
    Sub penambahan()
        TextBox3.Text = CInt(TextBox1.Text) + CInt(TextBox2.Text)
    End Sub
    Sub Pengurangan()
        TextBox3.Text = CInt(TextBox1.Text) - CInt(TextBox2.Text)
    End Sub
    Sub Perkalian()
        TextBox3.Text = CInt(TextBox1.Text) * CInt(TextBox2.Text)
    End Sub
    Sub Pembagian()
        TextBox3.Text = CInt(TextBox1.Text) / CInt(TextBox2.Text)
    End Sub
    Sub pemangkatan()
        TextBox3.Text = CInt(TextBox1.Text) * CInt(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MessageBox.Show("yakin untuk keluar ?", "Pertanyaan", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes = True Then
            Me.Close()
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            penambahan()
        End If
        If RadioButton2.Checked = True Then
            Pengurangan()
        End If
        If RadioButton3.Checked = True Then
            Perkalian()
        End If
        If RadioButton4.Checked = True Then
            Pembagian()
        End If
        If RadioButton5.Checked = True Then
            pemangkatan()
        End If

    End Sub


    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label4.Text = "+"
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label4.Text = "-"
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Label4.Text = "*"
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        Label4.Text = "/"
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        Label4.Visible = False
        TextBox2.Visible = False
        Label5.Visible = False
    End Sub
End Class

• periksa kembali coding-coding yang kita masukkan

• Tekan F5 untuk memulai debugging pada form. jika tiada masalah, maka pembuatan program yang menggunakan procedure berhasil.

sekian

terima kasih