Tugas VB 8

A.Fuction return value

Membuat desain form seperti dibawah ini :

Setelah selesai isi kan listing program dari form yang di buat tadi,

Berikut listingnya

Public Class Form4

    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(10, 15, 25, 11, 35, 70, 3)

        TextBox1.Text = statistik(0)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox2.Text = statistik(1)

 TextBox3.Text = statistik(2)

        TextBox3.Text = statistik(2)

    End Sub

Lalu Run program tersebut 

 

B.Overloading fuction

Membuat desain form seperti dibawah ini :

 Berikut listingnya :

Public Class Form5

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) AsInteger

        hitung = bil1 + bil2

    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByValbil3 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(8, 8, 9)

End Sub

  

C.Fuction Bawaan vb

Fungsi Numeric

CInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat

Fix ()    ===> Pemotongan suatu nilai desimal menjadi integer

Int ()    ===> Pembuatan ke bawah suatu nilai desimal

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 Tanggal dan Waktu

Now () mengembalikan tanggal dan waktu sistem 
Date () mengembalikan tanggal dari sistem 
Time () mengembalikan waktu dari sistem

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 Date and Time pada VB 
Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
pemakaiannya

  contoh:

A$ = Time ’lquote hasil 18:16:35 AM
MyTime = #4:35:17 PM# ’lquote assign a time
Time = MyTime ’lquote set system time to MyTime
Now : merekam tanggal dan waktu sekarang
A$ = Now ’lquote hasil 29/11/12 07:09:04 A