Visual Basic

Option Explicit On <br />
Option Strict On<br />
Public Class frmPhone<br />
    Inherits System.Windows.Forms.Form<br />
<br />
    'Globle variables<br />
    Dim FileNumber, Position As Integer, FileName As String<br />
    Dim MyFile As String = "phonelist.txt"<br />
<br />
    'create record type the name of record is PhoneList<br />
    Structure PhoneList<br />
        Dim Inits As String<br />
        Dim Gender As String<br />
        <VBFixedString(20)> Dim FName As String<br />
        <VBFixedString(20)> Dim SName As String<br />
        <VBFixedArray(2)> Dim MName As String<br />
        <VBFixedArray(20)> Dim HomePhone As String<br />
        <VBFixedArray(20)> Dim Mobile As String<br />
        <VBFixedArray(30)> Dim Email As String<br />
        <VBFixedArray(5)> Dim HouseNo As String<br />
        <VBFixedArray(20)> Dim FLine As String<br />
        <VBFixedArray(20)> Dim SLine As String<br />
        <VBFixedArray(20)> Dim Town As String<br />
        <VBFixedArray(10)> Dim PostCode As String<br />
        <VBFixedArray(15)> Dim Country As String<br />
    End Structure<br />
    'Function to use last record<br />
    Private Function FindLastRecordNo() As Integer<br />
        Dim Temp As PhoneList, FileNum As Integer<br />
        FileNum = FreeFile() 'Free file number<br />
        FileOpen(FileNum, MyFile, OpenMode.Random, , , Len(Temp))<br />
        FindLastRecordNo = 1<br />
        Do While Not EOF(FileNum) 'EOF() function is using to detect the end of file<br />
            Dim vt As ValueType = Temp<br />
            FileGet(FileNum, vt, ) 'Get file file function is using to get record from random file<br />
            Temp = CType(vt, PhoneList)<br />
            FindLastRecordNo = FindLastRecordNo + 1<br />
        Loop<br />
        FileClose(FileNum)<br />
    End Function<br />
<br />
<br />
    Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click<br />
        Dim Response As DialogResult<br />
        Dim PhoneBook As PhoneList, LastRecord, I As Integer<br />
        txtName.Text = StrConv(txtName.Text, VbStrConv.ProperCase)<br />
        txtMiddle.Text = StrConv(txtMiddle.Text, VbStrConv.ProperCase)<br />
        txtSurname.Text = StrConv(txtSurname.Text, VbStrConv.ProperCase)<br />
        txtFirstLine.Text = StrConv(txtFirstLine.Text, VbStrConv.ProperCase)<br />
        txtSecondLine.Text = StrConv(txtSecondLine.Text, VbStrConv.ProperCase)<br />
        txtTown.Text = StrConv(txtTown.Text, VbStrConv.ProperCase)<br />
        txtPostCode.Text = StrConv(txtPostCode.Text, VbStrConv.UpperCase)<br />
        LastRecord = FindLastRecordNo() 'call last record function <br />
        'Check if all three text boxes in tabpage add is not blank<br />
        FileNumber = FreeFile()<br />
        FileOpen(FileNumber, MyFile, OpenMode.Random, , , Len(PhoneBook))<br />
        PhoneBook.Inits = cboInits.Text<br />
        PhoneBook.Gender = cboGender.Text<br />
        PhoneBook.FName = txtName.Text<br />
        PhoneBook.MName = txtMiddle.Text<br />
        PhoneBook.SName = txtSurname.Text<br />
        PhoneBook.HomePhone = CStr(Val(txtHome.Text))<br />
        PhoneBook.Mobile = CStr(Val(txtMobile.Text))<br />
        PhoneBook.Email = CStr(Val(txtEmail.Text))<br />
        PhoneBook.HouseNo = CStr(Val(txtHouse.Text))<br />
        PhoneBook.FLine = txtFirstLine.Text<br />
        PhoneBook.SLine = txtSecondLine.Text<br />
        PhoneBook.Town = txtTown.Text<br />
        PhoneBook.PostCode = txtPostCode.Text<br />
        PhoneBook.Country = cboCountry.Text<br />
        FilePut(FileNumber, PhoneBook, LastRecord)<br />
        FileClose(FileNumber)<br />
        MessageBox.Show("Item successfuly Saved", "Item Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)<br />
    End Sub<br />
End Class