来自「用ＶＢ编写的接收卫星接收机的是数据」· 代码 · 共 57 行

Attribute VB_Name = "选项所对应的变量和结构"
' // Device Setup Options
' 1
Public optLngDevFrom As Long
Public optLngDevTo   As Long

' 2
Public optLngDetachDelay As Long

' 3
Public optLngPluginDelay As Long


' // Transfer Setup Options
' 1
Public optLngTransDelay As Long

'2
Public optLngDogDelay   As Long

'3
Public optLngRetryTimes As Long


' // Transfer Ctrl Reference Variables
' 1 PacketSize
Public refLngPacketSize As Long
' 2 PacketCount
Public refLngPacketCount As Long
' 3 FramesPerBuffer
Public refLngFramesPerBuffer As Long
' 4 BufferCount
Public refLngBufferCount As Long


' // Option Record Struct to be Written to file
Type OptionRecord
' Options Save Fields (First Record of the file)
  recBlFlag     As Boolean 'Marked Weather Options were Saved Correctly
  recLngDevFrom As Long
  recLngDevTo   As Long
  
  recLngDetachDelay As Long
  recLngPluginDelay As Long
  
  recLngTransDelay As Long
  recLngDogDelay As Long
  recLngRetryTimes As Long
  
' Transfer Ctrl Reference Fields(Second Record of the file)
  refBlFlag As Boolean
  refLngPacketSize As Long
  refLngPacketCount As Long
  refLngFramesPerBuffer As Long
  refLngBufferCount As Long
End Type