Hitung Pecahan Uang dengan operator 'mod' dan '\' pada visual basic 6.0

Baca Juga

Hwaaa.. akhirnya bisa posting lagi, mohon maaf untuk comment-comment yang belum bisa saya tanggapi untuk saat ini.

Langsung saja posting saya kali ini berkenaan dengan penggunaan operator Mod (Sisa Pembagian) dan \ (Pembagian Integer)

Kedua operator tersebut akan saya padukan untuk menghitung pecahan-pecahan uang dari nominal tertentu, misalnya uang sebesar Rp. 152.500, - itu terdiri dari pecahan :
1.  Rp. 100.000,- sebanyak 1 buah
2.  Rp. 50.000,-   sebanyak 1 buah
3.  Rp. 2.000,-     sebanyak 1 buah
4.  Rp. 500,-        sebanyak 1 buah

sepertitulah kira-kira.

codingnya kurang lebih seperti ini :

Dim sisamod As Currency

Private Sub Command1_Click()

sisamod = Val(Text1.Text)
Text12.Text = -1



Do Until Val(Text12.Text) + 1 > 0
    If sisamod >= 100000 Then
        Text2.Text = sisamod \ 100000
        sisamod = sisamod Mod 100000
    ElseIf sisamod >= 50000 Then
        Text3.Text = sisamod \ 50000
        sisamod = sisamod Mod 50000
    ElseIf sisamod >= 20000 Then
        Text4.Text = sisamod \ 20000
        sisamod = sisamod Mod 20000
     ElseIf sisamod >= 10000 Then
        Text5.Text = sisamod \ 10000
        sisamod = sisamod Mod 10000
     ElseIf sisamod >= 5000 Then
        Text6.Text = sisamod \ 5000
        sisamod = sisamod Mod 5000
     ElseIf sisamod >= 2000 Then
        Text7.Text = sisamod \ 2000
        sisamod = sisamod Mod 2000
     ElseIf sisamod >= 1000 Then
        Text8.Text = sisamod \ 1000
        sisamod = sisamod Mod 1000
     ElseIf sisamod >= 500 Then
        Text9.Text = sisamod \ 500
        sisamod = sisamod Mod 500
     ElseIf sisamod >= 200 Then
        Text10.Text = sisamod \ 200
        sisamod = sisamod Mod 200
     ElseIf sisamod >= 100 Then
        Text11.Text = sisamod \ 100
        sisamod = sisamod Mod 100
      
    Else
        Text12.Text = sisamod 'sisa pecahan
    End If
Loop

End Sub

Sebelumnya tambahkan 1 buah command button dan 12 buah text box ke dalam sebuah form kemudian copas code diatas.  

Screenshot

Demikian, walaupun cuma asal yang penting posting, hehehe ... semoga bermanfaat.