PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 2024 → Traduccion de VB a Windev
Traduccion de VB a Windev
Iniciado por Jarod, mar., 09 2008 12:41 AM - Sem resposta
#1
Publicado em março, 09 2008 - 12:41 AM
Hola como estan alguien sabe como traducir este tipo de declaraciones que estan en VisualBasic a Windev se las detallo a continuacion son de tipo ENUM y TYPE la version de windev que uso es la 8

' NOTE THAT ALL ENUMS DECLARED IN A TYPE END UP AS LONGS

'
' RSI_TIME_DATE
'
Type RSI_TIME_DATE
second As Byte
minute As Byte
hour As Byte
day As Byte
month As Byte
year As Byte
End Type

'
' RSI_RESULT
'
Enum RSI_RESULT
RSI_SUCCESS
RSI_ERROR_DATA
RSI_ERROR_COM
RSI_NO_CONNECTION
RSI_COM_TIMEOUT
RSI_BAD_CRC
RSI_PARSE_OVERFLOW
RSI_PARSE_UNDERFLOW
RSI_INVALID_CHANNEL
RSI_INVALID_SOCKET
RSI_INVALID_BUFFER
RSI_SOCKET_ERROR
RSI_CANCEL_IO
End Enum

'
' RSI_MESSAGE_CODE
'
Enum RSI_MESSAGE_CODE
RSI_ACCESS_GRANTED = 0
RSI_WRONG_TIME_PLACE = 1
RSI_HAND_NOT_CLEARED = 2
End Enum

'
' RSI_PROMPT
'
Enum RSI_PROMPT
RSI_RIGHT = 0
RSI_LEFT = 1
RSI_BLANK = 2
End Enum

'
' DAY_NAMES
'
' These are used for the dowMask of time zones and bell schedules
'
Enum DAY_NAMES
RSI_SUNDAY = &H1
RSI_MONDAY = &H2
RSI_TUESDAY = &H4
RSI_WEDNESDAY = &H8
RSI_THURSDAY = &H10
RSI_FRIDAY = &H20
RSI_SATURDAY = &H40
RSI_HOLIDAY = &H80
End Enum

'
' TIME_ZONES
'
Enum TIME_ZONES
RSI_TZ_ALWAYS = 0
RSI_TZ_NEVER = 61
End Enum

'
' SPECIAL_READER_ADDRS
'
Enum SPECIAL_READER_ADDRS
RSI_MIN_READER_ADDRESS = &H0
RSI_MAX_READER_ADDRESS = &HFE
RSI_BROADCAST_ADDRESS = &HAA
RSI_SYSTEM_HOST_ADDRESS = &HFF
End Enum

'
' RSI_BAUD
'
Enum RSI_BAUD
RSI_38400 = 0
RSI_19200 = 1
RSI_9600 = 2
RSI_4800 = 3
RSI_2400 = 4
RSI_1200 = 5
RSI_600 = 6
RSI_300 = 7
End Enum

'
' RSI_AUTHORITY_LEVEL
'
Enum RSI_AUTHORITY_LEVEL
RSI_NONE = 0
RSI_SERVICE = 1
RSI_SETUP = 2
RSI_MANAGEMENT = 3
RSI_ENROLLMENT = 4
RSI_SECURITY = 5
End Enum

'
' RSI_OUTPUT_STATE
'
Enum RSI_OUTPUT_STATE
RSI_TIMED_UNLOCK = 1
RSI_INDEFINATE_UNLOCK = 2
RSI_RELOCK_NOW = 3
RSI_AUX_ON = 4
RSI_AUX_OFF = 5
RSI_DISABLE_LOCK = 6
RSI_AUX1_ON = 7
RSI_AUX1_OFF = 8
RSI_AUX2_ON = 9
RSI_AUX2_OFF = 10
RSI_AUX0_TIMED = 11
RSI_AUX1_TIMED = 12
RSI_AUX2_TIMED = 13
End Enum

'
' RSI_OPERATING_MODE
'
Enum RSI_OPERATING_MODE
RSI_STAND_ALONE = 0
RSI_MASTER = 1
RSI_REMOTE = 2
End Enum

'
' RSI_OUTPUT_MODES
'
Enum RSI_OUTPUT_MODES
RSI_LOCK = 0
RSI_CARD_READER_EMULATION = 1
End Enum

