Tugas Pemrograman Visual Pertemuan ke 8

OVERLOADING FUNCTION

Overloading function adalah fungsi yang namanya sama tapi berbeda paramaternya, semisal ada sebuah fungsi seperti ini :

 1).  Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung = bil1 + bil2
End Function

dan ada fungsi bernama sama pula

2).  Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
hitung = bil1 + bil2 + bil3
End Function

Disini jelas terlihat bahwa fungsi tambah (dipisah dalam 2 poin) pada poin 1 hanya menambahkan 2 angka dan poin ke 2 menambahkan 3 angka.

Lalu lihat pada perintah selanjutnya, misal ditaruh di Button1

Private Sub Button1_Click(ByVal bla...bla...bla...) (disingkat saja)

TextBox1.Text=hitung(1,2,3)

Jalankan, maka hasil yang ditampilkan adalah 6 karena Button1 memanggil fungsi tambah yang terletak pada Function hitung berparameter 3 variabel. Lihat hitung(1,2,3) berarti ada 3 nilai dan hanya bisa dipanggil untuk Function berparameter 3.

FUNGSI BAWAAN / INTERNAL DI VISUAL BASIC

Sebuah function / fungsi mirip dengan prosedur biasa tapi tujuan fungsi adalah menerima beberapa input dan mengembalikan value / nilai yang dieksekusi pada program utama untuk menyelesaikannya. Ada dua jenis function, yaitu bawaan dan buatan dari programmer.

Contoh function bawaan yang sering kita pakai adalah :

1. MsgBox()

Tujuannya adalah menghasilkan kotak pesan pop-up dan mengizinkan pengguna untuk mengklik tombol perintah sebelum ia melanjutkan.

Formatnya :

yourMsg=MsgBox([Isi pesan],[Style value],[judul])

Argumen [Isi pesan] adalah pesan yang ingin ditampilkan, harus diberi tanda petik dua ("  "),

Argumen [Style value] adalah penetuan jenis pesannya, apakah pesan konfirmasi, peringatan, info, dll.

Style value 0 menampilkan tombol OK, nama konstannya vbOkOnly

Style value 1 menampilkan tombol OK dan Cancel, nama konstannya vbOkCancel

Style value 3 menampilkan tombol Abort, Retry, Ignore, nama konstannya vbAbortRetryIgnore

Style value 4 menampilkan tombol YesNo, nama konstannya vbYesNo

Style value 0 menampilkan tombol Retry dan Cancel, nama konstannya vbRetryCancel

Ada pula 4 icon yang dapat disertakan pada Style value agar jelas makna pesannya, yaitu :

Value 16 untuk icon silang merah (vbCritical)

Value 32 untuk icon tanda tanya (vbQuestion)

Value 48 untuk icon tanda seru (vbExclamation)

Value 64 untuk icon huruf i (vbInformation)

Sintaksnya bisa seperti ini :

Dim pesan As Integer

pesan=MsgBox("Ini adalah contoh pesan",1,"Pesan")

atau boleh juga

pesan=MsgBox("Ini adalah contoh pesan",vbInformation+vbOkOnly,"Pesan")

Contoh tampilan :

2. InputBox()

Fungsi InputBox() akan menampilkan kotak pesan yang bisa kita beri input / masukan di dalam formnya.

Sintaks :

pesanku=InputBox([kalimat pesan],[judul],[teks default],[posisi-x],[posisi-y])

pesanku dideklarasikan dengan macam-macam tipe data tapi biasanya bertipe string yang menerima input pesan.

Contoh, saya akan membuat InputBox dengan format seperti ini :

Dim psn As String

psn = InputBox("Pesan Anda","Masukkan Pesan","Ketik disini",400, 600)

Hasilnya :

3. Manipulasi String

a. Mid Function

Gunanya untuk menerima beberapa bagian teks yang diberikan.

Formatnya : Mid(kalimat,posisi,n)

Dimana :

• kalimat adalah String dari teks yang diinputkan


• posisi adalah posisi mulai pengambilan dari sebuah kalimat


• n adalah jumlah karakter untuk diterima

Contoh :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myPhrase As String

myPhrase = Microsoft.VisualBasic.InputBox("Enter your phrase")

Label1.Text = Mid(myPhrase, 2, 6)

End Sub

Misal inputnya adalah kata "Selamat" maka hasil ekstraksi / pengambilan katanya adalah "elamat". Posisi pengambilan dari huruf kedua sebuah kata, lalu jumlah huruf yang diambil selanjutnya ada 6 (n huruf pada kata "elamat" ada 6)

b. Right function

Gunanya melakukan pengambilan String dari kanan.

Contoh formatnya :

Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim myword As String

myword = TextBox1.Text

Label1.Text = Microsoft.VisualBasic.Right (myword, 4)

End Sub

Ket. : Jika kita inputkan kata "harimau" maka hasilnya "imau". Lihat jumlah pengambilan huruf yang ada di belakang myword.

c. Left

Gunanya sama dengan Right tapi String yang diambil dari kiri, dan hanya diganti seperti ini :

Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim myword As String

myword = TextBox1.Text

Label1.Text = Microsoft.VisualBasic.Left (myword, 4)

   End Sub

Jika kita input kata "kemeja" maka hasilnya "keme".

d.Trim function

Gunanya untuk membuang spasi.

Formatnya : Trim("Kalimat")

Contoh :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myPhrase As String myPhrase = Microsoft.VisualBasic.InputBox("Enter your phrase")

Label1.Text = Trim(myPhrase)

End Sub

Jika kita inputkan seperti ini --> "           Yogyakarta             ''

maka spasi akan dibuang dan hasilnya adalah --> "Yogyakarta"

Sekian postingan saya.

Sumber : http://www.vbtutor.net/vb2010/vb2010_Lesson13.htm (dengan perubahan secukupnya)