Nicola Pievani
58 lines
1.7 KiB
VB.net
58 lines
1.7 KiB
VB.net
Imports system.io
|
|
Imports system.io.path
|
|
Imports system.Drawing
|
|
Imports System.Windows.Forms
|
|
Imports IPadLibrary.FormsInterfaces
|
|
|
|
Public Module MainModule
|
|
Public Enum statoGenEnum
|
|
StatoOk = 0
|
|
ErroreCfg = 1
|
|
ErroreCalibrazione = 2
|
|
ErroreSconosciuto = 3
|
|
End Enum
|
|
|
|
Public bExtended As Boolean
|
|
Public bBtnLoad As Boolean
|
|
Public KeyBoard As KeyboradControl = New KeyboradControl()
|
|
Public NumPad As NumericPad = New NumericPad()
|
|
Public SaveDir As String
|
|
Public SaveLogDir As String
|
|
Public FileLensCalib As String
|
|
Public FileCalibProsp As String
|
|
Public FileCalibRes As String
|
|
Public DirTmp As String
|
|
Public SpessLastra As Double
|
|
Public CorrezioneAutomatica As Boolean = False
|
|
Public RichiestaFoto As Boolean = False
|
|
Public ModalitaNascosta As Boolean = False
|
|
Public StatoGenerale As statoGenEnum = statoGenEnum.StatoOk
|
|
Public RichiestaBackGround As Boolean = False
|
|
Public SogliaPercentuale As Double = 0.0
|
|
Public RichiestaBordi As Boolean = False
|
|
Public CameraID As String = ""
|
|
Public bEnableBorder As Boolean = False
|
|
' per gestione ventose:
|
|
Public VacFileStart As String
|
|
Public VacFilePos As String
|
|
Public VacFileEnd As String
|
|
Public VacDirModels As String
|
|
Public VacuumCheckEnable As Boolean = False
|
|
Public VaacumCheckReq As Boolean = False
|
|
Public VacMinScore As Double = 0.75
|
|
Public VacTolmm As Double = 30
|
|
Public FocalLength As Double = 0
|
|
Public LensCalibType As Integer
|
|
|
|
Public IndexProc As String = String.Empty
|
|
|
|
Public Function CancelDir(ByVal inPath As String) As Boolean
|
|
Try
|
|
Kill(inPath & "\*.*")
|
|
Catch e As Exception
|
|
End Try
|
|
Return True
|
|
End Function
|
|
|
|
End Module
|