documentado modulo, estandarizado y modularizado, ESTATUS BROKEN por …

…ahora no compila

* agregada codumentacion en modulo de dispositivos
* comenzado modulo de manejo de base de datos
* configuracion de camara desde archivo
* verificacion de los parametros de camara
* modularizacion de la clase principal
pendiente para esta semana
* terminar sincronismo con la DB, establecer un nodo ejemplo y pedir usuarios/trabajadores
* terminar verificacion en modo auxiliar y combinado
* tratar pedir un escaner dactilar y terminar la pruebas
* documentar la instalacion
* agregar las tareas al redmine tato de solognu como del trabajo
* **separar la version GPL de la version especial para la empresa**

interfaztomarasistencia/.settings

@@ -9,14 +9,14 @@ Count=0
 
 [OpenFile]
 File[1]=".src/FMain.form"
-Active=2
-File[2]=".src/FMain.class:135.2"
-File[3]=".src/Mcaptura.module:54.44"
-File[4]=".src/DData.class:10.0"
+File[2]=".src/FMain.class:17.4"
+Active=3
+File[3]=".src/Mcaptura.module:88.0"
+File[4]=".src/DData.class:90.18"
 File[5]="dbdata/asistenciatomar_scriptsql.sql:99.0"
-File[6]=".src/MSet.module:9.67"
-File[7]="asistenciatomar.conf:7.12"
-File[8]=".src/DBmandat.class:21.4"
+File[6]=".src/MSet.module:26.4"
+File[7]="asistenciatomar.conf:1.0"
+File[8]=".src/DBmandat.class:50.29"
 File[9]=".src/DBConEnroll.module:2.0"
 File[10]=".src/DBConVerify.module:30.109"
 Count=10

interfaztomarasistencia/.src/DData.class

@@ -72,21 +72,36 @@ End
 
 
 
-'' camara del usuario en proceso
+'' camara dispositivo a usar del usuario en proceso
 Private camara As String
-'' asigna la camara para manejar
+'' asigna la camara dispositivo a usar para manejar
 
-Public Sub setCamara(cam As String)
+Public Sub setCamaraDev(cam As String)
     camara = cam
 End
-'' obtiene la camara para manejar
+'' obtiene la camara dispositivo a usar para manejar
 
-Public Sub getCamara() As String
+Public Sub getCamaraDev() As String
     Return camara
 End
 
 
 
+'' tamano de video de la camara del usuario en proceso
+Private camarasize As String
+'' asigna el tamano de video de la camara para manejar
+
+Public Sub setCamaraSize(cam As String)
+    camarasize = cam
+End
+'' obtiene el tamano de video de la camara para manejar
+
+Public Sub getCamaraSize() As String
+    Return camarasize
+End
+
+
+
 '' contypo de la DB en proceso
 Private contipo As String
 '' define el tipo de conexcion a db

interfaztomarasistencia/.src/FMain.class

@@ -10,40 +10,51 @@ End
 
 Public Sub Form_Open()
 
+    Me.center
     mensageinput = "Ingrese id"
     Me.datos = New DData
     Me.datos = Mset.prepararporconfiguracion()
     Me.datos.setUsuarioActual("tempo")
-    Mcaptura.scan_cmd = 0
-    iniciarAsistencia
+    Mcaptura.est_app_asis = 0
+    iniciarInterfaz
+    iniciarEscaner
     iniciarCamara
 
-End
 
-Public Sub iniciarAsistencia()
+End
 
-    Dim fechaactual As String
-    Dim dbmanagdat As DBmandat
 
-    fechaactual = Format$(Now, "yyyy/mm/dd hh:nn:ss")
+'' este proceso inicia y/o prepara la apariencia en el modo normal (sin hacer nada)
+Public Sub iniciarInterfaz()
+
     ' inicializacion de variables y entorno de captura, asi como de muestra
     mensageusuario.Hide
     tiempotranscurrido_imagenes.Stop
     img_mostrar_scan.Hide
     inputficha.Text = mensageinput
     ' interfaz preparada, arranca el horario de trabajo
     horamostrar.Start
