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