Deret Bilangan Fibonacci VB 2008

Saya berkunjung ke salah satu Blog yang menampilkan Tutorial Interface VB 2008. Linknya silakan kunjungi Weblognya ==>> Klik Disini . Saya ingin mempelajari Deret Bilangan Fibonacci, Teori Dasarnya dapat Di baca pada Blog tersebut.

Script yang ditampilkan mengalami sedikit perubahan sesuai dengan yang saya inginkan, secara garis besarnya Script berasal dari Blog tersebut ==>> Klik Disini . Penambahan beberapa sintaks script akan saya tampilkan dengan script dari Blog yang saya pelajari tersebut ==>> Klik Disini . Hanya ada sedikit perbedaan pada tampilan dan visual datanya.

Toolbox yang saya gunakan, tidak jauh berbeda dengan yang dipergunakan pada Blog Tutorial Visual Basic 2008 tersebut. Component ToolBox Plat Form VB 2008 Express Edition, perhatikan Tabel di bawah ini.

ToolBox	Properties
1 UserForm	Name: Form1 Text: Deret Fibonacci V. Hutabalian's Blog
1 ListBox	Name: ListBox1
2 Button	Name:Button1 Text: Proses Deret Name: Button2 Text: Exit
1 Label	Name:Label1 Text: Panjang Deret Bilangan
1 NumericUpDown	Name:NumericUpDown1

Desain dari Toolbox yang saya pergunakan di atas, perhatikan gambar di bawah ini.



Script Deret Fibonacci dari Blog tersebut sebagai berikut.

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Deret Bilangan Fibonacci'
'======================================================================='
' Source ==>> Klik Disini '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Dim w, y, z As Integer
y = 0
z = 1
ListBox1.Items.Clear()
ListBox1.Items.Add(y)
ListBox1.Items.Add(z)
For x As Integer = _
1 To NumericUpDown1.Value
w = y + z
y = z
z = w
If w > NumericUpDown1.Value _
Then Exit For
ListBox1.Items.Add(w)
Next

Perubahan dan penambahan beberapa baris sintaks Script sesuai dengan yang saya inginkan.

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Deret Fibonacci V. Hutabalian's Blog'
'======================================================================='
'Tampilan Visual by: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 14 Oktober 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w, y, z, z0 As Integer
y = 0
z0 = 1
z = 1
ListBox1.Items.Clear()
ListBox1.Items.Add(z)
For x As Integer = 2 To NumericUpDown1.Value
w = y + z
w = z
If x > 2 Then
w = z0 + z
z0 = z
z = w
End If
ListBox1.Items.Add(w)
Next
NumericUpDown1.Value = Me.ListBox1.Items.Count
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

End Class

Setelah Script di atas selesai saya ketik, maka untuk menampilkan hasilnya saya menekan tombol F5. kemudian saya mensetting Panjang Deret yang akan ditampilkan pada ListBox, lalu tekan tombol Proses Deret. Tampilan hasilnya perhatikan Gambar di bawah ini.



Pada dasarnya sistim deret untuk kedua script di atas sama saja, hanya ada sedikit perbedaan. Untuk lebih jelasnya, tidak ada salahnya untuk mencoba kedua script di atas. Jika ada pengembangan yang lebih baik lagi dari rekan-rekan, saya akan dengan senang hati menampung Kritik dan Saran.

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian.