Samuele Locatelli
465 lines
14 KiB
VB.net
465 lines
14 KiB
VB.net
Public Module IniRead
|
|
|
|
Public Const OVERWRITE As Boolean = True
|
|
Public Const APPEND As Boolean = True
|
|
Public Const DO_NOT_APPEND As Boolean = False
|
|
|
|
Public sz_ini_file_name As String
|
|
|
|
Public sz_program_path As String
|
|
Public sz_temporary_path As String
|
|
Public sz_allowed_extension As String
|
|
|
|
Public b_debug As Boolean
|
|
Public b_verbose As Boolean
|
|
Public b_test_nc As Boolean
|
|
Public b_send_file As Boolean
|
|
|
|
Public b_log_enabled As Boolean
|
|
Public szLogFileName As String
|
|
|
|
Public b_win7 As Boolean
|
|
|
|
Public b_open_control As Boolean
|
|
Public b_force_S10WLK32 As Boolean
|
|
Public b_no_WinNBI As Boolean
|
|
|
|
Public szNameNC As String
|
|
Public nVar_NC_state As Integer ' @STATUS_PRG PLC var number ( GW ) : Nc program state
|
|
|
|
Public nVar_prg_1_ok As Integer
|
|
Public nVar_prg_2_ok As Integer
|
|
|
|
Public sz_ODD_program_name As String
|
|
Public sz_EVEN_program_name As String
|
|
|
|
Public sz_AUTO_program_name As String
|
|
|
|
Public n_program_to_send As Short
|
|
|
|
Public szDefaultNameNC As String
|
|
Public szDefaultPathNC As String
|
|
|
|
Public lTimerInterval As Long
|
|
|
|
Public b_SerialBarCodeReader_enabled As Boolean
|
|
Public n_SerialBarCodeReader_comm_port As Int16
|
|
Public sz_SerialBarCodeReader_settings As String
|
|
|
|
Public b_UsbBarCodeReader_enabled As String
|
|
|
|
Public b_BarCodeInput_enabled As Boolean
|
|
|
|
Public b_FileInputMode_enabled As Boolean
|
|
Public sz_FileInputName As String
|
|
|
|
|
|
Public n_num_barcode_fields As Short
|
|
Public sz_barcode_mask As String
|
|
Public sz_barcode_preprocessing As String
|
|
|
|
Public b_Table_enabled As Boolean
|
|
Public sz_table_filename As String
|
|
Public b_reload_table As Boolean
|
|
|
|
Public b_ext_program_enabled As Boolean
|
|
Public sz_ext_program_filename As String
|
|
Public sz_ext_return_filename As String
|
|
Public sz_ext_temp_filename As String
|
|
|
|
Public b_CAM_program_enabled As Boolean
|
|
Public sz_CAM_program_exefilename As String
|
|
Public sz_CAM_data_path As String
|
|
Public sz_CAM_data_ext As String
|
|
Public sz_CAM_arguments As String
|
|
Public sz_CAM_return_ext As String
|
|
Public sz_CAM_Probe_ext As String
|
|
|
|
Public b_direct_mode_enabled As Boolean
|
|
Public sz_direct_prefix As String
|
|
Public sz_direct_suffix As String
|
|
|
|
Public b_select_mode_enabled As Boolean
|
|
Public sz_probe_arguments As String
|
|
Public sz_cn_arguments As String
|
|
|
|
Public n_L_var_1 As Int16
|
|
Public n_L_var_2 As Int16
|
|
|
|
Public n_L_value_1_on As Int16
|
|
Public n_L_value_1_off As Int16
|
|
Public n_L_value_2_on As Int16
|
|
Public n_L_value_2_off As Int16
|
|
Public n_timeout As Int16
|
|
|
|
Public sz_nc_probe_path As String
|
|
Public sz_nc_probe_ext As String
|
|
Public b_fixed_probe_file As Boolean
|
|
Public sz_nc_fixed_probe_file As String
|
|
Public b_read_DDF_file As Boolean
|
|
Public sz_property_1 As String
|
|
Public sz_property_2 As String
|
|
|
|
Public b_toolcomp_update As Boolean
|
|
Public n_toolcomp_number As Int16
|
|
Public sz_toolcomp_file As String
|
|
Public sz_toolcomp_command As String
|
|
|
|
#Region "registration"
|
|
|
|
'Questo campo e' il campo di referenza serve a creare la relativa KEy di sblocco
|
|
Public developerKey As String
|
|
|
|
'Richiede solo numeri interi
|
|
Public regTry As Integer
|
|
|
|
'Flag per identificare la registrazione del programma
|
|
Public pRegistered As Boolean
|
|
|
|
Public PC_serial_number As Long
|
|
Public sPC_serial_number As String
|
|
Public SW_version As String
|
|
Public registered_key As String
|
|
Public registered_key2 As String
|
|
Public registered_key3 As String
|
|
Public registered_customer As String
|
|
|
|
#End Region
|
|
|
|
#Region "example of INI file"
|
|
|
|
' file door_pro.ini
|
|
'[General]
|
|
|
|
|
|
'Program path = c:\Users\carlo\Documents\Projects\vs2008\door_pro\door_pro\programs
|
|
'allowed ext = .anc .TXT
|
|
'temp path = c:\Users\carlo\Documents\Projects\vs2008\door_pro\door_pro\temp
|
|
'
|
|
'w7 = true
|
|
'timer = 1000
|
|
|
|
'[Debug]
|
|
'debug = true
|
|
'verbose = false
|
|
|
|
'[Log]
|
|
'enabled = true
|
|
'Log file = c:\Users\carlo\Documents\Projects\vs2008\door_pro\door_pro\temp\log
|
|
|
|
'[NC]
|
|
'name = NC9000
|
|
'NC state = 230
|
|
'Prog1 ok = 232
|
|
'Prog2 ok = 233
|
|
|
|
'default_name = MAIN
|
|
'default_path = Y:\UPP\
|
|
|
|
'ODD_name = 1000
|
|
'EVEN_name = 2000
|
|
'AUTO_name = UPP\MAINAUTO
|
|
'program_to_send = 4
|
|
|
|
'[BarCode]
|
|
'fields = 1
|
|
'MASK = xx11111xxx223333xx44xxxxxx
|
|
'PreProcessing = "1-2"
|
|
|
|
'[SerialBarCodeReader]
|
|
'enabled = true
|
|
'Port = 4
|
|
'Settings=9600,n,8,1
|
|
|
|
'[UsbBarCodeReader]
|
|
'enabled = false
|
|
|
|
'[Table]
|
|
'enabled = true
|
|
'file = c:\pro_d\pro_d\prg\worklist.aut
|
|
|
|
'[CAM]
|
|
'enabled = true
|
|
'program = C:\abc\ww.exe
|
|
'datapath
|
|
'arguments
|
|
'return_file_ext = txt
|
|
|
|
'[Direct]
|
|
'enabled = true
|
|
'pre = C:\door_pro\programs\
|
|
'post = .cnc
|
|
|
|
'[Key]
|
|
' regkey = 12345
|
|
' regkey2 = 2345
|
|
' regkey3 = 2345
|
|
' customer = qwe
|
|
|
|
#End Region
|
|
|
|
Sub Ini_read()
|
|
|
|
sz_ini_file_name = Application.StartupPath & "\config\" & Application.ProductName & ".ini"
|
|
|
|
Dim ini As New IniReader(sz_ini_file_name)
|
|
|
|
ini.Section = "General" '-----------------------------------------------------
|
|
|
|
sz_program_path = clear_ending_bar(ini.ReadString("Program path"))
|
|
sz_temporary_path = clear_ending_bar(ini.ReadString("temp path"))
|
|
sz_allowed_extension = clear_starting_point(ini.ReadString("allowed ext").ToLower)
|
|
|
|
lTimerInterval = ini.ReadLong("timer", 1000)
|
|
|
|
b_win7 = ini.ReadBoolean("w7", False)
|
|
|
|
ini.Section = "Debug" '-----------------------------------------------------
|
|
|
|
b_debug = ini.ReadBoolean("debug", False)
|
|
b_verbose = ini.ReadBoolean("verbose", False)
|
|
b_test_nc = ini.ReadBoolean("test_nc", False)
|
|
|
|
b_send_file = ini.ReadBoolean("send_file", False)
|
|
|
|
ini.Section = "Log" '-----------------------------------------------------
|
|
|
|
b_log_enabled = ini.ReadBoolean("enabled", False)
|
|
szLogFileName = ini.ReadString("Log file")
|
|
|
|
ini.Section = "NC" '-----------------------------------------------------
|
|
|
|
|
|
b_open_control = ini.ReadBoolean("OpenControl", False)
|
|
b_force_S10WLK32 = ini.ReadBoolean("S10WLK32", False)
|
|
b_no_WinNBI = ini.ReadBoolean("No WinNBI", False)
|
|
|
|
szNameNC = ini.ReadString("name")
|
|
nVar_NC_state = ini.ReadInteger("NC state")
|
|
nVar_prg_1_ok = ini.ReadInteger("Prog1 ok")
|
|
nVar_prg_2_ok = ini.ReadInteger("Prog2 ok")
|
|
|
|
szDefaultNameNC = ini.ReadString("default_name")
|
|
szDefaultPathNC = clear_ending_bar(ini.ReadString("default_path"))
|
|
|
|
sz_ODD_program_name = ini.ReadString("ODD_name")
|
|
sz_EVEN_program_name = ini.ReadString("EVEN_name")
|
|
|
|
n_program_to_send = ini.ReadInteger("program_to_send", 1)
|
|
|
|
ini.Section = "BarCode" '-----------------------------------------------------
|
|
|
|
'[BarCode]
|
|
'fields = 1
|
|
'MASK = xx11111xxx223333xx44xxxxxx
|
|
'PreProcessing = "1-2"
|
|
|
|
n_num_barcode_fields = ini.ReadInteger("fields", 1)
|
|
sz_barcode_mask = ini.ReadString(ini.Section, "MASK", "11111111")
|
|
sz_barcode_preprocessing = ini.ReadString(ini.Section, "PreProcessing", "=")
|
|
|
|
ini.Section = "SerialBarCodeReader" '-----------------------------------------------------
|
|
|
|
'[SerialBarCodeReader]
|
|
'enabled = true
|
|
'Port = 4
|
|
'Settings=9600,n,8,1
|
|
|
|
b_SerialBarCodeReader_enabled = ini.ReadBoolean("enabled", False)
|
|
n_SerialBarCodeReader_comm_port = ini.ReadInteger("Port", 1)
|
|
sz_SerialBarCodeReader_settings = ini.ReadString(ini.Section, "Settings", "9600,None,8,1")
|
|
|
|
ini.Section = "UsbBarCodeReader" '-----------------------------------------------------
|
|
|
|
'[UsbBarCodeReader]
|
|
'enabled = true
|
|
|
|
b_UsbBarCodeReader_enabled = ini.ReadBoolean("enabled", False)
|
|
|
|
If b_UsbBarCodeReader_enabled And b_SerialBarCodeReader_enabled Then
|
|
Log.write_and_messagebox(" Both USB and serial bar code reader enabled - please disable one ... ", 34)
|
|
'End
|
|
End If
|
|
|
|
b_BarCodeInput_enabled = b_UsbBarCodeReader_enabled Or b_SerialBarCodeReader_enabled
|
|
|
|
|
|
ini.Section = "FileInput" '-----------------------------------------------------
|
|
|
|
'[FileInput]
|
|
'enabled = true
|
|
'InputFile = C:\input\data.txt
|
|
|
|
b_FileInputMode_enabled = ini.ReadBoolean("enabled", False)
|
|
sz_FileInputName = ini.ReadString(ini.Section, "InputFile", "")
|
|
|
|
If b_BarCodeInput_enabled And b_FileInputMode_enabled Then
|
|
Log.write_and_messagebox(" Both file input and bar code mode enabled - please disable one ... ", 35)
|
|
'End
|
|
End If
|
|
|
|
If (Not b_BarCodeInput_enabled) And (Not b_FileInputMode_enabled) Then
|
|
Log.write_and_messagebox(" No file input mode nor bar code mode enabled - please enable one ... ", 36)
|
|
'End
|
|
End If
|
|
|
|
ini.Section = "Table" '-----------------------------------------------------
|
|
|
|
'[Table]
|
|
'enabled = true
|
|
'file = c:\pro_d\pro_d\prg\worklist.aut
|
|
|
|
b_Table_enabled = ini.ReadBoolean("enabled", False)
|
|
sz_table_filename = ini.ReadString("file")
|
|
b_reload_table = ini.ReadBoolean("reload", False)
|
|
|
|
ini.Section = "EXT" '-----------------------------------------------------
|
|
|
|
'[EXT]
|
|
'enabled = true
|
|
'program = C:\abc\ww.exe
|
|
'return_file = c:\pro_d\pro_d\prg\worklist.aut
|
|
|
|
b_ext_program_enabled = ini.ReadBoolean("enabled", False)
|
|
sz_ext_program_filename = ini.ReadString("program")
|
|
sz_ext_return_filename = ini.ReadString("return_file")
|
|
sz_ext_temp_filename = ini.ReadString("temp_file")
|
|
|
|
ini.Section = "CAM" '-----------------------------------------------------
|
|
|
|
'[CAM]
|
|
'enabled = true
|
|
'program = C:\abc\ww.exe
|
|
'datapath
|
|
'arguments
|
|
'return_file_ext = c:\pro_d\pro_d\prg\worklist.aut
|
|
|
|
b_CAM_program_enabled = ini.ReadBoolean("enabled", False)
|
|
sz_CAM_program_exefilename = ini.ReadString("program")
|
|
|
|
sz_CAM_data_path = (ini.ReadString("datapath"))
|
|
sz_CAM_data_path = sz_CAM_data_path.Replace("""", "")
|
|
sz_CAM_data_path = clear_ending_bar(sz_CAM_data_path)
|
|
|
|
sz_CAM_data_ext = clear_starting_point(ini.ReadString("dataext"))
|
|
|
|
sz_CAM_arguments = ini.ReadString("arguments")
|
|
sz_CAM_return_ext = clear_starting_point(ini.ReadString("return_file_ext"))
|
|
sz_CAM_Probe_ext = clear_starting_point(ini.ReadString("probe_file_ext"))
|
|
|
|
ini.Section = "Direct" '-----------------------------------------------------
|
|
|
|
'[Direct]
|
|
'enabled = true
|
|
'pre = C:\abc\ww\
|
|
'post = .cnc
|
|
|
|
b_direct_mode_enabled = ini.ReadBoolean("enabled", False)
|
|
sz_direct_prefix = ini.ReadString("pre")
|
|
sz_direct_suffix = ini.ReadString("post")
|
|
|
|
ini.Section = "Select" '-----------------------------------------------------
|
|
|
|
'[Select]
|
|
'enabled = true
|
|
'p_arguments = " 3"
|
|
'c_arguments = " 4"
|
|
'L var 1 = 916
|
|
'L var 2 = 919
|
|
'L value 1 on = 1
|
|
'L value 1 off = 0
|
|
'L value 2 on = 2
|
|
'L value 2 off = 2
|
|
'timeout = 300
|
|
' NC probe file path = m: \Cnc\DDF\
|
|
' NC probe file ext = dat
|
|
' fixed probe file = true
|
|
' NC_probe_file = UPP\PROGRA1\Data.prb
|
|
' read file = true
|
|
' prop1 = properties:
|
|
' prop2 = skinned
|
|
|
|
b_select_mode_enabled = ini.ReadBoolean("enabled", False)
|
|
sz_probe_arguments = ini.ReadString("p_arguments")
|
|
sz_cn_arguments = ini.ReadString("c_arguments")
|
|
|
|
n_L_var_1 = ini.ReadInteger("L var 1")
|
|
n_L_var_2 = ini.ReadInteger("L var 2")
|
|
|
|
n_L_value_1_on = ini.ReadInteger("L value 1 on")
|
|
n_L_value_1_off = ini.ReadInteger("L value 1 off")
|
|
n_L_value_2_on = ini.ReadInteger("L value 2 on")
|
|
n_L_value_2_off = ini.ReadInteger("L value 2 off")
|
|
n_timeout = ini.ReadInteger("timeout")
|
|
|
|
sz_nc_probe_path = ini.ReadString("NC probe file path")
|
|
sz_nc_probe_path = clear_ending_bar(sz_nc_probe_path)
|
|
|
|
sz_nc_probe_ext = clear_starting_point(ini.ReadString("NC probe file ext"))
|
|
|
|
b_fixed_probe_file = ini.ReadBoolean("fixed probe file", False)
|
|
sz_nc_fixed_probe_file = Trim(ini.ReadString("NC_probe_file"))
|
|
|
|
b_read_DDF_file = ini.ReadBoolean("read DDF file", False)
|
|
|
|
sz_property_1 = Trim(ini.ReadString("prop1"))
|
|
sz_property_2 = Trim(ini.ReadString("prop2"))
|
|
|
|
|
|
'----------- check that only one method is enabled
|
|
|
|
Dim n_methods As Short = 0
|
|
|
|
If b_Table_enabled Then n_methods = n_methods + 1
|
|
If b_ext_program_enabled Then n_methods = n_methods + 1
|
|
If b_CAM_program_enabled Then n_methods = n_methods + 1
|
|
If b_direct_mode_enabled Then n_methods = n_methods + 1
|
|
If b_select_mode_enabled Then n_methods = n_methods + 1
|
|
|
|
If n_methods > 1 Then
|
|
Log.write_and_messagebox(" Too many input modes enabled .. - please enable only one ... ", 38)
|
|
'End
|
|
End If
|
|
|
|
If n_methods < 1 Then
|
|
Log.write_and_messagebox(" No input mode enabled ( CAM / Table / external / direct /.. - please enable one ... ", 40)
|
|
'End
|
|
End If
|
|
|
|
ini.Section = "Key" '-----------------------------------------------------
|
|
|
|
' [Key]
|
|
' regkey = 12345
|
|
' regkey2 = 2345
|
|
' customer = qwe
|
|
|
|
registered_key = UCase$(ini.ReadString("regkey"))
|
|
registered_key2 = UCase$(ini.ReadString("regkey2"))
|
|
registered_key3 = UCase$(ini.ReadString("regkey3"))
|
|
|
|
registered_customer = ini.ReadString("Customer")
|
|
|
|
End Sub
|
|
Sub write_customer(ByVal sz_customer As String)
|
|
|
|
Dim ini As New IniReader(sz_ini_file_name)
|
|
|
|
ini.Write("Key", "Customer", sz_customer)
|
|
|
|
End Sub
|
|
|
|
Sub write_Program_path(ByVal sz_data_file_name As String)
|
|
|
|
Dim ini As New IniReader(sz_ini_file_name)
|
|
|
|
ini.Write("General", "Program path", sz_data_file_name)
|
|
|
|
End Sub
|
|
|
|
#Region "fuffa"
|
|
|
|
|
|
#End Region
|
|
|
|
End Module
|