'
' RSI_DATA_LOG_FORMAT
'
Enum RSI_DATA_LOG_FORMAT
RSI_DLF_BUFFER_EMPTY = 0
RSI_DLF_USER_ENROLLED = 1
RSI_DLF_NO_HAND_READ = 2
RSI_DLF_IDENTITY_UNKNOWN = 3
RSI_DLF_EXIT_GRANTED = 4
RSI_DLF_SCORE_IS = 5
RSI_DLF_ACCESS_DENIED = 6
RSI_DLF_IDENTITY_VERIFIED = 7
RSI_DLF_USER_REMOVED = 8
RSI_DLF_ENTER_COMMAND_MODE = 9
RSI_DLF_LEAVE_COMMAND_MODE = 10
RSI_DLF_RECALIBRATED = 11
RSI_DLF_TWO_MAN_TIMEOUT = 12
RSI_DLF_DOOR_FORCED_OPEN = 13
RSI_DLF_TAMPER_ACTIVATED = 14
RSI_DLF_SUPERVISOR_OVERRIDE = 15
RSI_DLF_USER_ADDED_FROM_CARD = 16
RSI_DLF_AUX_INPUT_ON = 17
RSI_DLF_REQ_EXIT_ACTIVATED = 18
RSI_DLF_AUX_OUTPUT_ON = 19
RSI_DLF_BAUD_RATE_CHANGED = 20
RSI_DLF_MESSAGES_READ = 21
RSI_DLF_UNIT_ADDRESS_CHANGED = 22
RSI_DLF_SITE_CODE_CHANGED = 23
RSI_DLF_TIME_AND_DATE_SET = 24
RSI_DLF_LOCK_SETUP_CHANGED = 25
RSI_DLF_PASSWORDS_CHANGED = 26
RSI_DLF_REJECT_THRESHOLD_SET = 27
RSI_DLF_AUX_OUT_SETUP_CHANGED = 28
RSI_DLF_PRINTER_SETUP_CHANGED = 29
RSI_DLF_EXT_DATALOGS = 30
RSI_DLF_DOOR_OPEN_TOO_LONG = 31
RSI_DLF_USERS_LISTED = 32
RSI_DLF_DATA_BASE_SAVED = 33
RSI_DLF_DATA_BASE_RESTORED = 34
RSI_DLF_AMNESTY_PUNCH_GRANTED = 35
RSI_DLF_REJ_OVERRIDE_CHANGED = 36
RSI_DLF_AUTH_LEVEL_CHANGED = 37
RSI_DLF_OPER_MODE_CHANGED = 38
RSI_DLF_OUTPUT_MODE_CHANGED = 39
RSI_DLF_MAX_ID_LEN_CHANGED = 40
RSI_DLF_MEMORY_CLEARED = 41
RSI_DLF_ACCESS_REFUSED_TZ = 42
RSI_DLF_TIME_ZONES_CHANGED = 43
RSI_DLF_USER_TIME_ZONE_CHANGED = 44
RSI_DLF_DURESS_ALARM = 45
RSI_DLF_LOCK_OUTPUT_ON = 46
RSI_DLF_LOCK_OUTPUT_OFF = 47
RSI_DLF_AUX_OUTPUT_OFF = 48
RSI_DLF_SPECIAL_ENROLLMENT = 49
RSI_DLF_AUX_UNLOCK_WIEGAND = 50
RSI_DLF_TIME_RESTRICTIONS = 51
End Enum

Enum RSI_RESPONSE_TYPE
RSI_RESP_NONE = -1
RSI_RESP_HERE_IS_STATUS = &H30 ' '0'
RSI_RESP_HERE_IS_USER_RECORD = &H32 ' '2'
RSI_RESP_HERE_IS_CALIBRATION_DATA = &H33 ' '3'
RSI_RESP_HERE_ARE_RESULTS = &H35 ' '5'
RSI_RESP_HERE_IS_DATA_BANK = &H36 ' '6'
RSI_RESP_HERE_IS_TEMPLATE_VECTOR = &H37 ' '7'
RSI_RESP_HERE_IS_NEXT_DATA_LOG = &H38 ' '8'
RSI_RESP_HERE_IS_SETUP_DATA = &H39 ' '9'
RSI_RESP_HERE_IS_EXT_SETUP_DATA = &H41 ' 'A'
RSI_RESP_UNABLE_TO_COMPLETE = &H58 ' 'X'
RSI_RESP_HERE_IS_OEM_CODE = &H4F ' 'O'
RSI_RESP_HERE_IS_READER_INFO = &H53 ' 'S'
RSI_RESP_HERE_IS_EXT_USER_RECORD = &H31 ' '1'
End Enum

