últimos mensajes de: dekland

Mostrar Mensajes
Páginas: [1] 2

1	Programación / Programación Visual Basic / Re: Simular posicion del mouse y posteriormente clickearse	en: 8 Julio 2006, 18:30 pm
Para posicionar el mouse tenes que: Código: Private Declare Function SetCursorPos Lib "user32" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub Command1_Click() SetCursorPos 500, 233 End Sub Te recomiendo que fijes la posicion del formulario, porque como esta puede variar al menos un poco, se puede ir es misma resposicion a otro lado.

2	Programación / Programación Visual Basic / Re: Problema con xp y puerto paralelo	en: 4 Julio 2006, 02:56 am
El programa no lo encontre, pero busque sobre userport y me lo baje lo puse en el system32/drivers ejecute el programa le puse la direccion del puerto, (cerre el puerto para poder actualizarlo), pero nada paso. Despues segui una guia del porttalk que algo similar al userport y tampoco dio resultado. Gracias igual.

3	Programación / Programación Visual Basic / Re: Problema con xp y puerto paralelo	en: 3 Julio 2006, 21:00 pm
lo unico que hice fue copiarlas al system32, pero, al igual que demon_cry, no se a que te referis con registrarla.

4	Programación / Programación Visual Basic / Re: Problema con xp y puerto paralelo	en: 3 Julio 2006, 02:49 am
Gracias por responder, ese tema lo lei completo, tengo el io.dll que es para xp y el inpout32.dll para xp, pero ninguno hace algo. la direccion del puerto la verifique y es la que estoy usando. No se que puede estar pasando.

Programación / Programación Visual Basic / Problema con xp y puerto paralelo

en: 2 Julio 2006, 20:53 pm

Tengo un problema con este programa que tiene incopatibilidades con xp, con win 98 funciona perfecto
pero con xp, no hace nada las señales de portout no hacen nada.
Que estoy haciendo mal?.
Muchas gracias por su ayuda.

Código:

Dim activacion As Integer

Private Sub Command1_Click()
activacion = 1
PortOut &H378, 1
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
activacion = 2
PortOut &H378, 4
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
PortOut &H378, 0
End
End Sub

Private Sub Timer1_Timer()
If (activacion = 1) Then
PortOut &H378, 4
activacion = 2
Else
PortOut &H378, 1
activacion = 1
End If
End Sub

6	Programación / Programación Visual Basic / Re: Problema con decimales	en: 3 Marzo 2006, 19:20 pm
muchas gracias Ironhorse y Slasher-K. Ya esta solucionado, funciona a la perfección. Muchas gracias.

7	Programación / Programación Visual Basic / Re: Problema con decimales	en: 3 Marzo 2006, 17:54 pm
muchas gracias Llorx. ahora los precios estan solucionados. Faltaría el problema con los numeros que tienen demasiados decimales para achicarlos a 2. Muchas gracias.

8	Programación / Programación Visual Basic / Problema con decimales	en: 3 Marzo 2006, 04:04 am
Tengo unos problema con los decimales 1) Al imprimir una factura, en el textbox que uso para el precio se muestra asi: ej: 12.9 el problema es que necesito que ese 12.9 tenga un segundo decimal osea asi 12.90. 2) Para redondear a 2 decimales las cuentas que daban con muchos decimales usaba round y le especificaba 2, pero no me acepta la instrucción, y la misma en vb 6 funciona perfectamente. Estoy usando el vb5. Espero que me puedan ayudar. Muchas gracias.

9	Programación / Programación Visual Basic / Re: RecordSource Y Access	en: 22 Enero 2006, 19:26 pm
ah, muchas gracias por tu ayuda.

Programación / Programación Visual Basic / RecordSource Y Access

en: 22 Enero 2006, 15:57 pm

Tengo un problema, no puedo asignar el recordsource en otro evento que no sea el form_load.
Estoy usando Access. Lo que trato de hacer es que por cada número de lista asignada a cada cliente,
cambie a la tabla correspondiente. Muchas gracias y si tienen alguna pregunta sobre el código...solo haganla.
muchas gracias.

Código:

Private Sub txtcant1_GotFocus()
If (txtlista = 1) Then
Data1.RecordSource = "ARTICULOS"
Data1.Recordset.FindFirst "cod Like '" & txtart1.Text & "'"
ElseIf (txtlista = 2) Then
Data1.RecordSource = "Art2"
Data1.Recordset.FindFirst "cod Like '" & txtart1.Text & "'"
ElseIf (txtlista = 3) Then
Data1.RecordSource = "Art3"
Data1.Recordset.FindFirst "cod Like '" & txtart1.Text & "'"
ElseIf (txtlista = 4) Then
Data1.RecordSource = "Art4"
Data1.Recordset.FindFirst "cod Like '" & txtart1.Text & "'"
End If
End SUb

Páginas: [1] 2