form_test.frm

mmodbus

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form Form_test 
   Caption         =   "Form1"
   ClientHeight    =   6120
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7590
   LinkTopic       =   "Form1"
   ScaleHeight     =   6120
   ScaleWidth      =   7590
   StartUpPosition =   3  '窗口缺省
   Begin MCI.MMControl MMControl1 
      Height          =   495
      Left            =   1560
      TabIndex        =   1
      Top             =   120
      Width           =   4500
      _ExtentX        =   7938
      _ExtentY        =   873
      _Version        =   393216
      DeviceType      =   ""
      FileName        =   ""
   End
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   9735
      Left            =   240
      OleObjectBlob   =   "Form_test.frx":0000
      TabIndex        =   0
      Top             =   960
      Width           =   11535
   End
End
Attribute VB_Name = "Form_test"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim xb19(1 To 96, 1 To 1) As Single  'xb19为了做图方便而设置的中间变量
Dim K As Integer
Private Sub Command1_Click()
    Dim ComOutStr As String '得到字符串
    Dim i As Integer
    i = 5
    Do While i
        DoMySleep (5)
        MsgBox "5555"
        i = i - 1
    Loop
End Sub

Private Sub Form_Load()
  For K = 1 To 96
    xb19(K, 1) = K
  Next K
  MSChart1.ChartData = xb19
End Sub