AGENDA
Tutorials - VB.NET
Tutorial 37 : Foibbonanci (VB User Control)

Program ini akan menerima sebuah bilangan integer n, lalu membuat pola fibbonanci.



Pada kali ini akan membuat sebuah Program yang akan menerima sebuah bilangan integer n, lalu membuat pola fibbonanci.

Fibbonanci

1) Ketikkan nama submenu ke-13, yang akan dibuat, yaitu Fibbonanci.

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

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

3) Pada toolbox, double klik atau drag 3 Label, 1 Textbox 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_fibbonanci.vb
'Tanggal   = Juli 2014
'Deskripsi = Membuat pola fibbonanci

Public Class uc_fibbonanci
    Dim hasil As String
    Dim a, b, c As Integer
    Private Sub btn_proses_Click(sender As Object, e As EventArgs) Handles btn_proses.Click
        Dim angka As Integer
        a = 0
        b = 1
        hasil = (b) & " "
        For angka = 2 To txt_input.Text
            c = a + b
            hasil += CStr(c) & " "
            a = b
            b = c

        Next angka
        lbl_hasil.Text = hasil
    End Sub

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