Sub Main()

        Task 1.1

        Dim membername As String
        Dim memberidnumber As Integer

        Console.WriteLine("enter membername")
        membername = Console.ReadLine

        Console.WriteLine("enter memberidnumber")
        memberidnumber = Console.ReadLine

        FileOpen(1, "d:/filepractice/sRec.txt", OpenMode.Output)

        FileClose(1)



    End Sub

End Module


    Sub Main()


        Task 1.2

        Dim membername As String
        Dim memberidnumber As Integer

        Console.WriteLine("enter membername")
        membername = Console.ReadLine

        Console.WriteLine("enter memberidnumber")
        memberidnumber = Console.ReadLine

        WriteLine(1, membername)
        WriteLine(1, memberidnumber)

        FileClose(1)

    End Sub

End Module

Sub Main()

        Task 1.3
        Dim membername, searchmembername As String
        Dim memberidnumber As Integer
        Dim isfound As Boolean
        isfound = False

        Console.Write("enter membername to search for :")
        searchmembername = Console.ReadLine
        FileOpen(1, "d:/filepractice/sRec.txt", OpenMode.Input)

        While Not EOF(1)
            Input(1, membername)
            Input(1, memberidnumber)

            If membername = searchmembername Then
                isfound = True

          Console.WriteLine("member_id_number.:" & memberidnumber)
            End If
        End While
        FileClose(1)

        If isfound = False Then Console.WriteLine("record not found")

        Console.ReadKey()

    End Sub

    End Module

 Sub Main()

        TASK 1.4

        Dim membername As String
        Dim memberidnumber As Integer

        Console.WriteLine("enter membername")
        membername = Console.ReadLine

        Console.WriteLine("enter memberidnumber")
        memberidnumber = Console.ReadLine

        FileOpen(1, "d:/filepractice/sRec.txt", OpenMode.Append)

        FileClose(1)

    End Sub

End Module



    Sub Main()

        TASK 1.5

        Dim membername As String
        Dim memberidnumber As Integer
        Dim telno As String
        Dim memsd As Date

        FileOpen(1, "d:/filepractice/sRec.txt", OpenMode.Input)
        FileOpen(1, "d:/file/sRec.txt", OpenMode.Append)

        While Not EOF(1)

            Input(1, membername)
            Input(1, memberidnumber)

            console.writeline("Enter telephone no for membername:", & membername)
            telno = Console.ReadLine
            console.writeline("Enter membership start date for membername:", & memberidnumber)
            memberidnumber = Console.ReadLine

            WriteLine(2, membername)
            WriteLine(2, memberidnumber)
            WriteLine(2, telno)
            WriteLine(2, memsd)

        End While

        FileClose(1)
        FileClose(2)

        My.Computer.FileSystem.DeleteFile("d:/filepractice/sRec.txt")



    End Sub

End Module