home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer's Journal Buyer's Guide / Visual_Basic_Programmers_Journal_Buyers_Guide_CD-ROM_1994.iso / pinnacle / cbdemo / cbdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1993-11-10  |  10.0 KB  |  303 lines
  1. Declare Function GetPrivateProfileString Lib "kernel" (ByVal szSection$, ByVal szEntry$, ByVal szDefault$, ByVal szBuf$, ByVal nBufLen%, ByVal szFile$) As Integer
  2. Declare Function GetSystemMetrics Lib "user.exe" (ByVal nIndex%) As Integer
  3. Global GraphType As Integer
  4. Global GraphStyle As Integer
  5. Global LogoPath As String
  6. Global Const SM_CYMENU = 15
  7. Global Const SM_CYCAPTION = 4
  8. Global redrawflag As Integer
  9. Global ChangeGrid As Integer
  10.  
  11. Sub FillGrid ()
  12.     Form3.Grid1.Rows = 3
  13.     Form3.Grid1.Cols = 6
  14.     Form3.Grid1.FixedRows = 1
  15.     Form3.Grid1.FixedCols = 1
  16.     Form3.Grid1.FillStyle = 1
  17.     Form3.Grid1.Text = ""
  18.     Form3.Grid1.FillStyle = 0
  19.     Form3.Grid1.ScrollBars = 0
  20.     
  21.     Form3.Grid1.Row = 0
  22.     Form3.Grid1.Col = 1
  23.     Form3.Grid1.Text = "One"
  24.     Form3.Grid1.Col = 2
  25.     Form3.Grid1.Text = "Two"
  26.     Form3.Grid1.Col = 3
  27.     Form3.Grid1.Text = "Three"
  28.     Form3.Grid1.Col = 4
  29.     Form3.Grid1.Text = "Four"
  30.     Form3.Grid1.Col = 5
  31.     Form3.Grid1.Text = "Five"
  32.  
  33.     Form3.Grid1.Col = 0
  34.     Form3.Grid1.Row = 1
  35.     Form3.Grid1.Text = "Set 1"
  36.     Form3.Grid1.Row = 2
  37.     Form3.Grid1.Text = "Set 2"
  38.     
  39.     Form3.Grid1.Row = 1
  40.     Form3.Grid1.Col = 1
  41.     Form3.Grid1.Text = "20"
  42.     Form3.Grid1.Col = 2
  43.     Form3.Grid1.Text = "40"
  44.     Form3.Grid1.Col = 3
  45.     Form3.Grid1.Text = "30"
  46.     Form3.Grid1.Col = 4
  47.     Form3.Grid1.Text = "50"
  48.     Form3.Grid1.Col = 5
  49.     Form3.Grid1.Text = "10"
  50.  
  51.     Form3.Grid1.Row = 2
  52.     Form3.Grid1.Col = 1
  53.     Form3.Grid1.Text = "25"
  54.     Form3.Grid1.Col = 2
  55.     Form3.Grid1.Text = "10"
  56.     Form3.Grid1.Col = 3
  57.     Form3.Grid1.Text = "35"
  58.     Form3.Grid1.Col = 4
  59.     Form3.Grid1.Text = "20"
  60.     Form3.Grid1.Col = 5
  61.     Form3.Grid1.Text = "15"
  62.  
  63. End Sub
  64.  
  65. Sub GridtoGraph ()
  66.    c = Form3.Grid1.SelEndCol - Form3.Grid1.SelStartCol + 1
  67.    If c > 1 And c < 6 Then
  68.     Form3.Graph1.NumPoints = c
  69.     r = Form3.Grid1.SelEndRow - Form3.Grid1.SelStartRow + 1
  70.     If r > 0 And r < 3 Then
  71.        Form3.Graph1.NumSets = r
  72.     End If
  73.     Form3.Graph1.QuickData = Form3.Grid1.Clip
  74.     Form3.Graph1.DataReset = 5 ' Clear legends
  75.     
  76.     Form3.Graph1.AutoInc = 1
  77.     If r = 2 Then ' Two Sets of Data
  78.         Form3.Graph1.LegendText = "Set 1"
  79.         Form3.Graph1.LegendText = "Set 2"
  80.         Form3.Graph1.ColorData = 9
  81.         Form3.Graph1.ColorData = 10
  82.     Else
  83.         If Form3.Grid1.SelStartRow = 1 Then
  84.        ' Only set 1 is being graphed
  85.             Form3.Graph1.LegendText = "Set 1"
  86.             nCol = 9
  87.         Else
  88.        ' Only set 2 is being graphed
  89.             Form3.Graph1.LegendText = "Set 2"
  90.             nCol = 10
  91.         End If
  92.         For i = 1 To Form3.Graph1.NumPoints
  93.             Form3.Graph1.ColorData = nCol
  94.         Next
  95.     End If
  96.     
  97.  
  98.     r = Form3.Grid1.Row
  99.     c = Form3.Grid1.Col
  100.     Form3.Grid1.Row = 0 ' Form axis labels
  101.     For i = Form3.Grid1.SelStartCol To Form3.Grid1.SelEndCol
  102.        Form3.Grid1.Col = i
  103.        Form3.Graph1.LabelText = Form3.Grid1.Text
  104.     Next
  105.  
  106.     Form3.Grid1.Row = r
  107.     Form3.Grid1.Col = c
  108.     Form3.Graph1.DrawMode = 2
  109.    End If
  110.  
  111.  
  112. End Sub
  113.  
  114. Sub PointsnSets ()
  115.     n = Val(LTrim(Form2.MaskedEdit1.Text))
  116.     If n > 5 Then
  117.         r = MsgBox("Demo version limit of 5 points", 64, "ChartBuilder Demo")
  118.         Form2.MaskedEdit1.Text = "05"
  119.     End If
  120.     n = Val(LTrim(Form2.MaskedEdit2.Text))
  121.     If n > 2 Then
  122.         r = MsgBox("Demo version limit of 2 sets", 64, "ChartBuilder Demo")
  123.         Form2.MaskedEdit2.Text = "02"
  124.         Form1.Graph1.NumSets = 2
  125.         Form1.Graph1.DrawMode = 2
  126.     End If
  127.     Form1.Graph1.NumPoints = Val(LTrim(Form2.MaskedEdit1.Text))
  128.     Form1.Graph1.NumSets = Val(LTrim(Form2.MaskedEdit2.Text))
  129. End Sub
  130.  
  131. Sub ResetGraphStyle (GType%)
  132.     ' Set graph style combo box (combo2) to match graph type (Gtype%)
  133.  
  134.     Dim TempStyleSetting As Integer
  135.     TempStyleSetting = Form2.Combo2.ListIndex
  136.  
  137.     Form2.Combo2.Clear
  138.     Select Case GType%
  139.         Case 1
  140.             Form2.Combo2.AddItem "Default"
  141.             Form2.Combo2.AddItem "No Label Lines"
  142.             Form2.Combo2.AddItem "Colored Labels"
  143.             Form2.Combo2.AddItem "Colored Labels No Lines"
  144.             Form2.Combo2.AddItem "% Labels"
  145.             Form2.Combo2.AddItem "% Labels without Lines"
  146.             Form2.Combo2.AddItem "% Colored Labels"
  147.             Form2.Combo2.AddItem "% Colored Labels without LInes"
  148.             If GraphType = 1 Or GraphType = 2 Then
  149.                 Form2.Combo2.ListIndex = GraphStyle
  150.             Else
  151.                 Form2.Combo2.ListIndex = 0
  152.             End If
  153.         
  154.         Case 2
  155.             Form2.Combo2.AddItem "Default"
  156.             Form2.Combo2.AddItem "No Label Lines"
  157.             Form2.Combo2.AddItem "Colored Labels"
  158.             Form2.Combo2.AddItem "Colored Labels No Lines"
  159.             Form2.Combo2.AddItem "% Labels"
  160.             Form2.Combo2.AddItem "% Labels without Lines"
  161.             Form2.Combo2.AddItem "% Colored Labels"
  162.             Form2.Combo2.AddItem "% Colored Labels without LInes"
  163.             If GraphType = 1 Or GraphType = 2 Then
  164.                 Form2.Combo2.ListIndex = GraphStyle
  165.             Else
  166.                 Form2.Combo2.ListIndex = 0
  167.             End If
  168.         Case 3
  169.             Form2.Combo2.AddItem "Default"
  170.             Form2.Combo2.AddItem "Horizontal"
  171.             Form2.Combo2.AddItem "Stacked"
  172.             Form2.Combo2.AddItem "Horizontal Stacked"
  173.             Form2.Combo2.AddItem "Stacked %"
  174.             Form2.Combo2.AddItem "Horizontal Stacked %"
  175.             If GraphType = 3 Or (GraphType = 4 And GraphStyle <= 5) Then
  176.                 Form2.Combo2.ListIndex = GraphStyle
  177.             Else
  178.                 Form2.Combo2.ListIndex = 0
  179.             End If
  180.         Case 4
  181.             Form2.Combo2.AddItem "Default"
  182.             Form2.Combo2.AddItem "Horizontal"
  183.             Form2.Combo2.AddItem "Stacked"
  184.             Form2.Combo2.AddItem "Horizontal Stacked"
  185.             Form2.Combo2.AddItem "Stacked %"
  186.             Form2.Combo2.AddItem "Horizontal Stacked %"
  187.             Form2.Combo2.AddItem "Z-Clustered"
  188.             Form2.Combo2.AddItem "Horizontal Z_Clustered"
  189.             If GraphType = 3 Or GraphType = 4 Then
  190.                 Form2.Combo2.ListIndex = GraphStyle
  191.             Else
  192.                 Form2.Combo2.ListIndex = 0
  193.             End If
  194.         
  195.         Case 5
  196.             Form2.Combo2.AddItem "Default"
  197.             Form2.Combo2.AddItem "Spaced Bars"
  198.             If GraphType = 5 Then
  199.                 Form2.Combo2.ListIndex = GraphStyle
  200.             Else
  201.                 Form2.Combo2.ListIndex = 0
  202.             End If
  203.  
  204.         Case 6
  205.             Form2.Combo2.AddItem "Default"
  206.             Form2.Combo2.AddItem "Symbols"
  207.             Form2.Combo2.AddItem "Sticks"
  208.             Form2.Combo2.AddItem "Stick and Symbols"
  209.             Form2.Combo2.AddItem "Lines"
  210.             Form2.Combo2.AddItem "Lines and Symbols"
  211.             Form2.Combo2.AddItem "Lines and Sticks"
  212.             Form2.Combo2.AddItem "Lines, Sticks, and Symbols"
  213.             If GraphType = 6 Or GraphType = 7 Then
  214.                 Form2.Combo2.ListIndex = GraphStyle
  215.             Else
  216.                 Form2.Combo2.ListIndex = 0
  217.             End If
  218.         
  219.         Case 7
  220.             Form2.Combo2.AddItem "Default"
  221.             Form2.Combo2.AddItem "Symbols"
  222.             Form2.Combo2.AddItem "Sticks"
  223.             Form2.Combo2.AddItem "Stick and Symbols"
  224.             Form2.Combo2.AddItem "Lines"
  225.             Form2.Combo2.AddItem "Lines and Symbols"
  226.             Form2.Combo2.AddItem "Lines and Sticks"
  227.             Form2.Combo2.AddItem "Lines, Sticks, and Symbols"
  228.             If GraphType = 6 Or GraphType = 7 Then
  229.                 Form2.Combo2.ListIndex = GraphStyle
  230.             Else
  231.                 Form2.Combo2.ListIndex = 0
  232.             End If
  233.  
  234.         Case 8
  235.             Form2.Combo2.AddItem "Default"
  236.             Form2.Combo2.AddItem "Absolute"
  237.             Form2.Combo2.AddItem "Percentage"
  238.             If GraphType = 8 Or GraphType = 14 Then
  239.                 Form2.Combo2.ListIndex = GraphStyle
  240.             Else
  241.                 Form2.Combo2.ListIndex = 0
  242.             End If
  243.         
  244.         Case 9
  245.             Form2.Combo2.AddItem "Default"
  246.             Form2.Combo2.AddItem "Curve Only"
  247.             Form2.Combo2.AddItem "Symbols Only"
  248.             Form2.Combo2.AddItem "Curve and SymbolsStick and Symbols"
  249.             If GraphType = 9 Then
  250.                 Form2.Combo2.ListIndex = GraphStyle
  251.             Else
  252.                 Form2.Combo2.ListIndex = 0
  253.             End If
  254.         
  255.         Case 10
  256.             Form2.Combo2.AddItem "Default"
  257.             Form2.Combo2.AddItem "Symbols"
  258.             Form2.Combo2.AddItem "Sticks"
  259.             Form2.Combo2.AddItem "Stick and Symbols"
  260.             Form2.Combo2.AddItem "Lines"
  261.             Form2.Combo2.AddItem "Lines and Symbols"
  262.             Form2.Combo2.AddItem "Lines and Sticks"
  263.             Form2.Combo2.AddItem "Lines, Sticks, and Symbols"
  264.             If GraphType = 10 Then
  265.                 Form2.Combo2.ListIndex = GraphStyle
  266.             Else
  267.                 Form2.Combo2.ListIndex = 0
  268.             End If
  269.         
  270.         Case 11
  271.             Form2.Combo2.AddItem "Default"
  272.             Form2.Combo2.AddItem "No Close Bar"
  273.             Form2.Combo2.AddItem "No High-Low Bars"
  274.             Form2.Combo2.AddItem "No Bars"
  275.             If GraphType = 11 Then
  276.                 Form2.Combo2.ListIndex = GraphStyle
  277.             Else
  278.                 Form2.Combo2.ListIndex = 0
  279.             End If
  280.         
  281.         Case 12  'No Options
  282.             Form2.Combo2.AddItem "Default"
  283.             GraphStyle = 0
  284.             Form2.Combo2.ListIndex = 0
  285.         Case 13  'No Options
  286.             Form2.Combo2.AddItem "Default"
  287.             GraphStyle = 0
  288.             Form2.Combo2.ListIndex = 0
  289.         Case 14
  290.             Form2.Combo2.AddItem "Default"
  291.             Form2.Combo2.AddItem "Absolute"
  292.             Form2.Combo2.AddItem "Percentage"
  293.             If GraphType = 8 Or GraphType = 14 Then
  294.                 Form2.Combo2.ListIndex = GraphStyle
  295.             Else
  296.                 Form2.Combo2.ListIndex = 0
  297.             End If
  298.  
  299.     End Select
  300.  
  301. End Sub
  302.  
  303.