Mengenal Fungsi-Fungsi Bawaan VB

Dalam Visual Basic, fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

Fungsi-Fungsi Numerik
Dengan menggunakan fungsi-fungsi bawaan yang disediakan, waktu pembuatan sebuah program dapat disingkat. Fungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe data numerik.  Fungsi-fungsi ini dapat dikelompokkan sebagai berikut :
A. Fungsi-Fungsi Konversi ke Integer
Ada tiga macam fungsi yang melakukan konversi ke tipe data integer  yaitu seperti terlihat pada tabel 7.1 

Fungsi – Fungsi Konversi Tipe Data

Tabel 7.2 Fungsi-Fungsi Konversi ke Tipe Data

Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7).

lblNilai = CSng(1/7) ‘ditampilkan 0.1428571

lblNilai = CDbl(1/7) ‘ditampilkan 0.142857142857143

Contoh yang lain, ketika Anda akan menghitung 2/0.5 :

'Contoh 1:

MsgBox 2 / CInt(0.5) '<-- error Division by zero

'Contoh 2:

MsgBox 2 / Val(0.5) '<-- error Division by zero

'Contoh 3:

MsgBox 2 / CDbl(0.5)  '<-- benar menghasilkan 4

Mengapa contoh 1 dan 2 menghasilkan error Divison by zero? Karena bilangan pecahan di kedua contoh tersebut dikonversi ke bilangan bulat, sehingga nilai 0.5 (nol koma lima) dianggap sebagai angka nol saja. Semua angka yang dibagi dengan nol maka akan menghasilkan error . Jadi, solusinya gunakan cara pada contoh 3

Fungsi – Fungsi Matematika 

Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada tabel 7.3.

Fungsi – Fungsi String

Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti pada tabel 7.4.

Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :
a.Left(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .
b.Right(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .
c.Mid(StringVal, startVal, length)
Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter .
 

Contoh :

Hurufkecil = LCase("Dwi Apri")   'HurufKecil = "dwi apri"

hurufbesar = UCase("Setyorini")  'HurufBesar = "SETYORINI"

Title = "STMIK Duta Bangsa"

lTitle = Left(Title, 3)          'lTitle = "STM"

rTitle = Right(Title, 5)         'RTitle = "angsa"

mTitle = Mid(Title, 3, 8)        'MTitle = "MIK Duta"

  Panjang = Len(Title)             'length = 17

Fungsi – Fungsi Tanggal dan Waktu
Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem, Visual Basic menyediakan fungsi – fungsi Now(), Date(), dan Time(). Lihat tabel 7.5.

Tabel 7.5 Fungsi-fungsi Tanggal dan Waktu

Untuk mencari selisih dari dua buah tanggal tidaklah sulit, karena dalam visual basic telah disediakan fasilitas untuk melakukan hal tersebut dengan menggunakan fungsi "DateDiff ", yaitu sebuah fungsi yang digunakan untuk mendapatkan selisih dari dua buah tanggal. Dari fungsi DafeDiff kita bisa mendapatkan selisih hari, bulan dan tahun dari dua buah tanggal.
Cara penggunaan dari fungsi ini adalah sbb:
 

Dim hari, bulan, tahun
'Untuk mencari selisih hari

 hari=DateTime.DateDiff("d",CDate(Text1.Text),CDate(Text2.Text))
'Untuk mencari selisih bulan
  bulan = DateTime.DateDiff("m",CDate(Text1.Text),CDate(Text2.Text))
'Untuk mencari selisih tahun

 tahun = DateTime.DateDiff("yyyy",CDate(Text1.Text),CDate(Text2.Text))
  

Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu. 

Format(Ekpresi[,format[,firstdayofweek[, firstweekofyear]]])

Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan.

 

Contoh Program 

Membuat Marquee untuk Form Caption, dimana caption dari form yang kita gunakan akan berjalan dari kanan kekiri secara terus menerus. Kontrol yang digunakan adalah satu buah kontrol timer yang intervalnya kita set menjadi 100 atau bisa kita ganti sesuai keinginan kita.
Ketikkan kode program seperti berikut :

Private Sub Form_Load()
Form1.Caption = " [ Belajar VB 6.0 ] "
End Sub

Private Sub Timer1_Timer()
a = Left(Form1.Caption, 1)
b = Len(Form1.Caption)
c = Right(Form1.Caption, b - 1)
Form1.Caption = c + a
End Sub

 

Menghitung Luas Segitiga, jika diketahui panjang dua sisi segitiga dan besar sudut yang diapit oleh segitiga tersebut. Untuk menyelesaikan masalah tersebut dapat digunakan fungsi berikut : L = ½ .a.b Sin r

Catatan: sudut r yang Anda masukkan dalam ukuran derajat, untuk itu perlu dirubah terlebih dahulu sebelum dimasukkan dalam fungsi sin yang disediakan oleh VB. (Rad = Phi/180)
Rancang formnya seperti berikut ini :
 

Ketik kode programnya sebagai berikut :
 

Private Sub cmdUsia_Click()

A = Val(txtA.Text)

B = Val(txtB.Text)

R = Val(txtR.Text)

hasil = 0.5 * A * B * Sin(R * (3.14 / 180))

txtLuas.Text = Round(hasil, 2)

End Sub

Soal Latihan :

 1.      Buatlah program yang dapat menampilkan hari dan tanggal saat ini :

Contoh Formnya :

2.      Buat program untuk menghitung usia seseorang. Ketika program dijalankan muncul inputbox dan user diminta untuk memasukkan tanggal lahir. Tampilannya seperti berikut:

Setelah user memasukkan tanggal lahir, dan mengklik tombol OK, muncul messagebox  yang menampilkan usia Anda. Tampilannya seperti berikut :

Sekian Semoga Mengenal Fungsi-Fungsi Bawaan VB dapat bermanfaat dan terima kasih.

Tweet