Program Simulasi Rangkaian Listrik Sederhana

Deskripsi Program

Program ini dibuat agar memudahkan penggunanya dalam penghitungan hambatan (resistor), tegangan (voltase), dan arus (current). Dalam permulaan program ini pengguna akan dihadapkan pada 2 pilihan yaitu, rangkaian seri atau rangkaian paralel, tergantung dari kebutuhan pengguna maka program akan berjalan sesuai pilihan tersebut. Pada penghitungan hambatan, didesain hanya untuk 3 masukkan (input) saja untuk menghasilkan keluaran (output) berupa hambatan pengganti (Rs atau Rp). Terdapat perbedaan dalam pemrograman antara rangkaian seri dan paralel, khususnya pada penghitungan hambatannya karena berdasarkan hukum kirchoff yang berlaku, namun dalam penghitugan arus maupun tegangan menggunakan formula yang sama. Maka untuk input yang sama hasil yang didapat pada rangkaian seri dan rangkaian paralel adalah berbeda.

Langkah Pembuatan

1. Buat form seperti di bawah ini :

Ubah properties dari komponen tersebut seperti ini

Lalu masukkan kode berikut :

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

        Form3.Show()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Hide()

        form4.Show()

    End Sub

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

        Me.CenterToScreen()

    End Sub

End Class

2. Buat form seperti di bawah ini :

Ubah properties dari komponen tersebut seperti ini :

Obyek	Property	Perubahan
Picturebox 1	Image
Label 2	Text	R1 =
Label 3	Text	R2 =
Label 4	Text	R3 =
Label 17	Text	Tanya
Groupbox 1	Text	Diketahui
Groupbox 2	Text	Ditanyakan
Groupbox 3	Text	Jawab
Numericupdown 1		Menunjukkan R1
Numericupdown 2		Menunjukkan R2
Numericupdown 3		Menunjukkan R3
Numericupdown 4		Menunjukkan I
Numericupdown 5		Menunjukkan V
Combobox 1	Text	Pilih
Textbox 2		Menunjukkan R1
Textbox 3		Menunjukkan R2
Textbox 4		Menunjukkan R3
Textbox 7		Menunjukkan Rs
Textbox 1		Menunjukkan V
Textbox 6		Menunjukkan I
Checkbox 1	Text	Advance (Menunjukkan R1)
Checkbox 2	Text	Advance (Menunjukkan R2)
Checkbox 3	Text	Advance (Menunjukkan R3)
Button 1	Text	Proses
Button 2	Text	Ulangi
Button 3	Text	Kembali ke Menu Awal

Lalu masukkan kode berikut :

