Kamis, 21 Mei 2015

Pertemuan 12, 11 Mei 2015 : Membuat file.txt dan menyimpan data pada notepad di VB.net

Kali ini saya akan membuat tutorial cara membuat aplikasi untuk menyimpan data di notepad Microsoft visual basic 2010 express. Langkah-langkahnya adalah sebagai berikut :
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