Alogaritma dan pemograman VBA : Menghitung Bilangan Fibonanci ke N

Beberapa contoh pemrograman telah saya tampilkan pada posting sebelumnya, minggu ini memang saya kejar untuk menyelesaikan berbagai contoh pemrograman serta alogaritmanya, minggu depan rencana saya baru mengejar ketinggalan posting CFD, mengotak-atik excel memang menyenangkan, apalagi kalau program berhasil jalan, tapi memusingkan juga bila program yang kita buat tidak berhasil jalan, perlu belajar proses debuging agar tahu dimana letak kesalahan yang kita lakukan.

bilangan Fibonanci, adalah bilangan yang mempunyai aturan sebagai berikut

Alogaritma
Alogaritma untuk mencari bilangan fibonanci ke n, dapat didekati sebagai berikut

1. baca n
2. for i =1 to n
3. if n = 0 then
4. fn = 1
5. if n = 1 then
6. fn = 1
7. else
8. fn = (n - 1) + (n + 2)
9. i = i + 1
10. tampilkan fn
11. next i
12. stop

alogaritma pada baris ke 3 sampai 8 dapat juga disingkat menjadi
if n > 2 then
fn = 1
else
....
atau dapat juga ditulis dengan
if n=1 or n=0 then
fn = 1
else

maksud dari ketiga program tersebut sama, yaitu selama nilai bilangan yang dimaksud adalah 1 dan 0 maka nilai fibonanci (fn) =1.

Program VBA
saya lebih cenderung memanfaatkan cell yang ada di excel, daripada membuat input text maupun textbox, selain mempermudah, juga latihan untuk menggabungkan antara VBA dengan excel
untuk membuat program tersebut ke dalam excel VBA, langkah-langkahnya adalah
1. buka excel baru
2. masuk ke dalam developer, lalu masukkan button / command button ke dalam excel
3. pastikan masih dalam design mode, lalu double klik command button tersebut
4. tuliskan programnya seperti berikut

Private Sub CommandButton1_Click()
Dim n, fn As Long
   n = Cells(3, 2) ' membaca input ke n
  For i = 1 To n  ' memilah data n
        If n = 0 Then
           fn = 1
        ElseIf n = 1 Then
           fn = 1
        Else
          fn = (n - 1) + (n + 2) ' menghitung nilai fibonacci
       End If
 i = i + 1
 Cells(4, 2) = fn    ' menuliskan hasil fibonacci
Next i
End Sub

Hasil
hasil program dapat dilihat pada gambar berikut, contohnya inputan yang diberikan adalah 4, maka hasilnya akan langsung muncul nilai 9.

file-file latihan yang sudah saya buat, juga dapat langsung didownload pada box dibawah ini, pastikan browser anda sudah terinstal flashpalyer terbaru untuk melihat box berikut, file dapat didownload lengkap berserta sourcodenya, pilih langsung filenya, secara otomatis akan terdownload.
Semoga bermanfaat



Referensi :
http://en.literateprograms.org/Fibonacci_numbers_(Visual_Basic_.NET)

Posted in: algoritma, fibonanci, komputasi teknik