Membuat Program Penghitung Bilangan Jam dengan Visual Basic 6.0


disebut bilangan jam karena sifatnya berputar

contoh bilangan jam enaman

contoh soal:

pada jam enaman 11 + 8 = …

penyelesaian:

11 + 8 = 19

19 – 6 = 13 // angka enam disini karena jam enaman

13 – 6 = 7

7 – 6 = 1

prosesnya akan diulang (loop) sampai hasilnya lebih kecil atau sama dengan 6 dan lebih besar dari 0

jadi hasilnya jam 1

nah kali ini kita akan membuat program untuk menghitung bilangan jam dengan visual basic

conoh program dan source codenya bisa diunduh disini (meliputi jam limaan, jam enaman, jam delapanan, jam sembilanan, jam sepuluhan, dan jam dua belasan)

disini saya hanya akan membahas tentang fungsinya saja yang meliputi penambahan, pengurangan perkalian.. pembagian tidak ada karena pembagian tidak berlaku pada bilangan jam..

code:

‘=================================

Function tambah(a, b, c As Integer)
z = a + b
If z < c Then
Text3.Text = “jam : ” & z
Exit Function
Else
End If
Do
y = z – c
z = y
Loop Until y <= c
Text3.Text = “jam : ” & y
End Function
Function kurang(a, b, c As Integer)
If a < b Then z = b – a
If a >= b Then z = a – b
If z < c Then
Text3.Text = “jam : ” & z
Exit Function
Else
End If
Do
y = z – 6
z = y
Loop Until y <= c
Text3.Text = “jam : ” & y
End Function
Function kali(a, b, c As Integer)
z = a * b
If z < c Then
Text3.Text = “jam : ” & z
Exit Function
Else
End If
Do
y = z – c
z = y
Loop Until y <= c
Text3.Text = “jam : ” & y
End Function

‘==============================

seperti itulah kira-kira fungsinya..

berikut screenshot programnya..

kodenya saya buat sendiri lho..😀

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s