cs_cont.bas

1. Chromaticity Measurement Software (Ca200Sample_Color.exe) provides (电视色彩分析CA-210专用) Measuremen

Attribute VB_Name = "CSMain"
Option Explicit

'CS-1000 Data
Type CStype
    Le As Double        'Le
    Lv As Double        'Lv
    x As Double         'X
    y As Double         'Y
    Z As Double         'Z
    xx As Single        'small x
    yy As Single        'small y
    ud As Single        'u'
    vd As Single        'v'
    T As Long           'Color Temperature
    duv As Single       'delta uv
End Type

'CS-1000 Data
Public CSdata As CStype
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'Main
'
'parameter丗
'       nothing
'
'return Value丗
'       nothing
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Sub CS_Main()


End Sub
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'Data Analisis
'
'parameter丗
'       p0:Measured Data
'
'return Value丗
'       nothing
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Public Sub AnalizeData(ByVal p0 As String)
    
    Dim ptmp As String
    Dim i As Integer
    Dim Ccheck(10) As Integer 'Position of ","
    Dim j As Integer
    
    ptmp = p0
    If Left$(ptmp, 1) = "E" Or ptmp = "" Then Exit Sub
    
    'Check the position of ",".
    j = 1
    For i = 1 To Len(ptmp)
        If Mid$(ptmp, i, 1) = "," Then
            Ccheck(j) = i + 1   'Next character of ","
            j = j + 1
        End If
    Next i
    CSdata.Le = Val(Mid$(ptmp, 1, 8))
    CSdata.Lv = Val(Mid$(ptmp, Ccheck(1), 9))
    CSdata.x = Val(Mid$(ptmp, Ccheck(2), 8))
    CSdata.y = Val(Mid$(ptmp, Ccheck(3), 8))
    CSdata.Z = Val(Mid$(ptmp, Ccheck(4), 8))
    CSdata.xx = Val(Mid$(ptmp, Ccheck(5), 6))
    CSdata.yy = Val(Mid$(ptmp, Ccheck(6), 6))
    CSdata.ud = Val(Mid$(ptmp, Ccheck(7), 6))
    CSdata.vd = Val(Mid$(ptmp, Ccheck(8), 6))
    CSdata.T = Val(Mid$(ptmp, Ccheck(9), 5))
    CSdata.duv = Val(Mid$(ptmp, Ccheck(10), 9))

End Sub