#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <signal.h>   

void proceso1(){
   printf("Proceso1");
}

void proceso2 (){
   printf("Proceso2");
}

int main(){
   pid_t hijo1;
   pid_t hijo2;
   char datos_leidos[40]="";
   
   printf("Introduce una cadena de texto: ");
   scanf("%s",datos_leidos);

   while(strcmp(datos_leidos,"exit")!=0){
      hijo1=fork();
      if(hijo1==0)
         proceso1();
      else
      {
         hijo2=fork();
         if(hijo2==0)
            proceso2();
         else{
            printf("Introduce una cadena de texto: ");
            scanf("%s",datos_leidos);
         }
      }         
   }
   kill(hijo1,SIGKILL);
   kill(hijo2,SIGKILL);
   return 0;
}

#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <signal.h>	

void proceso1(){
	//puts(datos_leidos);
	printf("Proceso1");
	//sleep(200);
}

void proceso2 (){
	/*int fich;
	fich=open("fichero", O_RDWR | O_TRUNC, 0644);
	//write(fich,datos_leidos,strlen(datos_leidos));
	close(fich);*/
	printf("Proceso2");
	//sleep(200);
}

int main(){
	pid_t hijo1;
	pid_t hijo2;
	char datos_leidos[40]="";
	int fin=0;
	
	hijo1=fork();
	if(hijo1==0)//si se crea el proceso1
	{
		proceso1();
	}
	else if(hijo1>0)//proceso padre
	{
		hijo2=fork();
		if(hijo2==0)//si se crea el proceso 2
		{
			proceso2();
		}
		else
		{
			printf("soy el padre");
			printf("Introduce datos: ");
			scanf("%s",datos_leidos);
			if(strcmp(datos_leidos,"exit")==0)
//si se mete exit se mata a los hijos
			{
				kill (hijo1, SIGTERM);
				kill (hijo2, SIGTERM);
				return 0;
			}
		}	
	}	
}

import java.awt.*;
public class PanelAwtGui extends Panel
{
    Panel pIzqA,pIzqB,pCenA,pCenB,pDer;
    public PanelAwtGui()
    {
        pIzqA=new Panel();
        pIzqA.setLayout(new BorderLayout());
        List lista=new List(6);
        lista.addItem("Rojo");
        lista.addItem("Naranja");
        lista.addItem("Amarillo");
        lista.addItem("Verde");
        lista.addItem("Azul");
        lista.addItem("Morado");
        lista.addItem("Negro");
        lista.addItem("Blanco");
        pIzqA.add("West",lista);
        Label l1=new Label("Hola");
        pIzqA.add("East",l1);
     
        pIzqB=new Panel();
        pIzqB.setLayout(new BorderLayout());
        Label lapiz=new Label("Lapiz");
        pIzqB.add("North",lapiz);
        Scrollbar sb=new Scrollbar(Scrollbar.HORIZONTAL);
        pIzqB.add("South",sb);
        pIzqA.add("South",pIzqB);
        add(pIzqA);
        
        pCenA=new Panel();
        pCenA.setLayout(new GridLayout(2,1));
        pCenA.add("North,West",new Button("Borrar"));
        pCenA.add("North,West",new Button("Imprimir"));
               
        pCenB=new Panel();
        pCenB.setLayout(new BorderLayout());
        Choice c=new Choice();
        c.addItem("aaasddf");
        c.addItem("sdfsdf");
        c.addItem("456456fgfghfghsddf");
        Checkbox ck=new Checkbox("Relleno");
        TextField t=new TextField("1");
        pCenB.add("Center",ck);
        pCenB.add("North",c);
        pCenB.add("South",t);
        pCenA.add("Center",pCenB);
        add(pCenA);
        
        pDer=new Panel();
        pDer.add(new TextArea("Aquí se puede escribir",4,50));
        add("East",pDer);
    }
    public static void main(String args[])
    {
        Frame f = new Frame();
        f.add(new PanelAwtGui());
        f.pack();
        f.show();
      }
 }

Function Comprobar() As Boolean
    Dim guion As String, espacio As String, contenido As String
    Dim SinGuionSinEsp As Boolean
\\\'guardamos en las variables si existen o guiones o espacios
\\\\\\\'si es distinto de 0 es que SI existe(el numero nos dice la posicion)
    guion = InStr(txttlf.Text, \\\"-\\\")
    espacio = InStr(txttlf.Text, \\\" \\\")
\\\'en la variable SinNumSinEsp decimos si tienen o guiones o espacios
    If guion = 0 And espacio = 0 Then
        SinGuionSinEsp = True
    Else
        SinGuionSinEsp = False
    End If
 \\\'si no tiene ni guiones ni espacios comprobamos si es numerico
    If SinNumSinEsp = True Then
        If IsNumeric(txttlf.Text) = True Then
            Comprobar = True
        Else
            MsgBox \\\"en telefono solo pueden ir max 12 caracteres numericos. TAmbien se admiten - y espacio\\\"
        End If
    Else
\\\'si no es numerico guardamos en una variable nueva la cadena sin espacios ni guiones(para que funcione el isnumeric)
        On Error Resume Next
        contenido = Replace(txttlf.Text,\\\"-\\\", \\\"\\\")
        On Error Resume Next
        contenido = Replace(contenido, txttlf.Text, \\\" \\\", \\\"\\\")
        If IsNumeric(contenido) = True Then
            Comprobar = True
        Else
            MsgBox \\\"en telefono solo pueden ir max 12 caracteres numericos. TAmbien se admiten - y espacio\\\"
        End If
    End If
End Function
Private Sub cmdAceptar_Click()
    Dim comprobacion As Boolean
    If Len(txtNombre.Text) <= 50 And Len(txtApe1.Text) <= 50 And Len(txtApe2.Text) <= 50 Then
        If Len(txtDireccion.Text) <= 50 Then
            If Len(txtPobla.Text) <= 20 Then
                If IsNumeric(txtCodPostal.Text) = True And Len(txtCodPostal.Text) = 5 Then
                    comprobacion = Comprobar
                    If comprobacion = True Then
                        If txtFNa.Text Like \\\"##-##-####\\\" Then \\\'esto no está del todo bien porque lo del año bisiesto no se como va
                            If txtDni.Text Like \\\"########-[A-Z]\\\" Then \\\'8 numeros,guion y una letra entre la A y la Z(mayusculas)
                                If txtCuenta.Text Like \\\"####-####-##-##########\\\" Then MsgBox \\\"DATOS CORRECTOS\\\"
                            Else
                                MsgBox \\\"DNI: 8 Numeros, guion y letra en MAYUSCULAS\\\"
                            End If
                        Else
                            MsgBox \\\"LA FECHA tiene que tener el fomato dd-mm-aaaa\\\"
                        End If
                    End If
                Else
                    MsgBox \\\"Cod Postal 5 numeros\\\"
                End If
            Else
                MsgBox \\\"poblacion max 20 caracteres\\\"
            End If
        Else
            MsgBox \\\"dIRECCION TIENE QUE TENER MAX 50 caracteres\\\"
        End If
    Else
        MsgBox \\\"Nombre,Apellido1 y Apellido2 tienen que tener max 50 caracteres\\\"
    End If
End Sub