AGENDA
Tutorials - VB.NET
Tutorial 35 : Flip Flop (VB User Control)

Program ini akan menampilkan n buah bilangan asli yang pertama namun dengan tulisan flip atau flop.



Pada kali ini akan membuat sebuah prigram yang akan menerima sebuah bilangan integer n, lalu menampilkan n buah bilangan asli yang pertama namun dengan tulisan “flip” atau “flop”.

Flip Flop 

1) Ketikkan nama submenu ke-11, yang akan dibuat, yaitu Flip Flop1.

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

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

3) Pada toolbox, double klik atau drag 3 Label, 1 Textboxdan2 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_flipflop1.vb
'Tanggal   = Juli 2014
'Deskripsi = Menampilkan n buah bilangan asli yang pertama namun dengan tulisan "flip" atau "flop"
Public Class uc_flipflop1
    Dim n As Integer
    Dim jumlah As Integer
    Dim hasil As String

    Private Sub btn_proses_Click(sender As Object, e As EventArgs) Handles btn_proses.Click
        Dim angka As Integer
        n = 1
        hasil = ""
        txt_hasil.Text = ""
        For angka = n To txt_input.Text Step 1
            If angka = txt_input.Text Then
                If angka Mod 2 = 1 Then
                    hasil += ("flip")
                Else
                    hasil += ("flop")
                End If
            Else
                If angka Mod 2 = 1 Then
                    hasil += ("flip, ")
                Else
                    hasil += ("flop, ")
                End If
            End If
            txt_hasil.Text = hasil
        Next angka
    End Sub

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