Program Untuk Menghitung Kelipatan Persekutuan Terkecil (KPK) dengan menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Sebelum kita membahas mengenai pembuatan program untuk menghitung nilai KPK, terlebih dahulu saya akan menjelaskan apa yang dimaksud dengan KPK. Kelipatan Persekutuan Terkecil (KPK) adalah hasil perkalian dari sebuah faktor-faktor (prima) yang berbeda dengan mengambil pangkat tertinggi. Kelipatan suatu bilangan adalah himpunan-himpunan bilangan asli yang habis oleh bilangan tersebut. Sedangkan pengertian kelipatan persekutuan adalah himpunan irisan dari himpunan-himpunan kelipatan.

Misalnya :       

Himpunan kelipatan dari 2 adalah 2, 4, 6, 8, 10,..

Himpunan kelipatan dari 4 adalah 4, 8, 12, 16,…

Himpunan kelipatan persekutuan dari 2 dan 4 adalah 4, 8, 12,…

Dari himpunan kelipatan persekutuan di atas, anggota terkecilnya adalah 4.

Maka kelipatan persekutuan terkecil (KPK) dari himpunan 2 dan 4 adalah 4.

Ditulis KPK(2,4) = 4

Jika kita tahu FPB dari bilangan bulat a dan b, kita dapat menghitung KPKnya dengan menggunakan rumus berikut ini.

KPK(a,b) =	a × b
	FPB(a,b)

Kita dapat mencari KPK dari 24 dan 60 sebagai berikut :

KPK(24,60) =	24 × 60	= 120
	12

 

Langkah - langkah pembuatan

·          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_kpk [dikosongkan] 0 - Flat 1 - Fixed Single
Label2	Caption	Bilangan I
Label3	Caption	Bilangan II
Label4	Caption	KPK
CommandButton1	Name Caption	cmd_kpk &KPK
CommandButton2	Name Caption	cmd_keluar &Keluar

Form1

Name Caption

Frm_KPK KPK

·          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_kpk_Click()

Bil1 = Me.txt_bil1.Text

Bil2 = Me.txt_bil2.Text

If (Bil1 Mod 2 = 0 And Bil2 Mod 2 <> 0) Or (Bil1 Mod 2 <> 0 And Bil2 Mod 2 = 0) Then

    Me.lbl_kpk.Caption = Bil1 * Bil2

ElseIf Bil1 Mod 2 = 0 And Bil2 Mod 2 = 0 Then

    If Bil1 Mod Bil2 <> 0 And Bil2 Mod Bil1 <> 0 Then

        If ((Bil1 * Bil2) Mod 2 = 0) And 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_kpk.Caption = (Me.txt_bil1.Text * Me.txt_bil2.Text) / FPB

        ElseIf ((Bil1 * Bil2) Mod 2 = 0) And 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_kpk.Caption = (Me.txt_bil1.Text * Me.txt_bil2.Text) / FPB

        Else

            Me.lbl_kpk.Caption = Bil1 * Bil2

        End If

    ElseIf Bil1 Mod Bil2 = 0 And Bil2 Mod Bil1 <> 0 Then

        Me.lbl_kpk.Caption = Bil1

    ElseIf Bil1 Mod Bil2 <> 0 And Bil2 Mod Bil1 = 0 Then

        Me.lbl_kpk.Caption = Bil2

    End If

ElseIf Bil1 Mod 2 <> 0 And Bil2 Mod 2 <> 0 Then

    If Bil1 Mod Bil2 <> 0 And Bil2 Mod Bil1 <> 0 Then

        Me.lbl_kpk.Caption = Bil1 * Bil2

    ElseIf Bil1 Mod Bil2 = 0 And Bil2 Mod Bil1 <> 0 Then

        Me.lbl_kpk.Caption = Bil1

    ElseIf Bil1 Mod Bil2 <> 0 And Bil2 Mod Bil1 = 0 Then

        Me.lbl_kpk.Caption = Bil2

    End If

End If

End Sub

Private Sub Form_Load()

Me.txt_bil2.Enabled = False

Me.cmd_kpk.Enabled = False

End Sub

Private Sub cmd_keluar_Click()

End

End Sub

Private Sub txt_bil1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Me.txt_bil2.Enabled = True

    Me.txt_bil2.SetFocus

End If

End Sub

Private Sub txt_bil2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Me.cmd_kpk.Enabled = True

    Me.cmd_kpk.SetFocus

End If

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