Program Untuk Menghitung Faktor Persektuan Terbesar (FPB) dengan menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Faktor Persekutuan Terbesar (FPB) dari dua bilangan bulat positif adalah bilangan bulat positif terbesar yang membagi habis kedua bilangan tersebut. FPB berguna untuk menyederhanakan pecahan.

Contoh :

64 ÷ 40 = 1 dengan sisa 24

40 ÷ 24 = 1 dengan sisa 16

24 ÷ 16 = 1 dengan sisa 8

16 ÷ 8 = 2 dengan sisa 0.
Apabila sisa bilangan = 0, bilangan terakhir yang digunakan untuk membagi merupakan nilai FPB. Jadi,  FPB dari 40 dan 64 adalah 8

·          Buka proyek Standard EXE yang baru

·          Disain tampilan form seperti gambar berikut dengan menggunakan objek Label dan TextBox dan CommandButton

 

 Gbr 1

·     Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Text	txt_bil1 [dikosongkan]
TextBox2	Name        Text	txt_bil2 [dikosongkan]
Label1	Name Caption Appearance Border Style	lbl_fpb [dikosongkan] 0 - Flat 1 - Fixed Single
Label2	Caption	Bilangan I
Label3	Caption	Bilangan II
Label4	Caption	FPB
CommandButton1	Name Caption	cmd_fpb &FPB
CommandButton2	Name Caption	cmd_keluar &Keluar

Form1

Name Caption

Frm_FPB FPB

·          Klik menu View  =>  Code, lalu kode program di bawah ini :

Dim i As Integer

Dim Bil1 As Double

Dim Bil2 As Double

Dim B1, B2, FPB As Long

Dim Bagi As Long

Dim SisaBagi As Integer

Private Sub cmd_FPB_Click()

Bil1 = Me.txt_bil1.Text

Bil2 = Me.txt_bil2.Text

If Bil1 > Bil2 Then

    B1 = Bil1

            For i = 1 To 10

                If Bil2 <> 0 Then

                    Bagi = Fix(B1 / Bil2)

                    SisaBagi = B1 - (Bagi * Bil2)

                    B1 = Bil2

                    Bil2 = SisaBagi

                ElseIf Bil2 = 0 Then

                    FPB = B1

                End If

            Next

            Me.lbl_fpb.Caption = FPB

ElseIf Bil1 < Bil2 Then

    B2 = Bil2

            For i = 1 To 10

                If Bil1 <> 0 Then

                    Bagi = Fix(B2 / Bil1)

                    SisaBagi = B2 - (Bagi * Bil1)

                    B2 = Bil1

                    Bil1 = SisaBagi

                ElseIf Bil1 = 0 Then

                    FPB = B2

                End If

            Next

            Me.lbl_fpb.Caption = FPB

End If

End Sub

Private Sub cmd_keluar_Click()

End

End Sub

·          Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·          Hasilnya ketika program dijalankan :

 

 Gbr 2

Download Source Codenya  disini atau disini