MEMBULATKAN ANGKA DI VISUAL BASIC

Udah seminggu lewat perasaan kagak posting, soalnya minggu kemaren saya konsentrasi penuh untuk menghadapi sesuatu yang menurut saya menentukan hidup saya hehe.. [lebayyy mode: on], tapi liburan minggu kemaren sempat ngotak ngatik VB mempelajari project lama dan menghasilkan sebuah algoritma baru dalam membulatkan angka di Visual Basic, yupi.. masih VB sebenarnya pengen ke office ato ke photoshop tapi besokk besok dulu deh, VB masih membakar semangat untuk posting :D

Posting kali ini membahas bagaimana cara kita membulatkan sebuah angka, kasus ini biasanya akan kita temukan ketika dalam proses pembagian angsuran pada project yang berkaitan dengan kredit, atau juga pada transaksi yang ada diskonnya, pokoknya yang ada bagi-bagiannya deh.. soalnya ngga mungkin juga konsumen membayar misalnya dengan Rp. 23.075,- kalo zamannya saya masih bayi iya kali.

Langsung aja buka VBnya pilih standard exe, lalu tempatkan 2 buah textbox dan 2 buah commandbutton lihat contoh pada gambar:

Lalu ketikan sintak berikut ini, kalo males sih copy paste aja :P

Private Sub Command1_Click()

Dim ujung As Currency

Dim bulat As Currency

Dim isinya As Currency

ujung = Right$(Text1.Text, 2)

If (ujung > 0) And (ujung < 99) Then

bulat = 100 - ujung

isinya = Format(bulat, "#,#") + CDbl(Text1.Text)

Text2.Text = Format(isinya, "#,#")

Else

Text2.Text = Text1.Text

End If

End Sub

Private Sub Command2_Click()

Dim ujung As Currency

Dim bulat As Currency

Dim isinya As Currency

ujung = Right$(Text1.Text, 3)

If (ujung > 0) And (ujung < 999) Then

bulat = 1000 - ujung

isinya = Format(bulat, "#,#") + CDbl(Text1.Text)

Text2.Text = Format(isinya, "#,#")

Else

Text2.Text = Text1.Text

End If

End Sub

Private Sub Form_Load()

Text1.Text = Format(Text1.Text, "#,#")

End Sub

Private Sub Text1_Change()

Text1.Text = Format(Text1.Text, "#,#")

SendKeys "{end}"

End Sub

 Setelah cape-cape copas [copy-paste] jangan lupa untuk mencoba me.RUN projectnya, lihat hasilnya:

Pada contoh di atas saya memberikan 2 contoh untuk membulatkan ke 100 dan ke 1000, pembaca bisa memodifikasi source ini sesuai dengan keperluan pada project, contohnya diganti 500.- atau bilangan lainnya. Selesai sudah tutorial kali ini, selamat mencoba dan mengembangkan project ini. yang males males nyoba langsung aja projectnya di load disini