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))
home
Home
