home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap36 / maketeam.bas < prev    next >
Encoding:
BASIC Source File  |  1995-09-19  |  2.5 KB  |  66 lines
  1. Attribute VB_Name = "basMain"
  2. '=====================================================================
  3. 'MAIN.BAS by Frank Font 1995
  4. '
  5. 'This VB 4 file contains functions and definitions
  6. 'for the MakeTeam program.
  7. '
  8. '*********************************************************************
  9. 'NOTE:  These program procedures are for entertainment purposes ONLY.
  10. '       No warantees are implied or expressed for this program or any
  11. '       of its procedures.
  12. '=====================================================================
  13. Option Explicit
  14. Public Const gProgramTitle = "Best Team Selector"
  15. Public Const gProgramVersion = "1.0"
  16. Public Const gProgramRevision = "B1"
  17.  
  18. Public Const MAX_Integer = 32700   'Just need a huge figure.
  19. Public Const MAX_Double = 10000    'Just need huge#. (Small due to bug)
  20. Public Const MAX_Long = 2100000000 'Just need a huge figure.
  21. Public Const MAX_Bad = 100        'Maximum bad item score.
  22.  
  23. Public gMainDB As DATABASE        'Database object of main database.
  24. Public gMainDBName As String      'Name of main database.
  25. Public gExactSkills               'If true, only candidates with all skills are considered.
  26. Public JobsInProject As Integer   'Number of jobs in the project.
  27. Public EmpsInPool As Integer      'Number of available employees.
  28. Public NodeHeapSize As Long       'Size of heap used in analysis.
  29. Public MemPoolSize As Long        'Size of raw node pool.
  30. Public gCancelMessage As Integer  'Trigger cancel when searching for team.
  31. Public gDefaultRating As Integer  'Default rating value when adding.
  32. Public gAction As Integer
  33. Public gSkillKey
  34. Public gProjectKey
  35. Public gJobtitleKey
  36.  
  37. Public Type mejrec_t    'Create job record.
  38.     status As Boolean   'True if node is active.
  39.     job As Integer      'Job applied to employee
  40.     emp As Integer      'Employee number
  41.     cost As Double      'Cost of employee's at node.
  42.     Parent As Long      'pointer in memPool()
  43. End Type
  44. Public memPool() As mejrec_t   'Array of fake memory pool.
  45. Public nodeHeap() As Long      'Array of pointers to memPool().
  46.  
  47. '---------------------------------------------------------------------
  48. 'Initialize all memory and heap storage.
  49. '---------------------------------------------------------------------
  50. Sub InitAll()
  51.   InitmemPool
  52.   InitHeap
  53. End Sub
  54.  
  55.  
  56. '----------------------------------------------------------------------
  57. 'This procedure runs before anything else at load time.
  58. '----------------------------------------------------------------------
  59. Sub Main()
  60.   frmSplash.Show
  61. End Sub
  62.  
  63.  
  64.  
  65.  
  66.