TUGAS 6 PEMROGRAMAN VIUSAL VB 2010

Artikel terkait : TUGAS 6 PEMROGRAMAN VIUSAL VB 2010

Tugas 6 Pemrograman Viusal VB 2010

Pada posting kali ini untuk tugas 6 matakuliah pemrograman visual  menggunakan vb 2010,akan di contohkan menggunakan program Array sebagai nilai yang telah di pesan salah satu contohnya nanti ada f"unction Dengan Return Value Berupa Array" dan "Overloading Function". Dan juga pada post ini akan menganalisa Program pada Soal yang telah di buat sebelumnya sehingga jawaban dari soal tersebut di post pada postingan ini . Berikut :
lihat program yang lainnya ... 

1. Function Dengan Return Value Berupa Array

Screenshoot hasil output Program "Function Dengan Return Value Berupa Array" :

Screenshoot saat Button "Proses" di tekan :

Dan berikut Sources Code "Function Dengan Return Value Berupa Array" pada VB 2010 :

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim statistik As Single() = fstat(21, 65, 23, 77, 53, 9, 24, 10, 8, 7) TextBox1.Text = statistik(0) TextBox2.Text = statistik(1) TextBox3.Text = statistik(2) End Sub 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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Download Project Di Sini

2. Overloading Function

program ini unutk menganalisa yang berkaitan dengan "Beberapa function mempunyai nama yang sama tetapi mempunyai parameter yang berbeda".

Berikut Screenshoot programnya :

Penjelasan :

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

        hitung = bil1 + bil2

End Function

Pada function hitung sebagai variavel untuk menghitung (penjumlahan) nilai (byVal) bil1 dan bil2.dimana nilai  bil1 dan bil2 tersebut sudah di tentukan/di pesan terlebih dahulu pada button "Proses".

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

        hitung = bil1 + bil2 + bil3

End Function

Pada function hitung sebagai variavel untuk menghitung (penjumlahan) nilai (byVal) bil1,bil2 dan bil3.dimana nilai  bil1,bil2 dan bil3 tersebut sudah di tentukan/di pesan terlebih dahulu pada button "Proses".

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

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

End Sub

Pada Button "Proses" Berisi proses untuk menampilkan hasil perhitungan pada variabel function "hitung".

dimana angka (2,2,3) merupakan nilai (byVal) yang berjumlah 7 jika di jumlahkan,dimana proses tersebut akan di hitung pada function diatasnya.

Dan Berikut Sources Code Programnya :

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub 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(2, 2, 3) End Sub End Class

Download Project Di Sini

3. Macam-Macam Function Bawaan VB 2010

Sebuah Function  dapat dipanggil dengan menggabungkan  pernyataan lain, seperti contoh berikut ini
Variabel = nama Function Procedure
Cara lain untuk memanggil sebuah fungsi dapat dilakukan seperti kalau  memanggil sub prosedur yaitu :
Call NamaFunctionProcedure [Parameter]
Atau
NamaFunctionProcedure (Parameter)
~ 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

Semoga Bermanfaat ...