frmjianding.frm

地面测试仪

      End
   End
End
Attribute VB_Name = "FrmJianDing"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim curPiont As Single
Dim curx As Single
Dim curFileName(1) As String

Private Sub CboHG_Click()
TxtYaLiData(9).Text = CboHG.Text
End Sub

Private Sub Command1_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0 '回放
    FrmComm.CommFlag = SSTab1.Tab + 2
    FrmComm.Show 1
    curFileName(SSTab1.Tab) = ""
    
Case 1 '读文件
    
    jdOpenFile SSTab1.Tab
   
Case 2 '存文件
    jdSaveFile SSTab1.Tab
Case 3 '打印
    If curFileName(SSTab1.Tab) = "" Then Exit Sub '避免打印错误
    
    PicFlag = SSTab1.Tab + 5
    frmPreview.Show 1
Case 4
    Unload Me
End Select
If Index <> 4 Then
    Select Case SSTab1.Tab
    Case 0 '压力数据
        setJianDingYaLiTxt
    Case 1 '液面数据
        If YMData.DiPinZuiDa <> "" Then
            setYeMianTxt
            PicYeMian.Cls
            drawJianDingYeMianBaoBiao PicYeMian, False
        End If
    End Select
End If
End Sub

Private Sub Form_Activate()
'MsgBox "Form_Activate"


'*************test***************
'saveJianDianYali JDData, "c:\a.txt"
'ReadJianDianYali "c:\a.txt"
'Dim i As Integer
'For i = 0 To 3000
'    YMData.JianDingYeMiandata(i, 1) = Int(255 * Rnd + 1)
'    YMData.JianDingYeMiandata(i, 2) = Int(255 * Rnd + 1)
'    YMData.GaoPinZuiDa = 255
'    YMData.DiPinZuiDa = 255
'Next
'
'Dim j As Integer
'For i = 1 To 9
'    JDData.JianDingYaLiData(i, 1) = i - 1
'    For j = 1 To 6
'        JDData.JianDingYaLiData(i, j + 1) = Round(i - Rnd, 3)
'    Next
'Next
'
'JiSuanYaLi


'saveJianDianYeMian YMData, "c:\b.txt"

'ReadJianDianYeMian ("c:\b.txt")
'*********************************




End Sub

Private Sub Form_Load()
SetMSFlex Me.MSFJianDing
setJianDingYeMianCol YMData
setJianDingYaLiCol JDData
setLabel

SSTab1.Tab = 0
SSTab1_Click (0)

curFileName(0) = ""
curFileName(1) = ""

End Sub

Private Sub Form_Resize()

'*****test******

'drawJianDingBaoBiao PicYeMian
'***************

End Sub


Sub setLabel()
Dim i As Integer
For i = 1 To 16
    LblYaliCol(i - 1).Caption = JDData.JianDingYaLiCol(i)
Next

For i = 1 To 13
    LblYeMian(i - 1).Caption = YMData.JianDingYeMianCol(i)
Next


End Sub



Private Sub mu_popMu_Click(Index As Integer)
Select Case Index
Case 0
    If YMData.DianWuShi <> "" Then
        If curPiont < YMData.DianWuShi Then
            YMData.DianYi = curPiont
        Else
            Exit Sub
        End If
    Else
        YMData.DianYi = curPiont
    End If
Case 1
    If YMData.DianYi <> "" Then
        If curPiont > YMData.DianYi Then
            YMData.DianWuShi = curPiont
        Else
            Exit Sub
        End If
    Else
        YMData.DianWuShi = curPiont
    End If
    
Case 2
End Select
'MsgBox CStr(curPiont)
If YMData.DianYi <> "" And YMData.DianWuShi <> "" Then
    YMData.JianDianYeMianColData(10) = Format((YMData.DianWuShi - YMData.DianYi) * 0.002 / 10, "0.0000")
    TxtYeMian(9) = YMData.JianDianYeMianColData(10)
    YMData.JianDianYeMianColData(11) = Format(Abs((1 - TxtYeMian(9))), "0.00%")
    TxtYeMian(10) = YMData.JianDianYeMianColData(11)
End If

PicYeMian.Cls
drawJianDingYeMianBaoBiao PicYeMian, False
End Sub

Private Sub PicYeMian_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
Dim k As Integer
k = UBound(YMData.JianDingYeMiandata, 1) - 1

If Button = 2 Then
    For i = k To 0 Step -1
        If X >= YMData.JianDingYeMiandata(i, 3) Then
            curPiont = i
            curx = X
            Exit For
        End If
    Next
    Me.PopupMenu mu_pop
End If

End Sub

Private Sub PicYeMian_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = True
Line1.x1 = X
Line1.x2 = X
Line1.y1 = 0
Line1.y2 = PicYeMian.Height
End Sub

Private Sub setJianDingYaLiTxt()
'文本框
Dim strTemp As String
Dim i As Integer


