Visual Basic - que hace este codigo ?

Life is soft - evento anual de software empresarial
   
Vista:

que hace este codigo ?

Publicado por diego (3 intervenciones) el 26/02/2011 00:10:55
Hola alguien me podria explicar como funciona esta rutina de demora ?
Public Sub FPDelay()
'
' Delay Sequence
'
Dim Start1 As Single
Start1 = Timer
Do While Me.EpsonFP.State = EFP_S_Busy ' Esta linea es para leer una propiedad de la impresora fiscal...
Do While Timer < Start1 + 0.125 ' Timer delay
DoEvents
If Start1 > Timer Then ' This is to
Exit Do ' compensate for the
End If ' AM to PM change
Loop
Loop '
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:que hace este codigo ?

Publicado por Jcmg (518 intervenciones) el 27/02/2011 21:13:56
Public Sub FPDelay()
'
' Delay Sequence
'
Dim Start1 As Single
Start1 = Timer
Do While Me.EpsonFP.State = EFP_S_Busy ' Esta linea es para leer una propiedad de la impresora fiscal...
Do While Timer < Start1 + 0.125 ' Timer delay
DoEvents
If Start1 > Timer Then ' This is to
Exit Do ' compensate for the
End If ' AM to PM change
Loop
Loop '
End Sub

*variable start1 de tipo single
*metemos en la variable start1 el contenido del timer(contador de la demora)
*leemos la propiedad de la impresora fiscal
*mientras el contador es menor al valor del contador mas 0.25 milesimas esta la pausa
*Doevents
*si la variable start1 es mayor al contenido del timer entonces lo que se haya de hacer
*salimos del do
*terminamos el if
*cerramos el Do
*cerramos el otro do
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar