home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue71 / CSharp / CS / TDMWebLib / TDMWebLib.cs < prev    next >
Encoding:
Text File  |  2001-05-16  |  909 b   |  46 lines
  1. namespace TDMWebLib
  2. {
  3.     using System;
  4.  
  5.     /// <summary>
  6.     ///    Summary description for Package.
  7.     /// </summary>
  8.     public class Package
  9.     {
  10.         public Package()
  11.         {
  12.             //
  13.             // TODO: Add Constructor Logic here
  14.             //
  15.         }
  16.  
  17.         private double optionCost(int iOption)
  18.         {
  19.             long lCost = 0;
  20.  
  21.             if ((iOption & 1) > 0)     lCost = lCost + 12;
  22.             if ((iOption & 2) > 0)   lCost = lCost + 30;
  23.             if ((iOption & 4) > 0)   lCost = lCost + 30;
  24.             if ((iOption & 8) > 0)   lCost = lCost + 30;
  25.             if ((iOption & 16) > 0)  lCost = lCost + 100;
  26.  
  27.             return lCost;
  28.         }
  29.  
  30.         public double Basic(int iOption)
  31.         {
  32.             return 60 + optionCost(iOption);
  33.         }
  34.  
  35.         public double Advanced(int iOption)
  36.         {
  37.             return 100 + optionCost(iOption);
  38.         }
  39.  
  40.         public double Professional(int iOption)
  41.         {
  42.             return 150 + optionCost(iOption);
  43.         }
  44.     }
  45. }
  46.