' Enumeration for memory configuration
Enum RSI_MEMORY_OPTIONS
RSI_MEMORY_OPTION_A = 0 ' Small 128K
RSI_MEMORY_OPTION_B = 1 ' Medium 256K
RSI_MEMORY_OPTION_C = 2 ' Large 640K
RSI_MEMORY_OPTION_ERROR
End Enum

' Enumeration for reader model number
Enum RSI_MODELS
RSI_MODEL_HP2K = 0
RSI_MODEL_HP3K = 1
RSI_MODEL_HP4K = 2
RSI_MODEL_HKCR = 3
RSI_MODEL_HKII = 4
RSI_MODEL_5 = 5
RSI_MODEL_6 = 6
RSI_MODEL_7 = 7
RSI_MODEL_8 = 8
RSI_MODEL_9 = 9
RSI_MODEL_10 = 10
RSI_MODEL_11 = 11
RSI_MODEL_12 = 12
RSI_MODEL_13 = 13
RSI_MODEL_14 = 14
RSI_MODEL_SPECIAL = 15
RSI_MODEL_ERROR
End Enum

'
' RSI_DATA_ERROR enumeration
'
' Enumeration for specific data range errors as described below.
'
Enum RSI_DATA_ERROR
RSI_DATA_OK ' No data error
RSI_ERROR_ID_CHAR ' ASCII ID character out of range
Ox30-Ox3F
RSI_ERROR_AUTHORITY_LEVEL ' Authority level out of range 0-5
RSI_ERROR_REJECT_THRESHOLD ' Reject threshold out of range
RSI_ERROR_TIME_ZONE ' Time zone out of range 0-61
RSI_ERROR_YEAR ' added by Prasanth Pulavarthi
RSI_ERROR_MONTH ' Month out of range
RSI_ERROR_DAY
RSI_ERROR_HOUR ' added by Prasanth Pulavarthi
RSI_ERROR_MINUTE
RSI_ERROR_SECOND
RSI_ERROR_TIME_20K
RSI_ERROR_READER_ADDR ' added by Prasanth Pulavarthi
RSI_ERROR_FACILITY_CODE ' added by Prasanth Pulavarthi
RSI_ERROR_ID_LENGTH ' added by Prasanth Pulavarthi
RSI_ERROR_NUM_TRIES ' added by Prasanth Pulavarthi
RSI_ERROR_DURESS_CHAR ' added by Prasanth Pulavarthi
RSI_ERROR_MSG_TEXT ' added by Prasanth Pulavarthi
RSI_ERROR_INTERVAL_TIME ' added by Prasanth Pulavarthi
RSI_ERROR_BELL_DURATION ' added by Prasanth Pulavarthi
RSI_ERROR_BUFFER_INVALID ' added by Prasanth Pulavarthi
RSI_ERROR_CHANNEL_INVALID ' used only by rsiGetDataError()
RSI_ERROR_SERIAL_MODE
End Enum

