' DATA ENTRY OR READ DATA FROM FILE

'

' PROGRAM DEVELOPED BY ENYA CHANG

' COPYRIGHT 2001   CHEER

'

Sub DataEntry(Xpos, Ypos)

      Dim Entry As String

      Dim X(100) As Single, Y(100) As Single, N As Integer

      Cls

'

'       DATA ENTRY MODE SELECTION

    Entry = InputBox("Data Entry From File <Y/N> ", "SELECT ENTRY MODE", "Y", Xpos, Ypos)

        If Entry = "Y" Then

        Call DataEntryFromFile(N, X, Y, Xpos, Ypos)

    Else

        Call DataKeyIn(N, X, Y, Xpos, Ypos)

    End If

'  CHEER 2001

End Sub

Sub DataKeyIn(N, X, Y, Xpos, Ypos)

      N = 0

      Do

            N = N + 1

            Do

                  Debug.Print "X,Y OF THE #", N, " POINT";

                  X(N) = Val(InputBox("Enter X value of the point", "X", , Xpos, Ypos))

                  Debug.Print "  X ="; X(N);

                  Y(N) = Val(InputBox("Enter Y value of the point", "Y", , Xpos, Ypos))

                  Debug.Print "  Y ="; Y(N)

                  YN$ = InputBox("Are the data input correct?", "YesNo", "Y", Xpos, Ypos)

            Loop While YN$ <> "Y" And YN$ <> "y"

            YN$ = InputBox("Input Next Data?", "YesNo", "Y", Xpos, Ypos)

      Loop While YN$ = "Y" Or YN$ = "y"

      Cls

      YN$ = InputBox("Save Data to File?", "YesNo", "Y", Xpos, Ypos)

      If YN$ = "Y" Or YN$ = "y" Then

            Call SaveDataToFile(N, X, Y, Xpos, Ypos)

      End If

End Sub

Sub SaveDataToFile(N, X, Y, Xpos, Ypos)

Dim FileNo As Long, FileName As String

    FileNo = FreeFile

    FileName = InputBox("Enter File Name ", "FILE NAME", "DataEntry.dat", Xpos, Ypos)

    Open FileName For Output As #FileNo

        Print " I", " X(I)", " Y(I)"

        For I = 1 To N

            Print #FileNo, X(I), Y(I)

            Print I, X(I), Y(I)

        Next I

    Close #FileNo

End Sub

Sub DataEntryFromFile(N, X, Y, Xpos, Ypos)

Dim FileNo As Long, FileName As String

FileNo = FreeFile

FileName = InputBox("Enter File Name for Data Input", "FILE NAME", "DataEntry.dat", Xpos, Ypos)

Open FileName For Input As #FileNo

    N = 0

    Print " I", " X(I)", " Y(I)"

    Do While Not EOF(FileNo)

        N = N + 1

        Input #FileNo, X(N), Y(N)

        Print N, X(N), Y(N)

    Loop

Close #FileNo

End Sub