开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 电子政务应用 > 查看源码
ircount_6.bas
资源名称：ir_reader37.rar　[点击查看]
上传用户：ask_sh
上传日期：2008-08-18
资源大小：550k
文件大小：3k
源码类别：

电子政务应用

开发平台：

Visual Basic

ircount_6.bas：源码内容
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Public times As Single
  4. Public ti As Integer
  5. Public l As Single
  6. Public irdata
  7. Public Time_times As Single
  9. Public f_add   As Boolean
  10. Public f_readd As Boolean
  11. Public f_dec  As Boolean
  12. Public f_redec As Boolean
  13. Public b As Boolean
  14. Public isFormatRight As Boolean
  16. Public DetectTimes As Integer
  17. 'Public m_2thnum As Integer
  18. 'Public m_3thnum As Integer
  19. 'Public m_4thnum As Integer
  20. 'Public m_cyclenum As Integer
  21. Public DataLines As Integer, iBits As Integer
  23. Public point_n As Integer
  24. Public xx, yy As Integer
  25. Public C0 As Integer
  26. Public DataCol As Integer
  27. Public total_time As Single
  28. Public code(80) As String
  29. 'Public binary_code1(320) As Integer
  30. 'Public binary_code2(70) As Integer
  31. 'Public binary_code3(70) As Integer
  32. Public bCode As String, bCode1 As String
  33. Public sHex As String, hCode1 As String, sSData As String
  34. Public sRpt As String
  35. Public SampleCode As String
  36. Public bSecondPress As Boolean
  37. Public sForm As String
  38. Public sCustom As String
  39. Public sRCustom As String
  40. Public sData As String
  41. Public sRData As String
  42. Public sFData As String
  43. Public sTData As String
  44. Public sPData As String
  45. Public point_x, point_y As Integer
  46. Public i As Integer, j As Integer, k As Integer
  47. Public sLen As Integer, GroupNO As Integer
  49. Public time_tolerance As Single
  50. Public time_0_1 As Integer
  51. Public Head_Osc As Single
  52. Public Head_Idle As Single
  53. Public Head2_Osc As Single
  54. Public Head2_Idle As Single
  55. Public T_Osc As Single
  56. Public T_Idle As Single
  57. Public E_Osc As Single
  58. Public E_Idle As Single
  59. Public D0_Osc As Single
  60. Public D0_Idle As Single
  61. Public D1_Idle As Single
  62. Public CarT As Single
  63. Public wrap As String
  64. Public CarH As Single
  65. Public T As Single
  66. Public T1 As Single
  67. Public T_Tole As Single
  68. Public Bits As Integer
  69. Public xTime  As Integer ' PULSE CODE TOLERANCE
  71. Public IR_type As Integer
  72. 'Public f_half_bit   As Boolean  ' use for hl format code
  73. 'Public f_hl_H       As Boolean  ' IF IS HIGH LEVEL, SET  f_hl_H TO 1
  74. 'Public f_check     As Boolean   ' check ib time flag
  75. Public f_order     As Boolean   ' read code order
  76. 'Public f_fatal     As Boolean   ' time fatal error
  77. 'Public f_no_repeat As Boolean   ' no repeat code
  78. 'Public f_code1_end As Boolean   ' no repeat code
  79. 'Public f_code2_end As Boolean   ' no repeat code
  80. 'Public f_code3_end As Boolean   ' no repeat code
  82. 'Public count_code  As Integer
  83. 'Public f_mid_spe   As Boolean
  84. 'Public f_head_spe  As Boolean
  85. 'Public f_tail_spe  As Boolean
  86. 'Public count_head As Integer       ' head special code num
  87. 'Public count_mid As Integer        ' middle part special code num
  88. 'Public count_tail As Integer       ' tail part special code num
  89. 'Public count_pos As Integer
  91. 'Public Time_times As Single
  92. 'Public ss As Single
  93. 'Public temp As Single
  95. Public ScaleWidth_bk  As Long
  98. 'database varity
  99. Public Newdb As Database
  100. Public tdfIRFormat As TableDef
  101. Public tdfIRHead As TableDef
  103. Public tbls As TableDefs
  104. Public flds As Fields
  105. Public fld1 As Field
  106. Public fld2 As Field
  107. Public idxs As Indexes
  108. Public idxFormat As Index
  109. Public idxHead As Index
  110. 'Public idxHeadOsc As Index
  111. 'Public idxHeadIdle As Index
  112. 'Public idxH2Idle As Index
  113. 'Public fldindex As Field
  114. 'Public cmd_key As Integer
  115. Public record1 As Recordset