TUGAS 5

Assalamualaikum Wr.Wb


Pada pertemuan tugas kali ini saya akan memaparkan hasil Tugas 5 yang diberikan pada pertemuan ke-8 tentang penggunaan sub program PROCEDURE(SUB) dan FUNCTION .

Tugas kali ini mengenai
1 . Pemberian rata-rata pada Function dengan return value berupa array.
2 . Menjelaskan contoh Overloading Function.
3 . Macam-macam Function Bawaan

1 . FUNCTION ARRAY

Pada pertemuan kali ini kita membuat sub program dengan function dengan variabel fstat dengan parameter ByVal yang melewatkan parameter secara nilai dengan menggunakan tipe single yang bernilai bulat. Pada aplikasi ini kita dapat menentukan jumlah nilai total,terbesar,terkecil,dan rata-rata.

Pertama-tama kita membuat tampilan sebagaii berikut :

Kemudian kita tambahkan fariabel rata-rata sehingga menjadi seperti berikut :

Dari gambar diatas kita dapat menentukan jika TextBox1 berada pada label total, TextBox2 pada label terbesar ,TextBox3 pada label terkecil ,dan TextBox4 pada label rata-rata.

Source Coding

Pada aplikasi ini penggunaan array bernama "hasil()" ditujukan untuk mengganti nama variable total, nilai terbesar dan nilai terkecil .

hasil(0) ditujukan untuk mengganti variable total

hasil(1) ditujukan untuk mengganti variable nilai terbesar

hasil(2) ditujukan untuk mengganti variable nilai terkecil

lalu ketika kita tambahkan variable rata-rata maka array hasil ditujukan pada hasil(3)

Pada program ini saya mengganti nilai fungsi fstat untuk pemanggilan nilai terbesar dan terkecil yang keliru pada bagian 

Sebelum dirubah 

Jika syntax seperti ini maka tampilan nilai terbesar akan menjadi nilai 1 dan nilai terkecil akan menjadi nilai 10 .

Sesudah dirubah 

Sesudah dirubah maka tampilan nilai keluaran akan terurut sesuai nilai terbesar dan terkecilnya .

Seperti :

Kemudian untuk menampilkan variable rata - rata kita menempatkan array pada hasil(3) dengan rumus

* Length digunakan untuk mempercepat proses eksekusi berdasarkan banyaknya jumlah data yang dibagi secara otomatis.

Hasil Total diperoleh dari penjumlahan : 1,6,2,7,3,9,4,10,8,5

Hasil Nilai Terbesar dari                     : 1,6,2,7,3,9,4,10,8,5

Hasil Nilai Terkecil dari                      : 1,6,2,7,3,9,4,10,8,5

Hasil Nilai Rata - Rata dari                  : hasil (55) / Length (10) 

2 . OVERLOADING FUNCTION

Overloading Function adalah beberapa fungsi yang memiliki perintah berbeda tetapi namanya sama .

Dari source coding yang diberikan maka akan terbentuk 1 Textbox dan 1 button seperti berikut 

Kemudian dari source code yang telah diberikan diatas lalu saya kembangkan menjadi  

Ketika  Button1 dijalankan akan muncul seperti berikut :

Lalu ketika kita mengeklik tombol OK akan muncul 

Dari pernyataan diatas kita ulas sedikit mengenai Overloading Function .

Overloading Function adalah Pembuatan fungsi atau method menggunakan nama yang sama namun memiliki parameter yang berbeda .

Jika kita melihat pada source code diatas , terdapat 2 fungsi dengan nama "hitung" namun jumlah parameter yang digunakan berbeda .
Pada Function pertama terdapat 2 parameter sedangkan pada Function kedua menggunakan 3 parameter. Ketika dijalankan program mengeksekusi Function kedua yang menggunakan 3 parameter karena pada Button1 fungsi yang dioverload adalah 3 parameter yaitu hitung("Wiwi ^_^",2,8).

3 . MACAM - MACAM FUNCTION BAWAAN

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.

1 . Fungsi-Fungsi Numerik. 

Fungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe numerik.

Fungsi-fungsi ini dikelompokan menjadi :

a . Fungsi-Fungsi Konversi ke Integer.

• CInt () : Pembuatan nilai desimal 0,5 dan lebih ke integer yang lebih dekat
• Fix ()   : Pemotongan ke bawah suatu nilai desimal
• Int ()   : Pembuatan ke bawah suatu nilai desimal

- Fungsi Fix() dan Int() memberikan perlakuan yang berbeda pada bilangan positive dan negative. 

Pada bilangan positive Fix() dan Int () mengembalikan nilai yang sama 

