AGENDA
Tutorials - VB.NET
Tutorial 40 : Kelipatan 3 atau 5 (VB User Control)

Program ini akan menampilkan tulisa flip jika kelipatan 3, dan menampilkan flop jika kelipatan 5.



Kelipatan 3 atau 5

Ini adalah algoritma yang akan menerima sebuah bilangan, dan menampilkan tulisa “flip” jika kelipatan 3, dan menampilkan “flop” jika kelipatan 5, menampilkan “flip-flop”.

1) Ketikkan nama submenu ke-16, yang akan dibuat, yaitu Flip Flop2.

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

     2. Pilih User Control dan berikan nama pada Name uc_flipflop2. Lalu Klik Add.

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

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

'Program   = uc_flipflop2.vb
'Tanggal   = Juli 2014
'Deskripsi = Menampilkan tulisan "flip" jika kelipatan 3, menampilkan "flop" jika kelipatan 5, menampilkan "flip-flop" jika kelipatan 3 dan 5

Public Class uc_flipflop2
    Dim n As Double
    Dim hasil As Double
    Private Sub btn_proses_Click(sender As Object, e As EventArgs) Handles btn_proses.Click
        Dim angka As Integer
        n = 1
        For angka = n To txt_input.Text Step 1
            If (angka Mod 3 = 0) And (angka Mod 5 = 0) Then
                lbx_hasil.Items.Add("flip-flop")
            Else
                If angka Mod 3 = 0 Then
                    lbx_hasil.Items.Add("flip")
                ElseIf angka Mod 5 = 0 Then
                    lbx_hasil.Items.Add("flop")
                End If
            End If
        Next angka

    End Sub

    Private Sub btn_hapus_Click(sender As Object, e As EventArgs) Handles btn_hapus.Click
        txt_input.Text = ""
        lbx_hasil.Items.Clear()
    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 !!