Últimos Temas de: dekland

Mostrar Temas
Páginas: [1]

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

2	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.

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

4	Programación / Programación Visual Basic / Ayuda!, problema con el flexgrid	en: 6 Noviembre 2005, 15:23 pm
Hola, tengo un problema con el msflexgrid y el additem: cuando en el codigo pongo el additem por primera vez la posicion de agregar es la fila 1, bueno el problema es que cuando quiero hacer otro additem, no en la misma subrutina. me agrega los datos despues del ultimo escrito. para que me entiendan mejor : la pregunta seria como hago para posicionarlo en la primera fila? muchas gracias.

Páginas: [1]