Membuat Program Pecahan Uag dengan VB

Nah bagi temen-temen yang suka ngatik-ngtik prograk, ni saya bikin program pecahan uang ...semoga bermanfaat ! (Sebenernya cuman memanfaatkan tugas kuliah aja.. heee :P)

Objek	Properties	Value
Form1	Caption	Program Pecahan Uang
Texbox1	Text Name	<kosong> uang
Texbox2	Text Name	<kosong> seratusribu
Texbox3	Text Name	<kosong> limapuluhribu
Texbox4	Text Name	<kosong> duapuluhribu
Texbox5	Text Name	<kosong> sepuluhribu
Texbox6	Text Name	<kosong> limaribu
Texbox7	Text Name	<kosong> duaribu
Texbox8	Text Name	<kosong> seribu
Texbox9	Text Name	<kosong> limaratus
Texbox10	Text Name	<kosong> duaratus
Texbox11	Text Name	<kosong> seratus
Texbox12	Text Name	<kosong> limapuluh
Texbox13	Text Name	<kosong> Sisa
Label1	Caption	Jumlah Uang
Label2	Caption	Ratusan ribu
Label3	Caption	Limapuluh ribuan
Label4	Caption	Duapuluh ribuan
Label5	Caption	Sepuluh ribuan
Label6	Caption	Lima ribuan
Label7	Caption	Duaribuan
Label8	Caption	Seribuan
Label9	Caption	Lima ratusan
Label10	Caption	Dua ratusan
Label11	Caption	Seratusan
Label12	Caption	Lima puluhan
Label13	Caption	Sisa
Label14	Caption	Nama Anggota
Chackbox1	Caption	Ginanjar Abdul Wahab (10110610)
Chackbox2	Caption	Pramudiya (10110626)
Command1	Caption	Proses
Command2	Caption	Reset
Command3	Caption	Keluar

Masukan coding di bawah ini di command1 Private Sub Command1_Click() Pecahan (uang.Text) End Sub	Masukan coding di bawah ini di command3 Private Sub Command3_Click() End End Sub
Masukan coding di bawah ini di command2 Private Sub Command2_Click() uang.Text = "" seratusribu.Text = "0" limapuluhribu.Text = "0" duapuluhribu.Text = "0" sepuluhribu.Text = "0" limaribu.Text = "0" duaribu.Text = "0" seribu.Text = "0" limaratus.Text = "0" duaratus.Text = "0" seratus.Text = "0" limapuluh.Text = "0" sisa.Text = "0" End Sub
Masukan coding di bawah ini di form1
Function Pecahan(ByVal uang As Long) As Integer  Dim Angka As Long Angka = uang Dim NominalUang(0 To 11) As Integer If Angka >= 10000 Then NominalUang(0) = Angka \ 100000 Angka = Angka Mod 100000 End If If Angka >= 50000 Then NominalUang(1) = Angka \ 50000 Angka = Angka Mod 50000 End If If Angka >= 20000 Then NominalUang(2) = Angka \ 20000 Angka = Angka Mod 20000 End If If Angka >= 10000 Then NominalUang(3) = Angka \ 10000 Angka = Angka Mod 10000 End If If Angka >= 5000 Then  NominalUang(4) = Angka \ 5000 Angka = Angka Mod 5000 End If If Angka >= 2000 Then  NominalUang(5) = Angka \ 2000 Angka = Angka Mod 2000 End If If Angka >= 1000 Then  NominalUang(6) = Angka \ 1000 Angka = Angka Mod 1000 End If	If Angka >= 500 Then   NominalUang(7) = Angka \ 500 Angka = Angka Mod 500 End If If Angka >= 200 Then  NominalUang(8) = Angka \ 200 Angka = Angka Mod 200 End If If Angka >= 100 Then  NominalUang(9) = Angka \ 100 Angka = Angka Mod 100 End If If Angka >= 50 Then   NominalUang(10) = Angka \ 50 Angka = Angka Mod 50 End If seratusribu.Text = NominalUang(0) limapuluhribu.Text = NominalUang(1) duapuluhribu.Text = NominalUang(2) sepuluhribu.Text = NominalUang(3) limaribu.Text = NominalUang(4) duaribu.Text = NominalUang(5) seribu.Text = NominalUang(6) limaratus.Text = NominalUang(7) duaratus.Text = NominalUang(8) seratus.Text = NominalUang(9) limapuluh.Text = NominalUang(10) sisa.Text = Angka End Function

a.       Tampilan Awal

                                                  

b.      Tampilan setelah di jalankan :