For i = 1 To 16
    Select Case i
    Case 4
        JDData.JainDingYaLiColData(i) = IIf(JDData.JainDingYaLiColData(i) = "", "HF/QJY-I", JDData.JainDingYaLiColData(i))
    Case 5
        JDData.JainDingYaLiColData(i) = IIf(JDData.JainDingYaLiColData(i) = "", "0～8Mpa", JDData.JainDingYaLiColData(i))
    Case 6
        JDData.JainDingYaLiColData(i) = IIf(JDData.JainDingYaLiColData(i) = "", "哈尔滨汇发科技", JDData.JainDingYaLiColData(i))
    Case 8
        JDData.JainDingYaLiColData(i) = IIf(JDData.JainDingYaLiColData(i) = "", "1～60Mpa", JDData.JainDingYaLiColData(i))
    
    Case 9
        JDData.JainDingYaLiColData(i) = IIf(JDData.JainDingYaLiColData(i) = "", "0.05%", JDData.JainDingYaLiColData(i))
    Case 10
        JDData.JainDingYaLiColData(i) = IIf(JDData.JainDingYaLiColData(i) = "", "合格", JDData.JainDingYaLiColData(i))
    Case 16
        JDData.JainDingYaLiColData(i) = IIf(JDData.JainDingYaLiColData(i) = "", Format(Date, "YYYYMMDD"), JDData.JainDingYaLiColData(i))
    End Select
    TxtYaLiData(i - 1).Text = JDData.JainDingYaLiColData(i)
Next
'网格
Dim ColNum As Integer, rowNum As Integer
Dim j As Integer

rowNum = UBound(JDData.JianDingYaLiData, 1)
ColNum = UBound(JDData.JianDingYaLiData, 2)

For i = 1 To rowNum
    For j = 1 To ColNum
        MSFJianDing.TextMatrix(i + 2, j - 1) = JDData.JianDingYaLiData(i, j)
    Next
Next

End Sub

Private Sub getJianDingYaLiTxt()
Dim i As Integer
For i = 1 To 16
    JDData.JainDingYaLiColData(i) = TxtYaLiData(i - 1).Text
Next

End Sub



Private Sub setYeMianTxt()
Dim i As Integer
For i = 1 To 13
    Select Case i '设置默认值
    Case 3
        YMData.JianDianYeMianColData(i) = IIf(YMData.JianDianYeMianColData(i) = "", "5Hz", YMData.JianDianYeMianColData(i))
    Case 4
        YMData.JianDianYeMianColData(i) = IIf(YMData.JianDianYeMianColData(i) = "", "1m", YMData.JianDianYeMianColData(i))
    Case 7
        YMData.JianDianYeMianColData(i) = IIf(YMData.JianDianYeMianColData(i) = "", Format(Date, "YYYYMMDD"), YMData.JianDianYeMianColData(i))
    End Select
    TxtYeMian(i - 1).Text = YMData.JianDianYeMianColData(i)
Next
End Sub
Private Sub getYeMianTxt()
Dim i As Integer
For i = 1 To 13
   YMData.JianDianYeMianColData(i) = TxtYeMian(i - 1).Text
Next
End Sub


Private Sub jdOpenFile(FileFlag As Integer)

Dim dlgTitle(1) As String
Dim dlgFilter(1) As String
Dim dlgDeExt(1) As String
Dim fileName As String
dlgTitle(0) = "打开压力检定文件"
dlgTitle(1) = "打开页面检定文件"

dlgFilter(0) = "文件 (*.yljd)|*.yljd"
dlgFilter(1) = "文件 (*.ymjd)|*.ymjd"

dlgDeExt(0) = "yljd"
dlgDeExt(1) = "ymjd"

mDialog.DialogTitle = dlgTitle(FileFlag)
mDialog.Filter = dlgFilter(FileFlag)
mDialog.Flags = cdlOFNFileMustExist
mDialog.fileName = ""
mDialog.DefaultExt = dlgDeExt(FileFlag)
mDialog.InitDir = App.Path 'getdefaultpath_load
mDialog.ShowOpen
fileName = Trim(mDialog.fileName)
    
If fileName <> "" Then
    curFileName(FileFlag) = fileName
  
    Select Case FileFlag
    Case 0
        ReadJianDianYali fileName
        setJianDingYaLiTxt
    Case 1
        ReadJianDianYeMian fileName
        setYeMianTxt
    End Select
End If

End Sub

Private Sub jdSaveFile(FileFlag As Integer)

Dim dlgTitle(1) As String
Dim dlgFilter(1) As String
Dim dlgDeExt(1) As String
Dim fileName As String
dlgTitle(0) = "保存压力检定文件"
dlgTitle(1) = "保存页面检定文件"

dlgFilter(0) = "文件 (*.yljd)|*.yljd"
dlgFilter(1) = "文件 (*.ymjd)|*.ymjd"

dlgDeExt(0) = "yljd"
dlgDeExt(1) = "ymjd"
If curFileName(FileFlag) = "" Then
    mDialog.DialogTitle = dlgTitle(FileFlag)
    mDialog.Filter = dlgFilter(FileFlag)
    mDialog.Flags = cdlOFNFileMustExist
    mDialog.fileName = ""
    mDialog.DefaultExt = dlgDeExt(FileFlag)
    mDialog.InitDir = App.Path 'getdefaultpath_load
    mDialog.ShowSave
    fileName = Trim(mDialog.fileName)
    curFileName(FileFlag) = fileName

Else
    fileName = curFileName(FileFlag)
End If
    
If fileName <> "" Then
    Select Case FileFlag
    Case 0
        getJianDingYaLiTxt
        saveJianDianYali fileName
    Case 1
        getYeMianTxt
        saveJianDianYeMian fileName
    End Select
End If

End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)

Me.Caption = SSTab1.TabCaption(SSTab1.Tab)

End Sub