fork download
copy 
  1. Imports System
  2. Option Explicit On
  3. Imports System.Timers
  4. Imports System.Reflection
  5. Imports System.Drawing
  6. Imports System.Windows.Forms
  7. Imports Excel = Microsoft.Office.Interop.Excel
  8. Imports System.Windows.Forms.DataVisualization.Charting
  9.  
  10. Public Class Test
  11. 	Inherits Form
  12.  
  13.     'Set properties for CRES
  14.     Dim cExcel As Excel.Application
  15.     Dim cBook As Excel.Workbook
  16.     Dim cBooks As Excel.Workbooks
  17.     Dim cSheet As Excel.Worksheet
  18.  
  19.     Dim yFont As New Font("Times New Roman", 12, FontStyle.Bold) 'Title Font
  20.     Dim timeRng As Integer = 30
  21.  
  22.     Sub ClearPoints()
  23.         Chart1.Series("Average").Points.Clear()
  24.         Chart1.Series("CLx").Points.Clear()
  25.         Chart1.Series("UCLx").Points.Clear()
  26.         Chart1.Series("LCLx").Points.Clear()
  27.         Chart1.Series("A_GT").Points.Clear()
  28.         Chart1.Series("A_LT").Points.Clear()
  29.  
  30.         Chart2.Series("StdDev").Points.Clear()
  31.         Chart2.Series("CLs").Points.Clear()
  32.         Chart2.Series("UCLs").Points.Clear()
  33.         Chart2.Series("LCLs").Points.Clear()
  34.         Chart2.Series("S_GT").Points.Clear()
  35.         Chart2.Series("S_LT").Points.Clear()
  36.  
  37.         Chart3.Series("OpenPins").Points.Clear()
  38.         Chart3.Series("CLnp").Points.Clear()
  39.         Chart3.Series("UCLnp").Points.Clear()
  40.         Chart3.Series("LCLnp").Points.Clear()
  41.         Chart3.Series("H_GT").Points.Clear()
  42.         Chart3.Series("H_LT").Points.Clear()
  43.  
  44.         Chart4.Series("OpenPins").Points.Clear()
  45.         Chart4.Series("CLnp").Points.Clear()
  46.         Chart4.Series("UCLnp").Points.Clear()
  47.         Chart4.Series("LCLnp").Points.Clear()
  48.         Chart4.Series("H_GT").Points.Clear()
  49.         Chart4.Series("H_LT").Points.Clear()
  50.     End Sub
  51.  
  52.     Sub Chart1Details()
  53.  
  54.         'Set X-Axis
  55.         Chart1.ChartAreas(0).AxisX.MajorGrid.Enabled = False
  56.         Chart1.ChartAreas(0).AxisX.IsLabelAutoFit = True
  57.         Chart1.ChartAreas(0).AxisX.LabelAutoFitStyle = LabelAutoFitStyles.DecreaseFont
  58.         Chart1.ChartAreas(0).AxisX.ScaleView.Position = Chart1.Series(0).Points.Count - 35
  59.         Chart1.ChartAreas(0).AxisX.ScaleView.Size = 35
  60.         Chart1.ChartAreas(0).AxisX.Interval = 5
  61.         Chart1.ChartAreas(0).AxisX.LabelStyle.Font = New Font("Times New Roman", 8)
  62.  
  63.         'Set Y-Axis
  64.         Chart1.ChartAreas(0).AxisY.MajorGrid.Enabled = False
  65.         Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#.###"
  66.         Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Times New Roman", 10)
  67.  
  68.     End Sub
  69.  
  70.     Sub Chart2Details()
  71.         'Set X-Axis
  72.         Chart2.ChartAreas(0).AxisX.MajorGrid.Enabled = False
  73.         Chart2.ChartAreas(0).AxisX.IsLabelAutoFit = True
  74.         Chart2.ChartAreas(0).AxisX.LabelAutoFitStyle = LabelAutoFitStyles.DecreaseFont
  75.         Chart2.ChartAreas(0).AxisX.ScaleView.Position = Chart2.Series(0).Points.Count - 35
  76.         Chart2.ChartAreas(0).AxisX.ScaleView.Size = 35
  77.         Chart2.ChartAreas(0).AxisX.Interval = 5
  78.         Chart2.ChartAreas(0).AxisX.LabelStyle.Font = New Font("Times New Roman", 8)
  79.  
  80.         'Set Y-Axis
  81.         Chart2.ChartAreas(0).AxisY.MajorGrid.Enabled = False
  82.         Chart2.ChartAreas(0).AxisY.LabelStyle.Format = "#.###"
  83.         Chart2.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Times New Roman", 10)
  84.     End Sub
  85.  
  86.     Sub Chart3Details()
  87.         'Set X-Axis
  88.         Chart3.ChartAreas(0).AxisX.MajorGrid.Enabled = False
  89.         Chart3.ChartAreas(0).AxisX.IsLabelAutoFit = True
  90.         Chart3.ChartAreas(0).AxisX.LabelAutoFitStyle = LabelAutoFitStyles.DecreaseFont
  91.         Chart3.ChartAreas(0).AxisX.ScaleView.Position = Chart3.Series(0).Points.Count - 35
  92.         Chart3.ChartAreas(0).AxisX.ScaleView.Size = 35
  93.         Chart3.ChartAreas(0).AxisX.Interval = 5
  94.         Chart3.ChartAreas(0).AxisX.LabelStyle.Font = New Font("Times New Roman", 8)
  95.  
  96.         'Set Y-Axis
  97.         Chart3.ChartAreas(0).AxisY.MajorGrid.Enabled = False
  98.         'Chart3.ChartAreas(0).AxisY.LabelStyle.Format = "#.###"
  99.         Chart3.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Times New Roman", 10)
  100.     End Sub
  101.  
  102.     Sub Chart4Details()
  103.         'Set X-Axis
  104.         Chart4.ChartAreas(0).AxisX.MajorGrid.Enabled = False
  105.         Chart4.ChartAreas(0).AxisX.IsLabelAutoFit = True
  106.         Chart4.ChartAreas(0).AxisX.LabelAutoFitStyle = LabelAutoFitStyles.DecreaseFont
  107.         Chart4.ChartAreas(0).AxisX.ScaleView.Position = Chart4.Series(0).Points.Count - 35
  108.         Chart4.ChartAreas(0).AxisX.ScaleView.Size = 35
  109.         Chart4.ChartAreas(0).AxisX.Interval = 5
  110.         Chart4.ChartAreas(0).AxisX.LabelStyle.Font = New Font("Times New Roman", 8)
  111.  
  112.         'Set Y-Axis
  113.         Chart4.ChartAreas(0).AxisY.MajorGrid.Enabled = False
  114.         'Chart4.ChartAreas(0).AxisY.LabelStyle.Format = "#.###"
  115.         Chart4.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Times New Roman", 10)
  116.     End Sub
  117.  
  118.     Sub openMacroCRES()
  119.  
  120.         cExcel = CreateObject("Excel.Application")
  121.         cExcel.Visible = False
  122.         cBooks = cExcel.Workbooks
  123.         cBook = cBooks.Open(My.Application.Info.DirectoryPath & "\Data Inputs.xlsm")
  124.  
  125.     End Sub
  126.  
  127.     Sub CleanWB_CRES()
  128.         'Clean up: Close the workbook and quit Excel
  129.         cSheet = Nothing
  130.         cBook.Close(False)
  131.         System.Runtime.InteropServices.Marshal.ReleaseComObject(cBook)
  132.         cBook = Nothing
  133.         System.Runtime.InteropServices.Marshal.ReleaseComObject(cBooks)
  134.         cBooks = Nothing
  135.         cExcel.Quit()
  136.         System.Runtime.InteropServices.Marshal.ReleaseComObject(cExcel)
  137.         cExcel = Nothing
  138.     End Sub
  139.  
  140.     Sub check_OpenFile()
  141.  
  142.         If Not cBook Is Nothing Then
  143.             CleanWB_CRES()
  144.         End If
  145.  
  146.     End Sub
  147.  
  148.     Sub ave_Chart()
  149.  
  150.         'Set Average Chart
  151.         Dim FNameRng As Excel.Range
  152.         Dim AveRng As Excel.Range
  153.         Dim A_CLRng As Excel.Range
  154.         Dim A_UCLRng As Excel.Range
  155.         Dim A_LCLRng As Excel.Range
  156.         Dim A_GTRng As Excel.Range
  157.         Dim A_LTRng As Excel.Range
  158.  
  159.         Dim FNameArry As System.Array
  160.         Dim AveArry As System.Array
  161.         Dim A_CLArry As System.Array
  162.         Dim A_UCLArry As System.Array
  163.         Dim A_LCLArry As System.Array
  164.         Dim A_GTArry As System.Array
  165.         Dim A_LTArry As System.Array
  166.  
  167.         'Set the Range for File Name
  168.         FNameRng = cSheet.Range("G2", cSheet.Range("G2").End(Excel.XlDirection.xlDown))
  169.  
  170.         'Set the Range for Average Data
  171.         AveRng = cSheet.Range("B2", cSheet.Range("B2").End(Excel.XlDirection.xlDown))
  172.         A_CLRng = cSheet.Range("I2", cSheet.Range("I2").End(Excel.XlDirection.xlDown))
  173.         A_UCLRng = cSheet.Range("J2", cSheet.Range("J2").End(Excel.XlDirection.xlDown))
  174.         A_LCLRng = cSheet.Range("K2", cSheet.Range("K2").End(Excel.XlDirection.xlDown))
  175.         A_GTRng = cSheet.Range("L2", cSheet.Range("L2").End(Excel.XlDirection.xlDown))
  176.         A_LTRng = cSheet.Range("M2", cSheet.Range("M2").End(Excel.XlDirection.xlDown))
  177.  
  178.         'Read in the values of a range of cells
  179.         FNameArry = CType(FNameRng.Value, System.Array)
  180.         AveArry = CType(AveRng.Value, System.Array)
  181.         A_CLArry = CType(A_CLRng.Value, System.Array)
  182.         A_UCLArry = CType(A_UCLRng.Value, System.Array)
  183.         A_LCLArry = CType(A_LCLRng.Value, System.Array)
  184.         A_GTArry = CType(A_GTRng.Value, System.Array)
  185.         A_LTArry = CType(A_LTRng.Value, System.Array)
  186.  
  187.         'Set the chart title
  188.         Me.CenterToScreen()
  189.         Me.WindowState = FormWindowState.Maximized
  190.  
  191.         'Looping through the Average
  192.         For x As Integer = 1 To AveArry.GetUpperBound(0)
  193.             For y As Integer = 1 To AveArry.GetUpperBound(1)
  194.                 Dim Average As Object = AveArry(x, y)
  195.                 Dim FName As Object = FNameArry(x, y)
  196.                 Chart1.Series("Average").Points.AddXY(FName, Average)
  197.             Next y
  198.         Next x
  199.  
  200.         'Set position of the chart
  201.         Chart1Details()
  202.  
  203.         'Looping through the CLx
  204.         For x As Integer = 1 To A_CLArry.GetUpperBound(0)
  205.             For y As Integer = 1 To A_CLArry.GetUpperBound(1)
  206.                 Dim AveCL As Object = A_CLArry(x, y)
  207.                 Dim FName As Object = FNameArry(x, y)
  208.                 Chart1.Series("CLx").Points.AddXY(FName, AveCL)
  209.             Next y
  210.         Next x
  211.  
  212.         'Looping through the UCLx
  213.         For x As Integer = 1 To A_UCLArry.GetUpperBound(0)
  214.             For y As Integer = 1 To A_UCLArry.GetUpperBound(1)
  215.                 Dim AveUCL As Object = A_UCLArry(x, y)
  216.                 Dim FName As Object = FNameArry(x, y)
  217.                 Chart1.Series("UCLx").Points.AddXY(FName, AveUCL)
  218.             Next y
  219.         Next x
  220.  
  221.         'Looping through the LCLx
  222.         For x As Integer = 1 To A_LCLArry.GetUpperBound(0)
  223.             For y As Integer = 1 To A_LCLArry.GetUpperBound(1)
  224.                 Dim AveLCL As Object = A_LCLArry(x, y)
  225.                 Dim FName As Object = FNameArry(x, y)
  226.                 Chart1.Series("LCLx").Points.AddXY(FName, AveLCL)
  227.             Next y
  228.         Next x
  229.  
  230.         'Looping through the A_GT
  231.         For x As Integer = 1 To A_GTArry.GetUpperBound(0)
  232.             For y As Integer = 1 To A_GTArry.GetUpperBound(1)
  233.                 Dim AveGT As Object = A_GTArry(x, y)
  234.                 Dim FName As Object = FNameArry(x, y)
  235.                 Chart1.Series("A_GT").Points.AddXY(FName, AveGT)
  236.             Next y
  237.         Next x
  238.  
  239.         'Looping through the A_LT
  240.         For x As Integer = 1 To A_LTArry.GetUpperBound(0)
  241.             For y As Integer = 1 To A_LTArry.GetUpperBound(1)
  242.                 Dim AveLT As Object = A_LTArry(x, y)
  243.                 Dim FName As Object = FNameArry(x, y)
  244.                 Chart1.Series("A_LT").Points.AddXY(FName, AveLT)
  245.             Next y
  246.         Next x
  247.  
  248.     End Sub
  249.  
  250.     Sub std_Chart()
  251.  
  252.         'Standard Deviation Chart
  253.         Dim FNameRng As Excel.Range
  254.         Dim StdRng As Excel.Range
  255.         Dim S_CLRng As Excel.Range
  256.         Dim S_UCLRng As Excel.Range
  257.         Dim S_LCLRng As Excel.Range
  258.         Dim S_GTRng As Excel.Range
  259.         Dim S_LTRng As Excel.Range
  260.  
  261.         Dim FNameArry As System.Array
  262.         Dim StdArry As System.Array
  263.         Dim S_CLArry As System.Array
  264.         Dim S_UCLArry As System.Array
  265.         Dim S_LCLArry As System.Array
  266.         Dim S_GTArry As System.Array
  267.         Dim S_LTArry As System.Array
  268.  
  269.         'Set the Range for File Name
  270.         FNameRng = cSheet.Range("G2", cSheet.Range("G2").End(Excel.XlDirection.xlDown))
  271.  
  272.         'Set the Range for Std Dev Data
  273.         StdRng = cSheet.Range("C2", cSheet.Range("C2").End(Excel.XlDirection.xlDown))
  274.         S_CLRng = cSheet.Range("O2", cSheet.Range("O2").End(Excel.XlDirection.xlDown))
  275.         S_UCLRng = cSheet.Range("P2", cSheet.Range("P2").End(Excel.XlDirection.xlDown))
  276.         S_LCLRng = cSheet.Range("Q2", cSheet.Range("Q2").End(Excel.XlDirection.xlDown))
  277.         S_GTRng = cSheet.Range("R2", cSheet.Range("R2").End(Excel.XlDirection.xlDown))
  278.         S_LTRng = cSheet.Range("S2", cSheet.Range("S2").End(Excel.XlDirection.xlDown))
  279.  
  280.         'Read in the values of a range of cells
  281.         FNameArry = CType(FNameRng.Value, System.Array)
  282.         StdArry = CType(StdRng.Value, System.Array)
  283.         S_CLArry = CType(S_CLRng.Value, System.Array)
  284.         S_UCLArry = CType(S_UCLRng.Value, System.Array)
  285.         S_LCLArry = CType(S_LCLRng.Value, System.Array)
  286.         S_GTArry = CType(S_GTRng.Value, System.Array)
  287.         S_LTArry = CType(S_LTRng.Value, System.Array)
  288.  
  289.         'Looping through the StdArry
  290.         For x As Integer = 1 To StdArry.GetUpperBound(0)
  291.             For y As Integer = 1 To StdArry.GetUpperBound(1)
  292.                 Dim StdDev As Object = StdArry(x, y)
  293.                 Dim FName As Object = FNameArry(x, y)
  294.                 Chart2.Series("StdDev").Points.AddXY(FName, StdDev)
  295.             Next y
  296.         Next x
  297.  
  298.         'Set position of the chart
  299.         Chart2Details()
  300.  
  301.         'Looping through the CLs
  302.         For x As Integer = 1 To S_CLArry.GetUpperBound(0)
  303.             For y As Integer = 1 To S_CLArry.GetUpperBound(1)
  304.                 Dim StdCL As Object = S_CLArry(x, y)
  305.                 Dim FName As Object = FNameArry(x, y)
  306.                 Chart2.Series("CLs").Points.AddXY(FName, StdCL)
  307.             Next y
  308.         Next x
  309.  
  310.         'Looping through the UCLs
  311.         For x As Integer = 1 To S_UCLArry.GetUpperBound(0)
  312.             For y As Integer = 1 To S_UCLArry.GetUpperBound(1)
  313.                 Dim StdUCL As Object = S_UCLArry(x, y)
  314.                 Dim FName As Object = FNameArry(x, y)
  315.                 Chart2.Series("UCLs").Points.AddXY(FName, StdUCL)
  316.             Next y
  317.         Next x
  318.  
  319.         'Looping through the LCLs
  320.         For x As Integer = 1 To S_LCLArry.GetUpperBound(0)
  321.             For y As Integer = 1 To S_LCLArry.GetUpperBound(1)
  322.                 Dim StdLCL As Object = S_LCLArry(x, y)
  323.                 Dim FName As Object = FNameArry(x, y)
  324.                 Chart2.Series("LCLs").Points.AddXY(FName, StdLCL)
  325.             Next y
  326.         Next x
  327.  
  328.         'Looping through the S_GT
  329.         For x As Integer = 1 To S_GTArry.GetUpperBound(0)
  330.             For y As Integer = 1 To S_GTArry.GetUpperBound(1)
  331.                 Dim StdGT As Object = S_GTArry(x, y)
  332.                 Dim FName As Object = FNameArry(x, y)
  333.                 Chart2.Series("S_GT").Points.AddXY(FName, StdGT)
  334.             Next y
  335.         Next x
  336.  
  337.         'Looping through the S_LT
  338.         For x As Integer = 1 To S_LTArry.GetUpperBound(0)
  339.             For y As Integer = 1 To S_LTArry.GetUpperBound(1)
  340.                 Dim StdLT As Object = S_LTArry(x, y)
  341.                 Dim FName As Object = FNameArry(x, y)
  342.                 Chart2.Series("S_LT").Points.AddXY(FName, StdLT)
  343.             Next y
  344.         Next x
  345.  
  346.     End Sub
  347.  
  348.     Sub att_Chart()
  349.  
  350.         'Attribute Data Chart
  351.         Dim FNameRng As Excel.Range
  352.         Dim OPRng As Excel.Range
  353.         Dim OP_CLRng As Excel.Range
  354.         Dim OP_UCLRng As Excel.Range
  355.         Dim OP_LCLRng As Excel.Range
  356.         Dim OP_GTRng As Excel.Range
  357.         Dim OP_LTRng As Excel.Range
  358.  
  359.         Dim FNameArry As System.Array
  360.         Dim OPArry As System.Array
  361.         Dim OP_CLArry As System.Array
  362.         Dim OP_UCLArry As System.Array
  363.         Dim OP_LCLArry As System.Array
  364.         Dim OP_GTArry As System.Array
  365.         Dim OP_LTArry As System.Array
  366.  
  367.         'Set range for the file name
  368.         FNameRng = cSheet.Range("AI2", cSheet.Range("AI2").End(Excel.XlDirection.xlDown))
  369.  
  370.         'Set the Range for Std Dev Data
  371.         OPRng = cSheet.Range("AE2", cSheet.Range("AE2").End(Excel.XlDirection.xlDown))
  372.         OP_CLRng = cSheet.Range("AK2", cSheet.Range("AK2").End(Excel.XlDirection.xlDown))
  373.         OP_UCLRng = cSheet.Range("AL2", cSheet.Range("AL2").End(Excel.XlDirection.xlDown))
  374.         OP_LCLRng = cSheet.Range("AM2", cSheet.Range("AM2").End(Excel.XlDirection.xlDown))
  375.         OP_GTRng = cSheet.Range("AN2", cSheet.Range("AN2").End(Excel.XlDirection.xlDown))
  376.         OP_LTRng = cSheet.Range("AO2", cSheet.Range("AO2").End(Excel.XlDirection.xlDown))
  377.  
  378.         'Read in the values of a range of cells
  379.         FNameArry = CType(FNameRng.Value, System.Array)
  380.         OPArry = CType(OPRng.Value, System.Array)
  381.         OP_CLArry = CType(OP_CLRng.Value, System.Array)
  382.         OP_UCLArry = CType(OP_UCLRng.Value, System.Array)
  383.         OP_LCLArry = CType(OP_LCLRng.Value, System.Array)
  384.         OP_GTArry = CType(OP_GTRng.Value, System.Array)
  385.         OP_LTArry = CType(OP_LTRng.Value, System.Array)
  386.  
  387.         'Looping through the OPArry
  388.         For x As Integer = 1 To OPArry.GetUpperBound(0)
  389.             For y As Integer = 1 To OPArry.GetUpperBound(1)
  390.                 Dim OP As Object = OPArry(x, y)
  391.                 Dim FName As Object = FNameArry(x, y)
  392.                 Chart3.Series("OpenPins").Points.AddXY(FName, OP)
  393.             Next y
  394.         Next x
  395.  
  396.         'Set position of the chart
  397.         Chart3Details()
  398.  
  399.         'Looping through the OP_CLArry
  400.         For x As Integer = 1 To OP_CLArry.GetUpperBound(0)
  401.             For y As Integer = 1 To OP_CLArry.GetUpperBound(1)
  402.                 Dim OP_CL As Object = OP_CLArry(x, y)
  403.                 Dim FName As Object = FNameArry(x, y)
  404.                 Chart3.Series("CLnp").Points.AddXY(FName, OP_CL)
  405.             Next y
  406.         Next x
  407.  
  408.         'Looping through the OP_UCLArry
  409.         For x As Integer = 1 To OP_UCLArry.GetUpperBound(0)
  410.             For y As Integer = 1 To OP_UCLArry.GetUpperBound(1)
  411.                 Dim OP_UCL As Object = OP_UCLArry(x, y)
  412.                 Dim FName As Object = FNameArry(x, y)
  413.                 Chart3.Series("UCLnp").Points.AddXY(FName, OP_UCL)
  414.             Next y
  415.         Next x
  416.  
  417.         'Looping through the OP_LCLArry
  418.         For x As Integer = 1 To OP_LCLArry.GetUpperBound(0)
  419.             For y As Integer = 1 To OP_LCLArry.GetUpperBound(1)
  420.                 Dim OP_LCL As Object = OP_LCLArry(x, y)
  421.                 Dim FName As Object = FNameArry(x, y)
  422.                 Chart3.Series("LCLnp").Points.AddXY(FName, OP_LCL)
  423.             Next y
  424.         Next x
  425.  
  426.         For x As Integer = 1 To OP_GTArry.GetUpperBound(0)
  427.             For y As Integer = 1 To OP_GTArry.GetUpperBound(1)
  428.                 Dim OP_GT As Object = OP_GTArry(x, y)
  429.                 Dim FName As Object = FNameArry(x, y)
  430.                 Chart3.Series("H_GT").Points.AddXY(FName, OP_GT)
  431.             Next y
  432.         Next x
  433.  
  434.         For x As Integer = 1 To OP_LTArry.GetUpperBound(0)
  435.             For y As Integer = 1 To OP_LTArry.GetUpperBound(1)
  436.                 Dim OP_LT As Object = OP_LTArry(x, y)
  437.                 Dim FName As Object = FNameArry(x, y)
  438.                 Chart3.Series("H_LT").Points.AddXY(FName, OP_LT)
  439.             Next y
  440.         Next x
  441.  
  442.     End Sub
  443.  
  444.     Sub height_Chart()
  445.  
  446.         'Attribute Data Chart
  447.         Dim FNameRng As Excel.Range
  448.         Dim OPRng As Excel.Range
  449.         Dim OP_CLRng As Excel.Range
  450.         Dim OP_UCLRng As Excel.Range
  451.         Dim OP_LCLRng As Excel.Range
  452.         Dim OP_GTRng As Excel.Range
  453.         Dim OP_LTRng As Excel.Range
  454.  
  455.         Dim FNameArry As System.Array
  456.         Dim OPArry As System.Array
  457.         Dim OP_CLArry As System.Array
  458.         Dim OP_UCLArry As System.Array
  459.         Dim OP_LCLArry As System.Array
  460.         Dim OP_GTArry As System.Array
  461.         Dim OP_LTArry As System.Array
  462.  
  463.         'Set range for the file name
  464.         FNameRng = cSheet.Range("AI2", cSheet.Range("AI2").End(Excel.XlDirection.xlDown))
  465.  
  466.         'Set the Range for Std Dev Data
  467.         OPRng = cSheet.Range("AE2", cSheet.Range("AE2").End(Excel.XlDirection.xlDown))
  468.         OP_CLRng = cSheet.Range("AK2", cSheet.Range("AK2").End(Excel.XlDirection.xlDown))
  469.         OP_UCLRng = cSheet.Range("AL2", cSheet.Range("AL2").End(Excel.XlDirection.xlDown))
  470.         OP_LCLRng = cSheet.Range("AM2", cSheet.Range("AM2").End(Excel.XlDirection.xlDown))
  471.         OP_GTRng = cSheet.Range("AN2", cSheet.Range("AN2").End(Excel.XlDirection.xlDown))
  472.         OP_LTRng = cSheet.Range("AO2", cSheet.Range("AO2").End(Excel.XlDirection.xlDown))
  473.  
  474.         'Read in the values of a range of cells
  475.         FNameArry = CType(FNameRng.Value, System.Array)
  476.         OPArry = CType(OPRng.Value, System.Array)
  477.         OP_CLArry = CType(OP_CLRng.Value, System.Array)
  478.         OP_UCLArry = CType(OP_UCLRng.Value, System.Array)
  479.         OP_LCLArry = CType(OP_LCLRng.Value, System.Array)
  480.         OP_GTArry = CType(OP_GTRng.Value, System.Array)
  481.         OP_LTArry = CType(OP_LTRng.Value, System.Array)
  482.  
  483.         'Looping through the OPArry
  484.         For x As Integer = 1 To OPArry.GetUpperBound(0)
  485.             For y As Integer = 1 To OPArry.GetUpperBound(1)
  486.                 Dim OP As Object = OPArry(x, y)
  487.                 Dim FName As Object = FNameArry(x, y)
  488.                 Chart4.Series("OpenPins").Points.AddXY(FName, OP)
  489.             Next y
  490.         Next x
  491.  
  492.         'Set position of the chart
  493.         Chart4Details()
  494.  
  495.         'Looping through the OP_CLArry
  496.         For x As Integer = 1 To OP_CLArry.GetUpperBound(0)
  497.             For y As Integer = 1 To OP_CLArry.GetUpperBound(1)
  498.                 Dim OP_CL As Object = OP_CLArry(x, y)
  499.                 Dim FName As Object = FNameArry(x, y)
  500.                 Chart4.Series("CLnp").Points.AddXY(FName, OP_CL)
  501.             Next y
  502.         Next x
  503.  
  504.         'Looping through the OP_UCLArry
  505.         For x As Integer = 1 To OP_UCLArry.GetUpperBound(0)
  506.             For y As Integer = 1 To OP_UCLArry.GetUpperBound(1)
  507.                 Dim OP_UCL As Object = OP_UCLArry(x, y)
  508.                 Dim FName As Object = FNameArry(x, y)
  509.                 Chart4.Series("UCLnp").Points.AddXY(FName, OP_UCL)
  510.             Next y
  511.         Next x
  512.  
  513.         'Looping through the OP_LCLArry
  514.         For x As Integer = 1 To OP_LCLArry.GetUpperBound(0)
  515.             For y As Integer = 1 To OP_LCLArry.GetUpperBound(1)
  516.                 Dim OP_LCL As Object = OP_LCLArry(x, y)
  517.                 Dim FName As Object = FNameArry(x, y)
  518.                 Chart4.Series("LCLnp").Points.AddXY(FName, OP_LCL)
  519.             Next y
  520.         Next x
  521.  
  522.         For x As Integer = 1 To OP_GTArry.GetUpperBound(0)
  523.             For y As Integer = 1 To OP_GTArry.GetUpperBound(1)
  524.                 Dim OP_GT As Object = OP_GTArry(x, y)
  525.                 Dim FName As Object = FNameArry(x, y)
  526.                 Chart4.Series("H_GT").Points.AddXY(FName, OP_GT)
  527.             Next y
  528.         Next x
  529.  
  530.         For x As Integer = 1 To OP_LTArry.GetUpperBound(0)
  531.             For y As Integer = 1 To OP_LTArry.GetUpperBound(1)
  532.                 Dim OP_LT As Object = OP_LTArry(x, y)
  533.                 Dim FName As Object = FNameArry(x, y)
  534.                 Chart4.Series("H_LT").Points.AddXY(FName, OP_LT)
  535.             Next y
  536.         Next x
  537.  
  538.     End Sub
  539.  
  540.     Sub xy_scaleCRES()
  541.         Chart1.ChartAreas(0).AxisY.Minimum = cSheet.Range("$V$12").Value
  542.         Chart1.ChartAreas(0).AxisY.Maximum = cSheet.Range("$V$11").Value
  543.         Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#.###"
  544.  
  545.         Chart2.ChartAreas(0).AxisY.Minimum = cSheet.Range("$V$17").Value
  546.         Chart2.ChartAreas(0).AxisY.Maximum = cSheet.Range("$V$16").Value
  547.         Chart2.ChartAreas(0).AxisY.LabelStyle.Format = "#.###"
  548.  
  549.         'Chart3.ChartAreas(0).AxisY.Minimum = cSheet.Range("$AA$22").Value
  550.         'Chart3.ChartAreas(0).AxisY.Maximum = cSheet.Range("$AA$21").Value
  551.         'Chart3.ChartAreas(0).AxisY.LabelStyle.Format = "#.###"
  552.  
  553.         Chart4.ChartAreas(0).AxisY.Minimum = cSheet.Range("$AR$11").Value
  554.         Chart4.ChartAreas(0).AxisY.Maximum = cSheet.Range("$AR$10").Value
  555.         'Chart4.ChartAreas(0).AxisY.LabelStyle.Format = "#.###"
  556.     End Sub
  557.  
  558.     Sub timerEnabled()
  559.  
  560.         Timer1.Enabled = False
  561.         'Timer2.Enabled = False
  562.         'Timer3.Enabled = False
  563.         'Timer4.Enabled = False
  564.         'Timer5.Enabled = False
  565.         'Timer6.Enabled = False
  566.         'Timer7.Enabled = False
  567.  
  568.     End Sub
  569.  
  570.     Sub mouseHovering()
  571.         Chart1.Series("Average").ToolTip = "#AXISLABEL, #VALY"
  572.         Chart1.Series("A_GT").ToolTip = "#AXISLABEL, #VALY"
  573.         Chart1.Series("A_LT").ToolTip = "#AXISLABEL, #VALY"
  574.  
  575.         Chart2.Series("StdDev").ToolTip = "#AXISLABEL, #VALY"
  576.         Chart2.Series("S_GT").ToolTip = "#AXISLABEL, #VALY"
  577.         Chart2.Series("S_LT").ToolTip = "#AXISLABEL, #VALY"
  578.  
  579.         Chart3.Series("OpenPins").ToolTip = "#AXISLABEL, #VALY"
  580.         Chart3.Series("H_GT").ToolTip = "#AXISLABEL, #VALY"
  581.         Chart3.Series("H_LT").ToolTip = "#AXISLABEL, #VALY"
  582.  
  583.         Chart4.Series("OpenPins").ToolTip = "#AXISLABEL, #VALY"
  584.         Chart4.Series("H_GT").ToolTip = "#AXISLABEL, #VALY"
  585.         Chart4.Series("H_LT").ToolTip = "#AXISLABEL, #VALY"
  586.  
  587.     End Sub
  588.  
  589.     Sub labelCRES()
  590.  
  591.         'Average
  592.         Label9.Text = String.Format("{0:n3}", cSheet.Range("I2").Value)
  593.         Label10.Text = String.Format("{0:n3}", cSheet.Range("J2").Value)
  594.         Label11.Text = String.Format("{0:n3}", cSheet.Range("K2").Value)
  595.         Label12.Text = String.Format("{0:n3}", cSheet.Range("V9").Value)
  596.         Label13.Text = String.Format("{0:n3}", cSheet.Range("V10").Value)
  597.  
  598.         'Std Dev
  599.         Label20.Text = String.Format("{0:n3}", cSheet.Range("O2").Value)
  600.         Label21.Text = String.Format("{0:n3}", cSheet.Range("P2").Value)
  601.         Label22.Text = String.Format("{0:n3}", cSheet.Range("Q2").Value)
  602.         Label23.Text = String.Format("{0:n3}", cSheet.Range("V14").Value)
  603.         Label24.Text = String.Format("{0:n3}", cSheet.Range("V15").Value)
  604.  
  605.         'Attribute
  606.         Label31.Text = String.Format("{0:n3}", cSheet.Range("X2").Value)
  607.         Label32.Text = String.Format("{0:n3}", cSheet.Range("Y2").Value)
  608.         Label33.Text = String.Format("{0:n3}", cSheet.Range("Z2").Value)
  609.         Label34.Text = String.Format("{0:n3}", cSheet.Range("V19").Value)
  610.         Label35.Text = String.Format("{0:n3}", cSheet.Range("V20").Value)
  611.  
  612.         'Height Measurement
  613.         Label42.Text = String.Format("{0:n3}", cSheet.Range("AK2").Value)
  614.         Label43.Text = String.Format("{0:n3}", cSheet.Range("AL2").Value)
  615.         Label44.Text = String.Format("{0:n3}", cSheet.Range("AM2").Value)
  616.         Label45.Text = String.Format("{0:n3}", cSheet.Range("AR8").Value)
  617.         Label46.Text = String.Format("{0:n3}", cSheet.Range("AR9").Value)
  618.  
  619.     End Sub
  620.  
  621.     Private Sub SyncFiles_Click(sender As Object, e As EventArgs) Handles SyncFiles.Click
  622.         System.Diagnostics.Process.Start(My.Application.Info.DirectoryPath & "\DSynchronize.exe")
  623.     End Sub
  624.  
  625.     Private Sub eighteen17_Click(sender As Object, e As EventArgs) Handles eighteen17.Click
  626.  
  627.         check_OpenFile()
  628.  
  629.         openMacroCRES()
  630.         'Run the CRES macro
  631.         cExcel.Run("Get18x17_14mils")
  632.  
  633.         ClearPoints()
  634.  
  635.         'Display CRES Chart
  636.         cSheet = cExcel.Sheets("18x17")
  637.  
  638.         xy_scaleCRES()
  639.  
  640.         'Set the average chart
  641.         ave_Chart()
  642.         Chart1.Titles(0).Text = "Average (18x17) - 14 mil stop"
  643.  
  644.         'Set the std_dev chart
  645.         std_Chart()
  646.         Chart2.Titles(0).Text = "Standard Deviation (18x17) - 14 mil stop"
  647.  
  648.         'Set the attribute data chart
  649.         att_Chart()
  650.         Chart3.Titles(0).Text = "Attribute Data (18x17) - 14 mil stop"
  651.  
  652.         'Set the height measurement chart
  653.         height_Chart()
  654.         Chart4.Titles(0).Text = "Height Measurement (18x17) - 17 mil stop"
  655.  
  656.         'Set Information
  657.         labelCRES()
  658.  
  659.         cSheet = Nothing
  660.  
  661.         mouseHovering()
  662.  
  663.         timerEnabled()
  664.         Label2.Text = timeRng
  665.         Timer1.Enabled = True
  666.  
  667.     End Sub
  668.  
  669.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  670.         Label2.Text = Val(Label2.Text) - 1
  671.         If Label2.Text = 0 Then
  672.             Timer1.Enabled = False
  673.             eighteen17_Click(sender, e)
  674.         End If
  675.     End Sub
  676.  
  677.     Private Sub ExitProgram_Click(sender As Object, e As EventArgs) Handles ExitProgram.Click
  678.         check_OpenFile()
  679.         Me.Close()
  680.     End Sub
  681. End Class
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/ozJpwK/prog.vb (7,26) : Error VBNC30456: 'Office' is not a member of 'Global.Microsoft'.
/home/ozJpwK/prog.vb (7,26) : Warning VBNC40056: The import 'Microsoft.Office.Interop.Excel' could not be found.
/home/ozJpwK/prog.vb (8,16) : Error VBNC30456: 'DataVisualization' is not a member of 'Global.System.Windows.Forms'.
/home/ozJpwK/prog.vb (8,16) : Warning VBNC40056: The import 'System.Windows.Forms.DataVisualization.Charting' could not be found.
2 errors, but compilation succeeded? Resolve
/home/ozJpwK/<MyGenerator> (1,1) : Error VBNC99999: Unexpected error: There has been an internal error in the compiler: Consistency check failed
  at vbnc.Compiler.VerifyConsistency (Boolean result, System.String Location) [0x000a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:132 
  at vbnc.Compiler.Compile_Resolve () [0x00070] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:403 
  at vbnc.Compiler.Compile () [0x0028a] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:561 
Compilation took 00:00:00.7051930
stdout
copy 
Standard output is empty
https://ideone.com/uZCb9H
language:
VB.NET (mono-3.10)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!