TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

'Se desconecta el usb y termina el programa.Private Sub Form_Terminate()HIDComm1.UninitHIDComm1.DisconnectTimer1.Enabled = FalseEndEnd Sub'Rutina que detecta cuando la tarjeta esta conectada por el puerto usb.'trabaja en combinacion con una condicion IF que se encuentra mas adelante en el programaPrivate Sub HIDComm1_ConnectSuccess(ByVal Status As Long)frmRFID.Visible = FalsefrmConexion.Visible = FalsefrmPass.Visible = TrueTimer1.Enabled = FalsefrmPass.Timer1.Enabled = TrueEnd Sub'Rutina que se ejecuta al darse el evento de hacer click en el boton abajo.'Al dar click en el boton, lo que sucede, es que la celda seleccionada'se desplaza una posicion hacia abajo. Si la celda que esta por debajo de la seleccionada'posee informacion, se hace un cambio de datos, lo de abajo pasa arriba y lo de arriba abajo.Private Sub cmdAbajo_Click()'rutina que valida cuando la celda esta vacia.If (grdRFID.HighLight) ThenIf grdRFID.Text = "" ThenMsgBox "La celda esta vacia", vbInformation, "Advertencia"Exit SubEnd If'Rutina que valida que solo se seleccione una celda a la vez.selstartrow = grdRFID.RowSelrowbeg = grdRFID.rowIf Not ((selstartrow - rowbeg) = 0) ThenMsgBox "Solo se puede seleccionar una celda", vbInformation, "Informacion"Exit SubEnd If'Rutina que valida cuando se alcanza la posicion final de la tabla y se quiere seguir bajando'ademas cuando se quiere seleccionar la posicion 0 que contiene el nombre de la columnaIf rowbeg = 31 ThenMsgBox "Accion Invalida", vbCritical, "ERROR"Exit SubElseIf rowbeg = 0 ThenMsgBox "Seleccione una celda con informacion", vbCritical, "ERROR"Exit SubEnd If'rutina que efectua el desplazamiento de celdas hacia abajo de uno a uno.For selrows = rowbeg To selstartrowgrdRFID.row = selrowsgrdRFID.Col = grdRFID.Colaba1 = grdRFID.TextgrdRFID.row = (selrows + 1)grdRFID.Col = grdRFID.Colaba2 = grdRFID.TextgrdRFID.Text = aba1grdRFID.row = selrowsgrdRFID.Col = grdRFID.ColgrdRFID.Text = aba2NextgrdRFID.row = rowbeg + 1grdRFID.RowSel = selstartrow + 1End IfEnd Sub'Rutina que se ejecuta al darse el evento de hacer click en el boton arriba.'Al dar click en el boton, lo que sucede, es que la celda seleccionada'se desplaza una posicion hacia arriba. Si la celda que esta por arriba de la seleccionada'posee informacion, se hace un cambio de datos, lo de arriba pasa abajo y lo de abajo arriba.Private Sub cmdArriba_Click()'rutina que valida cuando la celda esta vacia.If (grdRFID.HighLight) ThenIf grdRFID.Text = "" ThenMsgBox "La celda esta vacia", vbInformation, "Error"Exit SubEnd If'Rutina que valida que solo se seleccione una celda a la vez.selstartrow = grdRFID.RowSel- 155 -