'
' RSI_COMMAND_TYPE enumeration
'
' These are the characters that are sent to the hand reader to execute a
' command. The argument to rsiSendMessage is set to one of these values.
'
Enum RSI_COMMAND_TYPE
RSI_CMD_RESUME = &H31 ' '1'
RSI_CMD_ABORT = &H32 ' '2'
RSI_CMD_HERE_IS_USER_RECORD = &H37 ' '7'
RSI_CMD_SEND_USER_RECORD = &H38 ' '8'
RSI_CMD_HERE_IS_SETUP_DATA = &H3D ' '='
RSI_CMD_REMOVE_USER_RECORD = &H3F ' '?'
RSI_CMD_CALIBRATE = &H3A ' ':'
RSI_CMD_CLEAR_USER_DATABASE = &H3E ' '>'
RSI_CMD_SEND_CALIBRATION_DATA = &H3C ' '<'
RSI_CMD_SEND_LAST_USER_RECORD = &H40 ' '@'
RSI_CMD_HERE_IS_TIME = &H41 ' 'A'
RSI_CMD_SEND_RESULTS = &H43 ' 'C'
RSI_CMD_SEND_STATUS_CRC = &H44 ' 'D'
RSI_CMD_ENTER_IDLE_MODE = &H45 ' 'E'
RSI_CMD_ENTER_IDLE_MODE2 = &H65 ' 'e'
RSI_CMD_HERE_IS_BANK_NUMBER = &H46 ' 'F'
RSI_CMD_HERE_IS_DATA_BANK = &HC7 ' 'G' + high bit set for
length>255
RSI_CMD_SEND_DATA_BANK = &H48 ' 'H'
RSI_CMD_ENROLL_USER = &H49 ' 'I'
RSI_CMD_VERIFY_USER_EXTERNAL = &H4A ' 'J'
RSI_CMD_SEND_TEMPLATE = &H4B ' 'K'
RSI_CMD_UPDATE_NV_RAM = &H4C ' 'L'
RSI_CMD_SEND_DATA_LOG = &H4D ' 'M'
RSI_CMD_SEND_PREV_DATA_LOG = &H6D ' 'm'
RSI_CMD_SEND_SETUP_DATA = &H4E ' 'N'
RSI_CMD_OUTPUT_CONTROL = &H4F ' 'O'
RSI_CMD_HERE_IS_DISPLAY_MESSAGE = &H50 ' 'P'
RSI_CMD_PRINTER_PASS_THROUGH = &H70 ' 'p'
RSI_CMD_VERIFY_USER_INTERNAL = &H51 ' 'Q'
RSI_CMD_NEXT_MESSAGE_TIME_ZONE = &H52 ' 'R'
RSI_CMD_HERE_ARE_TIME_ZONES = &HD3 ' 'S' + high bit set for
length>255
RSI_CMD_DISPLAY_CODED_MESSAGE = &H56 ' 'V'
RSI_CMD_NEXT_MESSAGE_BELL_SCHEDULE = &H57 ' 'W'
RSI_CMD_HERE_IS_BELL_SCHEDULE = &HD8 ' 'X' + high bit set for
length>255

RSI_CMD_HERE_IS_FKEY_DATA = &H64 ' 'd'
RSI_CMD_SEND_EXT_SETUP_DATA = &H2C ' ','
RSI_CMD_HERE_IS_EXT_SETUP_DATA = &H2B ' '+'
RSI_CMD_SET_USER_DATA = &H66 ' 'f'
RSI_CMD_SEND_OEM_CODE = &H6F ' 'o'
RSI_CMD_SEND_READER_INFO = &H73 ' 's'
RSI_CMD_SEND_EXT_USER_RECORD = &H74 ' 't'
RSI_CMD_SET_EXT_USER_DATA = &H75 ' 'u'
RSI_CMD_ADD_USER_MESSAGE = &H76 ' 'v'
RSI_CMD_REMOVE_USER_MESSAGE = &H77 ' 'w'
RSI_CMD_HERE_IS_EXT_USER_RECORD = &H78 ' 'x'
RSI_CMD_CLEAR_USER_MESSAGES = &H79 ' 'y'
End Enum

'
' RSI_DATA_LOG_DATA_TYPE
'
Enum RSI_DATA_LOG_DATA_TYPE
RSI_NO_DATA_EXPECTED = &HFF
RSI_NO_DATA_ENTERED = &H0
RSI_DATA_IN = &H1
RSI_DATA_BACK1 = &H2
RSI_DATA_OUT = &H3
RSI_DATA_DEPARTMENT = &H4
RSI_DATA_BACK2 = &H5
RSI_DATA_JOB = &H6
RSI_DATA_BACK3 = &H7
RSI_DATA_BULK_HOURS = &H8
RSI_DATA_BULK_DOLLARS = &H9
RSI_DATA_CATEGORY = &H15
End Enum

'
' RSI_TA_DLF_17
' Used for datalog format 17 of high byte of data2
'
Enum RSI_TA_DLF_17
RSI_TA_DLF_17_AUXIN1_ON = &HFF
RSI_TA_DLF_17_AUXIN2_ON = &H1
End Enum

'
' RSI_AUXOUT_ON_EVENTS
' Used for datalog format 19 of 4-byte lsb of data2
'
Enum RSI_AUXOUT_ON_EVENTS
RSI_AUXOUT_ON_TAMPER = 0
RSI_AUXOUT_ON_TZVIOL = 1
RSI_AUXOUT_ON_IDREF = 2
RSI_AUXOUT_ON_DURESS = 3
RSI_AUXOUT_ON_AUXIN1 = 4
RSI_AUXOUT_ON_AUXIN2 = 5
RSI_AUXOUT_ON_DOOR = 6
RSI_AUXOUT_ON_TRYAGAIN = 7
RSI_AUXOUT_ON_F1KEY = 8
RSI_AUXOUT_ON_F2KEY = 9
RSI_AUXOUT_ON_POWER = 10
End Enum

'
' RSI_TA_DLF_19
'
Enum RSI_TA_DLF_19
RSI_TA_DLF_19_AUXOUT0_ON = &HFF
RSI_TA_DLF_19_AUXOUT1_ON = &H1
RSI_TA_DLF_19_AUXOUT2_ON = &H2
End Enum

'
' RSI_TA_DLF_30
' Used for datalog format 30 of high byte of data2
'
Enum RSI_TA_DLF_30
RSI_TA_DLF_30_INT_SETUP = &H1
RSI_TA_DLF_30_SYS_BOARD_STAT = &H2
End Enum

'
' RSI_TA_DLF_48
' Used for datalog format 48 of high byte of data2
'
Enum RSI_TA_DLF_48
RSI_TA_DLF_48_AUXOUT0_OFF = &HFF
RSI_TA_DLF_48_AUXOUT1_OFF = &HFF
RSI_TA_DLF_48_AUXOUT2_OFF = &HFF
End Enum


'-----------------------------------------------
' rsidll32 types
'-----------------------------------------------
'
' RSI_ID
'
Type RSI_ID
b0 As Byte
b1 As Byte
b2 As Byte
b3 As Byte
b4 As Byte
End Type

'
' RSI_STATUS
'
Type RSI_STATUS
h_read As Long ' byte 1 bit 0
led1 As Long ' byte 1 bit 1
led2 As Long ' byte 1 bit 2
led3 As Long ' byte 1 bit 3
led4 As Long ' byte 1 bit 4
any_key As Long ' byte 1 bit 5
aux_out1 As Long ' byte 1 bit 6
aux_out2 As Long ' byte 1 bit 7
res_sys As Long ' byte 2 bit 0
verify_rdy As Long ' byte 2 bit 1
rslts_rdy As Long ' byte 2 bit 2
failed_cmd As Long ' byte 2 bit 3
dlog_rdy As Long ' byte 2 bit 4
id_nim As Long ' byte 2 bit 5
cmd_bsy As Long ' byte 2 bit 6
kp_id As Long ' byte 2 bit 7
tmpr_st As Long ' byte 3 bit 0
aux_in2 As Long ' byte 3 bit 1
aux_st As Long ' byte 3 bit 2
aux_in1 As Long ' byte 3 bit 3 New readers
door_st As Long ' byte 3 bit 4
rex_st As Long ' byte 3 bit 5
lock_st As Long ' byte 3 bit 6
auxo_st As Long ' byte 3 bit 7
End Type

'
' RSI_MESSAGE_TEXT
'
Type RSI_MESSAGE_TEXT
data(0 To RSI_LEN_MESSAGE - 1) As Byte
End Type

'
' RSI_DISPLAY_MESSAGE
'
Type RSI_DISPLAY_MESSAGE
userSpecific As Long ' display the message for a specific
user only?
halfsecs_id As RSI_ID ' how long should the message be
displayed? -OR-
' to which user should the message be
displayed to?
' for halfsecs, use halfsecs_id.b0
msg As RSI_MESSAGE_TEXT ' the message text
End Type

'
' RSI_TIME_DATE
'
Type RSI_TIME_DATE
second As Byte
minute As Byte
hour As Byte
day As Byte
month As Byte
year As Byte
End Type
→ Voltar para WINDEV 2024