Cara Pembulatan Angka di Belakang Koma dengan VB6

Terkadang dalam menggunakan aplikasi perhitungan kita sering menemukan sebuah perhitungan yang hasilnya berupa angka pecahan atau desimal salah satunya adalah aplikasi Biling, perhitungan lembur yang berpatokan pada menit dan lain sebagainya.

Dalam kasus diatas kali ini saya akan membuat sebuah kode untuk memecahkan masalah tersebut dengan visual basic 6.0 pada sebuah aplikasi yang kita buat

Sebagai contoh kasus diatas adalah pembulatan angka 76,7878 dengan pembulatan 2 angka dibelakang koma maka hasilnya menjadi 76,79 jika pembulatan 0 dibelakang koma maka hasilnya 77 jika dibelakang koma 1 maka hasilnya 76,8.

Untuk lebih jelasnya perhatikan gambar dibawah ini :

Otput

Berikut adalah langkah-langkah membuat pembulatan angka di belakang koma dengan vb6 :

1. Pada Form1 tambahkan 2 Textbox, 1 Commandbutton dan 3 Label

2. Desainlah Form seperti gambar dibawah ini:

Desain Form

Setelah mendesain form seperti diatas ketiklah kode dibawah ini :

'fungsi pembulatan

Function Round(nValue As Double, nDigits As Integer) As Double

Round = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)

End Function

Private Sub Command1_Click()

'jika Textbox1 dikosongkan

If Text1.Text = "" Then

MsgBox "Masukan bilangan pecahan/desimal", vbInformation, "Informasi"

Else

'jika Textbox2 dikosongkan akan dianggap 0

If Text2.Text = "" Then

Text2.Text = 0

End If

'hasil pembulatan

MsgBox Round(Text1.Text, Text2.Text), vbInformation, "hasil pembulatan"

End If

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = 0

End Sub

Setelah itu jalankan Project Anda dan sekarang coba masukan angka desimal yang anda inginkan pada texbox dan masukan jumlah pembulatannya.

Demikianlah artikel kali ini tentang Cara Membuat Form Untuk Pembulatan Angka di Belakang Koma dengan VB6.

Semoga artikel ini bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil.