Kamis, 15 Maret 2012

Visual Basic Deret Fibonacci

Depok, 15 Maret 2012

Berikut akan ditampilkan program visual basic untuk menghitung deret fibonacci. Deret fibonacci adalah suatu deret di mana mulai deret ketiga, angka merupakan penjumlahan angka sebelum dan 2 angka sebelumnya. Berikut adalah deret fibonacci apabila deret pertama adalah 2 dan deret kedua adalah 3

Deret 1   : 2
Deret 2   : 3
Deret 3   : Deret 2 + Deret 1 = 3 + 2 = 5
Deret 4   : Deret 3 + Deret 2 = 5 + 3 = 8
Deret 5   : Deret 4 + Deret 4 = 8 + 5 = 13

Jadi deret fibonacci deret-deret di atas adalah 2 , 3 , 5, 8, 13

Berikut adalah deret fibonacci apabila dibuatkan program pada visual basic :

Pertama buatkan terlebih dahulu user form seperti di bawah ini 


Kemudian buatkan program pada commandbutton seperti dibawah ini dengan cara klik 2x commandbutton pada user form :


Klik F5 untuk menjalankan "RUN" , kemudian masukkan angka yang diinginkan, dalam hal ini deret 1 = 2, deret 2 = 3 dan jumlah deret yang diinginkan n = 5


20 komentar:

  1. bang rantot, sepertinya perlu ditambahakan aplikasi langsung dari deret fibonanci nie, misalnya, misalnya di dunia arsitektur, dan lain sebagianya, klo yang lebih menarik lagi, kalau diaplikasikan untuk gambar di CAD, pakai VBA, wah.. bisa buat helical spring juga khan?

    BalasHapus
    Balasan
    1. iya bisa tuh.. kyk solidworks gabung dengan excel. coba liat di youtube setau saya ada caranya

      Hapus
    2. Iya bisa sepertinya, cuma saya juga belum mencoba, yang saya paham baru sebatas menghitung deret fibonaci-nya saja, kalau aplikasi deret fibonacinya sendiri saya juga belum paham, mungkin teman-teman ada yang coba bantu??

      Hapus
  2. salam satu jiwa.. bung randi catatannya menarik. bagaimana cara mengatur deret fibonacci jika n nya lebih dari 10. bisa kah ditampilkan?

    BalasHapus
    Balasan
    1. bukanya tinggal kasih n = 11 atau lebih ya mer, apa ternyata punya program tersendiri untuk n > 10
      mohon pencerahanya

      Hapus
  3. bang almer, tinggal ganti aja n = 12 misalnya, betul tuh kata irawan, program yang coba saya bikin juga sudah tinggal memasukkan nilai n nya berapa, ketemu dech nilai deret fibonancinya

    check disini dech : http://bloghasnan.blogspot.com/2012/03/alogaritma-dan-pemograman-vba.html

    BalasHapus
  4. Iya kalau untuk deret yang lebih dari 10 tinggal ditulis aja di kolom n, misal mau 12 deret, tinggal tulis n = 12, nanti kalau deretnya banyak, maka tinggal di-scroll aja di tampilan hasil, kalau pake listbox pasti bisa..

    Salam hangat

    BalasHapus
  5. mas rantot.. sebenarnya fibonacci diaplikasiin buat apa ya?
    termia kasih...

    BalasHapus
    Balasan
    1. kalau aplikasinya, saya juga kurang tau mas gerry, saya hanya tahu apa itu deret fibonaci, tapi di blog almer-farhan.blogspot.com sudah ada tuh penjelasannya..terima kasih mas almer..

      salam hangat

      Hapus
  6. Bang Almer, seinget saya kan kita tinggal masukin aja nilai n yang mau kita cari coz program akan berjalan terus sampai i = n.. cmiiw
    so gak masalah mau dimasukin nilai n berapa juga, asal bukan bilangan negatif..
    terima kasih

    BalasHapus
  7. @gerry : see my blog ger =D *aplikasi fibonachi
    @enggar : iyo gar dlu gw ga paham eh sekarang jd makin paham,hee

    terima kasih
    almer-farhan.blogspot.com

    BalasHapus
  8. Mantap bung Rantot... Penjelasan tentang algoritmanya jelas sekali bung...

    BalasHapus
    Balasan
    1. Sama sama mas daniel..semoga dapat membantu..

      salam hangat

      Hapus
  9. penggunaan double dan integer hanya berbeda dalam ketelitiannya,tapi kenapa sampe ke hasilnya akan menunjukkan hasil yang beebeda ya?? trus kenapa kasus ini menggunakan double?

    BalasHapus
    Balasan
    1. Pemakaian double atau integer hampir sama, hanya ada di perbedaan ketelitian saja. Untuk Integer ketelitiannya 2 byte,dan memiliki jangkauan = -32.768 s.d 32.767. Kalau double memiliki ketelitian 8 byte serta memiliki jangkauan = -1.79769313486232 E+308 s.d -4.94065645841247 E-324 untuk bilangan negatif dan 4.94065645841247 E-324 s.d 1.79769313486232 E+308 untuk bilangan positif..

      Hapus
  10. program ini sangat menginspirasi loh, jujur, melalui postingan ini, maka fibonacci di perguruan farhan bisa eksis,terima mahaguru rantot,wkwkwkwkwkk

    salam hangat

    BalasHapus
  11. nice bung rantot. posting ini sangat bermanfaat karena merupakan dasar untuk mengerjakan permasalahan deret lainnya.

    BalasHapus
  12. thanks gan berkat blog ini tugas ane selesai.. thx banget
    kunjungi blog saya deddykurniawantkj22.blogspot.com

    BalasHapus
  13. software yang bisa ngitung deret fibonacci: http://tutorialvb6.blogspot.com/2013/05/fibonacci-counter.html

    BalasHapus