Pertemuan 8 | 30 Maret 2015 | ByVal, ByRef dan Function

ByVal, ByRef dan Function

ByVal dan ByRef

ByVal atau "By Value" yaitu melewatkan salinan variable ke dalam subrutin. Ketika salinan variable  diubah nilainya maka variable aslinya tidak akan berubah.

ByRef atau “By Reference”. Kebalikan dari ByVal, artinya nilai variable aslinya lah yang diubah  bukan salinanya.

Function

Function yaitu Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.

Tutorial :  Contoh Penggunaan ByVal & ByRef

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.

• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.

• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.

• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
ListBox		LstOutput
Button1	Ok	btnOk
Button2	Exit	btnExit

• Langkah kelima masukkan koding berikut

Public Class Form1 'memanggil prosedur DisplayMessage Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click Dim strNama As String = "Nama Saya Roby" Dim strAlamat As String = "Alamat di Jl.Vyati" lstOutput.Items.Add(strNama) lstOutput.Items.Add(strAlamat) lstOutput.Items.Add("Memanggil prosedur " & "DisplayMessage.") DisplayMessage(strNama, strAlamat) lstOutput.Items.Add("Kembali ke" & " prosedur btnOk_Click. " & strNama & ", " & strAlamat) End Sub 'prosedur untuk mengganti nama Sub DisplayMessage(ByVal strNama As String, ByVal strAlamat As String) strNama = "Nama saya Franki" strAlamat = "Alamat saya di Jl.Mawar" lstOutput.Items.Add("") lstOutput.Items.Add(strNama) lstOutput.Items.Add(strAlamat) lstOutput.Items.Add("Mengganti Nama & Alamat") lstOutput.Items.Add("") End Sub 'keluar dari program Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

Menggunakan ByVal

Menggunakan ByRef

• Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

 

Tutorial :  Contoh Penggunaan Function untuk menghitung penjumlahan

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.

• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.

• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.

• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

 

Objek	Text	Name
GroupBox	Hitung Bilangan
Label1	Bilangan1
Label2	Bilangan2
Label3	Hasil
TextBox1		txtBil1
TextBox2		txtBil2
TextBox3		txtHasil
Button1	Hitung	btnHitung
Button2	Exit	btnExit

• Langkah kelima masukkan koding berikut

Public Class Form1 'memanggil fungsi Sum Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click, btnHitung.Click Dim sngResult As Single sngResult = Sum(txtBil1.Text, txtBil2.Text) txtHasil.Text = sngResult End Sub 'fungsi untuk menghitung penjumlahan Function Sum(ByVal sngNum1 As Single, ByVal sngNum2 As Single) As Single Dim sngResult As Single sngResult = sngNum1 + sngNum2 Return sngResult End Function 'Keluar dari program Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

• Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

 

Tutorial :  Membuat program untuk menghitung nilai akhir

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.

• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.

• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.

• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Absen	lblAbsen
Label2	Tugas	lblTugas
Label3	Keaktifan	lblKeaktifan
Label4	UTS	lblUTS
Label5	UAS	lblUAS
Label6	Nilai Akhir	lblNilai
Label7	Huruf	lblHuruf
Textbox1	-	txtAbsen
Textbox2	-	txtTugas
Textbox3	-	txtKeaktifan
Textbox4	-	txtUTS
Textbox5	-	txtUAS
Textbox6	-	txtNilaiAkhir
Textbox7	-	txtHuruf
Button1	Hitung	btnHitung
Button2	Clear	btnClear
Button3	Exit	btnExit

• Langkah kelima masukkan koding berikut

Public Class FormNilai Dim hasil, nilai As Integer Dim absen As Decimal, tugas As Decimal, aktif As Decimal, uts As Decimal, uas As Decimal Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click absen = txtAbsen.Text * (20 / 100) tugas = txtTugas.Text * (15 / 100) aktif = txtKeaktifan.Text * (10 / 100) uts = txtUTS.Text * (25 / 100) uas = txtUAS.Text * (30 / 100) hasil = absen + tugas + aktif + uts + uas txtNilaiAkhir.Text = hasil If GradeA(hasil) Then txtHuruf.Text = "A" ElseIf GradeB(hasil) Then txtHuruf.Text = "B" ElseIf GradeC(hasil) Then txtHuruf.Text = "C" ElseIf GradeD(hasil) Then txtHuruf.Text = "D" ElseIf GradeE(hasil) Then txtHuruf.Text = "E" End If End Sub Function GradeE(ByRef hasil As Integer) Dim nilai As Boolean If hasil < 40 Then nilai = True Else nilai = False End If Return nilai End Function Function GradeD(ByRef hasil As Integer) Dim nilai As Boolean If hasil >= 40 Then nilai = True Else nilai = False End If Return nilai End Function Function GradeC(ByRef hasil As Integer) Dim nilai As Boolean If hasil >= 56 Then nilai = True Else nilai = False End If Return nilai End Function Function GradeB(ByRef hasil As Integer) Dim nilai As Boolean If hasil >= 70 Then nilai = True Else nilai = False End If Return nilai End Function Function GradeA(ByRef hasil As Integer) Dim nilai As Boolean If hasil >= 85 Then nilai = True Else nilai = False End If Return nilai End Function Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click txtAbsen.Clear() txtTugas.Clear() txtKeaktifan.Clear() txtUTS.Clear() txtUAS.Clear() txtNilaiAkhir.Clear() txtHuruf.Clear() End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, sebagai contoh masukan angka tiap tiap textbox, kemudian klik tombol Hitung, maka hasilnya akan seperti berikut.

• Langkah ketujuh, jika ingin menghitung ulang tinggal klik tombol clear.

• Langkah kedelapan, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.