Contoh Penggunaan Procedure dan Function pada Visual Basic

Selamat malem sob, Lama nih gax posting di blog ini, mungkin karena satu minggu yang lalu ane habis UTS. Mmm,, untuk hasilnya tau deh gimana,?? Lihat besok aja deh IP nya berapa hehehe.

Nih sob, kali ini ane mau posting tugas ane buat besok, semoga aja bermanfaat buat temen-temen. Tugas dalam pertemuan rabu yang lalu baru dipelajari, tentang “Procedure dan Function dalam Visual Basic”.

Dalam tugas ane terdapat dua soal niH :

1.         Membuat Procedure untuk mengganti Warna tulisan semua control yang ada pada sebuah Form. Misalnya : Call UbahWarna(color.red)

2.         Membuat Function untuk mecari kelipatan persekutuan terkecil dari dua buah bilangan. Misalnya : textbox1.text = KPK(2,3).

Sebelum ane teruskan ke Tugas ane sebaiknya temen-temen pelajari dulu Modul yang Pak Dosen berikan ke ane,, Download Modul disini.

Untuk tugas yang pertama :

    Sub UbahWarna(ByVal Warna As Object)

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.GetType.Name = "Label" Then

                ForeColor = Warna

            ElseIf control.GetType.Name = "Button" Then

                ForeColor = Warna

            End If

        Next

    End Sub

   Penjelasan :

      Dalam sekrip di atas Nama Prcedure yang ane buat adalah UbahWarna() dan juga berparameter Warna yang tipe datanya dalah Objeck. Nama Procedure inilah yang nantinya dipanggil dalam sebuah control untuk mengubah semua Warna pada mestinya.

      Sub UbahWarna(ByVal Warna As Object)

       .... (perintah)

   End Sub

     

      Agar dapat mengubah warna semua control, maka kita gunakan Perulangan For Each. Sebelumnya kita buat dulu variabel controlnya

      Dim control As Windows.Forms.Control

   For Each control In Me.Controls

       ....

   Next

      Variabel control tersebut yang digunakan untuk mempengaruhi semua control yang sama dalam From. Jika control yang akan dirubah warna nya adalah Label maka ForeColor itu sama dengan Parameter yang terdapat dalam Prucedure.

   If control.GetType.Name = "Label" Then

       ForeColor = Warna

   ElseIf control.GetType.Name = "Button" Then

       ForeColor = Warna

   End If

      Untuk penggunaan Procedure tersebut kita tinggal memanggil dalam control Button Call NamaProcedure(Warna yang kita inginkan)

   Call UbahWarna(Color.Red)

Untuk Tugas yang kedua :

       Function KPK(ByVal bil1 As Integer, ByVal bil2 As Integer) As Single

        Dim Nilai1 As Integer = bil1

        Dim Nilai2 As Integer = bil2

        While Nilai1 <> Nilai2

            If Nilai1 < Nilai2 Then

                Nilai1 += bil1

            Else

                Nilai2 += bil2

            End If

        End While

        Return Nilai1

    End Function

      Penjelasan :

      Nama Function tersebut adalah KPK, dan memiliki dua parameter bertipe data Integer dengan nama parameternya adalah bil1 dan bil2.

      Function KPK(ByVal bil1 As Integer, ByVal bil2 As Integer) As Single

      Kedua Parameter tersebut disimpan dalam Variabel bertipe data Integer yaitu Nilai1 = bil1 dan Nilai2 = bil2

   Dim Nilai1 As Integer = bil1

   Dim Nilai2 As Integer = bil2

      Jika Nilai1 tidak sama dengan Nilai2 maka Perintah akan diulang terus hingga Nilai1 itu sama dengan Nilai2. Dan Jika Nilai1 itu lebih kecil dari Nilai2 maka Nilai1 akan ditambah bil1 dan sebaliknya. Proses penambahan Variabel Nilai1 dengan bil1 akan diulang terus hingga Nilai1 dan Nilai2 bernilai sama seperti yang sudah ane jelaskan sebelumnya.

      While Nilai1 <> Nilai2

       If Nilai1 < Nilai2 Then

           Nilai1 += bil1

       Else

           Nilai2 += bil2

       End If

   End While

Yang terkahir adalah mengembalikan Nilai dari Nilai1

      Return Nilai1

Untuk Penggunaan Function tersebut adalah dengan mengetikan di bagian Control

      txtHasil.Text = KPK(Val(txtBil1.Text), Val(txtBil2.Text))