Selasa, 13 Desember 2016

Program Kelipatan Persekutuan Terkecil

Kelipatan persekutuan terkecil bilangan A dan B adalah bilangan bulat positif terkecil  yang habis dibagi oleh A atau B. KPK dapat dicari dengan mengalikan A dan B, kemudian membaginya dengan faktor persekutuan terbesar dari A dan B.

KPK(a, b) = a * b / FPB(a, b)

dalam visual basic, kita dapat menuliskan persaman FPB(a, b) dengan

Function FPB(m As Integer, n As Integer) As Integer
 If n = 0 Then
     FPB = m
 Else
     FPB = FPB(n, m Mod n)
 End If
End Function



sedangkan menuliskan KPK(a, b) dengan:

Function KPK(m As Integer, n As Integer) As Integer
     KPK = (m * n) \ FPB(m, n)
End Function


Untuk membuat aplikasi KPK dengan visual basic, buatlah tampilan form-nya sebagai berikut:


Pada bagian Form_Load, saya membuat nilai default tampilan dengan kode program sebagai berikut:

Private Sub Form_Load()
    tbBilangan1.Text = "0"
    tbBilangan2.Text = "0"
    tbKPK.Text = "0"
End Sub


User harus memasukkan dua bilangan yang akan dicari KPK-nya pada textbox Bilangan 1 dan Bilangan 2, kemudian tekan tombol kerjakan yang mempunyai kode program sebagai berikut:

Private Sub cbKerjakan_Click()
    Dim bil1 As Integer, bil2 As Integer, hasil As Integer
    bil1 = CInt(tbBilangan1.Text)
    bil2 = CInt(tbBilangan2.Text)
    hasil = KPK(bil1, bil2)
    tbKPK.Text = hasil
End Sub



*Bahasa Program: Visual Basic 6
*Sistem operasi saat praktek: Windows XP

Program Kelipatan Persekutuan Terkecil Rating: 4.5 Diposkan Oleh: Good Dreamer

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.