Headlines News :
Home » » MACAM - MACAM FUNCTION BAWAAN DARI VISUAL BASIC

MACAM - MACAM FUNCTION BAWAAN DARI VISUAL BASIC

Written By ganessa on Sabtu, 05 Januari 2013 | 22.14

Pengertian Function Bawaan

Function 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.
Untuk mendeklarasikan atau syntax penulisan dari function procedure adalah sebagai berikut :
Private/Publik function nmfu (byref/byval/optional/paramarray nmparam as type)type data
..........(berisi baris perintah).........
End Function


Cara pemanggilan sebuah fungsi dapat dilakukan melalui beberapa cara, yaitu;
  • Variabel  (nama Function Procedure)
  • Call NamaFunctionProcedure (Parameter)
  • NamaFunctionProcedure (Parameter)
Macam-macam fungsi bawaan
Dalam VB juga terdapat fungsi-fungsi bawaan yang bisa digunakan secara langsung. Ada sejumlah fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu Textbox menjadi tipe data Numeric agar dapat digunakan untuk operasi perhitungan.
 
Fungsi yang berkaitan dengan matematika diantaranya:
Fungsi untuk mengkonversi ke integer
Ada tiga macam fungsi yang melakukan konversi ke tipe integer,antara lain
  • Int()            Yaitu pembulatan kebawah suatu nilai decimal
  • Fix()           Yaitu pemotongan suatu nilai desimal menjadi integer
  • Cint()          Yaitu pembulatan nilai desimal 0.5 atau lebih ke integer yang lebih dekat
contoh pendeklarasian pada Int
Dim bil As Double
        bil = Int(Val(TextBox1.Text))
        TextBox2.Text = bil
contoh diatas berlaku juga untuk Fix dan Cint
Fungsi String
  •     Left                mengambil karakter dari sebelah kiri
  •     Right              mengambil karakter dari sebelah kanan
  •     Mid               mengambil karakter dari tengah
  •     LTrim             membuang semua semua awal spasi yang ada disebelah kiri
  •     RTrim             membuang semua semua awal spasi yang ada disebelah kanan
  •     Trim               membuang semua spasi yang ada disebelah kiri dan kanan
  •     Len                memberikan nilai balik integer sebagai panjang string
  •     LCase            mengubah string menjadi huruf kecil semua
  •     UCase            mengubah string menjadi huruf besar semua
  •     Str (int)           mengubah bilangan menjadi string (konversi)
  •     Chr (Asscii)    konversi dari nilai ascii menghasilkan karakter

Fungsi-fungsi matematika
  • Abs()        Mengembalikan nilai Absolut dari argumen
  • Atn()         Mengembalikan nilai arc tangen dari argumen dalam bentuk radian
  • Cos()         Mengembalikan nilai cosinus dari argumen dalam radian
  • Exp()         Mengembalikan nilai Eksponensial dari argumen
  • Log()         Mengembalikan nilai logaritma dari argumen
  • Sin()           Mengembalikan nilai sinus dari argumen dalam radian
  • Sqr()          Mengembalikan nilai akar dari argumen
  • Tan()          Mengembalikan nilai tangen dari argumen dalam radian
Fungsi Tanggal dan Waktu
  • Date()                             : mengambil tanggal system komputer
  • IsDate                             : memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal
  • DateValue                       : konversi string menjadi date
  • Time()                             :  mengambil waktu dari system komputer
  • TimeValue(str)                 : konversi string ke variable date 
  • D(Date),M(Date),Y(Date): memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun
  • H(Date),M(Date),S(Date): memberikan nilai integher dari variable date untuk jm, menit dan deik
  Itu beberapa penjelasan dari  macam-macam function bawaan yang terdapat dalam VB yang sering kita gunakan.






Function dengan Return Value Berupa Array

Dibawah ini merupakan contoh program praktikum dengan penggunaan fungtion return value beberapa array

Tampilan awal program yang telah di beri beberapa atribut atau toolbarnya

 Tampilan proses program

 

Untuk Kode Programnya Sebagai Berikut:

Public Class Form1
    Private Function fstat(ByVal ParamArray args() As Object) As Single()
        Dim hasil(3) As Single
        Dim i As Integer
        For i = 0 To UBound(args)
            hasil(0) = hasil(0) + args(i)
            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
                hasil(3) = args(i)
            End If
            If hasil(1) < args(i) Then hasil(1) = args(i)
            If hasil(2) > args(i) Then hasil(2) = args(i)
            hasil(3) = hasil(0) / 10
        Next i
        Return hasil
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single() = fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
        TextBox4.Text = statistik(3)
    End Sub
End Class
 

Penjelasan Kode Program Sebagai Berikut:
Private Function fstat(ByVal ParamArray args() As Object) As Single()
Berfungsi untuk deklarasi fungsi yang diberikan nama fstat yang memiliki tipe Single(), yang memiliki parameter berupa Array yang bernama args() dengan tipe Object.
Dim hasil(3) As Single
        Dim i As Integer 
Pendeklarasian variabel yang bernama hasil() dan bertipe single yang memiliki kapasitas 3, dan variabel i yang bertipe integer.
For i = 0 To UBound(args)
            hasil(0) = hasil(0) + args(i)
            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
                hasil(3) = args(i)
            End If
            If hasil(1) < args(i) Then hasil(1) = args(i)
            If hasil(2) > args(i) Then hasil(2) = args(i)
            hasil(3) = hasil(0) / 10
        Next i
Proses perulangan akan dilakukan sebanyak jumlah perintah index dalam parameter array. Hasil(0) akan menghasilkan jumlah dari semua angka.
  • Hasil (1) akan menghasilkan nilai terbesar dalam array.  
  • Hasil (2) akan menghasilkan nilai terkecil dalam array.
  • Dan Hasil (3) akan menghasilkan nilai Rata-rata dalam array.

Return hasil
Perintah yang akan mengembalikan nilai hasil ke dalam fungsi sehingga ketika fungsi dipanggil harus menggunakan variabel yang bertipe array.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim statistik As Single() = fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
        TextBox4.Text = statistik(3)
    End Sub
End Class

Merupakan sebuah proses pemanggilan fungsi pada event Button1 pada saat di-klik. Pada pemanggilan fungsi terlebih dahulu dideklarasikan sebuah variabel yang bertipe array, Kemudian nilai pada index satu ditampilkan pada textbox yang kita inginkan.


 

 

 

 

 

 

 

 

 

 

 

 

SEKIAN TERIMAKASIH............................ 


Share this article :

Tidak ada komentar:

Poskan Komentar

 
Support : Creating Website | Johny Template | Maskolis | Johny Portal | Johny Magazine | Johny News | Johny Demosite
Copyright © 2011. BERBAGI ILMU - All Rights Reserved
Template Modify by Creating Website Inspired Wordpress Hack
Proudly powered by Blogger