contoh : ans1 = Int (14.5) mengembalikan 14

              ans2 = Fix (14.5) mengembalikan 14

sedangkan

pada bilangan negative Fix() dan Int() memberikan pengembalian yang berbeda.

contoh :  ans1 = Int (-14.5) mengembalikan 15

              ans2 = Int (-14.5) mengembalikan 14

- Fungsi CInt() mengembalikan pembulatan angka yang terdekat.

contoh : ans1 = CInt(14.1) mengembalikan 14 

b. Fungsi 'f1'endash Fungsi konversi tipe data

• CCur () : Mengkonversi argumen menjadi tipe data currency
• CDbl () : Mengkonversi argumen menjadi tipe data double (presisi ganda)
• CLng () : Mengkonversi argumen menjadi tipe data long integer
• CSng () : Mengkonversi argumen menjadi tipe data single
• CStr ()  : Mengkonversi argumen menjadi tipe data string
• Ivar ()  : Mengkonversi argumen menjadi tipe data variant 

2 . Fungsi - Fungsi String 

• LCase$ () : Mengembalikan argumen string sebagai tipe data string huruf
• Ucase ()    : Mengembalikan argumen string sebagai tipe data variant huruf besar
• Ucase$ ()  : Mengembalikan argumen string sebagai tipe data string huruf besar
• Val ()       : Mengembalikan nilai number dari argumen string
• Len ()      : Mengembaliakn nilai sumber yang menunjukan panjang string

Substring merupakan bagian dari suatu string .Digunakan 3 fungsi untuk memperoleh substring yaitu :

1. Left$(StringVal, length)              : Mengembalikan nilai string dari sebelah kiri sebanyak length karakter.
2. Right$(StringVal, length)           : Mengembalikan nilai string dari sebelah kanan sebanyak length karakter
3. Mid$(StringVal, starVal, length) : Mengembalikan nilai string dari startVal sebanyak lengt karakter

3 . Fungsi - Fungsi Tanggal dan Waktu 

• Now () : Mengembalikan tanggal dan waktu sistem
• Date () : Mengembalikan tanggal dari sistem
• Time () : Mengembalikan waktu dari sistem
• Format (Expresi [, format[, firstdayofweek[, firstweekofyear]]]) : Mengembalikan nilai variant atau string sesuai dengan format yang ditentukan .

4 . Fungsi Date and Time pada Visual Basic 

Time : Mencari tahu saat ini atau menentukan waktu , tergantung format pemakaiannya

Demikian hasil pemaparan tugas saya , SEKIAN TERIMAKASIH .

Tugas 4

Assalamualaikum Wr.Wb

Pada kesempatan ini saya ingin memaparkan hasil tugas pada pertemuan ke-7 mata kuliah visual basic senin  3 Desember 2012 .

Disini ada 3 tugas yang diberikan, yaitu :

1 . Buatlah posisi toolbar yang berada diatas menjadi dibawah .

2 . Mencari dan tambahkan menu library tambahan agar lebih interaktif .

3 . Buatlah menu dalam form menjadi tail vertical ,horizontal dan cascade .

Dibawah inilah ulasan tugas yang saya buat .

Sebelum menjawab ketiga tugas diatas , kita harus membuat form yang sudah disediakan .
Form tersebut berisikan Menu dan submenu beserta icon tambahan yang berada pada toolbox dan properties dengan tampilan sebagai berikut .

* Tampilan Awal .

Pada tampilan awal toolbar masih berada diatas , lalu mari kita jawab tugasnya .

* Berikut adalah SourceCodingnya secara keseluruhan .

Public Class Form1

    Private Sub LatihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanToolStripMenuItem.Click

    End Sub

    Private Sub LatihanSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanSatuToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub LatihanDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanDuaToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub TugasSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasSatuToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub TugasDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasDuaToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

* Jawaban Coy ... 

1 . Buatlah tampilan toolbar yang berada diatas menjadi dibawah .

Toolbar dapat dibawah karena ada pada peraturan pembuatannya ada pada toolbox menu ToolStrip ditempatkan dibawah menu strip .

* Tampilannya setelah dirubah .

2 . Menambahkan library agar lebih interaktif

Jawab : Belum pak.

3 . Membuat menu menjadi Vertical, Horizontal ,dan Cascsde .

* Tampilan Layout Vertical 

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara vertical .

Berikut codingnya adalah :

 Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

*Tampilan Layout Horizontal .

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara horizontal .

Berikut codingnya adalah :

 Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

*Tampilan Layout Cascade .

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara cascade .

Berikut codingnya adalah :

 Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

Sekian hasil dari pekarjaan saya.TERIMA KASIH. ^_^