Mencari Deret Angka Fibonacci Dengan Visual Basic 6.0 (VB6)

Deret angka Fibonanci adalah angka yang diperoleh dengan menjumlahkan angka sebelumnya.

Apabila kita ingin menampilkan deret angka Fibonacci, maka kita harus menentukan dulu dua deret angka pertama sebagai patokan penjumlahan contoh 0,1 maka apabila kita cari deret angka Fibonaccinya adalah 0, 1, 1, 2, 3, 5, 8, 13, 21, 34 dengan ditampilkan sebanyak 10 baris.

Output Deret Angka Fibinacci

Dengan pengertian dan contoh diatas sekarang kita peraktekan dengan menggunakan Visual Basic 6.0, berikut adalah langkah-langkahnya :

1. Buka Form VB6 Standar EXE

2. Pada Form1 tanamkan Control dibawah ini :

3 TextBox

1 ListBox

1 CommandButton

1 Frame, dan

1 Label

3. Desainlah Form seperti Gambar dibawah ini :

Desain Form

4. Setelah mendesdain Form seperti diatas, lalu ketikan kode dibawah ini :

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

MsgBox "Tidak boleh dikosongkan", vbOKOnly, "Info"

Text1.SetFocus

Else

Dim i As Integer

    Dim n1 As Long, n2 As Long, n3 As Long

    ' Inisialisasi bilangan Fibonacci pertama dan kedua

    n1 = Text1.Text

    n2 = Text2.Text

    ' Bersihkan ListBox sebelum menambahkan angka

    List1.Clear

    ' Tambahkan angka pertama dan kedua ke ListBox

    List1.AddItem n1

    List1.AddItem n2

    ' Loop untuk menampilkan 10 bilangan Fibonacci

    For i = 3 To Text3.Text

        n3 = n1 + n2

        List1.AddItem n3

        n1 = n2

        n2 = n3

    Next i

    End If

    

End Sub

Private Sub Form_Activate()

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace Or KeyAscii = vbKeyReturn) Then

MsgBox "Maaf Hanya Boleh Diisi Angka Saja", vbInformation + vbOKOnly, "Perhatian"

KeyAscii = 0

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace Or KeyAscii = vbKeyReturn) Then

MsgBox "Maaf Hanya Boleh Diisi Angka Saja", vbInformation + vbOKOnly, "Perhatian"

KeyAscii = 0

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace Or KeyAscii = vbKeyReturn) Then

MsgBox "Maaf Hanya Boleh Diisi Angka Saja", vbInformation + vbOKOnly, "Perhatian"

KeyAscii = 0

End If

End Sub

5. Jalankan Project Anda dengan F5/RUN, kemudian coba masukan di Textbox kosong 2 angka pertama dan jumlah baris yang akan di tampilkan lalu tekan tombol Proses, maka hasilnya akan tampak seperti gambar diatas artikel.

Demikian artikel kali ini tentang Mencari Deret Angka Fibonacci Dengan Visual Basic 6.0 (VB6), semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil.

Related Post: Matematika