PROJECT SISTEM INFORMASI LAB KOMPUTER
NAMA MUKHLISOH
NIM : 161011700376
Aplilkasi Buku Tamu Pengunjung Lab Komputer
1.Analisa kebutuhan
- Aplikasi ini berfungsi untuk memenuhi kebutuhan sistim informasi di suatu lab kumputer di salah satu sekolah:
- Menginput Data
- Mengupdate Data
- Meng edit Data
- Menyimpan Data
- Menghapus Data
2.Perancangan (Desain)
2.1 Perancangan Database
1,Login User
-User Name (Field: UserName, Teks, 50)
-Password (Field: Password, Teks, 20, Key)
2.tabel info
-ID (Field: ID. Teks, 10)
-nama (Field: nama. numerik, 50)
-jenis kelamin (Field:jenkel. Teks, 20, Key)
-kelas(Field: kelas. Teks, 10, Key)
-keperluan (Field:keperluan. Teks, 100)
-cari (Field: cari. nimerik, 50)
-tanggal (Field: tanggal. nimerik, 50)
-jam (Field: jam. nimerik, 50)
2.Perancangan Desain form
1. Form login
2. Bukku Kunjungan
3. Sourcecode
koneksi ke database dan view data
Imports System.Data.OleDb
Public Class frmMain
Dim dbconn As New OleDbConnection
Dim adt As New OleDbDataAdapter
Dim ds As New DataSet
Dim datatable As New DataTable
Dim cmd As New OleDbCommand
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbconn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=..\db_project321.mdb"
showData() 'show database values in datagridview
customColumnWidth() ' set custom column width
End Sub
'Set customColumnWidth
Private Sub customColumnWidth() ' set custom column width
'datagridName.Columns(columnNumber or columnName)
Dim columnID As DataGridViewColumn = dgvInfo.Columns(0)
columnID.Width = 40 'set columnwidth
Dim columnSurname As DataGridViewColumn = dgvInfo.Columns(1)
columnSurname.Width = 100 'set columnwidth
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'Confirm dialogBox
Dim dr As DialogResult
dr = MessageBox.Show("Save information?", "Save", MessageBoxButtons.YesNo)
If dr = DialogResult.No Then
'NO CONDITION GOES HERE
Else
'YES CONDITION GOES HERE
'Form restriction and validation
If Len(Trim(txtjenkel.Text)) = 0 Then
MessageBox.Show("Please enter Surname", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtjenkel.Focus()
ElseIf Len(Trim(txtkelas.Text)) = 0 Then
MessageBox.Show("Please enter Email", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtkelas.Focus()
ElseIf Len(Trim(txtperlu.Text)) = 0 Then
MessageBox.Show("Please enter Address", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtperlu.Focus()
ElseIf Len(Trim(txtcari.Text)) = 0 Then
MessageBox.Show("Please enter Contact No", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcari.Focus()
Else
adt = New OleDbDataAdapter("insert into tbl_info (nama, jenkel, kelas, keperluan, cari, tanggal, jam) values ('" & Textnama.Text & "','" & txtjenkel.Text & "', '" & txtkelas.Text & "', '" & txtperlu.Text & "', '" & txtcari.Text & "', '" & Texttanggal.Text & "', '" & Textjam.Text & "')", dbconn)
adt.Fill(ds)
ds = New DataSet
showData() ' refresh data in datagridview
MsgBox("Saved")
clearText() 'clear all text
End If
End If
End Sub
Private Sub showData()
Dim dbcommand As String
dbcommand = "SELECT * FROM tbl_info"
adt = New OleDbDataAdapter(dbcommand, dbconn)
datatable = New DataTable
adt.Fill(datatable)
dgvInfo.DataSource = datatable
End Sub
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Dim sql = "select * from tbl_info where id like " & txtid.Text & " "
adt = New OleDbDataAdapter(sql, dbconn)
cmd = New OleDbCommand(sql)
adt.Fill(ds, "tbl_info")
'ds.tables(tableName).rows(rowNumber)(columnNumber).tostring
txtjenkel.Text = ds.Tables("tbl_info").Rows(0)(1).ToString
txtkelas.Text = ds.Tables("tbl_info").Rows(0)(2).ToString
txtperlu.Text = ds.Tables("tbl_info").Rows(0)(3).ToString
txtcari.Text = ds.Tables("tbl_info").Rows(0)(4).ToString
ds = New DataSet
Catch ex As Exception
MsgBox("No items match your search", MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
'Confirm dialogBox
Dim dr As DialogResult
dr = MessageBox.Show("Update information?", "Update", MessageBoxButtons.YesNo)
If dr = DialogResult.No Then
'NO CONDITION GOES HERE
Else
'YES CONDITION GOES HERE
'Form restriction and validation
If Len(Trim(txtjenkel.Text)) = 0 Then
MessageBox.Show("Please enter Surname", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtjenkel.Focus()
ElseIf Len(Trim(txtkelas.Text)) = 0 Then
MessageBox.Show("Please enter Email", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtkelas.Focus()
ElseIf Len(Trim(txtperlu.Text)) = 0 Then
MessageBox.Show("Please enter Address", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtperlu.Focus()
ElseIf Len(Trim(txtcari.Text)) = 0 Then
MessageBox.Show("Please enter Contact No", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcari.Focus()
Else
adt = New OleDbDataAdapter("update tbl_info set surname='" & txtjenkel.Text & "', email='" & txtkelas.Text & "', address='" & txtperlu.Text & "', contact_no='" & txtcari.Text & "'where id=" & txtid.Text & "", dbconn)
adt.Fill(ds)
ds = New DataSet
showData() ' refresh data in datagridview
MsgBox("Updated")
clearText() 'clear all text
End If
End If
End Sub
Private Sub dgvInfo_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvInfo.CellClick
Dim i As Integer
i = dgvInfo.CurrentRow.Index
'txtName = datagridName.Item(columnName or columnNumber, rowNumber).value.tostring
txtid.Text = dgvInfo.Item(0, i).Value.ToString
txtjenkel.Text = dgvInfo.Item(1, i).Value.ToString
txtkelas.Text = dgvInfo.Item(2, i).Value.ToString
txtperlu.Text = dgvInfo.Item(3, i).Value.ToString
txtcari.Text = dgvInfo.Item(4, i).Value.ToString
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
'Confirm dialogBox
Dim dr As DialogResult
dr = MessageBox.Show("Delete information?", "Delete", MessageBoxButtons.YesNo)
If dr = DialogResult.No Then
'NO CONDITION GOES HERE
Else
'YES CONDITION GOES HERE
'Form restriction and validation
If Len(Trim(txtjenkel.Text)) = 0 Then
MessageBox.Show("Please enter Surname", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtjenkel.Focus()
ElseIf Len(Trim(txtkelas.Text)) = 0 Then
MessageBox.Show("Please enter Email", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtkelas.Focus()
ElseIf Len(Trim(txtperlu.Text)) = 0 Then
MessageBox.Show("Please enter Address", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtperlu.Focus()
ElseIf Len(Trim(txtcari.Text)) = 0 Then
MessageBox.Show("Please enter Contact No", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcari.Focus()
Else
adt = New OleDbDataAdapter("delete surname='" & txtjenkel.Text & "', email='" & txtkelas.Text & "', address='" & txtperlu.Text & "', contact_no='" & txtcari.Text & "' from tbl_info where id=" & txtid.Text & "", dbconn)
adt.Fill(ds)
ds = New DataSet
showData() ' refresh data in datagridview
MsgBox("Deleted")
clearText() 'clear all text
End If
End If
End Sub
Sub clearText() 'clear all text
txtid.Text = ""
txtjenkel.Text = ""
txtkelas.Text = ""
txtperlu.Text = ""
txtcari.Text = ""
Texttanggal.Text = ""
Textjam.Text = ""
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
'Confirm dialogBox
Dim dr As DialogResult
dr = MessageBox.Show("Clear text?", "Clear", MessageBoxButtons.YesNo)
If dr = DialogResult.No Then
'NO CONDITION GOES HERE
Else
'YES CONDITION GOES HERE
clearText() 'clear all text
End If
End Sub
Private Sub txtContact_no_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) And e.KeyChar <> Chr(8) Then
e.Handled = True
End If
End Sub
Private Sub txtID_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) And e.KeyChar <> Chr(8) Then
e.Handled = True
End If
End Sub
'copyright © 2017 ITGeekSolutions
Private Sub txtID_TextChanged(sender As Object, e As EventArgs) Handles txtid.TextChanged
End Sub
Private Sub txtSurname_TextChanged(sender As Object, e As EventArgs) Handles txtjenkel.TextChanged
End Sub
Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
End Sub
Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
End Sub
Private Sub dgvInfo_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvInfo.CellContentClick
End Sub
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
End Sub
Private Sub txtkelas_TextChanged(sender As Object, e As EventArgs) Handles txtkelas.TextChanged
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Textnama.TextChanged
End Sub
End Class
form login :
Imports System.Data.OleDb
Public Class frmLogin
Private Sub loginUser()
If Len(Trim(txtUsername.Text)) = 0 Then
MessageBox.Show("Please enter user name", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtUsername.Focus()
Exit Sub
End If
If Len(Trim(txtPassword.Text)) = 0 Then
MessageBox.Show("Please enter password", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtPassword.Focus()
Exit Sub
End If
Try
Dim myConnection As OleDbConnection
myConnection = New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=..\db_project321.mdb;Persist Security Info=false;")
Dim myCommand As OleDbCommand
myCommand = New OleDbCommand("SELECT user_name,pass_word FROM tbl_user WHERE user_name = @user_name AND pass_word = @pass_word", myConnection)
Dim uName As New OleDbParameter("@user_name", SqlDbType.VarChar)
Dim uPassword As New OleDbParameter("@pass_word", SqlDbType.VarChar)
uName.Value = txtUsername.Text
uPassword.Value = txtPassword.Text
myCommand.Parameters.Add(uName)
myCommand.Parameters.Add(uPassword)
myCommand.Connection.Open()
Dim myReader As OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Dim Login As Object = 0
If myReader.HasRows Then
myReader.Read()
Login = myReader(Login)
End If
If Login = Nothing Then
MsgBox("Login is Failed...Try again !", MsgBoxStyle.Critical, "Login Denied")
txtUsername.Clear()
txtPassword.Clear()
txtUsername.Focus()
Else
MsgBox("Successfully Login", MsgBoxStyle.Information)
txtUsername.Text = ""
txtPassword.Text = ""
Me.Hide()
frmMain.Show()
End If
myCommand.Dispose()
myConnection.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
loginUser()
End Sub
Private Sub txtUsername_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUsername.KeyPress
If Asc(e.KeyChar) = 13 Then
loginUser() ' or form2.show whatever you form name is
End If
End Sub
Private Sub txtPassword_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If Asc(e.KeyChar) = 13 Then
loginUser() ' or form2.show whatever you form name is
End If
End Sub
'copyright © 2017 ITGeekSolutions
Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
form main :
Imports System.Data.OleDb
Public Class frmMain
Dim dbconn As New OleDbConnection
Dim adt As New OleDbDataAdapter
Dim ds As New DataSet
Dim datatable As New DataTable
Dim cmd As New OleDbCommand
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbconn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=..\db_project321.mdb"
showData() 'show database values in datagridview
customColumnWidth() ' set custom column width
End Sub
'Set customColumnWidth
Private Sub customColumnWidth() ' set custom column width
'datagridName.Columns(columnNumber or columnName)
Dim columnID As DataGridViewColumn = dgvInfo.Columns(0)
columnID.Width = 40 'set columnwidth
Dim columnSurname As DataGridViewColumn = dgvInfo.Columns(1)
columnSurname.Width = 100 'set columnwidth
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'Confirm dialogBox
Dim dr As DialogResult
dr = MessageBox.Show("Save information?", "Save", MessageBoxButtons.YesNo)
If dr = DialogResult.No Then
'NO CONDITION GOES HERE
Else
'YES CONDITION GOES HERE
'Form restriction and validation
If Len(Trim(txtjenkel.Text)) = 0 Then
MessageBox.Show("Please enter Surname", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtjenkel.Focus()
ElseIf Len(Trim(txtkelas.Text)) = 0 Then
MessageBox.Show("Please enter Email", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtkelas.Focus()
ElseIf Len(Trim(txtperlu.Text)) = 0 Then
MessageBox.Show("Please enter Address", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtperlu.Focus()
ElseIf Len(Trim(txtcari.Text)) = 0 Then
MessageBox.Show("Please enter Contact No", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcari.Focus()
Else
adt = New OleDbDataAdapter("insert into tbl_info (nama, jenkel, kelas, keperluan, cari, tanggal, jam) values ('" & Textnama.Text & "','" & txtjenkel.Text & "', '" & txtkelas.Text & "', '" & txtperlu.Text & "', '" & txtcari.Text & "', '" & Texttanggal.Text & "', '" & Textjam.Text & "')", dbconn)
adt.Fill(ds)
ds = New DataSet
showData() ' refresh data in datagridview
MsgBox("Saved")
clearText() 'clear all text
End If
End If
End Sub
Private Sub showData()
Dim dbcommand As String
dbcommand = "SELECT * FROM tbl_info"
adt = New OleDbDataAdapter(dbcommand, dbconn)
datatable = New DataTable
adt.Fill(datatable)
dgvInfo.DataSource = datatable
End Sub
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Dim sql = "select * from tbl_info where id like " & txtid.Text & " "
adt = New OleDbDataAdapter(sql, dbconn)
cmd = New OleDbCommand(sql)
adt.Fill(ds, "tbl_info")
'ds.tables(tableName).rows(rowNumber)(columnNumber).tostring
txtjenkel.Text = ds.Tables("tbl_info").Rows(0)(1).ToString
txtkelas.Text = ds.Tables("tbl_info").Rows(0)(2).ToString
txtperlu.Text = ds.Tables("tbl_info").Rows(0)(3).ToString
txtcari.Text = ds.Tables("tbl_info").Rows(0)(4).ToString
ds = New DataSet
Catch ex As Exception
MsgBox("No items match your search", MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
'Confirm dialogBox
Dim dr As DialogResult
dr = MessageBox.Show("Update information?", "Update", MessageBoxButtons.YesNo)
If dr = DialogResult.No Then
'NO CONDITION GOES HERE
Else
'YES CONDITION GOES HERE
'Form restriction and validation
If Len(Trim(txtjenkel.Text)) = 0 Then
MessageBox.Show("Please enter Surname", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtjenkel.Focus()
ElseIf Len(Trim(txtkelas.Text)) = 0 Then
MessageBox.Show("Please enter Email", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtkelas.Focus()
ElseIf Len(Trim(txtperlu.Text)) = 0 Then
MessageBox.Show("Please enter Address", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtperlu.Focus()
ElseIf Len(Trim(txtcari.Text)) = 0 Then
MessageBox.Show("Please enter Contact No", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcari.Focus()
Else
adt = New OleDbDataAdapter("update tbl_info set surname='" & txtjenkel.Text & "', email='" & txtkelas.Text & "', address='" & txtperlu.Text & "', contact_no='" & txtcari.Text & "'where id=" & txtid.Text & "", dbconn)
adt.Fill(ds)
ds = New DataSet
showData() ' refresh data in datagridview
MsgBox("Updated")
clearText() 'clear all text
End If
End If
End Sub
Private Sub dgvInfo_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvInfo.CellClick
Dim i As Integer
i = dgvInfo.CurrentRow.Index
'txtName = datagridName.Item(columnName or columnNumber, rowNumber).value.tostring
txtid.Text = dgvInfo.Item(0, i).Value.ToString
txtjenkel.Text = dgvInfo.Item(1, i).Value.ToString
txtkelas.Text = dgvInfo.Item(2, i).Value.ToString
txtperlu.Text = dgvInfo.Item(3, i).Value.ToString
txtcari.Text = dgvInfo.Item(4, i).Value.ToString
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
'Confirm dialogBox
Dim dr As DialogResult
dr = MessageBox.Show("Delete information?", "Delete", MessageBoxButtons.YesNo)
If dr = DialogResult.No Then
'NO CONDITION GOES HERE
Else
'YES CONDITION GOES HERE
'Form restriction and validation
If Len(Trim(txtjenkel.Text)) = 0 Then
MessageBox.Show("Please enter Surname", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtjenkel.Focus()
ElseIf Len(Trim(txtkelas.Text)) = 0 Then
MessageBox.Show("Please enter Email", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtkelas.Focus()
ElseIf Len(Trim(txtperlu.Text)) = 0 Then
MessageBox.Show("Please enter Address", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtperlu.Focus()
ElseIf Len(Trim(txtcari.Text)) = 0 Then
MessageBox.Show("Please enter Contact No", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcari.Focus()
Else
adt = New OleDbDataAdapter("delete surname='" & txtjenkel.Text & "', email='" & txtkelas.Text & "', address='" & txtperlu.Text & "', contact_no='" & txtcari.Text & "' from tbl_info where id=" & txtid.Text & "", dbconn)
adt.Fill(ds)
ds = New DataSet
showData() ' refresh data in datagridview
MsgBox("Deleted")
clearText() 'clear all text
End If
End If
End Sub
Sub clearText() 'clear all text
txtid.Text = ""
txtjenkel.Text = ""
txtkelas.Text = ""
txtperlu.Text = ""
txtcari.Text = ""
Texttanggal.Text = ""
Textjam.Text = ""
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
'Confirm dialogBox
Dim dr As DialogResult
dr = MessageBox.Show("Clear text?", "Clear", MessageBoxButtons.YesNo)
If dr = DialogResult.No Then
'NO CONDITION GOES HERE
Else
'YES CONDITION GOES HERE
clearText() 'clear all text
End If
End Sub
Private Sub txtContact_no_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) And e.KeyChar <> Chr(8) Then
e.Handled = True
End If
End Sub
Private Sub txtID_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) And e.KeyChar <> Chr(8) Then
e.Handled = True
End If
End Sub
'copyright © 2017 ITGeekSolutions
Private Sub txtID_TextChanged(sender As Object, e As EventArgs) Handles txtid.TextChanged
End Sub
Private Sub txtSurname_TextChanged(sender As Object, e As EventArgs) Handles txtjenkel.TextChanged
End Sub
Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
End Sub
Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
End Sub
Private Sub dgvInfo_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvInfo.CellContentClick
End Sub
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
End Sub
Private Sub txtkelas_TextChanged(sender As Object, e As EventArgs) Handles txtkelas.TextChanged
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Textnama.TextChanged
End Sub
Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter
End Sub
End Class
Berikut tugas rekayasa perangkat lunak ini saya upload semoga mendapat nilai A dan semoga bermanfaat Terimakasih
