Temas

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 [Seleccionar] Expandir


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


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.

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 [Seleccionar] Expandir


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


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.