Ceiling atau pembulatan di (VB6)

Adakalanya kita dihadapkan pada kasus di project kita untuk membulatkan angka pecahan, nah di VB6 kita dapat memanfaatkan fungsi Round, lihat contoh berikut ini :

Round(1.1) - hasilnya : 1
Round(1,5) - hasilnya : 2
Round(1,7) - hasilnya : 2

Lalu bagaimana jika kita ingin membulatkan selalu kebawah? gampang…., tinggal ambil nilai integernya.

Int(1.1) - hasilnya : 1
Int(1,5) - hasilnya : 1
Int(1,7) - hasilnya : 1

Yang agak sulit, bagaimana jika pembulatannya selalu keatas? , hmmm… saya sempat bingung dengan ini, tapi akhirnya ketemu juga caranya, berikut caranya :

Pertama buat fungsi berikut :

Function Ceiling(number As Double) As Long 
 Ceiling = -Int(-number) 
End Function 

trus cara penggunaannya :

x=Ceiling(1.1)
    -> hasilnya : x=2
x=Ceiling(1,5)
    -> hasilnya : x=2
x=Ceiling(1,7)
    -> hasilnya : x=2

begitu fungsi pembulatan dalam VB6, gimana.. mudah bukan??

Read more

Memilih Semua Text Ketika Mendapat Fokus di (VB6)

Ketika kita melakukan entry data adakalanya kita ingin agar ketika kontrol tersebut mendapat fokus text yang ada pada kontrol tersebut telah terpilih (selected). Dengan cara ini kita tidak perlu menghapus dahulu text yang telah ada. Kita bisa membuat fungsi untuk hal tersebut seperti berikut ini:

Code:
Public Sub SelectAll(Editctr As Control)
    With Editctr
        .SelStart = 0
        .SelLength = Len(Editctr.Text)
        .SetFocus
    End With
End Sub

Contoh Penggunaannya:
Ketikan pada event GotFocus pada input control:
    Call SelectAll(controlname)
      *contoh:SelectAll(Text1.text)

Read more