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