Membulatkan Angka Decimal

Oke langsung aja kali ini saya akan membahas sedikit tentang cara membulatkan suatu bilangan decimal, dalam sebuah perhitungan tidak selamanya hasil akhirnya bilangan bulat kan..

maka dari itu jika anda terganggu dengan angka decimal pada hasil akhir perhitungan saya akan memberikan anda source code untuk pembulatan bilangan ini..berikut source code nya :

Persiapan :
1. 2 buah textbox
2. 2 buah label
3. 1 buah commandbutton



4. buat sebuah function di coding seperti di bawah ini

Function BulatkanKeatas(angka As Single) As Double
Dim hasil As Double
hasil = angka
If (hasil < angka) Then
hasil = hasil + 1
End If
BulatkanKeatas = hasil
End Function

5. buat pemanggilan coding bilangan bulat pada commandbutton1 seperti dibawah:

Private Sub Command1_Click()
Text2.Text = BulatkanKeatas(Text1.Text)
End Sub

untuk mendapatkan source code lengkapnya silahkan download

Password : anascode

Posted in: source code vb