fantasma urgente
Publicado por ophio (1 intervención) el 20/06/2006 20:34:29
Creo que tengo un fantasma en mi pc ya que escribo este codigo,con los parametros definifos double y en vez de hacer 2+3=5 me escribe 2+3=23.
Aqui dejo el codigo.
Muchas gracias
Private Sub Text8_Change()
If Text8.Text = "" Then
totalmaterial = 0
If Text9.Text = "" Then
mano = 0
base = totalmaterial + mano
Text7(1).Text = base
Else
mano = Text9.Text
base = totalmaterial + mano
Text7(1).Text = base
End If
Else
totalmaterial = Text8.Text
If Text9.Text = "" Then
mano = 0
base = totalmaterial + mano
Text7(1).Text = base
Else
mano = Text9.Text
base = totalmaterial + mano
Text7(1).Text = base
End If
End If
End Sub
Private Sub Text9_Change()
If Text8.Text = "" Then
totalmaterial = 0
If Text9.Text = "" Then
mano = 0
base = totalmaterial + mano
Text7(1).Text = base
Else
mano = Text9.Text
base = totalmaterial + mano
Text7(1).Text = base
End If
Else
totalmaterial = Text8.Text
If Text9.Text = "" Then
mano = 0
base = totalmaterial + mano
Text7(1).Text = base
Else
mano = Text9.Text
base = totalmaterial + mano
Text7(1).Text = base
End If
End If
End Sub
Aqui dejo el codigo.
Muchas gracias
Private Sub Text8_Change()
If Text8.Text = "" Then
totalmaterial = 0
If Text9.Text = "" Then
mano = 0
base = totalmaterial + mano
Text7(1).Text = base
Else
mano = Text9.Text
base = totalmaterial + mano
Text7(1).Text = base
End If
Else
totalmaterial = Text8.Text
If Text9.Text = "" Then
mano = 0
base = totalmaterial + mano
Text7(1).Text = base
Else
mano = Text9.Text
base = totalmaterial + mano
Text7(1).Text = base
End If
End If
End Sub
Private Sub Text9_Change()
If Text8.Text = "" Then
totalmaterial = 0
If Text9.Text = "" Then
mano = 0
base = totalmaterial + mano
Text7(1).Text = base
Else
mano = Text9.Text
base = totalmaterial + mano
Text7(1).Text = base
End If
Else
totalmaterial = Text8.Text
If Text9.Text = "" Then
mano = 0
base = totalmaterial + mano
Text7(1).Text = base
Else
mano = Text9.Text
base = totalmaterial + mano
Text7(1).Text = base
End If
End If
End Sub
Valora esta pregunta
0