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

Juego ping pong java codigo

Aqui les traigo el juego de ping pon para 2 jugadores  el primero se juega con las letras A y Z
y el segundo con flecha ARRIBA y flecha ABAJO .

Descargar
CODIGO FUENTE
EJECUTABLE
Esta es la main del juego las otras clases estan en el codigo fuente.

import java.awt.BorderLayout;
import java.awt.Color;
import java.awt.Font;
import java.awt.Graphics;
import java.awt.Graphics2D;
import java.awt.RenderingHints;
import java.awt.event.KeyEvent;
import java.awt.event.KeyListener;
import javax.swing.ImageIcon;
import javax.swing.JFrame;
import javax.swing.JLabel;
import javax.swing.JLayeredPane;
import javax.swing.JOptionPane;
import javax.swing.JPanel;
import javax.swing.border.EmptyBorder;

public class Juegos<bolita> extends javax.swing.JFrame implements KeyListener {
private JPanel panel;
private Bola bolita;
private Raqueta raquetita1;
private Raqueta2 raquetita2;
private int golpes,golpes2, c;
private JLabel labelcontador;
private JLabel fondo;
private JLabel labelcontador2;

/**
* Launch the application.
* @throws InterruptedException  //OJO AQUI
*/
public static void main(String[] args) throws InterruptedException {
           Juegos frame = new Juegos();
           frame.setVisible(true);
            while(true){
frame.repaint();
frame.moverMundo();
   Thread.sleep(180);///AQUI ME DARA UN ERROR LE DOY A LA X Y ELIJO EL 1ERO
 
}
}
/**
* Constructor de la clase juego.
*/
public Juegos() {
setTitle("Ping Pong ");
setResizable(false);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
setBounds(450, 100, 640, 450);
panel = new JPanel();
panel.setBorder(new EmptyBorder(5, 5, 5, 5));
setContentPane(panel);
panel.setLayout(null);
////////para poner fondo
((JPanel) getContentPane()).setOpaque(false);
        ImageIcon imagen = new ImageIcon(this.getClass().getResource("mesapinpong1.jpg"));
        /////////////////////////
     
     
        labelcontador = new JLabel("0");
        labelcontador.setForeground(Color.WHITE);
        labelcontador.setFont(new Font("Monospaced", Font.BOLD, 17));
        labelcontador.setBounds(93, 0, 73, 18);
        panel.add(labelcontador);
     
        labelcontador2 = new JLabel("0");
        labelcontador2.setForeground(Color.WHITE);
        labelcontador2.setFont(new Font("Monospaced", Font.BOLD, 17));
        labelcontador2.setBounds(485, 2, 56, 16);
        panel.add(labelcontador2);
        fondo = new JLabel();
        fondo.setIcon(imagen);
        getLayeredPane().add(fondo, JLayeredPane.FRAME_CONTENT_LAYER);
        fondo.setBounds(0, 0, 640, 450);
        getContentPane().add(fondo, BorderLayout.CENTER);
        this.setSize(640, 484);
        this.setLocationRelativeTo(null);
bolita=new Bola(getWidth(),getHeight());
raquetita1=new Raqueta(getHeight());
raquetita2=new Raqueta2(getHeight());
addKeyListener(this);
golpes=0;
golpes2=0;
//Sonido.FONDO.loop();
//createBufferStrategy(2);
//estrategia = this.getBufferStrategy();


}
public void  paint(Graphics g ){
super.paint(g);
Graphics2D g2d=(Graphics2D)g;

g2d.setRenderingHint(RenderingHints.KEY_ANTIALIASING,(RenderingHints.VALUE_ANTIALIAS_ON));
g2d.setColor(Color.GREEN);
bolita.pintarBola(g2d);
g2d.setColor(Color.RED);
raquetita1.pintarRaqueta1(g2d);
g2d.setColor(Color.YELLOW);
raquetita2.pintarRaqueta2(g2d);
}
public void moverMundo(){
bolita.moverBola();
if(colision()){
bolita.rebotaBola();
golpes=golpes+1;
//Sonido.REBOTEBOLA.play();
labelcontador.setText(String.valueOf(golpes/2));

}
if(colision2()){
bolita.rebotaBola();
golpes2=golpes2+1;
//Sonido.REBOTEBOLA.play();
labelcontador2.setText(String.valueOf(golpes2/2));

}
if(bolita.TocaFondo()){

gameOver();
}

}
public boolean colision(){
return bolita.limiteBola().intersects(raquetita1.limiteRaqueta1());
}
public boolean colision2(){
return bolita.limiteBola().intersects(raquetita2.limiteRaqueta2());
}

@Override
public void keyPressed(KeyEvent e) {
if(e.getKeyCode()==KeyEvent.VK_A){
raquetita1.moverRaquetaarriba1();
}
if(e.getKeyCode()==KeyEvent.VK_Z){
raquetita1.moverRaquetaabajo1();
}
//////////////////////////////////////////
if(e.getKeyCode()==KeyEvent.VK_UP){
raquetita2.moverRaquetaarriba2();
}
if(e.getKeyCode()==KeyEvent.VK_DOWN){
raquetita2.moverRaquetaabajo2();
}
}

@Override
public void keyReleased(KeyEvent e) {

}

@Override
public void keyTyped(KeyEvent e) {
// TODO Auto-generated method stub

}
public void gameOver() {
//Sonido.FONDO.stop();
//Sonido.GAMEOVER.play();
if(golpes>golpes2){
JOptionPane.showMessageDialog(this, "El jugador 1 ganó", "Game Over", JOptionPane.YES_NO_OPTION);
System.exit(0);
}else{
if(golpes<golpes2){
JOptionPane.showMessageDialog(this, "El jugador 2 ganó", "Game Over", JOptionPane.YES_NO_OPTION);
System.exit(0);
}else{
JOptionPane.showMessageDialog(this, "Empate", "Game Over", JOptionPane.YES_NO_OPTION);
System.exit(0);
}
}
}
}