CONTOH APLIKASI MENGGUAKAN ByVal DI VB 2010
Assalamualaikum.Wr.Wb
ByVal Adalah Parameter yang dikirimkan adalah Nilai dari sebuah object sehingga anda tidak dapat mengubah Nilai Object tersebut, anda hanya dapat mengolah/mengubah nilai object tersebut di dalam sub/function saja, setelah sub/function tersebut selesai, perubahan nilai object di sub/function tidak akan mengubah nilai object yang sebenarnya. Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi menggunakan Byval dengan vb 2010 . Untuk script nya sih sama saja dengan vb yang sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih " Button " , " ListBox ", seperti gambar di bawah ini
6. maka hasilnya akan muncul form seperti gambar di bawah ini
7. Kemudian copy script di bawah ini
Public Class Form1
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
Dim intNumber As Integer = 100
lstOutput.Items.Add(" Inside btnGo_click the value of " & " intNumber is " & intNumber.ToString())
lstOutput.Items.Add(" I'am now calling ChangeArg.")
ChangeArg(intNumber)
lstOutput.Items.Add(" Now back in btnGo_Click the value of " & " The value intNumber is " & intNumber.ToString())
End Sub
Sub ChangeArg(ByVal intArg As Integer)
lstOutput.Items.Add(" Di dalam procedure " & " saya akan mengubah intArg. ")
intArg = 0
lstOutput.Items.Add(" Sekarang intNumber adalah " & intArg.ToString())
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
8. Maka hasilnya akan seperti gambar di bawah ini
Selamat mencoba ... (^_^)
幸運を... (^_^)
EmoticonEmoticon