Form1.frm
上传用户:ynjin1970
上传日期:2014-10-13
资源大小:6438k
文件大小:3k
源码类别:

中间件编程

开发平台:

Visual C++

  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4740
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4860
  8.    Icon            =   "Form1.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4740
  11.    ScaleWidth      =   4860
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton cmdCancel 
  14.       Caption         =   "Cancel"
  15.       Height          =   615
  16.       Left            =   2640
  17.       TabIndex        =   5
  18.       Top             =   1080
  19.       Width           =   2175
  20.    End
  21.    Begin VB.TextBox txtQd 
  22.       Height          =   495
  23.       Left            =   960
  24.       TabIndex        =   2
  25.       Top             =   1200
  26.       Width           =   1335
  27.    End
  28.    Begin VB.TextBox txtPt 
  29.       Height          =   495
  30.       Left            =   960
  31.       TabIndex        =   1
  32.       Top             =   360
  33.       Width           =   1335
  34.    End
  35.    Begin VB.CommandButton cmdTest 
  36.       Caption         =   "Test MATLAB COM Builder"
  37.       Height          =   615
  38.       Left            =   2640
  39.       TabIndex        =   0
  40.       Top             =   240
  41.       Width           =   2175
  42.    End
  43.    Begin VB.Label Label2 
  44.       Caption         =   "Kurtosis"
  45.       Height          =   375
  46.       Left            =   120
  47.       TabIndex        =   4
  48.       Top             =   1320
  49.       Width           =   735
  50.    End
  51.    Begin VB.Label Label1 
  52.       Caption         =   "Skewness"
  53.       Height          =   375
  54.       Left            =   120
  55.       TabIndex        =   3
  56.       Top             =   480
  57.       Width           =   735
  58.    End
  59.    Begin VB.Image imgPxx 
  60.       Height          =   2535
  61.       Left            =   120
  62.       Stretch         =   -1  'True
  63.       Top             =   2040
  64.       Width           =   4575
  65.    End
  66. End
  67. Attribute VB_Name = "Form1"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Option Explicit
  73. Private theMatlab As Seting.Seting
  74. Private Sub cmdCancel_Click()
  75.     
  76.     Unload Me
  77.     
  78. End Sub
  79. Private Sub cmdTest_Click()
  80. Dim dblData(1 To 2048)  As Double
  81. Dim sng0 As Double
  82. Dim dblPt As Variant
  83. Dim dblQd As Variant
  84. Dim n As Variant
  85. Dim i As Integer
  86. '从文件中读取数据
  87.     Open App.Path & "H1t14.dat" For Input As #1
  88.     
  89.             For i = 1 To 2048
  90.                 Input #1, sng0
  91.                 dblData(i) = sng0
  92.             Next
  93.     Close #1
  94.     
  95. '调用接口函数
  96.     Call theMatlab.combld(2, dblPt, dblQd, dblData)
  97.     
  98.     txtPt.Text = Format(dblPt, "##,##0.000")
  99.     txtQd.Text = Format(dblQd, "##,##0.000")
  100.     
  101.     
  102. '从剪切板中获取图形
  103.     imgPxx.Picture = Clipboard.GetData()
  104. End Sub
  105. Private Sub Form_Load()
  106.     
  107.     Set theMatlab = New Seting.Seting
  108.     
  109. End Sub