Public Class Form3
    Dim a, b, c As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, a, b, c, q As Double
        a = Val(TextBox2.Text)
        b = Val(TextBox3.Text)
        c = Val(TextBox4.Text)
        q = (Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text))
        TextBox7.Text = q
        x = (Val(NumericUpDown1.Text) + Val(NumericUpDown2.Text) + Val(NumericUpDown3.Text))
        TextBox5.Text = x
        If ComboBox1.SelectedIndex = 0 Then
            If CheckBox1.Checked = True Or CheckBox2.Checked = True Or CheckBox3.Checked = True Then
                TextBox1.Text = Val(NumericUpDown5.Text) * q
            ElseIf CheckBox1.Checked = False Or CheckBox2.Checked = False Or CheckBox3.Checked = False Then
                TextBox1.Text = Val(NumericUpDown5.Text) * x
            End If
        ElseIf ComboBox1.SelectedIndex = 1 Then
            If CheckBox1.Checked = True Or CheckBox2.Checked = True Or CheckBox3.Checked = True Then
                TextBox6.Text = Val(NumericUpDown4.Text) / q
            ElseIf CheckBox1.Checked = False Or CheckBox2.Checked = False Or CheckBox3.Checked = False Then
                TextBox6.Text = Val(NumericUpDown4.Text) / x
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        NumericUpDown1.Value = 0
        NumericUpDown2.Value = 0
        NumericUpDown3.Value = 0
        NumericUpDown4.Value = 0
        NumericUpDown5.Value = 0
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox1.Clear()
        TextBox7.Clear()
        ComboBox1.Text = " Pilih "
        NumericUpDown4.Enabled = False
        NumericUpDown5.Enabled = False
        TextBox5.Enabled = False
        TextBox6.Enabled = False
        TextBox1.Enabled = False
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
        Me.Hide()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Form1.Show()
            Me.Hide()
            TextBox2.Show()
            TextBox3.Show()
            TextBox4.Show()
            NumericUpDown1.Hide()
            NumericUpDown2.Hide()
            NumericUpDown3.Hide()
            TextBox7.Show()
            TextBox5.Hide()
            CheckBox2.Enabled = False
            CheckBox3.Enabled = False
        ElseIf CheckBox1.Checked = False Then
            TextBox2.Hide()
            TextBox3.Hide()
            TextBox4.Hide()
            NumericUpDown1.Show()
            NumericUpDown2.Show()
            NumericUpDown3.Show()
            TextBox7.Hide()
            TextBox5.Show()
            CheckBox2.Enabled = True
            CheckBox3.Enabled = True
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Form1.Show()
            Me.Hide()
            TextBox2.Show()
            TextBox3.Show()
            TextBox4.Show()
            NumericUpDown1.Hide()
            NumericUpDown2.Hide()
            NumericUpDown3.Hide()
            TextBox7.Show()
            TextBox5.Hide()
            CheckBox1.Enabled = False
            CheckBox3.Enabled = False
        ElseIf CheckBox2.Checked = False Then
            TextBox2.Hide()
            TextBox3.Hide()
            TextBox4.Hide()
            NumericUpDown1.Show()
            NumericUpDown2.Show()
            NumericUpDown3.Show()
            TextBox7.Hide()
            TextBox5.Show()
            CheckBox1.Enabled = True
            CheckBox3.Enabled = True
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            Form1.Show()
            Me.Hide()
            TextBox2.Show()
            TextBox3.Show()
            TextBox4.Show()
            NumericUpDown1.Hide()
            NumericUpDown2.Hide()
            NumericUpDown3.Hide()
            TextBox7.Show()
            TextBox5.Hide()
            CheckBox2.Enabled = False
            CheckBox1.Enabled = False
        ElseIf CheckBox3.Checked = False Then
            TextBox2.Hide()
            TextBox3.Hide()
            TextBox4.Hide()
            NumericUpDown1.Show()
            NumericUpDown2.Show()
            NumericUpDown3.Show()
            TextBox7.Hide()
            TextBox5.Show()
            CheckBox2.Enabled = True
            CheckBox1.Enabled = True
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 0 Then
            NumericUpDown5.Enabled = True
            NumericUpDown4.Enabled = False
            TextBox6.Enabled = False
            TextBox5.Enabled = True
            TextBox1.Enabled = True
            Label17.Text = " Rs " + " dan " + " V "
        ElseIf ComboBox1.SelectedIndex = 1 Then
            NumericUpDown5.Enabled = False
            NumericUpDown4.Enabled = True
            TextBox6.Enabled = True
            TextBox5.Enabled = True
            TextBox1.Enabled = False
            Label17.Text = " Rs " + " dan " + " I "
        End If
    End Sub

    Private Sub Form3_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Me.CenterToScreen()
        NumericUpDown4.Enabled = False
        NumericUpDown5.Enabled = False
        TextBox5.Enabled = False
        TextBox6.Enabled = False
        TextBox1.Enabled = False
    End Sub

    Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TextBox2.Hide()
        TextBox3.Hide()
        TextBox4.Hide()
        TextBox7.Hide()
    End Sub

End Class

3. Buat form seperti di bawah ini :

Ubah properties dari komponen tersebut seperti ini :

Obyek	Property	Perubahan
Picturebox 1	Image
Label 3	Text	R1 =
Label 4	Text	R2 =
Label 5	Text	R3 =
Label 1	Text	Tanya
Groupbox 1	Text	Diketahui
Groupbox 2	Text	Ditanyakan
Groupbox 3	Text	Jawab
Numericupdown 1		Menunjukkan R1
Numericupdown 2		Menunjukkan R2
Numericupdown 3		Menunjukkan R3
Numericupdown 4		Menunjukkan I
Numericupdown 5		Menunjukkan V
Combobox 1	Text	Pilih
Textbox 2		Menunjukkan R1
Textbox 3		Menunjukkan R2
Textbox 4		Menunjukkan R3
Textbox 7		Menunjukkan Rs
Textbox 6		Menunjukkan V
Textbox 1		Menunjukkan I
Checkbox 1	Text	Advance (Menunjukkan R1)
Checkbox 2	Text	Advance (Menunjukkan R2)
Checkbox 3	Text	Advance (Menunjukkan R3)
Button 1	Text	Proses
Button 2	Text	Ulangi
Button 3	Text	Kembali ke Menu Awal

