Translate-Traducir

18/6/14

Base de datos alumnos y su mantenimiento php

Esto es ta hecho en 3 paginas esta es la pagina conex.php
En este ejercicio haremos la edición,alta,y eliminación de alumnos de la base de datos por medio de php.

Haremos una carpeta llamada conexion  dentro crearemos una pagina llamada conex.php
su codigo sera este:
<?php

    // Conectando, seleccionando la base de datos en web
       
       
     $link = mysql_connect('mysql.hostinger.es', 'u414116232_ariel', '123456')
     or die('No se pudo conectar: ' . mysql_error());
    //mysql.hostinger.es=nombre del hosting, u414116232_ariel=usuario                 //123456=contraseña

    mysql_select_db('u414118745_prueba') or die('No se pudo seleccionar la base       de datos');
    // u414118745_prueba=nombre de base de datos
?>

Ahora crearemos otra pagina llamada alumno.php

<?php 
include ("conexion/conex.php");
//declaro mis variables
$id="";
$nombre="";
$apellido="";
$edad="";
$Operacion="";

if(isset($_REQUEST["id"]) && strlen($_REQUEST["id"])>0){
    $Operacion="Edicion de alumnos presiona guardar luego comprobar";
    if(!isset($_REQUEST["guardar"])){
        $query = "select * from alumnoss where id = ".$_REQUEST["id"];
        $result = mysql_query($query) or die('Consulta fallida: ' . mysql_error());
/*tabla alumnoss*/
        if($line =mysql_fetch_array($result,MYSQL_ASSOC)){
            $id=$line["id"];
            $nombre=$line["nombre"];
            $apellido=$line["apellido"];
            $edad=$line["edad"];
        }
    }
}else if(isset($_REQUEST["delete"])){
        $Operacion="Eliminado presiona comprobar";
        $query = "delete from alumnoss where id = ".$_REQUEST["delete"]; /*tabla alumnoss*/
        $result = mysql_query($query) or die('Consulta fallida: ' . mysql_error());
        header("Location:listaalumnos.php");
}else{
    $Operacion="Insertado de alumnos presiona guardar luego comprobar";
    }

    if(isset($_REQUEST["guardar"])){
        $id=$_REQUEST["id"];
        $nombre=$_REQUEST["nombre"];
        $apellido=$_REQUEST["apellido"];
        $edad=$_REQUEST["edad"];
       
        if ($Operacion=="Insertado de alumnos presiona guardar luego comprobar"){
            $query="insert into alumnoss(nombre,apellido,edad)"; //la tabla se llama alumnoss
            $query= $query." values('".$nombre."','".$apellido."','".$edad."')";
            $result = mysql_query($query) or die('Consulta fallida: ' . mysql_error());
             
        }else{
            $query="update alumnos set nombre ='".$nombre."' ";
            $query=$query.", apellido='".$apellido."'";
            $query=$query.", edad='".$edad."'";
            $query=$query." where id=".$id;
            $result = mysql_query($query) or die('Consulta fallida: ' . mysql_error());
           }
            mysql_free_result($result);
            mysql_close($link);
            header("Location:listaalumnos.php");
        
        }

?>
<html xmlns="http://www.w3.org/1999/xhtml"  >

<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>listado de alumnos</title>
</head>


<body>

<center><H3>MANTENIMIENTO DE ALUMNOS</H3>
<?php echo $Operacion;?>

<form action="alumno.php" method="get" name="frm" >
<input name="id" type="hidden" value="<?php echo $id;?>"/><br />
NOMBRE:<input name="nombre" type="text" value="<?php echo $nombre;?>"/>
APELLIDO:<input name="apellido" type="text" value="<?php echo $apellido;?>"/>
EDAD:<input name="edad" type="text" value="<?php echo $edad;?>" /> <br /> <br />
<input name="guardar" type="submit" value="GUARDAR" />
<input name="volver" type="button" value="COMPROBAR" onclick="window.location.href='listaalumnos.php'" />
</form>
</center>

</body>
</html>





Esta es la pagina listaalumnos.php


<?php
include("conexion/conex.php");
?>
<html xmlns="http://www.w3.org/1999/xhtml"  >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Lista alumnos</title>

<script language="javascript">
function eliminar(id){
    if(confirm('¿Desea eliminar el usuario con id=' + id  + '?')){
        window.location.href='alumno.php?delete=' + id;
    }
    }
