Coding Pembulatan Angka VB 6

Pada tutorial kali ini, saya mau berbagi sebuah coding yang digunakan untuk melakukan fungsi pembulatan angka ke ratusan, logikanya adalah jika angka < 50 maka pembulatan kebawah sedangkan jika angka >= 50 maka pembulatan keatas.

Persiapan:

1. Buat 1 Project baru dengan 1 Form dan 2 TextBox

2. Text1 untuk input dengan angka, Text2 menampilkan hasil pembulatan.

3. Copy-kan coding berikut ke dalam form

'----------------------------------------------------------------------------

Function PembulatanRatusan(tex As Integer) As Integer

'On Error Resume Next

    Dim Angka As String

    Dim pembulatan As String

   

    Angka = Str(tex)

    pembulatan = Right(Angka, 2)

   

    If Val(pembulatan) >= 50 Then

        tex1 = tex - Val(pembulatan)

        tex1 = tex1 + 100

    ElseIf Val(pembulatan) < 50 Then

        tex1 = tex - Val(pembulatan)

        tex1 = tex1 - 50

    End If

   

    PembulatanRatusan = tex1

   

End Function

Private Sub Text1_Change()

If Text1.Text = "" Then

Else

pembulatan = Right(Text1.Text, 2)

        Text2.Text = Val(Text1.Text - Val(pembulatan))

        If Val(Right(Text1.Text, 2)) >= 50 Then

            Text2.Text = Val(Text2.Text) + 100

        End If

   

        KeyAscii = 0

End If

End Sub

'----------------------------------------------------------------------------

Klik gambar untuk memperbesar

Sekarang coba jalankan program, Selamat Mencoba.

Untuk memudahkan proses belajar Anda, Ane sudah siapkan file tersebut.

Silahkan download DISINI