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

Percabangan (Struktur If-Then sd Nested IF)

- PERCABANGAN (If – Then) merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi di dalam struktur if tidak akan dijalankan dan blok If akan dilompati serta program akan melakukan tindakan berikutnya. Berikut Strukturnya : If (kondisi) Then … Ekspresi … End If • Kondisi : Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”. • Ekspresi : Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya memenuhi syarat “Benar”. - PERCABANGAN (If – Then – Else) merupakan struktur percabangan di mana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi yang lainnya yang dikerjakan. Berikut Strukturnya : If (kondisi) Then … Ekspresi 1 … Else … Ekspresi 2 … ...
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