Pecahan Uang (Visual Basic)

2:52 AM |

Jika anda ingin membuat program "Pecahan Uang". Disini ada langkah-langkah pembuatan program tersebut:

1. Pilih New,Project pada menu File.

2 .Ketik nama program sesuai dengan yang diinginkan di Name, lalu klik OK.

3.Pilih komponen Label, lalu tarik ke form1(design).

4. Selanjutnya Copy Label1 dan Paste Labelnya sesuai dengan jumlah yang diperlukan, lalu ganti namanya sesuai gambar dibawah ini.

5. Pilih komponen Textbox, lalu tarik ke form1(design).

6. Selanjutnya Copy Textbox1 dan Paste Textboxnya sesuai dengan jumlah yang diperlukan.

7. Pilih komponen Button, lalu tarik ke form1(design).

8. Selanjutnya Copy Button1 dan Paste Buttonnya sesuai dengan jumlah yang diperlukan, lalu ganti namanya sesuai gambar dibawah ini.

9. Double click Button Mulai.

10. Masukkan Coding pada Button1 seperti gambar dibawah ini.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
End Sub

11. Double click Button Selesai.

12. Masukkan Coding pada Button3 seperti gambar dibawah ini.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

End sub

13. Double click pada form1(Design).

14. Masukkan Coding pada Form1.Load seperti gambar dibawah ini.

Function Pecahan(ByVal textbox1 As Long) As Integer

Dim Angka As Long
Angka = textbox1
Dim NominalUang(0 To 5) As Integer

If Angka >= 10000 Then
NominalUang(0) = Angka \ 10000
Angka = Angka Mod 10000
End If
If Angka >= 5000 Then
NominalUang(1) = Angka \ 5000
Angka = Angka Mod 5000
End If
If Angka >= 1000 Then
NominalUang(2) = Angka \ 1000
Angka = Angka Mod 1000
End If
If Angka >= 500 Then
NominalUang(3) = Angka \ 500
Angka = Angka Mod 500
End If
If Angka >= 100 Then
NominalUang(4) = Angka \ 100
Angka = Angka Mod 100
End If
If Angka >= 50 Then
NominalUang(5) = Angka \ 50
Angka = Angka Mod 50
End If

TextBox2.Text = NominalUang(0)
TextBox3.Text = NominalUang(1)
TextBox4.Text = NominalUang(2)
TextBox5.Text = NominalUang(3)
TextBox6.Text = NominalUang(4)
TextBox7.Text = NominalUang(5)

TextBox8.Text = Angka

End Function

15. Double Click Button Proses.

16. Masukkan Coding pada Button2 seperti gambar dibawah ini.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Pecahan(textbox1.text)

End sub