Lalu masukkan kode berikut :

Public Class form4

    Dim a, b, c As Double

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim z, a, b, c, w As Double

        a = Val(TextBox2.Text)

        b = Val(TextBox3.Text)

        c = Val(TextBox4.Text)

        w = (Val(TextBox2.Text) * Val(TextBox3.Text) * Val(TextBox4.Text)) / ((Val(TextBox2.Text) * Val(TextBox3.Text)) + (Val(TextBox2.Text) * Val(TextBox4.Text)) + (Val(TextBox3.Text) * Val(TextBox4.Text)))

        TextBox7.Text = w

        z = (Val(NumericUpDown1.Text) * Val(NumericUpDown2.Text) * Val(NumericUpDown3.Text)) / ((Val(NumericUpDown1.Text) * Val(NumericUpDown2.Text)) + (Val(NumericUpDown3.Text) * Val(NumericUpDown2.Text)) + (Val(NumericUpDown1.Text) * Val(NumericUpDown3.Text)))

        TextBox5.Text = z

        If ComboBox1.SelectedIndex = 0 Then

            If CheckBox1.Checked = True Or CheckBox2.Checked = True Or CheckBox3.Checked = True Then

                TextBox6.Text = Val(NumericUpDown4.Text) * w

            ElseIf CheckBox1.Checked = False Or CheckBox2.Checked = False Or CheckBox3.Checked = False Then

                TextBox6.Text = Val(NumericUpDown4.Text) * z

            End If

        ElseIf ComboBox1.SelectedIndex = 1 Then

            If CheckBox1.Checked = True Or CheckBox2.Checked = True Or CheckBox3.Checked = True Then

                TextBox1.Text = Val(NumericUpDown5.Text) / w

            ElseIf CheckBox1.Checked = False Or CheckBox2.Checked = False Or CheckBox3.Checked = False Then

                TextBox1.Text = Val(NumericUpDown5.Text) / z

            End If

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NumericUpDown1.Value = 0

        NumericUpDown2.Value = 0

        NumericUpDown3.Value = 0

        NumericUpDown4.Value = 0

        NumericUpDown5.Value = 0

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox1.Clear()

        TextBox7.Clear()

        ComboBox1.Text = " Pilih "

        NumericUpDown4.Enabled = False

        NumericUpDown5.Enabled = False

        TextBox5.Enabled = False

        TextBox6.Enabled = False

        TextBox1.Enabled = False

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form2.Show()

        Me.Hide()

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            Form1.Show()

            Me.Hide()

            TextBox2.Show()

            TextBox3.Show()

            TextBox4.Show()

            NumericUpDown1.Hide()

            NumericUpDown2.Hide()

            NumericUpDown3.Hide()

            TextBox7.Show()

            TextBox5.Hide()

            CheckBox2.Enabled = False

            CheckBox3.Enabled = False

        ElseIf CheckBox1.Checked = False Then

            TextBox2.Hide()

            TextBox3.Hide()

            TextBox4.Hide()

            NumericUpDown1.Show()

            NumericUpDown2.Show()

            NumericUpDown3.Show()

            TextBox7.Hide()

            TextBox5.Show()

            CheckBox2.Enabled = True

            CheckBox3.Enabled = True

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

            Form1.Show()

            Me.Hide()

            TextBox2.Show()

            TextBox3.Show()

            TextBox4.Show()

            NumericUpDown1.Hide()

            NumericUpDown2.Hide()

            NumericUpDown3.Hide()

            TextBox7.Show()

            TextBox5.Hide()

            CheckBox1.Enabled = False

            CheckBox3.Enabled = False

        ElseIf CheckBox2.Checked = False Then

            TextBox2.Hide()

            TextBox3.Hide()

            TextBox4.Hide()

            NumericUpDown1.Show()

            NumericUpDown2.Show()

            NumericUpDown3.Show()

            TextBox7.Hide()

            TextBox5.Show()

            CheckBox1.Enabled = True

            CheckBox3.Enabled = True

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked = True Then

            Form1.Show()

            Me.Hide()

            TextBox2.Show()

            TextBox3.Show()

            TextBox4.Show()

            NumericUpDown1.Hide()

            NumericUpDown2.Hide()

            NumericUpDown3.Hide()

            TextBox7.Show()

            TextBox5.Hide()

            CheckBox2.Enabled = False

            CheckBox1.Enabled = False

        ElseIf CheckBox3.Checked = False Then

            TextBox2.Hide()

            TextBox3.Hide()

            TextBox4.Hide()

            NumericUpDown1.Show()

            NumericUpDown2.Show()

            NumericUpDown3.Show()

            TextBox7.Hide()

            TextBox5.Show()

            CheckBox2.Enabled = True

            CheckBox1.Enabled = True

        End If

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedIndex = 0 Then

            NumericUpDown4.Enabled = True

            NumericUpDown5.Enabled = False

            TextBox1.Enabled = False

            TextBox6.Enabled = True

            TextBox5.Enabled = True

            Label1.Text = " Rp " + " dan " + " V "

        ElseIf ComboBox1.SelectedIndex = 1 Then

            NumericUpDown5.Enabled = True

            NumericUpDown4.Enabled = False

            TextBox6.Enabled = False

            TextBox1.Enabled = True

            TextBox5.Enabled = True

            Label1.Text = " Rp " + " dan " + " I "

        End If

    End Sub

    Private Sub form4_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Me.CenterToScreen()

        NumericUpDown4.Enabled = False

        NumericUpDown5.Enabled = False

        TextBox5.Enabled = False

        TextBox6.Enabled = False

        TextBox1.Enabled = False

    End Sub

