Título: Quien puede ayudarme con un programita?? Publicado por: Xrage en 24 Mayo 2005, 19:43 pm Hola: Bueno antes que todo me presento soy nuevo programando y estoy aprendiendo en vb6, y bueno queria hacer un programita pero tengo algunas dudas:
1- En una parte tengo que sumar asique puse 11 botones diferentes para sumar, que son los numeros del 1 al 10 y una tecla que sirve para sumarle al numero 0.5, entonces si quiero el numero "27.5" apreto 1 ves el 10, 1 el 7 y el 0.5... hasta ahi todo bien el problema viene cuando pongo por ejemplo 2.5 y le sumo 2 mas, el resultado me da "4" en ves de dar "4.5" y no se como hacer para solucionar eso, bueno esa es mi primera gran duda ;D Bueno lo dejo ahi, y cuando me respondan esa preguntita les escribo las otras :) Desde ya, gracias Agrego el codigo: Private Sub Command2_Click() Text3.Text = Val(Text3.Text) + 1 End Sub Private Sub Command3_Click() Text3.Text = Val(Text3.Text) + 2 End Sub Private Sub Command4_Click() Text3.Text = Val(Text3.Text) + 3 End Sub Private Sub Command5_Click() Text3.Text = Val(Text3.Text) + 4 End Sub Private Sub Command6_Click() Text3.Text = Val(Text3.Text) + 5 End Sub Private Sub Command7_Click() Text3.Text = Val(Text3.Text) + 6 End Sub Private Sub Command8_Click() Text3.Text = Val(Text3.Text) + 7 End Sub Private Sub Command9_Click() Text3.Text = Val(Text3.Text) + 8 End Sub Private Sub Command18_Click() Text3.Text = Val(Text3.Text) + 9 End Sub Private Sub Command1_Click() Text3.Text = Val(Text3.Text) + 10 End Sub Private Sub Command10_Click() Text3.Text = Val(Text3.Text) + 0.5 End Sub Private Sub Command11_Click() Beep End End Sub Título: Re: Quien puede ayudarme con un programita?? Publicado por: WiNSoCk en 25 Mayo 2005, 00:08 am Dim x As Double
x = 2.2 MsgBox x + 2 (RESULTADO = 4.2) Dim x As integer x = 2.2 MsgBox x + 2 (RESULTADO = 4) INTEGER = ENTERO, Un entero es un entero...XD Y un decimal pos lo diferente del entero... En resumen utiliza variables DOUBLE Un saludo. |