Ayuda a novato PHP
locmec
11 de Octubre del 2009
Hola buenas
Mi problema es que me he liado a desarrollar un peque帽o script para un amigo sin tener ni idea de programaci贸n en PHP y ahora pido ayuda para salir de este apuro. El tema es que en principio parece estar medio hecho, pero me queda rizar el rizo, y ya llevo muchos cabezazos, de ah铆 que pido si alguien me puede hechar una mano puesto que me he quedado estancado. El tema es que antes de pasarlo a PHP hice el script en Visual Basic para ver si me podia guiar un poco, pero claro, no me aclaro. En principio lo que me salio en PHP fue esto
<?
if (isset($_POST['Enviado']))
{
$Enviado = $_POST['Enviado'];
}
else{
$Enviado= "False";
}
if ($Enviado == "True")
{
// tomo las variables del formulario mediante el m茅todo usado por el mismo
$c3 = $_POST[M3Camara];
$c1=700;
$c2=30;
$c4=1;
$c5=10000;
$c6 = (($c2 - $c1)/($c5 - $c4));
$c7 = ($c3 - $c4);
$c8 = ($c6 * $c7);
$c9 = (($c1 + $c8) * $c3);
$resultado= $c9;
$Enviado == "False";
}
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Calculadora Peri</title>
</head>
<body>
<form action="" name="form1" method="post">
<input name="M3Camara" size="17" type="text"/>
<br/>
<input value="Calcular" name="Calcular" type="submit"/>
<br/>
<input type="hidden" name="Enviado" value="True" />
<br/>
</form>
<?
// impresi贸n del resultado de la operaci贸n
echo "$resultado";
?>
</body>
</html>
pero se trata de una interpolaci贸n lineal cuando yo la quiero hacer parab贸lica, os pongo el programa que desarroll茅 en VB6 y funciona perfectamente:
num% = Text1.Text
聽聽 聽
聽聽 聽If num% < "2" Then
聽聽 聽 聽 聽c = "700"
聽聽 聽 聽 聽b = (num% * c)
聽聽 聽 聽 聽a$ = b & " 聙"
聽聽 聽 聽 聽Label2.Caption = a$
聽聽 聽 聽 聽GoTo fin
聽聽 聽ElseIf num% <= "5" And num% >= "2" Then
聽聽 聽 聽 聽c1 = "700": c2 = "600": c4 = "2": c5 = "5"
聽聽 聽ElseIf num% >= "5" And num% <= "10" Then
聽聽 聽 聽 聽c1 = "600": c2 = "500": c4 = "5": c5 = "10"
聽聽 聽ElseIf num% >= "10" And num% <= "20" Then
聽聽 聽 聽 聽c1 = "500": c2 = "400": c4 = "10": c5 = "20"
聽聽 聽ElseIf num% >= "20" And num% <= "30" Then
聽聽 聽 聽 聽c1 = "400": c2 = "300": c4 = "20": c5 = "30"
聽聽 聽ElseIf num% >= "30" And num% <= "50" Then
聽聽 聽 聽 聽c1 = "300": c2 = "250": c4 = "30": c5 = "50"
聽聽 聽ElseIf num% >= "50" And num% <= "100" Then
聽聽 聽 聽 聽c1 = "250": c2 = "200": c4 = "50": c5 = "100"
聽聽 聽ElseIf num% >= "100" And num% <= "150" Then
聽聽 聽 聽 聽c1 = "200": c2 = "180": c4 = "100": c5 = "150"
聽聽 聽ElseIf num% >= "150" And num% <= "200" Then
聽聽 聽 聽 聽c1 = "180": c2 = "150": c4 = "150": c5 = "200"
聽聽 聽ElseIf num% >= "200" And num% <= "400" Then
聽聽 聽 聽 聽c1 = "150": c2 = "120": c4 = "200": c5 = "400"
聽聽 聽ElseIf num% >= "400" And num% <= "800" Then
聽聽 聽 聽 聽c1 = "120": c2 = "100": c4 = "400": c5 = "800"
聽聽 聽ElseIf num% >= "800" And num% <= "1200" Then
聽聽 聽 聽 聽c1 = "100": c2 = "90": c4 = "800": c5 = "1200"
聽聽 聽ElseIf num% >= "1200" And num% <= "2500" Then
聽聽 聽 聽 聽c1 = "70": c2 = "50": c4 = "1200": c5 = "2500"
聽聽 聽ElseIf num% >= "2500" And num% <= "10000" Then
聽聽 聽 聽 聽c1 = "50": c2 = "30": c4 = "2500": c5 = "10000"
聽聽 聽ElseIf num% >= "10000" Then
聽聽 聽 聽 聽c = "30"
聽聽 聽 聽 聽b = (num% * c)
聽聽 聽 聽 聽a$ = b & " 聙"
聽聽 聽 聽 聽Label2.Caption = a$
聽聽 聽 聽 聽GoTo fin
聽聽 聽End If
聽聽 聽c3 = num%
聽聽 聽c6 = ((c2 - c1) / (c5 - c4))
聽聽 聽c7 = (c3 - c4)
聽聽 聽c8 = (c6 * c7)
聽聽 聽c9 = ((c1 + c8) * c3)
聽聽 聽a$ = c9 & " 聙"
聽聽 聽Label2.Caption = a$
fin:
no se si alguien podria hecharme una mano a pasar el c贸digo VB6 a PHP.
Gracias de antemano
Un saludo
Mi problema es que me he liado a desarrollar un peque帽o script para un amigo sin tener ni idea de programaci贸n en PHP y ahora pido ayuda para salir de este apuro. El tema es que en principio parece estar medio hecho, pero me queda rizar el rizo, y ya llevo muchos cabezazos, de ah铆 que pido si alguien me puede hechar una mano puesto que me he quedado estancado. El tema es que antes de pasarlo a PHP hice el script en Visual Basic para ver si me podia guiar un poco, pero claro, no me aclaro. En principio lo que me salio en PHP fue esto
<?
if (isset($_POST['Enviado']))
{
$Enviado = $_POST['Enviado'];
}
else{
$Enviado= "False";
}
if ($Enviado == "True")
{
// tomo las variables del formulario mediante el m茅todo usado por el mismo
$c3 = $_POST[M3Camara];
$c1=700;
$c2=30;
$c4=1;
$c5=10000;
$c6 = (($c2 - $c1)/($c5 - $c4));
$c7 = ($c3 - $c4);
$c8 = ($c6 * $c7);
$c9 = (($c1 + $c8) * $c3);
$resultado= $c9;
$Enviado == "False";
}
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Calculadora Peri</title>
</head>
<body>
<form action="" name="form1" method="post">
<input name="M3Camara" size="17" type="text"/>
<br/>
<input value="Calcular" name="Calcular" type="submit"/>
<br/>
<input type="hidden" name="Enviado" value="True" />
<br/>
</form>
<?
// impresi贸n del resultado de la operaci贸n
echo "$resultado";
?>
</body>
</html>
pero se trata de una interpolaci贸n lineal cuando yo la quiero hacer parab贸lica, os pongo el programa que desarroll茅 en VB6 y funciona perfectamente:
num% = Text1.Text
聽聽 聽
聽聽 聽If num% < "2" Then
聽聽 聽 聽 聽c = "700"
聽聽 聽 聽 聽b = (num% * c)
聽聽 聽 聽 聽a$ = b & " 聙"
聽聽 聽 聽 聽Label2.Caption = a$
聽聽 聽 聽 聽GoTo fin
聽聽 聽ElseIf num% <= "5" And num% >= "2" Then
聽聽 聽 聽 聽c1 = "700": c2 = "600": c4 = "2": c5 = "5"
聽聽 聽ElseIf num% >= "5" And num% <= "10" Then
聽聽 聽 聽 聽c1 = "600": c2 = "500": c4 = "5": c5 = "10"
聽聽 聽ElseIf num% >= "10" And num% <= "20" Then
聽聽 聽 聽 聽c1 = "500": c2 = "400": c4 = "10": c5 = "20"
聽聽 聽ElseIf num% >= "20" And num% <= "30" Then
聽聽 聽 聽 聽c1 = "400": c2 = "300": c4 = "20": c5 = "30"
聽聽 聽ElseIf num% >= "30" And num% <= "50" Then
聽聽 聽 聽 聽c1 = "300": c2 = "250": c4 = "30": c5 = "50"
聽聽 聽ElseIf num% >= "50" And num% <= "100" Then
聽聽 聽 聽 聽c1 = "250": c2 = "200": c4 = "50": c5 = "100"
聽聽 聽ElseIf num% >= "100" And num% <= "150" Then
聽聽 聽 聽 聽c1 = "200": c2 = "180": c4 = "100": c5 = "150"
聽聽 聽ElseIf num% >= "150" And num% <= "200" Then
聽聽 聽 聽 聽c1 = "180": c2 = "150": c4 = "150": c5 = "200"
聽聽 聽ElseIf num% >= "200" And num% <= "400" Then
聽聽 聽 聽 聽c1 = "150": c2 = "120": c4 = "200": c5 = "400"
聽聽 聽ElseIf num% >= "400" And num% <= "800" Then
聽聽 聽 聽 聽c1 = "120": c2 = "100": c4 = "400": c5 = "800"
聽聽 聽ElseIf num% >= "800" And num% <= "1200" Then
聽聽 聽 聽 聽c1 = "100": c2 = "90": c4 = "800": c5 = "1200"
聽聽 聽ElseIf num% >= "1200" And num% <= "2500" Then
聽聽 聽 聽 聽c1 = "70": c2 = "50": c4 = "1200": c5 = "2500"
聽聽 聽ElseIf num% >= "2500" And num% <= "10000" Then
聽聽 聽 聽 聽c1 = "50": c2 = "30": c4 = "2500": c5 = "10000"
聽聽 聽ElseIf num% >= "10000" Then
聽聽 聽 聽 聽c = "30"
聽聽 聽 聽 聽b = (num% * c)
聽聽 聽 聽 聽a$ = b & " 聙"
聽聽 聽 聽 聽Label2.Caption = a$
聽聽 聽 聽 聽GoTo fin
聽聽 聽End If
聽聽 聽c3 = num%
聽聽 聽c6 = ((c2 - c1) / (c5 - c4))
聽聽 聽c7 = (c3 - c4)
聽聽 聽c8 = (c6 * c7)
聽聽 聽c9 = ((c1 + c8) * c3)
聽聽 聽a$ = c9 & " 聙"
聽聽 聽Label2.Caption = a$
fin:
no se si alguien podria hecharme una mano a pasar el c贸digo VB6 a PHP.
Gracias de antemano
Un saludo