Tutorial membuat function pada visual basic 2010

Tutorial membuat function pada visual basic 2010

Seperti judul yang saya yang  berikan kita akan mempelajari menggunakan function di visual basic 2010,
saya sengaja buat yang paling simple agar gampang dimengerti pada teman-teman

Baiklah, ikuti langkah-langkah dibawah ini ya:
1.Buka program Visual Basic 2010 anda, kemudian klik “new project”, setelah itu buatlah tool-tool yang kita perlukan, buat seperti gambar dibawah ini ya.

seperti gambar diatas, tools yang kita perlukan adalah: 3 label, 3 textbox , 1 comboBox mengisikan segitiga dan 1 button.
kalu udah buat kita lanjut ke step berikut ini :

2. Sekarang kita akan melanjutkan ke coding, klik 2x mouse kiri  pada form maka akan muncul tab coding, buat coding seperti gambar dibawah ini.

ini saya akan rincikan di bawah ini
Untuk coding functionnya:
Public Class Form1
    Sub jenis(ByVal pilihan As String)     
        If pilihan = "segitiga" Then
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            Label2.Visible = True
            Label3.Visible = True
            Label2.Text = "Alas"
            Label3.Text = "Tinggi"
            TextBox1.Visible = True
            TextBox2.Visible = True
            TextBox3.Visible = True
            Button1.Visible = True
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label2.Visible = False
        Label3.Visible = False
        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False
        Button1.Visible = False
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      If ComboBox1.SelectedItem = "segitiga" Then
            TextBox3.Text = TextBox1.Text * TextBox2.Text / 2
        End If
    End Sub
End Class

kalu malas mau ketik kayak di atas pakai copy / paste aja hehhe kan cepat gak habis waktu hehe

Selesai nih coding untuk Functionnya,ngampang kan teman-teman soalnya cuma buat luas segitiga aja hehe

selesai
 teman-teman boleh mencoba membuat function di atas ..
thanks you