</script>
</head>
<body>
<center>
<h2>LISTADO DE ALUMNOS</h2>
<?php
$query = 'SELECT * FROM alumnoss'; /*tabla alumnoss*/
$result = mysql_query($query) or die('Consulta fallida: ' . mysql_error());
echo "<table border='2' align=center>\n";
echo "<tr>\n";
echo "<th> ID </th>\n";
echo "<th> Nombre </th>\n";
echo "<th> Apellido </th>\n";
echo "<th> Edad </th>\n";
echo "<th colspan=2>&nbsp;</th>\n";
echo "</tr>\n";
//echo "<tr>\n";
while ($line = mysql_fetch_array($result, MYSQL_ASSOC)) {
    echo "\t<tr>\n";
    echo "\t\t<td>".$line["id"]."</td>\n";
    echo "\t\t<td>".$line["nombre"]."</td>\n";
    echo "\t\t<td>".$line["apellido"]."</td>\n";
    echo "\t\t<td>".$line["edad"]."</td>\n";
    echo "\t\t<td> <a href=\"alumno.php? id=".$line["id"]."\"><img src=\"images/editar.png\" title=\"Editar\"></a></td>\n";
    echo "\t\t<td> <a href=\"javascript:eliminar(".$line["id"].");\"><img src=\"images/eliminar.png\" title=\"Eliminar\"></a></td>\n";
    echo "\t</tr>\n";
}
echo "</table>\n";

// Liberar resultados
mysql_free_result($result);

// Cerrar la conexión
mysql_close($link);
?>

<input name="enviar" type="button" value="NUEVO" onclick="window.location.href='alumno.php'" />
<input name="volver" type="button" value="VOLVER" onclick="window.location.href='index.php'" />
</center>

</body>
</html>

Aqui les dejo otro link de php  crear-escribir-un-programa-algoritmo-en-php

No olviden compartir.

2/6/14

Enviar un formulario de contacto por email en PHP

Para no hacer el codigo muy largo la he dividido en 2 paginas


Esta seria la pagina  del formulario
<!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=utf-8" />
<title>formulario</title>
</head>
<body>
<center>
<h2>FORMULARIO DE CONTACTO</h2>
  <table width="500" border="0" bgcolor="#66CCFF">
  <form name="formulario" method="get" action="pagina.php">/*aqui poner la direccion de la pagina que envia*/
    <tr>
      <td width="100">Para    :</td>
      <td><input name="para" type="text" size="50" maxlength="25" required="required" /></td>
    </tr>
    <tr>
      <td width="100">Nombre :   </td>
      <td><input name="nombre" type="text" size="50" maxlength="25"  /></td>
    </tr>
    <tr>
      <td width="100">Apellidos :</td>
      <td><input name="apellido" type="text" size="50" maxlength="25"  /></td>
    </tr>
    <tr>
      <td width="100" >Direccion :</td>
      <td><input name="direccion" type="text" size="50" maxlength="25"  /></td>
    </tr>
    <tr>
      <td width="100" >Asunto :</td>
      <td><input name="asunto" type="text" size="50" maxlength="25" required="required" /></td>
    </tr>
    <tr>
      <td width="100" colspan="2">Sexo : Hombre<input name="Sexo" type="radio" value="Hombre" />
       Mujer<input name="Sexo" type="radio" value="Mujer" />
<br />
Seleccione provincia : <select name="provincia" size="1">
  <option>Valencia</option>
  <option>Castellon</option>
  <option>Alicante</option>
</select>
<br /><br />
 Acepto las condiciones :<input name="acepto" type="checkbox" value="" required="required" />
 <p align="center">Mensaje </p><br />
<center> <textarea name="mensaje" cols="50" rows="10"></textarea></center><br />
<center><input name="enviar" type="submit" value="Enviar datos" /></center></td>
   
          </tr>
    </form>
   </table>
  </center>
 </body>
</html>
////////////////////////////////////////////////////////////////////////////////
 Y esta seria la pagina que envia 
 <!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=utf-8" />
