frmcurve.frm

基于化工行业造气岗位的自动化监控系统

VERSION 5.00
Object = "{EDD1739A-C3C2-4667-9EAB-815CFF863481}#1.0#0"; "XPCURVE.DLL"
Object = "{2C68D6B6-59A4-4832-ADB6-1E82FE149E67}#66.0#0"; "OptionCurve.ocx"
Begin VB.Form frmCurve 
   BackColor       =   &H80000004&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   6360
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   10965
   Icon            =   "frmCurve.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6360
   ScaleWidth      =   10965
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   0
      Top             =   6000
   End
   Begin OptCurve.OptionCurve OptionTemp 
      Height          =   375
      Index           =   0
      Left            =   360
      TabIndex        =   1
      Top             =   6480
      Width           =   2520
      _ExtentX        =   4445
      _ExtentY        =   661
      BackValue       =   "00"
      GiveValue       =   "00"
      State           =   "01#:"
      Size            =   13
   End
   Begin XPCURVELibCtl.OnCurve OnCurve1 
      Height          =   6195
      Index           =   0
      Left            =   45
      OleObjectBlob   =   "frmCurve.frx":038A
      TabIndex        =   0
      Top             =   45
      Width           =   10815
   End
End
Attribute VB_Name = "frmCurve"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************湖南仪峰公司新模块化DCS组件*************************
    '作者：      彭逢望,隆朋飞
    '编写日期：  2004-6-15
    '最后修改：  2004-9-25
    '修改人：    彭逢望
'*****************************************************************
Dim ID As Long
Private Sub Form_Load()
    Dim lp_hand As Long
    On Error GoTo ErrHandle
    lp_hand = SetParent(Me.hWnd, frmMain.hWnd)
    Exit Sub
ErrHandle:
    Err.Clear
End Sub

Private Sub Form_Resize()
Dim j As Long
    ID = Val(Me.Tag)
    Me.Caption = StoveStart + ID & "#炉实时趋势"
    Set OptionTemp(0).m_lnkControl = OnCurve1(0)
    OptionTemp(0).m_IniFilePath = iniPaths & "Stove.ini"

    With OnCurve1(0)
        .CurveNum = Curve_Dl.CurveNum         '曲线控件的曲线数目
        .SetCurveBufPt 600                     '曲线控件记录点数
        .RMouseNum = 1                        '鼠标右键弹出线的数目
        .SetRMouseLine 1, &HFF&
        .DataAxisMax = Curve_Dl.DataAxisMax(ID)
        .DataAxisMin = Curve_Dl.DataAxisMin(ID)
        .InputC3Data DT, 0, 0, 0
        If .CurveNum > 3 Then
            For j = 4 To .CurveNum
                .InputData j, 0
            Next
        End If
        If .CurveNum = 0 Then .CurveNum = 1
        For j = 1 To .CurveNum
            .SetCurveLine j, 0, 1, Curve_Dl.Color(j - 1)
            .SetCurveYSize j, 0, Curve_Dl.HighScale(j - 1)
            .SetCurveVisual j
        Next
       
    End With
End Sub

Private Sub Form_Terminate()
  Set frmCurve = Nothing
End Sub

Private Sub OnCurve1_ClickIn(Index As Integer, ByVal X As Long, ByVal Y As Long, ByVal btime As String)
Dim mName() As String
Dim mUnit() As String
Dim mColor() As Long
Dim mMag() As Long
Dim i As Long, j As Long
i = Curve_Dl.CurveNum - 1
ReDim mName(0 To i) As String
ReDim mUnit(0 To i) As String
ReDim mColor(0 To i) As Long
ReDim mMag(0 To i) As Long
For j = 0 To i
    mName(j) = Curve_Dl.CurveName(j)
    mUnit(j) = Curve_Dl.CurveUnit(j)
    mColor(j) = Curve_Dl.Color(j)
    mMag(j) = Curve_Dl.Mag(j)
Next
OptionTemp(Index).OptionClick btime, Curve_Dl.Name, mName(), mUnit(), mColor(), mMag()
End Sub

Private Sub Timer1_Timer()
    Dim dtime As String
    On Error GoTo ErrHandle
    dtime = Format(Date, "yyyy-mm-dd") & "#" & Format(Time, "hh:mm:ss")
    
    With OnCurve1(0)
        .InputC3Data dtime, Stove(ID).SXWD, Stove(ID).XXWD, Stove(ID).Speed    '打印单炉曲线
        .InputData 4, Stove(ID).SXYL
        .InputData 5, Stove(ID).XXYL
        .InputData 6, Stove(ID).ZQYL
        .InputData 7, Signal(ID + 40).CalValue
        .InputData 8, Stove(ID).ZHWD
        .InputData 9, Stove(ID).YHWD
        .InputData 10, Signal(ID + 46).CalValue
        .InputData 11, Signal(ID + 52).CalValue
        .InputData 12, Signal(ID + 58).CalValue
        .SetShowTimeStart dtime
        .UpdateDraw
    End With
    Exit Sub
ErrHandle:
    Err.Clear
End Sub