[ VISUAL STUDIO ] Maksimum 3 Bilangan ( VB User Control)

Maksimum 3 Bilangan

Program ini akan menerima tiga bilangan integer, lalu mencari bilangan terbesar dan menampilkannya.

Berikut langkah - langkahnya :

1) Ketikkan nama submenu ke-3, yang akan dibuat, yaitu Bilangan Terbesar.

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

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

3) Pada toolbox, double klik atau drag 5 Label,3 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	Masukan Angka 3 :	Label 3
Label 4	Output :	Label 4
Label 5	-	lbl_hasil
Textbox 1		txt_input1
Textbox 2		txt_input2
Textbox 3		txt_input3
Button 1	Proses	btn_proses
Button 2	Hapus	btn_hapus

 Lalu design menjadiseperti pada gambar berikut:

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

'Program   = uc_bilanganterbesar.vb
'Tanggal   = Juli 2014
'Deskripsi = Menampilkan bilangan terbesar
 
Public Class uc_bilanganterbesar
 
    Private Sub btn_proses_Click(sender As Object, e As EventArgs) Handles btn_proses.Click
        If Val(txt_input1.Text) > Val(txt_input2.Text) And Val(txt_input1.Text) > Val(txt_input3.Text) Then
            lbl_hasil.Text = txt_input1.Text
        ElseIf Val(txt_input2.Text) > Val(txt_input1.Text) And Val(txt_input2.Text) > Val(txt_input3.Text) Then
            lbl_hasil.Text = txt_input2.Text
        Else
            lbl_hasil.Text = txt_input3.Text
 
        End If
    End Sub
 
    Private Sub btn_hapus_Click(sender As Object, e As EventArgs) Handles btn_hapus.Click
        txt_input1.Text = ""
        txt_input2.Text = ""
        txt_input3.Text = ""
        lbl_hasil.Text = "-"
    End Sub
End Class

5) Selanjutnya kita kembali ke design Form1, lalu double klik submenu yang tadi telah dibuat (Bilangan Terbesar). Lalu masukan source code berikut :

'Program    = DemoUserControlVB
'Tanggal    = Juli 2014
'Deskripsi  = Menu untuk membuka user control yang lain
 
Public Class Form1
    Dim uc1 As New uc_swap
    Dim uc2 As New uc_kalkulator
    Dim uc3 As New uc_bilanganterbesar
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        pnl_main.Controls.Add(uc1)
        pnl_main.Controls.Add(uc2)
        pnl_main.Controls.Add(uc3)
        uc1.Dock = DockStyle.Fill
        uc2.Dock = DockStyle.Fill
        uc3.Dock = DockStyle.Fill
    End Sub
    Private Sub SwapToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SwapToolStripMenuItem.Click
        uc1.BringToFront()
        uc2.SendToBack()
        uc3.SendToBack()
        lbl_status.Text = "Swap"
    End Sub
 
    Private Sub KalkulatorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KalkulatorToolStripMenuItem.Click
        uc1.SendToBack()
        uc2.BringToFront()
        uc3.SendToBack()
        lbl_status.Text = "Kalkulator"
    End Sub
 
    Private Sub BilanganTerbesarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BilanganTerbesarToolStripMenuItem.Click
        uc1.SendToBack()
        uc2.SendToBack()
        uc3.BringToFront()
        lbl_status.Text = "Bilangan Terbesar"
    End Sub
 
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
End Class

Lalu simpan hasil modifikasi dengan CTRL+S.

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