<title> Pagina envio de datos</title>/*No confundir con la pagina esto es solo el titulo*/
</head>
<body>
<?php
if(isset($_REQUEST["enviar"])){

if(isset($_REQUEST["para"])){
  if(isset($_REQUEST["acepto"])){
 $nombre=$_REQUEST["nombre"];

      $apellido=$_REQUEST["apellido"];
      $provincia=$_REQUEST["provincia"];
      $Sexo=$_REQUEST["Sexo"];
      $direccion=$_REQUEST["direccion"];

 $mensaje=$_REQUEST["mensaje"];
$para=$_REQUEST["para"];
$asunto=$_REQUEST["asunto"];
$todo=("Nombre :".$nombre."\n".
"Apellido :".$apellido."\n".
"Provincia :".$provincia."\n".
"Direccion :".$direccion."\n".
 "Sexo :".$Sexo."\n".
 "Mensaje :".$mensaje."\n");


  mail($para,$asunto,$todo);
      echo "Su mensaje a sido enviado correctamente.";
   }
  }
 }else{

echo "Faltan campos por rellenar";

     }
?>
</body>
</html>

Calculadora en Visual Basic


Calculadora  Visual basic 2010 (2012 lo reproduce también ) por eso pongo la aclaración



AQUI ESTA EL ARCHIVO DE LA CALCULADORA   (clic para descargar)

Public Class Form1
    Dim num1 As Double
    Dim num2 As Double
    Dim op As String
    Dim op1 As Double 'este es para el punto




    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        txtResultado.Text = txtResultado.Text & 5
    End Sub

    Private Sub btnUno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUno.Click
        txtResultado.Text = txtResultado.Text & 1
    End Sub

    Private Sub btnDos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDos.Click
        txtResultado.Text = txtResultado.Text & 2
    End Sub

    Private Sub btnTres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTres.Click
        txtResultado.Text = txtResultado.Text & 3
    End Sub

    Private Sub btnCuatro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCuatro.Click
        txtResultado.Text = txtResultado.Text & 4
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        txtResultado.Text = txtResultado.Text & 6
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        txtResultado.Text = txtResultado.Text & 7
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        txtResultado.Text = txtResultado.Text & 8
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        txtResultado.Text = txtResultado.Text & 9
    End Sub

    Private Sub btnCero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCero.Click
        txtResultado.Text = txtResultado.Text & 0
    End Sub

    Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnmas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmas.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "+"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnMenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenos.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "-"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnPor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPor.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "*"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnDivision_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivision.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "/"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnfraccion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfraccion.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "1/x"
        txtResultado.Clear()
        btnPunto.Enabled = True    'AQUI ES PARA ABILITAR
    End Sub

    Private Sub btnIgual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIgual.Click
        num2 = Val(txtResultado.Text)
        If (num1 = 0) Then
            MsgBox("no se realizo ni una operacion")
        Else
            If (op = "+") Then
                txtResultado.Text = num1 + num2
            End If
            If (op = "-") Then
                txtResultado.Text = num1 - num2
            End If
            If (op = "*") Then
                txtResultado.Text = num1 * num2
            End If
            If (op = "/") Then
                txtResultado.Text = num1 / num2
            End If
            If (op = "1/x") Then
                txtResultado.Text = 1 / num1

            End If
            If (op = "RAIZ") Then
                txtResultado.Text = Math.Sqrt(d:=Val(num1))

            End If
            If (op = "P") Then
                txtResultado.Text = num1 ^ num2

            End If
            If (op = "Log10") Then
                txtResultado.Text = Math.Log10(d:=Val(num1))

            End If
            If (op = "Seno") Then
                txtResultado.Text = Math.Sin(a:=Val(num1))

            End If
            If (op = "Coseno") Then
                txtResultado.Text = Math.Cos(d:=Val(num1))

            End If
            If (op = "Tang") Then
                txtResultado.Text = Math.Tan(a:=Val(num1))

            End If
            If (op = "ln") Then
                txtResultado.Text = Math.Log(d:=Val(num1))

            End If
           
            btnPunto.Enabled = True
        End If


    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPunto.Click
        txtResultado.Text = txtResultado.Text & "."
        op1 = 1
        If op1 = 1 Then
            btnPunto.Enabled = False  'aqui es para el punto
        End If
    End Sub

    Private Sub btnRaiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRaiz.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "RAIZ"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnMmenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMmenos.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "P"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnMmas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMmas.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "Log10"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnMs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMs.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "Seno"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnMr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMr.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "Coseno"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnCe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCe.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "Tang"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnFlecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFlecha.Click
        num1 = Val(txtResultado.Text)
        txtResultado.Text = ""
        op = "ln"
        txtResultado.Clear()
        btnPunto.Enabled = True
    End Sub

    Private Sub btnMc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class