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

Attribute VB_Name = "菜单和工具条处理"
Public Sub procOpenDevice()
' // To Open a new Device
If g_blWorking <> True Then
  g_blWorking = True
  Load frmDeviceSetup
  g_blWorking = False
  frmDeviceSetup.Show vbModal, frmMain
End If
End Sub

Public Sub procTransferSetup()
' // To Select Endpoint
If g_blWorking <> True Then
  g_blWorking = True
  Load frmTransferSetup
   g_blWorking = False
  'frmTransferSetup.Show vbModal, frmMain
  'Unload frmDeviceSetup
End If
End Sub


Public Sub procStart()

   

' // To Start Transfer
If g_blWorking <> True Then
  g_blWorking = True

  'Dim retval As Long
  Dim retval2 As Long
  Dim lngBufferAddr As Long
 
  With frmMain.ezlibObj
    retval = .BeginTransfer(.Interfaces(frmMain.ezCurIfIndex).Endpoints(frmMain.ezCurEdIndex), _
                            frmMain.ezTransCtrl, lngBufferAddr)
                            
    retval2 = frmMain.fmBdrObj.InitFileMap(frmMain.frameRight.hwnd, frmMain.frameRight.hDC, frmMain.strDatafilePath)
    ' if errors occured
    If retval <> 0 Or retval2 = 1 Then
      If retval2 = 1 Then
       MsgBox "初始化绘图组件失败"
      End If
    
      If retval <> 0 Then
       MsgBox "启动失败"
     End If
      
      Call frmMain.fmBdrObj.FreeFileMap
      Call .EndTransfer
    
    g_blWorking = False
      Exit Sub
    End If


   ' Store the Data buffer's Address which will be used in Map Paint Thread(Timer)
   frmMain.ezLngDataAddr = lngBufferAddr
   
   ' Start data receiving and Map Painting Thread(Timer)
   frmMain.ezlngTotalRead = 0
   frmMain.tmrDataThread.Interval = optLngTransDelay
   
   ' Start Gate Dog thread(Timer)
   frmMain.tmrDog.Interval = optLngDogDelay
   

   
  End With
 '// --------------------
  frmMain.Toolbar1.Buttons("StopTransfer").Enabled = True
  frmMain.mitemStopTransfer.Enabled = True
  
  g_blWorking = False
End If ' // end if blWorking <> True Then


End Sub

Public Sub procStop()
If g_blWorking <> True Then
   g_blWorking = True

' // To Stop Transfer
With frmMain.ezlibObj
  ' Stop Gate Dog thread(Timer)
   frmMain.tmrDog.Interval = 0
   
  ' Stop data receiving and Map Painting Thread(Timer)
   frmMain.tmrDataThread.Interval = 0

  ' End Transfer
  Call .EndTransfer
  
  ' uninit fmBdrobj
  Call frmMain.fmBdrObj.FreeFileMap
  
End With
'// ---------------------
  frmMain.Toolbar1.Buttons("StopTransfer").Enabled = False
  frmMain.mitemStopTransfer.Enabled = False
  
  g_blWorking = False
End If ' // end if g_blWorking <> True Then
End Sub