End Class

4. Buat form  seperti di bawah ini

Ubah properties dari komponen tersebut seperti ini :

Obyek	Property	Perubahan
Label 1	Text	Penghitungan R        [R=(ρ*l)/A]
Label 2	Text	Hambat Jenis       ( ρ ) :
Label 3	Text	Panjang                ( l ) :
Label 4	Text	Luas Penampang ( A ) :
Label 5	Text	Ω / m ( ohm/meter )
Label 6	Text	m       ( meter )
Label 7	Text	m2     ( m persegi )
Groupbox 1	Text	Keterangan
NumericUpDown 1		Menunjukkan  ( ρ )
NumericUpDown 2		Menunjukkan  ( l )
NumericUpDown 3		Menunjukkan  ( A )
Button 1	Text	OK
Button 2	Text	Clear

Lalu masukkan kode berikut :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim q As Double

        Me.Hide()

        If NumericUpDown1.Value = 0 Then

            MsgBox("Prosedur salah! Anda belum memasukkan nilai, ulangi penghitungan dari awal.")

            Form2.Show()

        ElseIf NumericUpDown2.Value = 0 Then

            MsgBox("Prosedur salah! Anda belum memasukkan nilai, ulangi penghitungan dari awal.")

            Form2.Show()

        ElseIf NumericUpDown3.Value = 0 Then

            MsgBox("Prosedur salah! Anda belum memasukkan nilai, ulangi penghitungan dari awal.")

            Form2.Show()

        Else

            q = (Val(NumericUpDown1.Text) * Val(NumericUpDown2.Text)) / (Val(NumericUpDown3.Text))

            If form4.CheckBox1.Checked Then

                form4.Show()

                form4.TextBox2.Text = q

            ElseIf form4.CheckBox2.Checked Then

                form4.Show()

                form4.TextBox3.Text = q

            ElseIf form4.CheckBox3.Checked Then

                form4.Show()

                form4.TextBox4.Text = q

            ElseIf Form3.CheckBox1.Checked Then

                Form3.Show()

                Form3.TextBox2.Text = q

            ElseIf Form3.CheckBox2.Checked Then

                Form3.Show()

                Form3.TextBox3.Text = q

            ElseIf Form3.CheckBox3.Checked Then

                Form3.Show()

                Form3.TextBox4.Text = q

            End If

        End If

    End Sub

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

        Me.CenterToScreen()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NumericUpDown1.Value = 0

        NumericUpDown2.Value = 0

        NumericUpDown3.Value = 0

    End Sub

End Class

Memang sangat panjang programnya tapi itu saya buat untuk memberikan kemudahan bagi penggunanya agar ketika digunakan sang pengguna merasa seperti sedang menjalankan program berbayar yang komersil, karena dalam program ini saya masukkan beberapa kecanggihan kecil. Jadi monggo buat yang pengen mencoba, saya jamin akan rasa puas anda akan terpenuhi, minimal akan geleng-geleng kepala saking banyaknya kodenya. Haha

Kalo masih belum jelas bisa download programnya di sini

Continue

Program Deret Aritmatika dengan Menggunakan Procedure

