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
1 respuesta
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>
