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

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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.



Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Hitung Pecahan Uang dengan operator 'mod' dan '\' pada visual basic 6.0, Diterbitkan oleh scodeaplikasi pada Senin, 05 November 2012. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.