Form1.frm
资源名称:08.zip [点击查看]
上传用户:ynjin1970
上传日期:2014-10-13
资源大小:6438k
文件大小:3k
源码类别:
中间件编程
开发平台:
Visual C++
- VERSION 5.00
- Begin VB.Form Form1
- Caption = "Form1"
- ClientHeight = 4740
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 4860
- Icon = "Form1.frx":0000
- LinkTopic = "Form1"
- ScaleHeight = 4740
- ScaleWidth = 4860
- StartUpPosition = 3 'Windows Default
- Begin VB.CommandButton cmdCancel
- Caption = "Cancel"
- Height = 615
- Left = 2640
- TabIndex = 5
- Top = 1080
- Width = 2175
- End
- Begin VB.TextBox txtQd
- Height = 495
- Left = 960
- TabIndex = 2
- Top = 1200
- Width = 1335
- End
- Begin VB.TextBox txtPt
- Height = 495
- Left = 960
- TabIndex = 1
- Top = 360
- Width = 1335
- End
- Begin VB.CommandButton cmdTest
- Caption = "Test MATLAB COM Builder"
- Height = 615
- Left = 2640
- TabIndex = 0
- Top = 240
- Width = 2175
- End
- Begin VB.Label Label2
- Caption = "Kurtosis"
- Height = 375
- Left = 120
- TabIndex = 4
- Top = 1320
- Width = 735
- End
- Begin VB.Label Label1
- Caption = "Skewness"
- Height = 375
- Left = 120
- TabIndex = 3
- Top = 480
- Width = 735
- End
- Begin VB.Image imgPxx
- Height = 2535
- Left = 120
- Stretch = -1 'True
- Top = 2040
- Width = 4575
- End
- End
- Attribute VB_Name = "Form1"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private theMatlab As Seting.Seting
- Private Sub cmdCancel_Click()
- Unload Me
- End Sub
- Private Sub cmdTest_Click()
- Dim dblData(1 To 2048) As Double
- Dim sng0 As Double
- Dim dblPt As Variant
- Dim dblQd As Variant
- Dim n As Variant
- Dim i As Integer
- '从文件中读取数据
- Open App.Path & "H1t14.dat" For Input As #1
- For i = 1 To 2048
- Input #1, sng0
- dblData(i) = sng0
- Next
- Close #1
- '调用接口函数
- Call theMatlab.combld(2, dblPt, dblQd, dblData)
- txtPt.Text = Format(dblPt, "##,##0.000")
- txtQd.Text = Format(dblQd, "##,##0.000")
- '从剪切板中获取图形
- imgPxx.Picture = Clipboard.GetData()
- End Sub
- Private Sub Form_Load()
- Set theMatlab = New Seting.Seting
- End Sub