yes
no
10/Promotion/slider
no

Deret Fibonacci dengan VB.Net

Tidak ada komentar

Deret Fibonacci adalah sebuah deret angka yang unik, dimana angka berikutnya merupakan hasil penjumlahan dari dua angka sebelumnya. Misalnya, pada deret angka 1 1 2 3 5 8, angka 2 merupakan hasil penjumlahan dari dua angka sebelumnya yaitu 1 + 1. Begitu pun dengan angka 3 merupakan hasil penjumlahan dari angka 1 + 2, dan angka 5 merupakan hasil penjumlahan dari angka 2 + 3 dan seterusnya. Deret Fibonacci dapat dibuat oleh bahasa pemrograman Visual Basic 6, Visual Basic.Net, C, C++, Java, Javascript, PHP dan bahasa pemrograman lainnya. Bahasa pemrograman tersebut dapat dipelajari di tempat Kursus Komputer atau IT Training Center. Computer First merupakan Lembaga Pendidikan Kursus Komputer yang membuka program kursus bahasa pemrograman tersebut.

Pada artikel ini penulis membuat Deret Fibonacci dengan menggunakan VB.Net 2005. Karena VB.Net 2005 merupakan bahasa pemrograman berbasis Object Oriented Programming (OOP), maka untuk membuat Deret Fibonacci memerlukan adanya Class dan Object. Penjelasan mengenai Class dan Object sudah penulis bahas pada artikel sebelumnya, yaitu artikel dengan judul Mengenal Object Oriented Programming (OOP). Bagi pembaca yang masih bingung dengan istilah Class dan Object, bisa membaca artikel tentang Mengenal Object Oriented Programming (OOP). Bagaimana cara membuat Deret Fibonacci dengan VB.Net ?

Untuk lebih jelasnya tentang pembuatan Deret Fibonacci dengan VB.Net, penulis sudah membuat program untuk membuat Deret Fibonacci dengan Vb.Net sebagai berikut :

Membuat Class :
Public Class DeretFibonacciOOP
    Private fibo0, fibo1, fibo2 As Integer

    Public Sub setfibo0(ByVal fibo0 As Integer)
        Me.fibo0 = fibo0
    End Sub

    Public Function getfibo0()
        Return fibo0
    End Function

    Public Sub setfibo1(ByVal fibo1 As Integer)
        Me.fibo1 = fibo1
    End Sub

    Public Function getfibo1()
        Return fibo1
    End Function

    Public Sub setfibo2(ByVal fibo2 As Integer)
        Me.fibo2 = fibo2
    End Sub

    Public Function getfibo2()
        Return fibo2
    End Function
End Class

Menciptakan Object :
Module DeretFibonacci
    Dim objfibo0 As New DeretFibonaciOOP
    Dim objfibo1 As New DeretFibonaciOOP
    Dim objfibo2 As New DeretFibonaciOOP
    Dim fibo0, fibo1, fibo2 As Integer
    Dim i, n As Integer

    Sub Main()
        fibo0 = 1
        fibo1 = 1
        objfibo0.setfibo0(fibo0)
        objfibo1.setfibo1(fibo1)

        Console.Write("Masukkan Banyaknya Deret :")
        n = Console.ReadLine
        Console.Write(objfibo0.getfibo0 & " ")
        Console.Write(objfibo1.getfibo1 & " ")

        For i = 1 To n
            fibo2 = fibo0 + fibo1
            objfibo2.setfibo2(fibo2)
            Console.Write(objfibo2.getfibo2 & " ")
            fibo0 = fibo1
            fibo1 = fibo2
        Next i
        Console.ReadLine()
    End Sub
End Module
 
Jika program di running, program akan meminta user untuk memasukan banyaknya deret angka yang ingin dibuat. Jika user memasukkan angka 8, maka program akan memprosesnya untuk membuat deret angka sebanyak 8 angka setelah dua angka pertama dan menampilkan hasilnya sebagai berikut : 1 1 2 3 5 8 13 21 34 55.

Demikian artikel ini penulis buat, semoga bermanfaat bagi semua pembaca blog Computer First. Silakan dicoba, dan jangan lupa beri komentarnya….
author profile image
Abdelghafour

Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book.

Tidak ada komentar

Posting Komentar

no
Computer First - First Choice in IT Training Center - menyediakan jasa pelatihan Kursus Komputer di Jakarta sejak dari usia dini yaitu sejak anak-anak sampai dengan dewasa. Computer First berdiri pada tahun 2001, Visi Computer First ingin menjadi First Choice in IT Training Center melalui pendidikan dan pelatihan komputer yang berkualitas terbaik [Computer First Indonesia] (http://computerfirst.co.id/images/logo/logo1.png)