AGENDA
Tutorials - VB.NET
Tutorial 39 : Fungsi Kali (VB User Control)

Program ini adalah sebuah fungsi “kali”,yang akan menerima 2 bilangan integer, dan melakukan operasi perkal...



Fungsi Kali

Program ini adalah sebuah fungsi “kali”,yang akan menerima 2 bilangan integer, dan melakukan operasi perkalian. (Hanya bisa menggunakan operator “+” saja, tidak operator “*”).

Berikut langkah - langkahnya :

1) Ketikkan nama submenu ke-15, yang akan dibuat, yaitu Fungsi Kali.

2) - Pada Solution, klik kanan DemoUserControlVB, pilih Add » User Control .

    - Pilih User Control dan berikan nama pada Name uc_fungsikali. Lalu Klik Add.

3) Pada toolbox, double klik atau drag 4 Label, 2 Textbox dan 2 Button. Lalu pada properties isikan seperti table dibawah ini :

 

Text

Name

Label 1

Masukan Angka 1 :

Label 1

Label 2

Masukan Angka 2 :

Label 2

Label 3

Output :

Label 3

Label 4

-

lbl_hasil

Textbox 1

 

txt_input1

Textbox 2

 

txt_input2

Button 1

Proses

btn_proses

Button 2

Hapus

btn_hapus

4) Selanjutkan kita akan mengetikkan kode program. Caranya double klik button proses, lalu modifikasi source codenya sehingga menjadi seperti berikut:

'Program   = uc_fungsikali.vb
'Tanggal   = Juli 2014
'Deskripsi = Fungsi kali yang menggunakan operator +
Public Class uc_fungsikali

    Dim hasil As String
    Private Sub btn_proses_Click(sender As Object, e As EventArgs) Handles btn_proses.Click
        Dim n1, n2, jumlah As Integer
        Dim banyak As Integer
        hasil = ""
        lbl_hasil.Text = ""
        n1 = Val(txt_input1.Text)
        n2 = Val(txt_input2.Text)
        For banyak = 1 To n2 Step 1
            If banyak = n2 Then
                hasil += CStr(n1) & " = "
            Else
                hasil += CStr(n1) & " + "
            End If
            jumlah = jumlah + n1
        Next banyak
        hasil += CStr(jumlah)
        lbl_hasil.Text = hasil
    End Sub

    Private Sub btn_hapus_Click(sender As Object, e As EventArgs) Handles btn_hapus.Click
        txt_input1.Text = ""
        txt_input2.Text = ""
        lbl_hasil.Text = "-"
    End Sub
End Class

5) Pastikan anda telah mengubah source code pada Form1, seperti pada latihan-latihan sebelumnya. Lalu simpan hasil modifikasi dengan CTRL+S.

6) Kemudian, running program dengan menekan tombol CTRL + F5:

 

Like or Share This Article




COMMENTS ( 0 )
 
Keep connected with us, mobile apps available now !!