Belajar VB.Net (Aplikasi Pecahan Uang)

BELAJAR VB.NET

(Membuat aplikasi Pecahan uang)

Hai... hai.... kali ini saya akan share tentang bahasa pemrograman Visual Basic.Net atu sering disingkat dengan VB.Net, padahal posting-posting sebelumnya tentang java dan Netbeans... hehe gak apa-apalah namanya juga belajar... ok yuk langsung aja kita mulai...

Pertama dan yang paling utama adalah instal aplikasinya... saya disini menggunakan Visual Studio 2008, sok di cari ke mbah google...

Setelah selesai menginstal, kita buka vb.net... klik kanan open bisa juga dengan doubble klik

Selanjutnya kita membuat projectnya...

Pilih File >> New >> Project

Tulis nama project pada name... pilih lokasi penyimpanannya, pilih Windows Form Application kemudian OK

Setelah muncul Formnya kalian design seperti gambar di bawah ini

Buat dengan 14 Label, 13 TextBox dan 1 Button

Dengan nama :

TextBox1 = txtuang

TextBox2 = txt100rb

TextBox3 = txt50rb

TextBox4 = txt20rb

TextBox5 = txt10rb

TextBox6 = txt5rb

TextBox7 = txt2rb

TextBox8 = txt1rb

TextBox9 = txt5rts

TextBox10 = txt2rts

TextBox11 = txt1rts

TextBox12 = txt50

TextBox13 = txt25

Button1 = hitung

 Setelah selesai mendesign form... kita buat listingnya pada even Button klick, bisa jg dengan doubble klik pada Button....

Listing Button Klick

    Private Sub Bhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhitung.Click

        Dim jmluang As Integer

        Dim sisauang As Integer

        Dim jml100rb As Double

        Dim sisa100rb As Integer

        Dim jml50rb As Double

        Dim sisa50rb As Integer

        Dim jml20rb As Double

        Dim sisa20rb As Integer

        Dim jml10rb As Double

        Dim sisa10rb As Integer

        Dim jml5rb As Double

        Dim sisa5rb As Integer

        Dim jml2rb As Double

        Dim sisa2rb As Integer

        Dim jml1rb As Double

        Dim sisa1rb As Integer

        Dim jml500 As Double

        Dim sisa500 As Integer

        Dim jml200 As Double

        Dim sisa200 As Integer

        Dim jml100 As Double

        Dim sisa100 As Integer

        Dim jml50 As Double

        Dim sisa50 As Integer

        Dim jml25 As Double

        jmluang = txtuang.Text

        sisauang = jmluang Mod 25

        If sisauang > 0 Then

            MsgBox("Jumlah uang salah")

        Else

            jml100rb = jmluang / 100000

            txt100rb.Text = Math.Floor(jml100rb)

            sisa100rb = jmluang - (100000 * Int(jml100rb))

            jml50rb = sisa100rb / 50000

            txt50rb.Text = Math.Floor(jml50rb)

            sisa50rb = sisa100rb - (50000 * Int(jml50rb))

            jml20rb = sisa50rb / 20000

            txt20rb.Text = Math.Floor(jml20rb)

            sisa20rb = sisa50rb - (20000 * Int(jml20rb))

            jml10rb = sisa20rb / 10000

            txt10rb.Text = Math.Floor(jml10rb)

            sisa10rb = sisa20rb - (10000 * Int(jml10rb))

            jml5rb = sisa10rb / 5000

            txt5rb.Text = Math.Floor(jml5rb)

            sisa5rb = sisa10rb - (5000 * Int(jml5rb))

            jml2rb = sisa5rb / 2000

            txt2rb.Text = Math.Floor(jml2rb)

            sisa2rb = sisa5rb - (2000 * Int(jml2rb))

            jml1rb = sisa2rb / 1000

            txt1rb.Text = Math.Floor(jml1rb)

            sisa1rb = sisa2rb - (1000 * Int(jml1rb))

            jml500 = sisa1rb / 500

            txt5rts.Text = Math.Floor(jml500)

            sisa500 = sisa1rb - (500 * Int(jml500))

            jml200 = sisa500 / 200

            txt2rts.Text = Math.Floor(jml200)

            sisa200 = sisa500 - (200 * Int(jml200))

            jml100 = sisa200 / 100

            txt1rts.Text = Math.Floor(jml100)

            sisa100 = sisa200 - (100 * Int(jml100))

            jml50 = sisa100 / 50

            txt50.Text = Math.Floor(jml50)

            sisa50 = sisa100 - (50 * Int(jml50))

            jml25 = sisa50 / 25

            txt25.Text = Math.Floor(jml25)

        End If

    End Sub

Setelah selesai Runing dh....

Semoga Bermanfaat ya para Sobat NewGen....

Download file .exe bisa disini tapi jangan lupa harus instal Frameworknya ya...