TUGAS PEMPROGRAMAN VISUAL 8

TUGAS PEMPROGRAMAN VISUAL 8
1.Tugas Pertama
-Buat program dengan tampilan ini.

-Masukan kode 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)
            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

-Setelah program berjalan.

Penjelasan : 

Ketentuannya, jika kita mengklik tombol button1 akan muncul total, terbesar dan terkecil. Nilai-nilai tersebut mengambil dari array fstat.
Private Function fstat(ByVal ParamArray args() As Object) As Single()

Disitu ada fungsi fstat dengan menggunakan paramater ByVal ParramArray, yang artinya dia melewatkan secara nilai dan berupa array yang bisa menampung banyak elemen.  Nama parameternya yaitu args() dan bertipe data object sedang fstat nya single.
Dim hasil(3) As Single
Dim i As Integer

       Diatas adalah pendeklarasian variabel secara lokal, variabel hasil(3) artinya dia menampung 3 elemen yaitu hasil(0), hasil(1) dan hasil(2).

For i = 0 To UBound(args)
            hasil(0) = hasil(0) + args(i)

Fungsi for diatas yaitu untuk melakukan perulangan sebanyak Ubonds(args), artinya sebanyak batas atas array args yang tidak lain array args sama dengan array fstat dan melakukan perintah seperti diatas

            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
            End If

dia akan melakukan perintah tersebut jika i = 0, dan perintah tersebut hanya dilakukan satu kali saja yaitu pada saat pertama.

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

Jika hasil(1) > args(i), args(i) elemen dari array fstat maka nilai hasil(1) diganti args(i), dan jika hasil(2) < args(i) maka nilai hasil(2) diganti dengan args(i) yang tadi. Sebagai contoh, hasil (1) sebelumnya nilainya 1, berarti dia memnuhi syarat yang pertama yaitu 1  < dari 6 (args(i)) lalu nilai 1 diganti 6, begitupun seterusnya, jadi melihat kondisinya. Dan hasil(2) yang nilainya 1 tidak memenuhi syarat yang kedua jadi hasil(2) nilainya tetap 1. Disitu ada fungsi return, yang artinya dia kan mengembalikan nilai. Jadi si pemanggil meminta ke fungsi tersebut dan langsung mengembalikan ke pemanggil yaitu hasil.

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

Perintah diatas yaitu memanggil fungsi fstat, dimana ia disamakan dengan variabel statistika. Dan sekaligus, elemen array pada fstat diisi.
Textbox1 yang tidak lain adalah total, dia akan menampilkan jumlah keseluruhan elemen array fstat, textbox1 akan menampilkan nilai terbesar dari elemen array fstat dan textbox2 akan menampilkan nilai terkecil dari elemen array fstat.
 
2. Tugas 2
 -buat tampilan seperti ini.

-Masukan kode ini. 

Public Class Form1
   
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal 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)
    End Sub
End Class

-Tampilan program setelah berjalan. 

Penjelasan : 

 Jadi ada 2 buah fungsi dengan nama yang sama yaitu hitung, tapi berbeda jumlah parameternya. Hitung yang pertama berjumlah 2 parameter sedang hitung ke2 ada 3 parameter
Contoh
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
    End Function

ByVal bil1 As Integer itu sama saja dengan bil1. Begitupun dengan bil2.

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

Button1 memanggil fungsi hitung, dan dia memilih hitung yang ke2 karna jumlah elemennya tiga, dan bisa diibaratkan 1 sama dengan bil1 yang mana bil1 sama dengan ByVal bil1 As Integer, 2 sama dengan bil2 yang mana bil2 sama dengan ByVal bil2 As Integer, 3 sama dengan bil3 yang mana bil3 sama dengan ByVal bil2 As Integer. Jadi ia memmilih sub yang hampir mendekati si pemanggil.
Jadi hasil akhirnya yaitu 6, karna ia menjumlahkan 1+2+3.

3. Tugas 3

a.       MsgBox() Function
Untuk menampilkan suatu pesan baik itu dengan cara mengklik suatu tombol atau suatu perintah dari suatu ekspresi.
b.      The InputBox() Function
Untuk menampilkan pesan dimana user bisa memasukkan suatu teks atau nilai kedalam form.
c.       The Mid Function
Untuk mengambil teks dari suatu kata yang berada di tengah.
d.      The Right Function
Untuk mengambil teks dari suatu kata dari kanan.
e.      The Left Function
Untuk mengambil teks dari suatu kata dari kiri.
f.        The Trim Function
Untuk mengatur space kosong pada kedua sisi dari suatu kata.
g.       The Ltrim Function
Untuk menghapus space kosong pada bagian kiri suatu teks.
h.      The Rtrim Function
Untuk menghapus space kosong pada bagian kanan suatu teks.
i.         The lnStr Function
Untuk mengetahui panjang suatu string.
j.        The Ucase and The Lcase Function
The Ucase function berfungsi mengubah semua karakter menjadi huruf kapital semua, dan sebaliknya dengan Lcase, yaitu mengubah semua karakter menjadi huruf kecil semua.
k.       The Chr and The Asc Functions
The Chr berfungsi mengubah ASCII Code ke string dan sebaliknya dengan The Asc, yaitu mengubah  Karakter atau string atau simbol ke ASCII Code.
l.         The Abs Function
Mengembalikan nilai absolut dari suatu angka yang diberikan.
m.    The Exp Function
Eksponensi (pangkat) nilai.
n.      The Fix Function
Untuk membulatkan suatu bilangan desimal.
o.      The Int Function
Mengubah suatu angka ke integer atau sama saja dengan the fix function.
p.      The Log Function
Untuk mendapatkan nilai algoritma dari suatu angka.
q.      The Rnd() Function
Untuk mengacak suatu perintah.
r.        The Round Function
Untuk mengatur tempat nilai desimal yang kita inginkan.
s.       The Format Function
Untuk memformat fungsi dimana ia menampilkan nilai angka. Style argumentnya bermacam-macam yaitu general number, fixed, standard, currency, percent)
t.        Predefined Formats of date and time
Untuk mengatur tanggal dan waktu.