Visual Basic Lanjutan Teori 5 - Procedure dan Function
Monday, April 6, 2020
Add Comment
LaptopInformatika.com - Kali ini kita akan Membahas tentang Procedure dan Function. Prosedur merupakan bagian dari pemrograman terstruktur, tetapi prosedur masih diperlukan dalam pemrograman berorientasi obyek untuk mempermudah pengembangan suatu program dengan membentuk blok program menjadi bagian dan fungsi tersendiri.
Fungsi prosedur selain ditulis dan diuji secara terpisah juga digunakan untuk penerapan tugas yang diulang-ulang, seperti penghitungan yang sering digunakan. Pendekatan memecah aplikasi yang besar menjadi blok-blok kode yang kecil disebut juga dengan pemrograman modular.
Untuk Latihan-latihan sebelumnya ada di link bawah ini, jika kalian ingin mempelajari semuanya silahkan klik link di bawah ini :
- Visual Basic Lanjutan Teori 1 Variabel dan Type Data
- Visual Basic Lanjutan Praktikum 1 Operator
- Visual Basic Lanjutan Teori 2 Percabangan (Struktur If-Then, If-Then-Else, Nested IF)
- Visual Basic Lanjutan Praktikum 2 Percabangan (IIF dan Select Case)
- Visual Basic Lanjutan Teori 3 - Perulangan
- Visual Basic Lanjutan Praktikum 3 - Perulangan (Do While - Loop)
- Visual Basic Lanjutan Teori 4 - Array Dimensi Satu
- Visual Basic Lanjutan Praktikum 4 - Array Dimensi Dua
Keuntungan Menggunakan Penggunaan Procedure
- Program terbagi-bagi menjadi komponenkomponen yang mandiri.
- Dengan demikian program menjadi lebih terstruktur sehingga pencarian kesalahan dapat lebih mudah dilakukan.
- Prosedur yang terletak dalam suatu program dapat dipakai berulang-ulang sesuai dengan kebutuhan.
- Tidak ada aturan khusus pada penulisan prosedur, apakah ingin diletakkan di awal program atau di akhir program.
Sub Procedure
- Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu.
- Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan.
- Sub procedure intinya merupakan kumpulan code yang diawali dengan Sub dan diakhiri
dengan End Sub.
Function
- Kumpulan code yang diawali dengan Function dan diakhiri dengan End Function.
- Function menjalankan kode diantaranya dan mengembalikan sebuah nilai.
- Artinya sama seperti sub procedure tetapi function mengembalikan nilai.
Bentuk Umum
[accessibility] Sub nama_prosedur ( parameter )
statement
End Sub
- Accessibility bisa berupa Public, Protected, atau Private yang menentukan dari bagian mana saja sub tersebut dapat diakses.
- Accessibility bisa berupa Public, Protected, atau Private yang menentukan dari bagian mana saja sub tersebut dapat diakses.
- parameter dideklarasikan sebagaimana mendeklarasikan variable. Sebuah sub procedure bisa memiliki parameter ataupun tidak. Parameter sub prosedur ada dua jenis yaitu ByVal dan ByRef.
ByVal dan ByRef
- ByRef = Parameter yang dikirimkan adalah object sehingga perubahan nilai dari object tersebut yang diolah/diubah pada sub/function akan berakibat mengubah juga nilai dari object tersebut secara langsung.
- ByVal = Parameter yang dikirimkan adalah nilai dari sebuah object sehingga tidak dapat mengubah nilai Object tersebut, pengguna 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.
Pemanggilan Sub Procedure
- Sub Procedure dengan parameter opsional (boleh diisi boleh tidak tetapi memiliki nilai default):
- call subprocedure(argumentlist)
Public Class Contoh
Private Sub UbahPesan(Optional ByVal pesan As String = "")
If Pesan = "" Then
MsgBox("Tidak ada pesan")
Else
MsgBox(pesan)
End If
End Sub
Privat Sub Button1_click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Call UbahPesan()
End Sub
Contoh Procedure
- Sub Procedure dengan 1 parameter:
Private Sub GantiTeks(ByVal TeksBaru As String)
Textbox1 = TeksBaru
End Sub
Latihan 1
- Source Code
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "LaptopInformatika.com"
End Sub
Private Sub GantiTeks(ByVal TeksBaru As String) 'LaptopInformatika.com
TextBox1.Text = TeksBaru
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
GantiTeks("UNIVERSITAS DARMA PERSADA") 'LaptopInformatika.com
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pesan As String
pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
If pesan = vbYes Then
End
End If
End Sub
End Class
Latihan 2
- Source Code
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "LaptopInformatika.com"
End Sub
Private Sub TampilkanPeringatan(ByVal Pesan As String, ByVal Judul As String)
MessageBox.Show(Pesan, Judul, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 'LaptopInformatika.com
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TampilkanPeringatan("Isi Sesuai dengan Format...!", "Peringatan") 'LaptopInformatika.com
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
If pesan = vbYes Then
End
End If
End Sub
End Class
Read More : 6 Tips dan Triks Data Recovery RAID yang Perlu Anda Ketahui
Latihan 3
- Source Code
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "LaptopInformatika.com"
End Sub
Private Sub UbahPesan(Optional ByVal Pesan As String = "")
If Pesan = "" Then
MsgBox("Tidak Ada Pesan")
Else
MsgBox(Pesan) 'LaptopInformatika.com
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call UbahPesan() 'LaptopInformatika.com
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call UbahPesan("Selamat Datang") 'LaptopInformatika.com
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim pesan As String
pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
If pesan = vbYes Then
End
End If
End Sub
End Class
Latihan 4
- Source Code
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "LaptopInformatika.com"
End Sub
Function BagiDua(ByVal sNilai As Single) As Single 'LaptopInformatika.com
Return sNilai / 2
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = BagiDua(5) 'LaptopInformatika.com
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pesan As String
pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
If pesan = vbYes Then
End
End If
End Sub
End Class
Latihan 5
- Source Code
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "LaptopInformatika.com"
End Sub
Function HasilBagi(ByVal sNilai As Single, ByVal sBagi As Single) As Single 'LaptopInformatika.com
Return sNilai / sBagi 'LaptopInformatika.com
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = HasilBagi(7, 2) 'LaptopInformatika.com
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pesan As String
pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
If pesan = vbYes Then
End
End If
End Sub
End Class
Read More : The Best SEO untuk Tahun 2020
Latihan 6
- Source Code
Public Class Form6
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "LaptopInformatika.com"
End Sub
Public Function TampilkanPesan(Optional ByVal IsiPesan As String = "") As String 'LaptopInformatika.com
If IsiPesan = "" Then 'LaptopInformatika.com
Return "Tidak Ada Pesan"
Else
Return "Isi Pesan Adalah" & IsiPesan
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TampilkanPesan() 'LaptopInformatika.com
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TampilkanPesan("Selamat Datang") 'LaptopInformatika.com
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim pesan As String
pesan = MsgBox("Are you sure want to exit", vbYesNo, "laptopinformatika.com")
If pesan = vbYes Then
End
End If
End Sub
End Class
0 Response to "Visual Basic Lanjutan Teori 5 - Procedure dan Function"
Post a Comment