Membuat Fungsi Pembulatan Angka Di Visual Basic

Membuat Fungsi Pembulatan Angka Di Visual Basic

Berikut adalah contoh fungsi pembulatan dalam VB :

Function Bulatkan(nValue As Double, nDigits As Integer) As Double
    Bulatkan = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)
End Function

contoh penggunaan fungsi :

Dim hasil,angka As Double
angka = 19.56
hasil = Bulatkan ( angka, 0 )
Msgbox hasil

contoh di atas hasilnya adalah angka 20


keterangan :
- Fungsi tsb akan menampilkan jumlah digit di belakang koma sebanyak 'nDigits'
- Fungsi tsb akan membulatkan keatas jika di belakang koma adalah 0.5 keatas dan akan membulatkan ke bawah jika di belakang koma adalah 0.4 kebawah.
contoh : 0.4 = 0 dan 0.5 = 1

Semoga bermanfaat !

Membuat Fungsi Control Untuk membersihkan Textbox

Membuat Fungsi Control Untuk membersihkan Textbox

Biasanya saat pertama diload, form selalu dibersihkan untuk diisi dengan data yang baru, coding untuk pemula biasanya seperti dibawah ini :

Sub bersih_text()

        txNIP.Text = ""

        txNamaLengkap.Text = ""

        txTempatLahir.Text = ""

        txAlamat.Text = ""

        txNoTelp.Text = ""

        txKTP.Text = ""

        txJumlahAnak.Text = ""

        txFingerPrintID.Text = ""

        txJurusan.Text = ""

End Sub

Tidak ada yang salah dengan coding diatas jika textbox masih dalam hitungan jari, namun bagaimana jika suatu form memiliki lebih dari 30 textbox, bisa gempor…. !!!

Berikut adalah solusinya :

Gunakan public sub, sehingga kita hanya perlu membuat satu kali fungsi, dan bisa digunakan disemua form

Public Sub ClearTextBox(ByVal root As Control)

        For Each ctrl As Control In root.Controls

            ClearTextBox(ctrl)

            If TypeOf ctrl Is TextBox Then

                CType(ctrl, TextBox).Text = String.Empty

            End If

        Next ctrl

End Sub

Fungsi ini pun bisa kita gunakan untuk membuat enable, disable, dan yang lainnya, tergantung dari kreatifitas kita :

Public Sub DisableTextBox(ByVal root As Control)

        For Each ctrl As Control In root.Controls

            DisableTextBox(ctrl)

            If TypeOf ctrl Is TextBox Then

                CType(ctrl, TextBox).Enabled = False

            End If

        Next ctrl

End Sub

Public Sub EnableTextBox(ByVal root As Control)

        For Each ctrl As Control In root.Controls

            EnableTextBox(ctrl)

            If TypeOf ctrl Is TextBox Then

                CType(ctrl, TextBox).Enabled = True

            End If

        Next ctrl

End Sub

Semoga Tips ini bisa bermanfaat.