function

function dengan return value

berupa array

I.Program parramarray

Private Function fstat(ByVal ParamArray args() As Object) As Single()

        Dim hasil(3) As Single

Penjelasan : memesan variabel hasil berjumlah 3 yaitu hasil(0),hasil(1),hasil(3)

     

  Dim i As Integer

        For i = 0 To UBound(args)

Penjelasan:‘mendeklarasikan variabel i sebgai integer dan perualangan i sebanyak array yang di pesan (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

Penjelasan: jika i= 0 maka maka hasil(1) = args jumlah index ny demikian juga hasil(2),,

Jika hasil (1) kurang dari args(i) maka hasil (1) sama dengan hasil args(i) ny demikian juga hasil dua lebih besar dari args (i) maka hasil(2) sama dengan args (i).dan terus mengulang sampai jumlah indexs

    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

Penjelasan pada button 1 memesan variable statistik

Pada textbox 1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan d atas

Textbox2 untuk menampilkan nilai atau angka terbesar dari array tersebut

Textbox3 untuk menampilkan nilai atau angka terkecil dari array tersebut

1.bisa muncul angka 55 dari jumlah array yang terdapat pada coding yaitu  ”fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)”

2.bisa muncul angka (10) yaitu bilangan terbesar dari array tersebut adalah 10

3. dan bisa muncul angka 1 yaitu dari bilangan terkecil dari array tersebut adalah 1 

PROGRAM KE DUA

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 bil3As Integer) As Integer

        hitung = bil1 + bil2 + bil3

    End Function

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

        hitung = bil1 + bil2 + bil3 + bil4

    End Function

Penjelasan: hampir sama dengan parramarray sebelum nya.hanya saja pada program ini di deklarasikan lebih dari satu fungsi ,dan hitung untuk menampung penjumlahan array dari beberapa fungsi, tapi yang akan di tampilkan pada textbox yaitu fungsi terakhir tergantung kita memesan angkanya

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

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

Penjelasan :angka 1 di deklarasikan untuk bil1, angka 2 untuk bil2, angka 3 untuk bil3, dan masih bisa d tambahkan sesuai keinginan kita disini saya memodif program dengan menambahkan bil4 untuk angka 10

    End Sub

End Class

3.MACAM-MACAM FUNGSI BAWAAN

Procedure digunakan untuk memadatkan tugas-tugas berulang ataupun proses yang digunakan  bersama,  seperti  perhitungan  yang  sering  dilakukan,  text  dan manipulasi kontrol, serta operasi database.

Ada beberapa jenis procedure yang digunakan dalam Visual Basic

1.  Sub Procedure yang tidak mengembalikan nilai

2.  Function Procedure yang mengembalikan nilai

3.  Property Procedure  yang dapat  mengembalikan nilai dan diisi  nilai  yang mengacu pada suatu objek.

Function Procedure

Pada Visual Basic telah tersedia berbagai fungsi bawaan seperti Sqr, Cos, dan Chr, tetapi fungsi-fungsi yang tersedia tersebut bersifat umum dan kadang-kadang  tidak  memenuhi   kebutuhan  programmer,  untuk  keperluan  tersebut  anda  dapat menciptakan fungsi-fungsi sendiri yang dikenal dengan Function Procedure.

Syntax penulisan Function Procedure

[Private|Public][Static] Function nama_procedure(argumen) [As type]

                Pernyataan-pernyataan

End Function

Ada tiga perbedaan antara function dan procedure

1.  Umumnya  anda  dapat  memanggil suatu  function dengan mengikut  nama function sisi kanan dari statement atau ekspresi.

2.  Function memiliki type data seperti suatu variabel. Ini menentukan type yang  dari nilai yang di kembalikan

3.  Nilai  kembali  dimasukkan  ke  nama  function  itu  sendirinya,  dan  suatu function dapat menjadi bagian dari suatu ekspresi  yang panjang.

TUGAS VISUAL 2

TUGAS PEMROGRAMAN 2

Program di bawah ini apabila di jalankan akan ada kesalahan pada btalamat1_Click baris program alamat="Kuningan " karena sudah terdapat konstanta yang terletak di Public Class frmsatu yaitu Const alamat="Kuningan", kemudian tidak dideklarasikan variabel Dim di dalam btalamat1_Click. Sehingga pada saat di panggil tidak akan muncul

Dim alamat As String

alamat = "kuningan"

txtalamat.Text = alamat

Kemudian, jika Tombol Nama1 dan Nama2 jika ditekan hasilnya berbeda saat ditampilkan pada textbox nama karena pada btnama1_Click telah digunakan variabel Dim yang hanya dapat dikenal ditempat variabel tersebut dipesan. Sedangkan pada btnama2_Click hanya mencantumkan baris program txtnama.Text=nama karena variabel nilainya diambil dari Module1 yaitu Public Const nama As String = "Nandang Hermanto". Kemudian saat menekan tombol Alamat1 dan Alamat2 alamat yang ditampilkan alamatnya sama, disebabkan karena di Public Class frmsatu terdapat Const alamat="Kuningan". Dan apabila konstanta dihilangkan dan pada btalamat1_Click diberi variabel Dim. Jika programnya dijalankan, textbox alamat akan menampilkan hasil yang berbeda apabila menekan tombol Alamat1 dan Alamat2.  

Saat tombol Tambah umur 1 ditekan angka yang selalu keluar adalah satu karena tombol tersebut menggunakan variabel Dim, Sehingga pada saat tombol "tambah umur 1" kita tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan selalu satu.
Berbeda dengan varabel umur pada tombol Tambah umur 2 yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya.

Pada form2  Option Explicit Off  sehingga harus  mendeklarasikan variable terlebih dahulu. Kemudian pada button Nama, Alamat dan umur mempunyai variable yang di deklarasikan pada Module1. Sehingga apabila di panggil ketiga Button tersebut akan menampilkan  sesuai dengan Module1.

-----> Lanjut kelatihan 2 IF and case

Pada Program If & Case selain memiliki kegagalan karena terdapat fungsi yang tak berjalan, juga memiliki tampilan yang kurang menarik, untuk itu saya disini berusaha menjelaskan kekurangan-kekurangan yang terdapat pada program ini.

1. Ketika kita memilih kode "TAS" pada ComboBox kode barang, hasil yang keluar adalah 0 bisa juga diartikan fungsi tidak berjalan. hal ini di karenakan listing program masih kurang untuk kode "TAS".

Berikut program perbaikannya :

Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbkode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

            Case "SND"

                namabarang = "Sandal"

                harga = 100000

            Case "TST"

                namabarang = "T-Shirt"

                harga = 1500000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case "TAS"

                namabarang = "Tas"

                harga = 130000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

    End Sub

 

 Jadi tampilan yang benar harusnya seperti ini :

 

 

 

Sekian penyelesaian dan pembenaran dari program yang saya analisa lagi . Semoga bermanfaat bagi kalian semua .