• Viernes 8 de Noviembre de 2024, 05:05

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - PedroM

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Contador de impresiones
« en: Lunes 11 de Noviembre de 2013, 09:28 »
Buenas, amigo tengo la curiosidad de saber como puedo hacer un contador de impresiones, estuve buscando informacion pero la verdad o soy malo buscando o no se porque no encontre informacion de como comenzar a realizar la aplicacion.. VB6  espero me de una mano o me orienten como tengo que realizar el programa.

2
Visual Basic para principiantes / Suma de Minutos, Segundo y Milesimas
« en: Domingo 30 de Junio de 2013, 15:07 »
Buenas amigos, les escribo para ver si me puedan dar una mano con una duda que se me presento y la manera que se puede resolver..

en este momento tengo 3 textbox donde voy a instroducir datos tipo numero en funcion al tiempo. luego tengo un 4 textbox el cual voy a usar para que me arroje el tiempo de las 3 textbox anteriores sumados.
hasta el momento realizo suma en las cajas y me funciona bien pero no se como realizar sumas de este tipo.
ejemplo

textbox1   + textbox2 + textbox3 = textbox4
19,002    +   40,094  +   01:40,023 = 02,39,119.
pero no encuento una forma que me sume y el resultado me lo lleve a datos en  funcion del tiempo.

3
Visual Basic para principiantes / Como guardar varias lineas de un MSHFlexGrid
« en: Domingo 20 de Marzo de 2011, 20:49 »
Buen tarde comunidad, estoy realizando una aplicación y me tope con una piedrita :S, resuelta que tengo una control MSHFlexGrid para hacer una lista de articulos tipo factura con el siguiente codigo.
Citar
With rs_venta
        .AddNew
        .Fields(0) = Label11.Caption
        .Fields(1) = Label12.Caption
        .Fields(2) = Text1.Text
        .Fields(3) = Label13.Caption
        .Fields(4) = Option1.Value
        .Fields(5) = Option2.Value
        .Fields(6) = Option3.Value
        .Update
    End With
       
    With rs_detalleventa
        .AddNew
        .Fields(0) = Label11.Caption
        For s = 1 To ListView1.ListItems.count
        .Fields(1) = ListView1.ListItems(s).Text
        .Fields(2) = ListView1.ListItems(s).ListSubItems(1).Text
        .Fields(3) = ListView1.ListItems(s).ListSubItems(3).Text
        .Fields(4) = ListView1.ListItems(s).ListSubItems(2).Text
        .Update
         Next s
        '.Fields(5) = Label13.Caption
    End With

asi me guarda la primera linea del control, pero no realiza el recorrido para guardar las demas lineas de la factura, tengo una base de datos en access y quisiera que con este codigo me guardara la informacion de la siguiente manera.
ejemplo:
que venda 3 items diferente.
 
Nº de factura                         Items              Categoria                       Precio                   Cantidad[/b]
0000001                                items 1                varios                          2                           3
0000001                                items 2                varios                          4                             5
0000001                                items 3                varios                          4                       5 [/b]

4
Visual Basic para principiantes / Este codigo me genera un Error
« en: Jueves 19 de Agosto de 2010, 01:08 »
Buenas comunidad, tengo un problema, estoy haciendo un programa tipo juego alzar y me esta generando un error y no se como solucionar eso, soy algo novato en esto del vb, apenas tengo 4 dias viendo clases y se me presento eso dejo el codigo y la parte donde se genera el error.
Citar
Option Explicit
Dim x, y As Integer

Private Sub cmdComenzar_Click()
    x = CInt(Rnd() * (9 - 1) + 1)
End Sub

Private Sub cmdComparar_Click()
    txty = y
    If x > y Then MsgBox " Intente de nuevo el numero es Mayor"
    If x < y Then MsgBox " Intente de nuevo el numero es Memor"
    else x = y Then MsgBox "Enhorabuena aceptaste vuelve a jugar"
   
 
End Sub

Private Sub cmdLimpiar_Click()
    txty = Empty
    txty.SetFocus
End Sub

Private Sub cmdSalir_Click()
    End
End Sub

Private Sub Form_Activate()
    Randomize
    cmdLimpiar.Enabled = False
    cmdComparar.Enabled = False
End Sub
Private Sub txty_Change()
    cmdLimpiar.Enabled = True
    cmdComparar.Enabled = True
End Sub
[/b]

Páginas: [1]