Cálculos en web
Estimado royrojo:
Tengo que desarrollar una página donde el visitante pueda poner cantidades que se multipliquen y que al final se sumen.
Es como una hoja de excel donde tu pones las cantidades y con una fórmula se multiplican las columnas y al final se suman.
En espera de tu ayuda aprovecho para enviarte un saludo
Juan San Juan
Tengo que desarrollar una página donde el visitante pueda poner cantidades que se multipliquen y que al final se sumen.
Es como una hoja de excel donde tu pones las cantidades y con una fórmula se multiplican las columnas y al final se suman.
En espera de tu ayuda aprovecho para enviarte un saludo
Juan San Juan
Respuesta de royrojro
Acá te mando este código que te puede servir... tu lo modificas para que te sirva...
<html>
<head><title>venta de libros</title><head>
<body>
<form size = 5><center>VENTA DE LIBROS</center></form>
<br><br>
<select name="Libro">
<option>Libro 1
<option>Libro 2
<option>Libro 3
</select>
<br>
Precio: <input size=7 name="precio" value=0><br>
Cantidad: <input size=3 name="cantidad" value=0><br>
<input type="submit" name="cprecio" value="Continuar"><br>
Sub-Total: <input size=3 name="subtotal"><br>
Impuesto: <input size=3 name="impuesto" ><br>
Total: <input size=3 name="total"><br>
<script language=VBS>
<!---
option explicit
sub cprecio_onclick()
if not isnumeric(precio.value) or (precio.value = 0) then
msgbox "ERROR: Precio no válido",0+16,"ERROR!!!"
elseif not isnumeric(cantidad.value) or (cantidad.value = 0) then
msgbox "ERROR: Cantidad no válida",0+16,"ERROR!!!"
else
DIM p
DIM c
DIM tprecio
DIM r
c=CINT(cantidad.value)
p=CINT(precio.value)
tprecio=(p*c)
r=msgbox ("Desea Continuar",4,"Mensage!!!")
if r=VByes then
subtotal.value=tprecio
DIM iv
DIM t
iv=(tprecio* 0.13)
t=(iv+tprecio)
impuesto.value=iv
total.value=t
elseif r=VBno then
msgbox "Operacion cancelada",0+16,"Cancelado"
end if
end if
end sub
--->
</script>
</body>
</html>
<html>
<head><title>venta de libros</title><head>
<body>
<form size = 5><center>VENTA DE LIBROS</center></form>
<br><br>
<select name="Libro">
<option>Libro 1
<option>Libro 2
<option>Libro 3
</select>
<br>
Precio: <input size=7 name="precio" value=0><br>
Cantidad: <input size=3 name="cantidad" value=0><br>
<input type="submit" name="cprecio" value="Continuar"><br>
Sub-Total: <input size=3 name="subtotal"><br>
Impuesto: <input size=3 name="impuesto" ><br>
Total: <input size=3 name="total"><br>
<script language=VBS>
<!---
option explicit
sub cprecio_onclick()
if not isnumeric(precio.value) or (precio.value = 0) then
msgbox "ERROR: Precio no válido",0+16,"ERROR!!!"
elseif not isnumeric(cantidad.value) or (cantidad.value = 0) then
msgbox "ERROR: Cantidad no válida",0+16,"ERROR!!!"
else
DIM p
DIM c
DIM tprecio
DIM r
c=CINT(cantidad.value)
p=CINT(precio.value)
tprecio=(p*c)
r=msgbox ("Desea Continuar",4,"Mensage!!!")
if r=VByes then
subtotal.value=tprecio
DIM iv
DIM t
iv=(tprecio* 0.13)
t=(iv+tprecio)
impuesto.value=iv
total.value=t
elseif r=VBno then
msgbox "Operacion cancelada",0+16,"Cancelado"
end if
end if
end sub
--->
</script>
</body>
</html>
