Sub Program Procedure(Sub) Dan Function

               Pada program ini yaitu untuk menampilkan nilai terkecil, terbesar dan total pada angka-angka yang sudah ada pada program dengan hanya memasukkan jumlah dari seluruh angka-angka tersebut. Yaitu ketika kita telah memasukkan jumlah dari nilai-nilai yang ada dan kita klik pada button Proses maka akan muncul nilai terkecil terbesar dan total dari deretan nilai-nilai yang ada.
Berikut langkahnya:
     A. Buatlah form dengan desain berikut ini:

     
     Menggunakan
          -Pemberian nama total,terbesar dan terkecil
            menggunakan Label
          -Pemberian text kosong menggunakan TextBox
          -Pemberian tombol proses menggunakan Button

     B. Isikan listing programnya untuk desain di atas sbb:

'Cade programnya
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)

            End If
            If hasil(1) > args(i) Then hasil(1) = args(i)
            If hasil(2) < args(i) Then hasil(2) = args(i)

        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, 7, 3, 9, 4, 10, 8, 5)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)

    End Sub
End Class

     C. Setelah di Run, klik tombol proses maka muncul sbb:







2. Overloading Function
               Program menjelaskan tentang beberapa function yang mempunyai nama sama tetapi mempunyai parameter berbeda, dimana pada program 1 hanya menggunakan 1 parameter untuk menghasilkan hasil yang sama seperti pada program 2, sedangkan pada program 2 menggunakan lebih dari satu parameter dan dapt menghasilkan hasil yang sama seperti program 1.
Berikut Langkahnya:
     A. Buatlah form dengan desain berikut ini:


     Menggunakan
          -Pemberian text kosong menggunakan TextBox
          -Pemberian tombol proses menggunakan Button


     B. Isikan listing programnya untuk desain di atas sbb:

Public Class Form1

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

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox1.Text = hitung(1, 2, 3)
            TextBox2.Text = hitung(1, 2)
            TextBox3.Text = hitung(0, 1)

        End Sub
    End Class

     C. Setelah di Run, klik tombol proses maka muncul sbb:






3. Macam-Macam Function Bawaan
               Sekarang saya akan membahas tentang Macam-Macam Fuction Bawaan pada visual basic, Mungkin banyak dari kalian yang sudah mengetahui tentang atau Macam-Macam Fuction Bawaan pada visual basic,berikut adalah Macam-Macam Fuction Bawaan pada visual basic:

Cara penulisan:

• Adapun syntak penulisan function prosedur, Sbb: 

[Private/Public]  Function  namafungsi(argumen-argumen) [As type]

---Baris perintah---

End Function

•  Daru syntak diatas, nama fungsi dapat kita isikan sesuai kebutuhan, argumen-argumen dapat kita isikan parameter, optional dan argumen lain, As type adalah tipe data yang digunakan. Sebuah function dapat dipanggil dengan menggabungkan pernyataan lain, seperti contoh berikut:

Variabel = nama Function Procedure

•  Cara lain untuk memanggil fungsi seperti kita memanggil sub prosedur,yaitu:  

Call NamaFunctionProcedure [Parameter]
                     Atau
NamaFunctionProcedure (Parameter)

Nah sekarang kita langsung menuju ke pokok pembicaraan kita yaitu mengenai Macam-Macam Fuction Bawaan pada visual basic,Berikut untuk Macam-Macam Fuction Bawaan pada visual basic dan kita bahas satu per satu:

• 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 Matematika

Val (Str)                            → konversi string menjadi integer

Asc(Char)                         → konversi karakter menghasilkan nilai ascii

Abs(Number)                    → memberikan nilai mutlak dari suatu nilai negatif

Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal

Sqr(Number)                     → memberikan hasil akar kuadrat dari suatu nilai

Tan()                                  → mengembalikan nilai tangen dari argument dalam radian

Cos()                                  → mengembalikan nilai cosinus dari argument dalam radian

Atn()                                  → mengembalikan nilai arc tangen dari argument dalam  bentuk radian

Long()                                → mengembalikan nilai logaritma dari argument

CInt()                                 → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat

Fix()                                   → pemotongan suatu nilai decimal menjadi integer

Int()                                    → pembulatan ke bawah suatu nilai decimal

• 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

D(Date),M(Date),Y(Date)  → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun

Time()                                 → mengambil waktu dari system komputer

H(Date),M(Date),S(Date)   → memberikan nilai integher dari variable date untuk jm, menit dan deik

TimeValue(str)                    → konversi string ke variable date