Visual Basic Foro

Hola Albertini.
Si amigo la info las jalo de 4 paginas
Reniec,sbs,sis, sosfoh.

Además el ocr si permite leer ese tipo de imagen pero hay bajarse to la
Configuración del ocr de la página de google.

Yo no lo baje por que son muchos archivos, es por eso que obte
Por eliminar las colores.


Gracias

Verdad no hecho la prueba
aver espera voy revisarlo Ok

Hola el ejemplo anterior a mi si me funca normal yo uso win8.1 y todo bien.

aqui les paso un ejemplo de vb y sqlite http://www.4shared.com/rar/oTMm9l62ba/SQLiteVB.html
pass 123456

Amigo
revisa esto quizás te sirva

http://leandroascierto.com/foro/index.php?topic=1980.msg11194#msg11194

Hola Ponchale me puedes decir como funciona esto
o puedes subir un ejemplo o algo de como adjuntar la referencia

gracias

Saludos muchachos!!
jejeje tiempo que no comento algo
bueno como solo vas a usar el modulo de pedido seria recomendable, programarlo en java o también en php.
por que.
-java, por que se puede ejecutar en diferentes sistemas operativos(android, linux, windows entre otros).
-php, como todos sabemos todos los dispositivos su navegador ya soportan php.

 si te decides trabajar por php este existe mucha información para trabajar firebird + php, ya que tambien en el navegador puedes trabajar en pantalla completa.

Gracias cualquier ayuda consulta las dudas.

Gracias

bien hay
chekea esta lista de controles de pago
http://leandroascierto.com/foro/index.php?topic=1975.msg11108#msg11108

Gracias

Floor?

    Dim xNumero As Double
    Dim xCaja As Integer
    xNumero = Val(Text1.Text) 'Numero a comparar
    xCaja = 12 'Cantidad que contiene el PACK
    If xNumero < xCaja Then
        lblMen.Caption = xNumero & " LATAS"
    Else
        'Metodo 1-------------------------------------------
        Dim xEntero As Double
        Dim xDecimales As Double
        xEntero = Format((xNumero / xCaja), "####0.00")
        xDecimales = Format((xEntero - Int(xEntero)) * xCaja, "####0")
        xEntero = Int(xEntero)
       
        'Metodo 2-------------------------------------------
        'Dim xEntero As Integer
        'Dim xDecimales As Integer
        'xEntero = Int(xNumero / xCaja)
        'xDecimales = xNumero - (xEntero * xCaja)
       
        '---------------------------------------------------
        If xDecimales > 0 Then
            lblMen.Caption = xEntero & " PACK CON " & xDecimales & " LATAS"
        Else
            lblMen.Caption = xEntero & " PACK"
        End If
    End If