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

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 Recordkodingnya 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()

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.