home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rptgen / main.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  2.7 KB  |  80 lines
  1.  
  2. Sub main ()
  3. ' main routine to create a test report using random data
  4.  
  5. '----------------------------------------
  6. ' CREATE A NEW REPORT
  7. '----------------------------------------
  8. r% = RptCreate("Test Report", 6, 1, 45, 5, 0, "US$ Warrants", "Technically Cheap Warrants", "A minor footnote", "Plus The Company Name")
  9.  
  10. ' DEFINE COLUMNS
  11. RptDefineColumn r%, 1, "9", "Quick Code", 800, 1, "####", -1
  12. RptDefineColumn r%, 2, "A", "Name", 2400, 0, "", -1
  13. RptDefineColumn r%, 3, "9", "Premium", 800, 2, "####.###", 0
  14. RptDefineColumn r%, 4, "9", "Gearing", 800, 2, "####.#", -1
  15. RptDefineColumn r%, 5, "9", "In The Money (%)", 1000, 2, "#,###.##\%", 0
  16. RptDefineColumn r%, 6, "9", "Share Move to Double Warrant", 1200, 2, "#,###.###\%", -1
  17. RptDefineColumn r%, 7, "9", "Warrant Price", 1500, 1, "$####.##\%;(####.##)", -1
  18.  
  19. '-------------------------------------------
  20. ' POPULATE WITH VALUES
  21. '-------------------------------------------
  22.  
  23. RptSetText r%, 2, 1, "CANNON #1"
  24. RptSetText r%, 2, 2, "C.ITOH #3"
  25. RptSetText r%, 2, 3, "C.ITOH #4"
  26. RptSetText r%, 2, 4, "C.ITOH #5"
  27. RptSetText r%, 2, 5, "NIPPON LIGHT METAL"
  28. RptSetText r%, 2, 6, "HITACHI #1"
  29. RptSetText r%, 2, 7, "SANYO"
  30. RptSetText r%, 2, 8, "SANKYO ALUMINIUM #3"
  31. RptSetText r%, 2, 9, "MITSUBISHI M+F"
  32. RptSetText r%, 2, 10, "TOYOTA #5"
  33. RptSetText r%, 2, 11, "YASUDA"
  34. RptSetText r%, 2, 12, "CANNON #2"
  35. RptSetText r%, 2, 13, "KINKI NIPPON"
  36. RptSetText r%, 2, 14, "ALL NIPPON AIRWAYS"
  37. RptSetText r%, 2, 15, "AICHI ELECTRIC"
  38. RptSetText r%, 2, 16, "ASAHI BREWERIES"
  39. RptSetText r%, 2, 17, "ASAHI GLASS #3"
  40. RptSetText r%, 2, 18, "ASAHI GLASS #4"
  41. RptSetText r%, 2, 19, "ASAHI GLASS #5"
  42. RptSetText r%, 2, 20, "NAGOYA RAILROAD"
  43. RptSetText r%, 2, 21, "MR MAX"
  44. RptSetText r%, 2, 22, "MITSUIBISHI PLASTICS"
  45. RptSetText r%, 2, 23, "SAPPORO BREWERIES"
  46. RptSetText r%, 2, 24, "SEIYO FOOD #2"
  47. RptSetText r%, 2, 25, "SHINKO WIRE"
  48. RptSetText r%, 2, 26, "TOKYO TEKKO"
  49. RptSetText r%, 2, 27, "TOPY #2"
  50. RptSetText r%, 2, 28, "TOPY #3"
  51. RptSetText r%, 2, 29, "TOSHIBA CERAMICS #1"
  52. RptSetText r%, 2, 30, "TOSHIBA CERAMICS #2"
  53. RptSetText r%, 2, 31, "TOHO RAYON"
  54. RptSetText r%, 2, 32, "TOSHIBA"
  55. RptSetText r%, 2, 33, "TOWA REAL ESTATE #2"
  56. RptSetText r%, 2, 34, "TOWA REAL ESTATE #3"
  57. RptSetText r%, 2, 35, "TOSOH CORP"
  58. RptSetText r%, 2, 36, "MEITEC #1"
  59. RptSetText r%, 2, 37, "MIKASA COCA COLA"
  60. RptSetText r%, 2, 38, "MARUI"
  61. RptSetText r%, 2, 39, "KOMATSU #1"
  62. RptSetText r%, 2, 40, "KOMATSU #2"
  63. RptSetText r%, 2, 41, "KYOCERA"
  64. RptSetText r%, 2, 42, "LION CORP"
  65. RptSetText r%, 2, 43, "JOSHIN DENKI #2"
  66. RptSetText r%, 2, 44, "JOSHIN DENKI #3"
  67. RptSetText r%, 2, 45, "KAWASAKI STEEL"
  68.  
  69. For x% = 1 To 7
  70.     If x% <> 2 Then
  71.     For y% = 1 To 45
  72.         RptSetValue r%, x%, y%, (Rnd * 100) - 50
  73.     Next
  74.     End If
  75. Next
  76.  
  77. RptNewPage r%, 1
  78. End Sub
  79.  
  80.