1. Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, ganti nama projectnya menjadi Empolyee Data. Kemudian klik ok.
Ganti nama formnya dengan RecordEmployeeData. Buat tampilan formnya seperti ini.
Terdiri dari 8 label, 7 textbox, 1 combobox, 1 groupbox, dan 3 button.
Kemudian di formnya sisipkan SaveFileDialog yang ada di toolbox dialog.
Kemudian masukan kodingnya untuk masing-masing button . Untuk button Save Record kodingnya adalah sebebagai berikut :
Private Sub btnSaveRecord_Click(sender As System.Object, e As System.EventArgs) Handles btnSaveRecord.Click
' Save the document
SaveDocument()
MessageBox.Show("Data Saved")
End Sub
Untuk button Clear kodingnya adalah sebebagai berikut :
Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
ClearDocument()
End Sub
Untuk button Exit kodingnya adalah sebebagai berikut :
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
' Close the form.
Me.Close()
End Sub
Lalu buat procedure dengan nama SaveDocument.
Sub SaveDocument()
Dim outputFile As StreamWriter ' Object variable
Try
' Create the file.
' tempat penyimpanan file yang di save
outputFile = File.AppendText("D:\piki\Emlpoyee data.txt")
' Write the TextBox to the file.
outputFile.WriteLine(txtFirst.Text)
outputFile.WriteLine(txtMiddle.Text)
outputFile.WriteLine(txtLast.Text)
outputFile.WriteLine(txtEmployeeNumber.Text)
outputFile.WriteLine(cboDepartment.Text)
outputFile.WriteLine(txtTelephone.Text)
outputFile.WriteLine(txtExtension.Text)
outputFile.WriteLine(txtEmail.Text)
' Close the file.
outputFile.Close()
Catch
' Error message for file creation error.
MessageBox.Show("Error creating the file.")
End Try
End Sub
Buat lagi procedure dengan nama ClearDocument.
Sub ClearDocument()
' Clear the contents of the text box.
txtFirst.Clear()
txtMiddle.Clear()
txtLast.Clear()
txtEmployeeNumber.Clear()
cboDepartment.ResetText()
txtTelephone.Clear()
txtExtension.Clear()
txtEmail.Clear()
' Clear the document name.
strFilename = String.Empty
End Sub
2. Kemudian kita membuat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya ReadEmployeeData.
Lalu buat tampilan formnya seperti ini.
Terdiri dari 9 label, 9 textbox, 1 groupbox, dan 3 button.
semua textbox yang ada di form ReadEmployeeData bersifat ReadOnly.
Kemudian masukan kodingnya untuk masing-masing button .
Untuk button Next Record kodingnya adalah sebebagai berikut :
Private Sub btnNextRecord_Click(sender As System.Object, e As System.EventArgs) Handles btnNextRecord.Click
' Increment intCount.
Dim intCount = 1
lblRecord.Text = CStr(intCount)
Dim FILE_NAME As String = "D:\piki\Emlpoyee data.txt"
If System.IO.File.Exists(FILE_NAME) = True Then
Dim inputFile As New System.IO.StreamReader(FILE_NAME)
Else
MsgBox("File Does Not Exist")
End If
' Open the file.
inputFile = File.OpenText("D:\piki\Emlpoyee data.txt")
recordCounter = recordCounter + 1
Dim currentRecord As Integer = 0
Do While (inputFile.Peek() >= 1 Or currentRecord < recordCounter)
' Read the file's contents into the TextBox.
lblFirst.Text = inputFile.ReadLine()
lblMiddle.Text = inputFile.ReadLine()
lblLast.Text = inputFile.ReadLine()
lblEmployee.Text = inputFile.ReadLine()
lblDepartment.Text = inputFile.ReadLine()
lblTelephone.Text = inputFile.ReadLine()
lblExtension.Text = inputFile.ReadLine()
lblEmail.Text = inputFile.ReadLine()
currentRecord = currentRecord + 1
Loop
inputFile.Close()
End Sub
Untuk button Clear kodingnya adalah sebebagai berikut :
Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
' Clear form
lblFirst.Text = String.Empty
lblMiddle.Text = String.Empty
lblLast.Text = String.Empty
lblEmployee.Text = String.Empty
lblDepartment.Text = String.Empty
lblTelephone.Text = String.Empty
lblExtension.Text = String.Empty
lblEmail.Text = String.Empty
End Sub
Untuk button Exit kodingnya adalah sebebagai berikut
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
' Close Form
Me.Close()
End Sub
kemudian deklarasikan variabel berikut di public class.
Public Class ReadEmployeeData
Dim recordCounter As Integer = 0
Dim inputFile As StreamReader ' Object variable
3. Kemudian kita membuat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya MainMenu.
lalu buat tampilan formnya seperti ini.
Kemudian masukan kodingnya untuk masing-masing button.
Untuk button Record Employee Data kodingnya adalah sebagai berikut :
Private Sub btnRecordData_Click(sender As System.Object, e As System.EventArgs) Handles btnRecordData.Click
' Create an instance of the RecordData.
Dim frmRecordData As New RecordEmployeeData
' Display the RecordData in modal style.
frmRecordData.ShowDialog()
End Sub
Untuk button Read Employee Data kodingnya adalah sebagai berikut :
Private Sub btnReadData_Click(sender As System.Object, e As System.EventArgs) Handles btnReadData.Click
' Create an instance of the ReadData.
Dim frmReadData As New ReadEmployeeData
' Display the ReadData in modal style.
frmReadData.ShowDialog()
End Sub
Untuk button Exit kodingnya adalah sebagai berikut :
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
' Close the form.
Me.Close()
End Sub
4. Lalu Run programnya.
SELAMAT MENCOBA !! SEMOGA BERMANFAAT
Tidak ada komentar:
Posting Komentar