Post by Fisher on Feb 2, 2004 16:00:22 GMT -5
dont ask why im doin q-basic, its part of me uni course.....but does anyone happen to know the algos for it? im tryin, but i aint sure if its right, can anyone check this and let me know?
Algorithm for Main Menu
Set the Screen Layout
Begin Do Until
Print Title
Print Menu
Prompt for Option
End Do Until
End Program
Refinement of Prompt for Option
Declare Option as Integer
Input Option
Set Select Case
Option 1 Add Customer
Option 2 Update Customer
Option 3 Display Customer
Option 4 Display Contract
Option 5 Summary
Option 6 Exit
Case Error
End Select Case
Clear Error Message
Algorithm for Subs
Add Customer
Declare CustRec as Customer
Declare RecNum as Integer
Declare RecLen as Integer
Set RecLen as RecLen(Cust)
Open Customer File
Set RecNum as RecLen + 1
Begin Do Until
Set Last CustNo as 0 (+ 1 if available)
Clear Screen
Print Title
Begin Do While
Print Last CustNo
Prompt for CustNo
End Do While
Prompt for Surname
Prompt for Forename
Prompt for TelNo
Prompt for ContCode
Write to Customer File
Print Records Added
Prompt for More Records
End Do Until
Close Customer File
Refinement for Prompt for CustNo
MORE TO COME HERE, STILL WORKIN ON IT
