frmparamsetup.frm

用ＶＢ编写的接收卫星接收机的是数据

VERSION 5.00
Begin VB.Form frmParamSetup 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "打开/配置设备向导 Step3 —— 参数设置"
   ClientHeight    =   4785
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   6765
   Icon            =   "frmParamSetup.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4785
   ScaleWidth      =   6765
   StartUpPosition =   1  '所有者中心
   Visible         =   0   'False
   Begin VB.TextBox txtBufferCount 
      BackColor       =   &H8000000E&
      Height          =   300
      Left            =   4920
      TabIndex        =   9
      Top             =   3120
      Width           =   1695
   End
   Begin VB.TextBox txtFramesPerBuffer 
      BackColor       =   &H8000000E&
      Height          =   300
      Left            =   4920
      TabIndex        =   7
      Top             =   2400
      Width           =   1695
   End
   Begin VB.TextBox txtPacketCount 
      BackColor       =   &H8000000E&
      Height          =   300
      Left            =   4920
      TabIndex        =   5
      Top             =   1680
      Width           =   1695
   End
   Begin VB.TextBox txtPacketSize 
      BackColor       =   &H8000000E&
      Height          =   300
      Left            =   4920
      TabIndex        =   3
      Top             =   960
      Width           =   1695
   End
   Begin VB.TextBox txtPipeNum 
      BackColor       =   &H80000009&
      Height          =   300
      Left            =   4920
      Locked          =   -1  'True
      TabIndex        =   1
      Top             =   360
      Width           =   1695
   End
   Begin VB.Label lblBufferCount 
      AutoSize        =   -1  'True
      Caption         =   "使用URB个数 BufferCount:"
      Height          =   180
      Left            =   2640
      TabIndex        =   8
      Top             =   3180
      Width           =   2160
   End
   Begin VB.Label lblFramesPerBuffer 
      AutoSize        =   -1  'True
      Caption         =   "包/URB FramesPerBuffer:"
      Height          =   180
      Left            =   2640
      TabIndex        =   6
      Top             =   2520
      Width           =   2070
   End
   Begin VB.Label lblPacketCount 
      AutoSize        =   -1  'True
      Caption         =   "包数量 PacketCount:"
      Height          =   180
      Left            =   2640
      TabIndex        =   4
      Top             =   1800
      Width           =   1710
   End
   Begin VB.Label lblPacketSize 
      AutoSize        =   -1  'True
      Caption         =   "包大小 PacketSize:"
      Height          =   180
      Left            =   2640
      TabIndex        =   2
      Top             =   1080
      Width           =   1620
   End
   Begin VB.Label lblPipe 
      AutoSize        =   -1  'True
      Caption         =   "管道号 PipeNum:"
      Height          =   180
      Left            =   2640
      TabIndex        =   0
      Top             =   420
      Width           =   1350
   End
End
Attribute VB_Name = "frmParamSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strCurrentEdpoint As String
Dim iEndpoint As Long
Dim iInterface As Long
Dim pipeNum As Long
Private Sub Default()
txtPipeNum.Text = "0"
txtPacketSize.Text = "64"
txtPacketCount.Text = "128"
txtFramesPerBuffer.Text = "8"
txtBufferCount.Text = "2"
End Sub



Private Sub Form_Load()

Call Default
Dim retval As Long
Dim checklong As Long
Dim checkTransCtrl As New TransCtrl

Dim intErrNum    As Integer
Dim strErrReason As String

On Error Resume Next
checkTransCtrl.BufferCount = CLng(txtBufferCount.Text)
checkTransCtrl.FramesPerBuffer = CLng(txtFramesPerBuffer.Text)
checkTransCtrl.PacketCount = CLng(txtPacketCount.Text)
checkTransCtrl.PacketSize = CLng(txtPacketSize.Text)

With frmMain.ezlibObj
   
    '// Transfer Ctrl is Validate
    Set frmMain.ezTransCtrl = checkTransCtrl
    Call .EndTransfer
    
    ' Fill Transfer Ctrl to FlexGrid
    Call procFillTransferCtrl(True)
    
    ' Set Current Endpoint
    frmMain.ezCurEdIndex = iEndpoint
    frmMain.ezCurIfIndex = iInterface
    
    ' Fill "管道号" Cell in FlexGrid Control
    frmMain.msfInfo.TextMatrix(2, 1) = Trim(txtPipeNum.Text)
    
    ' Fill Current Endpoint in frmMain
    frmMain.lblCurEdpoint.Caption = "选定接口" + CStr(iInterface) + "." + "端点" + CStr(iEndpoint)
    
    
    ' Save Current Transfer Ctrl 's Feilds to File as References
    refLngPacketSize = checkTransCtrl.PacketSize
    refLngPacketCount = checkTransCtrl.PacketCount
    refLngBufferCount = checkTransCtrl.BufferCount
    refLngFramesPerBuffer = checkTransCtrl.FramesPerBuffer
    Call procSaveReferences
    
    ' Mark that the Transfer Ctrl has been Filled
    frmMain.blIsTransCtrlSet = True
    frmParamSetup.Hide
    'Unload frmParamSetup
End With

End Sub