ircount_6.bas

红外线遥控器读码软件

Attribute VB_Name = "Module1"
Option Explicit
Public times As Single
Public ti As Integer
Public l As Single
Public irdata
Public Time_times As Single

Public f_add   As Boolean
Public f_readd As Boolean
Public f_dec  As Boolean
Public f_redec As Boolean
Public b As Boolean
Public isFormatRight As Boolean

Public DetectTimes As Integer
'Public m_2thnum As Integer
'Public m_3thnum As Integer
'Public m_4thnum As Integer
'Public m_cyclenum As Integer
Public DataLines As Integer, iBits As Integer

Public point_n As Integer
Public xx, yy As Integer
Public C0 As Integer
Public DataCol As Integer
Public total_time As Single
Public code(80) As String
'Public binary_code1(320) As Integer
'Public binary_code2(70) As Integer
'Public binary_code3(70) As Integer
Public bCode As String, bCode1 As String
Public sHex As String, hCode1 As String, sSData As String
Public sRpt As String
Public SampleCode As String
Public bSecondPress As Boolean
Public sForm As String
Public sCustom As String
Public sRCustom As String
Public sData As String
Public sRData As String
Public sFData As String
Public sTData As String
Public sPData As String
Public point_x, point_y As Integer
Public i As Integer, j As Integer, k As Integer
Public sLen As Integer, GroupNO As Integer

Public time_tolerance As Single
Public time_0_1 As Integer
Public Head_Osc As Single
Public Head_Idle As Single
Public Head2_Osc As Single
Public Head2_Idle As Single
Public T_Osc As Single
Public T_Idle As Single
Public E_Osc As Single
Public E_Idle As Single
Public D0_Osc As Single
Public D0_Idle As Single
Public D1_Idle As Single
Public CarT As Single
Public wrap As String
Public CarH As Single
Public T As Single
Public T1 As Single
Public T_Tole As Single
Public Bits As Integer
Public xTime  As Integer ' PULSE CODE TOLERANCE

Public IR_type As Integer
'Public f_half_bit   As Boolean  ' use for hl format code
'Public f_hl_H       As Boolean  ' IF IS HIGH LEVEL, SET  f_hl_H TO 1
'Public f_check     As Boolean   ' check ib time flag
Public f_order     As Boolean   ' read code order
'Public f_fatal     As Boolean   ' time fatal error
'Public f_no_repeat As Boolean   ' no repeat code
'Public f_code1_end As Boolean   ' no repeat code
'Public f_code2_end As Boolean   ' no repeat code
'Public f_code3_end As Boolean   ' no repeat code

'Public count_code  As Integer
'Public f_mid_spe   As Boolean
'Public f_head_spe  As Boolean
'Public f_tail_spe  As Boolean
'Public count_head As Integer       ' head special code num
'Public count_mid As Integer        ' middle part special code num
'Public count_tail As Integer       ' tail part special code num
'Public count_pos As Integer

'Public Time_times As Single
'Public ss As Single
'Public temp As Single

Public ScaleWidth_bk  As Long


'database varity
Public Newdb As Database
Public tdfIRFormat As TableDef
Public tdfIRHead As TableDef

Public tbls As TableDefs
Public flds As Fields
Public fld1 As Field
Public fld2 As Field
Public idxs As Indexes
Public idxFormat As Index
Public idxHead As Index
'Public idxHeadOsc As Index
'Public idxHeadIdle As Index
'Public idxH2Idle As Index
'Public fldindex As Field
'Public cmd_key As Integer
Public record1 As Recordset