Tugas Teori 5 | Latihan Procedure Visual Lanjutan
Awesome Image

Assalamualaikum wr. wb
 
Apa Kabar teman teman semua ? Sehat kah ? Alhamdulillah, untuk pertemuan kali ini saya akan membahas Materi Procedure dan Function mari simak dibawah ini :
1. Procedure
Sejauh ini, kita telah menuliskan sub procedure yang dibuat secara otomatis pada saat menggunakan event . Sub procedure merupakan blokkode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan.
 
Keterangan :
Sub procedure (Procedure) sebaiknya menggunakan kata kerja (verb). Pemanggilan procedure yang masih dalam satu kelas (class) atau modul (module) dapat dilakukan dengan kata kunci Me. Procedure dapat menerima argument melalui nilai (by value) atau juga reference (by reference). Jika menggunakan by value, nilai pada argument tidak berubah.Sedangkan jika menggunakan by reference, nilai argument yang digunakan dapat berubah sesuai dengan perintah dalam procedure. Secara default, argument dimasukkan melalui nilai (by value) dapat menggunakan kata kunci ByVal dan ByRef untuk By Reference.

Contoh : Latihan 1 Procedure.

Source Code :

Public Class Form1
    '2017230092
    'Naufal Farisi Zamzam
    Private Sub GantiTeks(ByVal TeksBaru As String)
        Me.Text = "Naufal Farisi Zamzam"
        TextBox1.Text = TeksBaru
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GantiTeks("Universitas Gajah Mada")
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim psn As String
        psn = MsgBox("Yakin Mau Cabut?", vbYesNo, "naufalfz.my.id")
        If psn = vbYes Then
            End
        End If
    End Sub
End Class
 
 
Latihan 2 Procedure.
 
 
Source Code :
Public Class Form2
    '2017230092
    'Naufal Farisi Zamzam
    Private Sub TampilkanPeringatan(ByVal Pesan As String, ByVal Judul As String)
        MessageBox.Show(Pesan, Judul, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Me.Text = "Naufal Farisi Zamzam"
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TampilkanPeringatan("Isi Data Sesuai Dengan Format Bro...!!", "Warning")
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim psn As String
        psn = MsgBox("Yakin Mau Cabut?", vbYesNo, "naufalfz.my.id")
        If psn = vbYes Then
            End
        End If
    End Sub
End Class
 
Latihan 3 Procedure.
 
Source Code :
Public Class Form3
    '2017230092
    'Naufal Farisi Zamzam
    Private Sub UbahPesan(Optional ByVal Pesan As String = "")
        Me.Text = "Naufal Farisi Zamzam"
        If Pesan = "" Then
            MsgBox("Tidak ada pesan")
        Else
            MsgBox(Pesan)
        End If
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call UbahPesan()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call UbahPesan("Welcome Fellas")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim psn As String
        psn = MsgBox("Yakin Mau Cabut?", vbYesNo, "naufalfz.my.id")
        If psn = vbYes Then
            End
        End If
    End Sub
End Class
 
Sekian materi tentang "Procedure" yang saya berikan, jika ada Pertanyaan, masukan dan saran silahkan contact saya di bawah ini.
oh iya, untuk materi "Function" Silahkan klik : https://naufalfz.my.id/news_detail.php?idpost=130
 
Wassalamualikum Wr.Wb