Langsung ke konten utama

Latihan Menggunakan Procedure dan Function pada VB.Net

Latihan 1 Menggunakan Procedure


Berikut Source Codenya :
Public Class proc1
    'nadiahtami 2017230007
    Private Sub gantitext(ByVal teksbaru As String)
        TextBox1.Text = teksbaru
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'btn pilih
        gantitext("unsada")
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'btn keluar
        Dim pesan As String
        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 2 Menggunakan Procedure


Berikut Source Codenya :
Public Class proc2
    'nadiahtami 2017230007'
    Private Sub TampilkanPeringatan(ByVal Pesan As String, ByVal Judul As String)
        MessageBox.Show(Pesan, Judul, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'btn proses
        TampilkanPeringatan("Isi Data Sesuai Dengan Format !!", "Peringatan")
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'btn keluar
        Dim pesan As String
        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 3 Menggunakan Procedure


Berikut Source Codenya :
Public Class proc3
    'nadiahtami 2017230007
    Private Sub ubahpesan(Optional ByVal pesan As String = "")
        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
        'btn proses
        Call ubahpesan()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'btn ubah
        Call ubahpesan("Selamat Datang")
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'btn keluar
        Dim pesan As String
        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 1 Menggunakan Function


Berikut Source Codenya :
Public Class Function1
    'nadiahtami 2017230007'
    Function bagidua(ByVal nilai As Single) As Single
        Return nilai / 2
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'btn hitung
        TextBox1.Text = bagidua(5)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'btn keluar
        Dim pesan As String
        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 2 Menggunakan Function


Berikut Source Codenya :
Public Class Function2
    Function hasilbagi(ByVal nilai As Single, ByVal bagi As Single) As Single
        Return nilai / bagi
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'btn hitung
        TextBox1.Text = hasilbagi(7, 2)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'btn keluar
        Dim pesan As String
        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 3 Menggunakan Function


Berikut Source Codenya :
Public Class Function3
    'nadiahtami 2017230007
    Public Function tampilkanpesan(Optional ByVal isipesan As String = "") As String
        If isipesan = "" Then
            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
        'btn proses
        TextBox1.Text = tampilkanpesan()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'btn tampil pesan
        TextBox1.Text = tampilkanpesan("Selamat Datang !")
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'btn keluar
        Dim pesan As String
        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Komentar

Posting Komentar

Postingan populer dari blog ini

Latihan menggunakan If-then-Else dan Nested-If

Latihan 1 menggunakan (IF – THEN –ELSE) Berikut Source Codenya : Public Class latihan1    'nadiahtami 2017230007     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim keterangan As String         If TextBox1.Text >= 80 Then             keterangan = "Selamat Anda Lulus"         Else             keterangan = "Mohon Maaf Anda Belum Lulus"         End If         TextBox2.Text = keterangan     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("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")         If pesan = vbYes Then  ...
Posting Komentar
Baca selengkapnya

Latihan dan Kasus Array Multidimensi pada VB.NET

Latihan 1 Array Multidimensi Berikut Source Codenya : Public Class latihan4     'nadiahtami 2017230007'     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim arr(4) As String         arr(0) = TextBox1.Text         arr(1) = TextBox2.Text         arr(2) = ComboBox1.Text         arr(3) = ComboBox2.Text         Dim list As New ListViewItem         list = ListView1.Items.Add(arr(0))         list.SubItems.Add(arr(1))         list.SubItems.Add(arr(2))         list.SubItems.Add(arr(3))         TextBox1.Text = TextBox1.Text + 1         TextBox2.Text = ""         ComboBox1.Text = ""         C...
Posting Komentar
Baca selengkapnya

Contoh Kasus Menggunakan IIF dan Select-Case pada VB.NET

Kasus 6 Menggunakan IIF Berikut Source Code nya: Public Class kasus6     'nadiahtami 2017230007     Dim hadir, tugas, uts, uas, akhir As Integer     Dim grade, keterangan As String     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Application.Exit()     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""         TextBox4.Text = ""         TextBox5.Text = ""         TextBox6.Text = ""         TextBox7.Text = ""         TextBox8.Text = ""         ComboBox1.Text = ""     End Sub  ...
Posting Komentar
Baca selengkapnya