10 July 2014

VB6: Fungsi Konversi Tipe Data

Visual Basic menyediakan beberapa fungsi untuk mengubah tipe data. Tabel berikut adalah fungsi-fungsi tersebut:

Conversion ToFunction
BooleanCbool
ByteCbyte
CurrencyCcur
DateCdate
DecimalsCdec
DoubleCDbl
IntegerCint
LongCLng
SingleCSng
StringCStr
VariantCvar
ErrorCVErr

Dalam beberapa kasus tipe data dapat terkonversi secara otomatis (implicit).
Sebagai contoh memberikan nilai numerik pada variable string.
Contoh:
Dim intNomor as Integer
Dim strMsg as String
intNomor = 2253
strMsg = intNomor
Print strMsg

Tetapi dalam kasus lainnya kita harus secara eksplisit menggunakan fungsi konversi.

CStr
Fungsi Cstr mengubah suatu nilai ke tipe data string. Salah satu penggunaanya adalah saat kita ingin memasukan nilai numerik menjadi nilai dari sebuah textbox.
Contoh:
Dim dblNilai As Double
Text1.Text = CStr(dblNilai)

Str
Fungsi Str juga mengkonversi nilai ke tipe data string, samahalnya dengan CStr.
Contoh:
Dim str1 As String
Dim int1 As Integer
str1 = Str(int1)

Saat membuat program biasanya kita berkali-kali mempresentasikan nilai numerik dalam string.

CDbl
Fungsi CDbl mengubah nilai ke tipe data Double. Juga membuat nilai numerik dari string dengan karakter numerik. It also extracts the numeric value from a string.
Contoh 1: Jika kita tidak menggunakan fungsi CDbl, program akan menghasilkan error overflow.
Dim m As Integer, v As Double
m = 30887
v = CDbl(m) * 31880
Print v

Contoh 2:
Dim dblValue As Double
dblValue = CDbl(Text1.Text)
Print dblValue + 1

Contoh 3:
Dim dblValue As Double
dblValue = CDbl("55")
Print dblValue + 1

Val
Terkadang kita dapat menggunakan fungsi Val function selain fungsi CDbl.  Fungsi Val hanya mengubah nilai numerik yang ada dalam string menjadi Double. Tetapi tidak dapat mengubah dari nilai bertipe data numerik.
Contoh:
Dim l As Double
l = Val(Text1.Text)

CInt
Fungsi CInt function mengubah nilai numerik ke integer.
Contoh:
Dim m As Integer
m = CInt(856.878)  'menghasilkan 857 setelah pembulatan.
m = CInt(-4.7)     'menghasilkan -5 setelah pembulatan.

Nilai yang ingin diubah harus dalam range tipe data integer.
856.878 and -5.7 masih dalam range tipe data integer.

CLng
Fungsi CLng mengubah ke tipe Long.
Contoh:
Dim lng As Long
lng = CLng(1156593647.87656) 'membulatkan nilai ke atas
Debug.Print ln

CBool
Fungsi CBool mengubah nilai menjadi tipe data Boolean, menjadi True atau False.
Nilai 0 berubah jadi False, sedangkan semua nomor lainnya menjadi True. Sementara untuk strings “True” menjadi True dan “False” menjadi False.
Contoh:
Dim blnX as Boolean
blnX = cbool(0)       'menghasilkan False
blnX = cbool(1)       'menghasilkan true
blnX = cbool(345)     'menghasilkan True

Untuk fungsi CByte, CSng, CVar,CCur,CDate dan CDecimal, kita dapat menggunakannya dijelaskan pada contoh-contoh diatas.

Click here if you like this article.


2 comments:

asakura hao said...

Terimakasih banget, sangat ngebantu.

joe sath said...

makasih buk ,, :)