Assalamualaikum Wr.Wb.
Masih Bersama Saya Sulthan Alawy Shihab, Apakabar semua,saya harap anda sehat yaa dan semoga kita selalu dilindungi Tuhan Yang Maha Esa.
ini adalah tugas Praktikum saya pada pertemuan keenam dan Kemarin kita sudah bahas VB yang teori 6 , silahkan simak dan pelajari :)
1. Buatlah Class di Project_OOP / WindowsApplication1 dengan nama ClassDay...
2. Buatlah Class di Project_OOP / WindowsApplication1 dengan nama ClassDay.
3. Buatlah Form di Project_OOP / WindowsApplication1 dengan nama FormHari..
Latihan 1
- Code:
Form Class
Public Class ClassDay
Dim hari As String
Public Sub GetDay()
hari = "Senin"
MessageBox.Show("Hari ini adalah : " & hari)
End Sub
End Class
Form1
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Jembatan Lulus"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Mendeklarasikan variable dan mereferensikan ke ClassDay
Dim hari As New ClassDay
hari.GetDay()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim message As String
message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")
If message = vbYes Then
End
End If
End Sub
End Class
Latihan 2
- Code:
Form Class
Public Class ClassCircle
Dim phi As Decimal = CDec(3.14)
Dim r As Decimal
Public Sub GetArea()
phi = CDec(3.14)
r = 10
MessageBox.Show("Luas Lingkaran = " & phi * r ^ 2)
End Sub
End Class
Form2
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Jembatan Lulus"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lingkaran As New ClassCircle
lingkaran.GetArea()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim message As String
message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")
If message = vbYes Then
End
End If
End Sub
End Class
Latihan 3
- Code :
Form Class
Public Class ClassMahasiswa
'sultanalawyshihab
Private nama As String
'membuat methodTeori 6
Public Function getNama()
Return nama
End Function
Public Sub setNama(ByRef nm As String)
nama = nm
End Sub
End Class
Form3
Public Class Form3
Public mahasiswa As New ClassMahasiswa
'sultan alawy shihab
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Sultan"
mahasiswa = New ClassMahasiswa
mahasiswa.setNama("Sultan Alawy Shihab")
MsgBox("Nama Anda : " + mahasiswa.getNama())
End Sub
End Class
Kasus 1
- Code :
Form Class
Public Class ClassLuasSegitiga
Dim alas As Decimal
Dim tinggi As Decimal
Public Sub GetLuas()
alas = 13
tinggi = 14
MessageBox.Show("Luas Segitiga = " & 0.5 * alas * tinggi)
End Sub
End Class
Form4
Public Class Form4
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Jembatan Lulus"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim segitiga As New ClassLuasSegitiga
segitiga.GetLuas()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim message As String
message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")
If message = vbYes Then
End
End If
End Sub
End Class
Tidak ada komentar:
Posting Komentar