AGENDA
Tutorials - VB.NET
Tutorial 27 : Maksimum 3 Bilangan (VB User Control)

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



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:

 

Like or Share This Article




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