A Study of Gage Repeatability and Reproducibility for Automated Measuring Systems using VB.NET

' Author        : Syed Shanu
'Date           : 2007-06-25
'Company        : Telstar-Hommel
'Description    : This is a Module to store the comman used variables as global variables

Module CommanVariable

    'Comman Variable Declarations
    'Created by Shanu on 2007-06-25 for the checking of which Menu is Clicked
    Public MenuClickCheckExists As Integer = 0
    ''Created by Shanu on 2007-06-25 for Displaying MessageBox Message.
    Public msgNum As Integer = 0
    Public msgBoxNum As Integer = 0
    Public msgString As String = ""

    'Created by Shanu on 2007-06-25 for the checking where the Db is connected or Not
    Public dbConChk As Boolean = False

    'Variable Declaration for KeyPad
    'Created by Shanu on 2007-06-26 for the storing and displaying the Keypad text in Form
    Public keyPadText As String = ""
    'Created by Shanu on 2007-06-26 for the checking the KepPad is On Or OFF
    Public kepadon As Boolean = False

    ' this is for numeric Key pad Comman Variable

    Public numkeyPadText As String = ""
    'Created by Shanu on 2007-06-26 for the checking the NumericKepPad is On Or OFF
    Public numkepadon As Boolean = False

    'Created by Shanu on 2007-06-26 for the global assing of the engno toupdate the rank
    Public updateEngNum As String = ""
    'Created by Shanu on 2007-06-26 for the assing the  rank alter fieldname
    Public UpdateRankField As String = ""
    Public rankUpdatetxtName As String = ""
    Public AutorankUpdate As Boolean = False

    'For plc checking
    Public rankcheck As Boolean = False
    Public spcDataArray As Double()
    Public spcDataArrayengnum As String()
    Public paretoDataArray As Double()
    Public paretoDataArrayengnum As String()
    Public chartname As String

    Public rdoDisplay As Boolean = False
    Public rdoSettings As Boolean = False
    ' Dim cmdFlowObj1 As New comandatasetflow
    'Public repeadDataSet As New DataSet

    'Public Function repeatDatasetFill(ByVal Type As Integer, ByVal qrytyp As Integer, ByVal searchval As String)
    '    Try
    '        ' Dim ds As New DataTable
    '        Dim ds As New DataSet
    '        repeadDataSet = cmdFlowObj1.fillRepeatTotalDataFlow(Type, qrytyp, searchval)
    '        'Return (ds)
    '    Catch ex As Exception

    '    End Try
    'End Function
End Module