Ketika kuliah dosen memberikan sebuah pertanyaan kepada kami, "Siapa yang bisa bikin program deret aritmatika pake procedure?" begitu kira-kira pertanyaannya. Namun karena saya pada waktu itu tidak begitu paham bagaimana menggunakan procedure di vb saya hanya longa-longo saja sambil berusaha mengetik kode program sebisanya. Waktu berlalu, para mahasiswa pun sibuk dengan kodingannya masing-masing yang entah itu bener ato nggak, namun suatu saat ada mahasiswa yang maju dan berkata "saya bisa pak!" Wah, tentu saja kami sekelas agak takjub melihatnya. Dengan langkah percaya diri dia maju dan menuliskan koding di papan tulis, setelah selesai dia menjelaskan apa yang ditulisnya. Namun jujur saja sampai sekarang saya masih belum paham apa yang ditulisnya. 

Nah, sekarang giliran saya untuk menshare ilmu apa yang sudah saya dari dia, tapi saya hanya akan menuliskan programnya saja sekaligus memberikan link downloadnya jadi jika ada pertanyaan harap disimpan dulu dan mungkin bisa ditanyakan pada orang lain. hehe

Langkah pertama buat form dengan desain seperti ini

Textbox 4 buah

Label 4 buah

Button 2 buah

Richtextbox 1 buah

Setelah selesai masukkan kode berikut :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a, b, c, jd As Integer

        a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        c = Val(TextBox3.Text)

        jd = ((c / 2) * ((2 * a) + ((c - 1) * b)))

        deret(a, b, c, jd)

    End Sub

    Sub deret(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal jd As Integer)

        For i = 1 To c

            RichTextBox1.Text &= a & " " 'sama aja ditulis <RichTextBox1.Text = RichTextBox1.Text & a & " ">

            a += b

        Next

        TextBox4.Text = jd

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        RichTextBox1.Clear()

        TextBox4.Clear()

    End Sub

End Class

Kalo masih belum jelas bisa download programnya di sini

Continue

Program dengan menggunakan Procedure

Menindaklanjuti dengan postingan sebelumnya, kali ini saya akan mencoba membeberkan program sederhana dengan menggunakan Procedure.

Langkah pertama buat form dengan desain seperti ini

Textbox 3 buah
Label 1 buah
Button 1 buah













Setelah selesai masukkan kode berikut :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        procedure(Val(TextBox1.Text), Val(TextBox2.Text))
    End Sub

    Sub procedure(ByVal a As Integer, ByVal b As Integer)
        TextBox3.Text = a + b
    End Sub
End Class

Kalo masih belum jelas bisa download programnya disini

Continue

Program dengan menggunakan Function

Menindaklanjuti dengan postingan sebelumnya, kali ini saya akan mencoba membeberkan program sederhana dengan menggunakan Function.

Langkah pertama buat form dengan desain seperti ini

Textbox 3 buah
Label 1 buah
Button 1 buah













Setelah selesai masukkan kode berikut :

Public Class Form1
    Dim a, b, c As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = tambah(Val(TextBox1.Text), Val(TextBox2.Text))
    End Sub

    Function tambah(ByVal a As Integer, ByVal b As Integer) As Integer
        c = a + b
        Return c
    End Function
End Class

Kalo masih belum jelas bisa download programnya disini

Continue

Perbedaan Function dan Procedure pada VB.NET

Function dan Procedure sebenarnya mempunyai kegunaan yang hampir sama yaitu memudahkan kita agar tidak menuliskan program berulang-ulang pada saat mendesain program. Misalkan kita ingin membuat kode program yang sama namun mempunyai tujuan yang berbeda maka kita bisa mencoba menggunakan function dan procedure dalam kodingan kita. Namun function dan procedure juga memiliki perbedaan dalam beberapa hal khusunya dalam menulis kodenya. 

Berikut ini merupakan beberapa perbedaan function dengan procedure :

	Procedure	Function
Definisi	Sebuah kumpulan perintah (Statement) yang tidak mengembalikan nilai balik terhadap pemanggilnya	Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.
Parameter	Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).	Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).
Deklarasi	Menggunakan keyword “Sub”.	Menggunakan keyword “Function”, untuk mengembalikan nilai hasil dari Statement menggunakan keyword “return” atau menggunakan nama dari function tersebut.

Mungkin jika hanya melihat dari pengertiannya saja agak membingungkan tapi pada postingan berikutnya saya akan memberikan contoh program dengan menggunakan procedure dan function. Jadi tetap stay di blog ini ya..
Nb : jika kurang jelas materinya silakan download pdf tentang procedure dan function di sini

Sumber

Continue