| .CVSMBF Function Programming Example. |
|
 QuickSCREEN Details Example Contents Index |
| ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ |
| CVSMBF Function Programming Example |
|
| The following program reads records from a random-access file containing |
| Microsoft Binary format real numbers stored as strings. Each record |
| contains a student's name and a test score. |
| |
| ' |
| ' Define a user type for the data records. |
| ' |
| TYPE StudentRec |
| NameField AS STRING * 20 |
| Score AS STRING * 4 |
| END TYPE |
| ' Define a variable of the user type. |
| DIM Rec AS StudentRec |
| '******************************************************************** |
| ' This part of the program is an insert whose only function is to |
| ' create a random-access file to be used by the second part of the |
| ' program, which demonstrates the CVSMBF function |
| '******************************************************************** |
| OPEN "TESTDAT1.DAT" FOR RANDOM AS #1 LEN = LEN(Rec) |
| CLS |
| RESTORE |
| READ NameField$, Score$ |
| I = 0 |
| DO WHILE UCASE$(NameField$) <> "END" |
| I = I + 1 |
| Rec.NameField = NameField$ |
| Rec.Score = Score$ |
| PUT #1, I, Rec |
| READ NameField$, Score$ |
| IF NameField$ = "END" THEN EXIT DO |
| LOOP |
| CLOSE #1 |
| ' |
| DATA "John Simmons","100" |
| DATA "Allie Simpson","95" |
| DATA "Tom Tucker","72" |
| DATA "Walt Wagner","90" |
| DATA "Mel Zucker","92" |
| DATA "END","0" |
| '******************************************************************** |
| ' This part of the program demonstrates the CVSMBF function |
| '******************************************************************** |
| ' Open the file for input. |
| OPEN "TESTDAT1.DAT" FOR RANDOM AS #1 LEN=LEN(Rec) |
| Max = LOF(1) / LEN(Rec) |
| ' Read and print all of the records. |
| FOR I = 1 TO Max |
| ' Read a record into the user-type variable Rec. |
| GET #1, I, Rec |
| ' Convert the score from a string containing a Microsoft |
| ' Binary format number to an IEEE-format number. |
| ScoreOut = CVSMBF(Rec.Score) |
| ' Display the name and score. |
| PRINT Rec.NameField, ScoreOut |
| NEXT I |
| CLOSE #1 |
| KILL "TESTDAT1.DAT" |
| END |
| |