-    Print " listo " & Mcaptura.scan_cmd & " usu " & datos.getUsuarioActual()
-    If Mcaptura.scan_cmd == 2 Or Mcaptura.scan_cmd == 1
+
+    Print " listo " & Mcaptura.est_app_asis & " usu " & datos.getUsuarioActual()
+    If Mcaptura.est_app_asis == 2 Or Mcaptura.est_app_asis == 1
         dbmanagdat = New DBmandat
         dbmanagdat.enrolar()
     Endif
+
+End
+
+
+'' proceso que prepara el dispositivo de escanedo dactilar, establece un semaforo para saber cuando esta disponible
+Public Sub iniciarEscaner()
+
+    Mcaptura.funcionando_escaner()
 
 End
 
+'' proceso que enciende la camara, segun la config y las propiedades establecidas
 Public Sub iniciarCamara()
 
-    Mcaptura.scan_cara_imagen(Null)
+    Mcaptura.funcionando_camara()
 
 End
 
@@ -55,7 +66,7 @@ Public Sub tiempotranscurrido_imagenes_Timer()
     btnscanear.Visible = False
     btnscanear.Hide
     inputficha.Hide
-    Mcaptura.scan_cmd = 0
+    'Mcaptura.est_app_asis = 0
     ' mandamos (en el ciclo del timer) esperar 4 segundos, y despues volvemos dejar tirar foto y huella
     If DateDiff(horaalescanear, Now, gb.Second) > 3 Then
         img_mostrar_scan.Hide  ' por supuesto, si ya se mostro huella, y se vuelve capturar, escondemos la anterior
@@ -65,11 +76,11 @@ Public Sub tiempotranscurrido_imagenes_Timer()
         mensageusuario.Hide
         horamostrar.Start
         img_mostrar_scan.Hide
-        Mcaptura.scan_cmd = 2
+        Mcaptura.est_app_asis = 2
         tiempotranscurrido_imagenes.Stop
-        FMain.iniciarAsistencia
+        FMain.iniciarEscaner
     Endif
-    Print " estado " & Mcaptura.scan_cmd
+    Print " estado " & Mcaptura.est_app_asis
 
 End
 
@@ -120,10 +131,12 @@ Public Sub btnscanear_Click()
     Else
         Me.datos.setUsuarioActual(inputficha.Text)
         horamostrar.Stop
-        Mcaptura.scan_cmd = 1
+        Mcaptura.est_app_asis = 1
         btnscanear.Hide
         btnscanear.Visible = False
         Mcaptura.scan_dedo_imagen(Me.datos.getUsuarioActual())
+        Try Mcaptura.getCamera().Save(User.Home & "/." & datos.getUsuarioActual() & ".png")
+
     Endif
 
 End
@@ -138,15 +151,18 @@ Public Sub videoarea_Draw()
 
   Dim hPict As Picture
 
-  pintarvideo.Enabled = False
-
+  hPict = Mcaptura.getCamera().Image.Picture
   'Try PictureBox1.Picture = hWebCam.Picture
   Draw.Begin(videoarea)
-  hPict = Mcaptura.getCamera().Image.Picture
   Draw.Picture(hPict, (Me.videoarea.W - hPict.W) \ 2, (Me.videoarea.H - hPict.H) \ 2)
   Draw.End
 
   pintarvideo.Enabled = True
 
 
+End
+
+Public Sub btnverificar_Click()
+
+
 End

interfaztomarasistencia/.src/FMain.form

@@ -49,6 +49,7 @@
   { btnverificar Button
     MoveScaled(62,46,16,6)
     ToolTip = ("Escanear , pulse aqui")
+    Text = ("Verificar")
     Picture = Picture["data/fingermachine.jpg"]
     Default = True
   }