LABORATORIO DE COMPUTACION: 2016

martes, 4 de octubre de 2016

formulario de control de ventas vehiculos

<html>
<head><title>venta de vehiculos</title></head>
<body>
<div align="center">
<table border="0" width="80%" align="center">
<tr align="center">
<td>
<span style="font-family: papyrus; font-size: 3em; color:#9f0025">
Venta de automoviles el buen motor</span><br>
<span style="font-family: luna bar; font-size: 1.5em; color:#ff003c">
Since 2016</span>
</td>
</tr>
<tr>
<td>
<form action="pro_venta.php" method="post">
<table border="2" width="100%" align="center">
<tr>
<td align="right" colspan="2">
Fecha:
</td>
<td align="left" colspan="3">
<input type="date" name="fecha" required >
</td>
</tr>

<tr>
<td align="right" colspan="2">
Nombre:
</td>
<td align="left" colspan="3">
<input type="name" name="nombre" required >
</td>
</tr>

<tr>
<td align="right" valign="top" colspan="2">
Codigo:
</td>
<td align="left" colspan="3">
<input type="text" name="codigo" required >
</td>
</tr>

<tr bgcolor="#0096ff">
<th>modelo</th>
<th>marca </th>
<th>color </th>
<th>tipo </th>
<th>precio</th>
</tr>

<tr>
<td><input type="text" name="modelo" required ></td>
<td>
<select name="marca" required>
<option value="">seleccione el modelo</option>
<option value="honda">honda</option>
<option value="porsche">Porsche</option>
<option value="mitsubishi">Mitsubishi</option>
<option value="toyota">Toyota</option>
<option value="chevrolet">Chevrolet</option>
<option value="mazda">Mazda</option>
</select>
</td>

<td>
<select name="color" required >
<option value="">seleccione el color</option>
<option value="rojo">rojo</option>
<option value="gris">gris</option>
<option value="azul">azul</option>
<option value="negro">negro</option>
<option value="amarillo">amarillo</option>
<option value="verde">verde</option>
</select>
</td>

<td>
<select name="tipo" required >
<option value="">seleccione el tipo</option>
<option value="4*4">4*4</option>
<option value="micro-bus">Micro-bus</option>
<option value="deportivo">Deportivo</option>
<option value="tuning">Tuning</option>
</select>
</td>

<td><input type="text" name="precio" required ></td>
</tr>

<tr align="center">
<td colspan="5"><button type="submit" value="concluir venta">CONCLUIR VENTA</button></td>
</tr>

</table>
</form>
</td>
</tr>
</table>
</div>
</body>
</html>

martes, 27 de septiembre de 2016

hacer un link a una pagina por medio de imagen

jueves, 22 de septiembre de 2016

pagina principal

<html>
<head>
<title>pagina heber</title>
<meta charset="utf-8">
<link rel="stylesheet" type="text/css" href="css/estilos.css">
</head>
<body>
<table align="center" border="0" width="900" bgcolor="gray" class="table1">

<tr>
<td>
<div id="menu">
<a href="inicio.html" target="marco"><img src="imagenes/inicio.png"></a>
<a href="vision.html" target="marco"><img src="imagenes/vision.png"></a>
<a href="vision.html" target="marco"><img src="imagenes/mision.png"></a>
</div>
</td>
</tr>
<tr>
<td>
<iframe name=marco width=100%
height=500 frameborder=0 src="mision.html">
</iframe>
</td>
</tr>
<tr>
<td>
pie de página: Autor Heber Rodriguez
</td>
</tr>
</table>
</body>
</html>

martes, 20 de septiembre de 2016

MOSTRAR Y GUARDAR

<!DOCTYPE html>
<html>
<head>
<title>

</title>
<meta charset="utf-8">
</head>
<body>
<form action="guardar.php" method=POST><!aca es donde se hace la acción de guardar por lo tando debe realizar un archivo de guarda.php->
<table border=2 width=400 align=center>
<tr>
<td>nombre</td>
<td> <input type="text" required name="nombre" size=44px placeholder="ingrese el nombre"> </td>
</tr>
<tr>
<td>grado</td>
<td> <input type="text" required name="grado" placeholder="ingrese el grado academico" > </td>
</tr>
<tr>
<td>edad</td>
<td> <input type="text" required name="edad" placeholder="ingrese la edad de la persona"></td>
</tr>

<tr>
<td colspan="2" align="center">
<a href="mostrar.php">MOSTRAR DATOS</a></td>
</tr>

<tr>
<td colspan=2 align="center">
<button type="submit" >GUARDAR</button>
</td>
</tr>
</table>
</form>
</body>
</html>
_________________________________________________________________________________
ARCHIVO GUARDAR.PHP

<?php
include("conexion.php");
$nombre= $_POST['nombre'];
$grado= $_POST['grado'];
$edad= $_POST['edad'];
$query="INSERT INTO alumnos(nombre,grado,edad)VALUES
('$nombre','$grado','$edad')";
$resultado= $conexion->query($query);

if($resultado){
echo "<script>alert('los datos fueron enviados
exitosamente');
location.href='index.html'</script>";

}
else
{
echo"error al insertar dato";
}

?>
_____________________________________________________________________________
ARCHIVO MOSTRAR.PHP
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title> tabla</title>
</head>
<body>
<center>
<center> <table border="1">
<thead>

<tr>
<th colspan="1"> <a href="index.html">nuevo</a></th>
<th colspan="5"> lista de alumnos</th>
</tr>
</thead>
<tbody>
<tr>
<td> id </td> 
<td> nombre</td>
<td> grado </td>
<td> edad</td>

</tr>
<?php
include("conexion.php");
$query="SELECT * FROM alumnos ORDER BY 1";
$resultado=$conexion->query($query);
while($row=$resultado->fetch_assoc()){ //ciclo para llamar los datos//
?>
<tr>
<td><?php echo $row['id'];?></td> 
<td><?php echo $row['nombre'];?></td>
<td><?php echo $row['grado'];?></td>
<td><?php echo $row['edad'];?></td>

</tr>
<?php
}
?>
</tbody>
</table>
</center>
</body>
</html>

_______________________________________________________

archivo de conexion.php
<?
$conexion=new mysqli("localhost","root","123456","alumnoss");

?>

___________________________________________________________

CONSULTAR PHP

<!DOCTYPE html>
<html>
<head>
<title>guardar</title>
</head>
<body>
<center>

<?php
include("conexion.php");
$producto=$_POST['producto'];
$query="SELECT *FROM inventarios WHERE producto='$producto'";
$resultado=$conexion->query($query);
$row=$resultado->fetch_assoc();

?>

<CENTER><table border=2 width="200" align=center>
<tr>
<td>id</td>
<td> <input type="text" name="id" value="<?php echo $row['id'];?>"/> </td>
</tr>
<tr>
<td>producto</td>
<td> <input type="text" name="producto" value="<?php echo $row['producto'];?>"/> </td>
</tr>
<tr>
<td>categoria</td>
<td> <input type="text" name="categoria" value="<?php echo $row['categoria'];?>"/></td>
</tr>
<tr>
<td>fecha</td>
<td> <input type="date" name="fecha" value="<?php echo $row['fecha'];?>"/></td>
</tr>
<tr>
<td>cantidad</td>
<td> <input type="text" name="cantidad" value="<?php echo $row['cantidad'];?>"/></td>
</tr>
<tr>
<td colspan=2 align="center">
<a href="index.html">INICIO</a>
</td>
</tr>
</table>

</CENTER>
</BODY>
</HTML>

martes, 9 de agosto de 2016

www.ccee.edu.uy/ensenian/catcomp/material/Clientes.xls
ENLACE PARA NUESTRA BASE DE DATOS

martes, 2 de agosto de 2016

BASE DE DATOS CLIENTES

NUMERO DE ORDEN	CLIENTE	TIENDA 1	TIENDA 2	TIENDA 3	TIENDA 4	TIENDA 5
1001	Alcor Ltda.	Q 60,000.00	Q 6,000.00	Q 12,433.00	Q16,941.00	Q 52,000.00
1002	Aldebarán S.A.	Q 54,435.00	Q 42,821.00	Q 6,955.00	Q 4,659.00	Q 50,000.00
1003	Aldebarán S.A.	Q 5,717.00	Q 4,828.00	Q 500.00	Q 389.00	Q 25,000.00
1004	Algol Ltda.	Q 82,930.00	Q 9,521.00	Q 50,186.00	Q23,223.00	Q100,000.00
1005	Arturo S.A.	Q189,092.00	Q114,632.00	Q 42,473.00	Q31,987.00	Q200,000.00
1006	Betelgeuse S.A.	Q 5,228.00	Q 4,879.00	Q 349.00	Q -	Q 50,000.00
1007	Cabra S.A.	Q 68,184.00	Q 64,743.00	Q 2,583.00	Q 858.00	Q100,000.00
1008	Cabrillas SRL	Q188,652.00	Q146,319.00	Q 31,128.00	Q11,205.00	Q200,000.00
1009	Canícula S.A.	Q147,266.00	Q 59,764.00	Q 54,240.00	Q33,262.00	Q200,000.00
1010	Capela S.A.	Q173,951.00	Q 56,847.00	Q117,104.00	Q -	Q200,000.00
1011	Deneb Ltda.	Q 28,999.00	Q 25,812.00	Q 1,405.00	Q 1,782.00	Q 50,000.00
1012	Denébola SRL	Q185,704.00	Q143,332.00	Q 25,077.00	Q17,295.00	Q200,000.00
1013	Espiga Ltda.	Q 54,973.00	Q 621.00	Q 29,299.00	Q25,053.00	Q 50,000.00
1014	Formalhaut S.A.	Q170,217.00	Q100,853.00	Q 21,304.00	Q48,060.00	Q200,000.00
1015	Markab Ltda.	Q 21,274.00	Q 17,057.00	Q 2,363.00	Q 1,854.00	Q 25,000.00
1016	Menkar Ltda.	Q145,770.00	Q100,935.00	Q 15,926.00	Q28,909.00	Q200,000.00
1017	Mira Ceti S.A.	Q 86,577.00	Q 12,703.00	Q 31,188.00	Q42,686.00	Q 25,000.00
1018	Mirak S.A.	Q147,615.00	Q113,882.00	Q 13,628.00	Q20,105.00	Q200,000.00
1019	Mirfak S.A.	Q 49,561.00	Q 10,557.00	Q 31,404.00	Q 7,600.00	Q 50,000.00
1021	Perla S.A.	Q 42,716.00	Q 18,784.00	Q 12,267.00	Q11,665.00	Q 50,000.00
1022	Polar S.A.	Q207,082.00	Q 62,824.00	Q 49,854.00	Q82,263.00	Q200,000.00
1023	Pollux Ltda.	Q 51,929.00	Q 46,133.00	Q 4,673.00	Q 1,123.00	Q100,000.00
1024	Proción S.A.	Q 51,755.00	Q 3,606.00	Q 17,585.00	Q30,564.00	Q100,000.00
1025	Régulo S.A.	Q191,434.00	Q119,080.00	Q 23,877.00	Q48,477.00	Q200,000.00
1027	RR Lira Ltda.	Q 87,416.00	Q 55,800.00	Q 31,616.00	Q -	Q100,000.00
1028	Rukbah S.A.	Q 15,207.00	Q 2,510.00	Q 4,423.00	Q 8,274.00	Q 50,000.00
1029	Scheat S.A.	Q113,138.00	Q 79,852.00	Q 20,083.00	Q13,203.00	Q200,000.00
1031	Sirio S.A.	Q 85,366.00	Q 28,018.00	Q 37,069.00	Q20,279.00	Q100,000.00
1032	Sirrah SRL	Q 62,422.00	Q 31,165.00	Q 9,764.00	Q21,493.00	Q100,000.00
1033	Tolimán S.A.	Q 62,077.00	Q 16,137.00	Q 45,940.00	Q -	Q100,000.00
1035	Vega Ltda.	Q147,271.00	Q 97,336.00	Q 32,410.00	Q17,525.00	Q200,000.00
1063	Schédir Ltda.	Q 44,304.00	Q 6,235.00	Q 19,603.00	Q18,466.00	Q 50,000.00
1086	Rigel S.A.	Q 58,006.00	Q 45,989.00	Q 4,764.00	Q 7,253.00	Q100,000.00
1104	Mizar S.A.	Q 14,881.00	Q 11,448.00	Q 1,108.00	Q 2,325.00	Q 25,000.00
1106	Cástor S.A.	Q 45,567.00	Q 26,749.00	Q 6,321.00	Q12,497.00	Q 50,000.00
1109	Trapecio SRL	Q146,178.00	Q 68,804.00	Q 28,973.00	Q48,401.00	Q100,000.00

viernes, 29 de julio de 2016

ACTUALIZACIÓN DE FORMULARIO

body{
background:#A9E2F3;
}
#menu{
text-align:center;
font-family:arial;
font-size:20px;
margin-top:12px;
}
#menu li{
display:inline-block;
padding:14px 14px;
background:#58ACFA;
}
#menu li a{
text-decoration:none;
color:#151515;
}
#menu li a:hover{
background:#8181F7;

}
#parrafo1{
background:#58ACFA;
width:48%;
height:50%;
float:left;
padding:12px 12px;
text-align:justify;
}
#parrafo2{
background:#58ACFA;
width:45%;
height:50%;
float:right;
padding:12px 12px;
text-align:justify;
}
form{
width:50%;
height:60%;
margin:0 auto;
border:1px solid blue;
padding:12px 12px;
}
label{
font-family:arial;
font-size:14px;
width:90%;

}
input{
display:block;
width:90%;
margin-bottom:12px;
}
textarea{
width:90%;
height:20%;
}
button{
background:blue;
cursor:pointer;
padding:12px 12px;
border-radius: 0.5em;

}
button:hover{
background:#81BEF7;
}
input:focus{
border:2px solid blue;
}

miércoles, 27 de julio de 2016

estilos de contactos

label{
font-family:arial;
font-size:14px;
width:90%;

}
input{
display:block;
width:90%;
margin-bottom:12px;
}
textarea{
width:90%;
height:20%;
}
button{
background:blue;
cursor:pointer;
padding:12px 12px;

}

miércoles, 20 de julio de 2016

FORMULARIO CON INPUT Y LABELS

<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css"
href="css/estilos.css">
<meta charset="utf-8">
</head>
<body>
<form action="guardar.php" method="post">
<label for="nombre">INGRESE SU NOMBRE</label>
<input type="text" name="nombre"
placeholder="ingrese su nombre"></input>
<label for="email">INGRESE SU CORREO</label>
<input type="email" name="correo"
placeholder="ingrese su correo"></input>
<label for="comentario">
ENCRIBA SU COMENTARIO</label>
<textarea type="text" name="comentario">
</textarea>
<button type="submit" value="comentario">
GUARDAR
</button>
</form>
</body>
</html>

lunes, 2 de mayo de 2016

insertar datos a excel VBA

PRIMERO HACER EL USERFORM1
BOTON CALCULAR O OPERAR

Private Sub CommandButton1_Click()
TextBox6.Text = Val(TextBox4.Text) * Val(TextBox5.Text)
End Sub

____________________________________________________
EN EL BOTON DONDE QUEREMOS GUARDAR LOS DATOS EN UNA HOJA DE EXCEL
SON LA FILA 1 COLUMNA SEGÚN EL ORDEN

Private Sub CommandButton2_Click()
registro
Sheets("datos").Select
ult = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ult + 1, 1) = TextBox1.Text
Cells(ult + 1, 2) = TextBox2.Text
Cells(ult + 1, 3) = TextBox3.Text
Cells(ult + 1, 4) = TextBox4.Text
Cells(ult + 1, 5) = TextBox5.Text
Cells(ult + 1, 6) = TextBox6.Text

End Sub
________________________________________________________________________________

ESTE CODIGO SEGÚN EL MODULO A UTILIZAR
Sub registro()
IDPRODUCTO = UserForm1.TextBox1.Text
CATEGORIA = UserForm1.TextBox2.Text
PRODUCTO = UserForm1.TextBox3.Text
CANTIDAD_INGRESADA = UserForm1.TextBox4.Text
PRECIO_UNIT = Val(UserForm1.TextBox5.Text)
Total = Val(UserForm1.TextBox6.Text)

End Sub
_____________________________________________________________________________
PARA SALIR DEL USERFORM

Private Sub CommandButton4_Click()
End
End Sub
_______________________________________________________________________________
PROPIEDAD PARA LLAMAR UN FORMULARIO DESDE EXCEL
UserForm1.Show

miércoles, 20 de abril de 2016

option en php

<?
$nombre=$_POST['nombre'];
$opcion=$_POST['opcion'];

if($opcion=="pcc")
{
echo"<script>;location.href='peritos.html'</script>";
}
else if($opcion=="baco")
{
echo"<script>;location.href='baco.html'</script>";
}
else if($opcion=="merca")
{
echo"<script>;location.href='merca.html'</script>";
}
else if($opcion=="bad")
{
echo"<script>;location.href='bad.html'</script>";
}
else if($opcion=="pae")
{
echo"<script>;location.href='pae.html'</script>";
}

?>

select option

<html>
<head>
<title>formulario</title>
<meta charset="uft-8">
</head>
<body>
<form action="opciones.php" method="post">
<table border="2" width="400" align="center">
<tr>
<td colspan="2">
<center>
<img src="imagenes/icono.png" width="500" ></IMG>
</center>
</td>
</tr>
<tr>
<td>
INGRESE NOMBRE
</td>
<td>
<input type="text" name="nombre"></input>
</td>
</tr>
<tr>
<td>
SELECCIONE UNA CARRERA
</td>
<td>
<SELECT name="opcion">
<option value="baco">BACHILLERATO EN COMPUTACIÓN</OPTION>
<option value="merca">MERCADOTECNIA Y PUBLICIDAD</OPTION>
<option value="bad">BACHILLERATO EN DISEÑO GRAFICO</OPTION>
<option value="pcc">PERITO CONTADOR</OPTION>
<option value="pae">PERITO EN ADMINISTRACIÓN DE EMPRESAS</OPTION>
</SELECT>
</td>
</tr>
<TR>
<TD COLSPAN="2">
<button type="sumbit" value="INGRESAR">VER CARRERA</button>
</TD>
</TR>
</table>
</form>
</html>

lunes, 28 de marzo de 2016

IF ELSE Y CASE EN VBA EXCEL

CALCULANDO LA EDAD DE UNA PERSONA

_________________________________________________________________________________
Private Sub CommandButton1_Click()

If Val(TextBox1.Text) >= 18 Then
TextBox2.Text = " mayor"
Else
TextBox2.Text = "menor"

End If
End Sub

EJEMPLO DE IF ELSE EN VBA EXCEL
________________________________________________

Private Sub CommandButton1_Click()

If Val(TextBox1.Text) = 1 Then
TextBox2.Text = " HOY ES DIA LUNES"
Else
If Val(TextBox1.Text) = 2 Then
TextBox2.Text = " HOY ES DIA MARTES"
Else
If Val(TextBox1.Text) = 3 Then
TextBox2.Text = " HOY DIA MIRCOLES"
Else
If Val(TextBox1.Text) = 4 Then
TextBox2.Text = " HOY DIA JUEVES"
Else
If Val(TextBox1.Text) = 5 Then
TextBox2.Text = " HOY DIA VIERNES"
Else
If Val(TextBox1.Text) = 6 Then
TextBox2.Text = " HOY DIA SABADO"
Else
If Val(TextBox1.Text) = 7 Then
TextBox2.Text = " DOMINGO"
Else
TextBox2.Text = " ESE NUMERO DE DIA NO EXISTE INTENTE CON OTRO"

End If
End If
End If
End If
End If
End If
End If
End Sub

EJEMPLO DEL CASE EN VAB EXCEL
_____________________________________________________________

Private Sub CommandButton1_Click()

Select Case TextBox1.Text
Case 1:
TextBox2.Text = " HOY ES DIA LUNES"
Case 2:
TextBox2.Text = " HOY ES DIA MARTES"
Case 3:
TextBox2.Text = " HOY ES DIA MIERCOLES"
Case 4:
TextBox2.Text = "HOY ES DIA JUEVES"
Case 5:
TextBox2.Text = " HOY ES DIA VIERNES"
Case 6:
TextBox2.Text = " HOY ES DIA SABADO"
Case 7:
TextBox2.Text = " HOY ES DIA DOMINGO"
Case Else
TextBox2.Text = " ESE DIA NO EXISTE"
End Select
End Sub

________________________________________
realice el siguiente ejercicio utilizando la condicion if else
si la compra es mayor a Q400 aplicar el 5% de descuento =0.05
de lo contrario el descuento es cero el total final reste total menos descuento

HACER OTRO PROGRAMA QUE CALCULE LA EDAD DE UNA PERSONA Y NOS MUESTRE SI ES MAYOR O MENOR DE EDAD

martes, 8 de marzo de 2016

condición if else

EJEMPLO UNO

If Val(TextBox1.Text) = 1 Then
TextBox2.Text = " ES DIA LUNES"
Else
If Val(TextBox1.Text) = 2 Then
TextBox2.Text = " ES DIA MARTES"
Else
If Val(TextBox1.Text) = 3 Then
TextBox2.Text = " ES DIA MIRCOLES"
Else
If Val(TextBox1.Text) = 4 Then
TextBox2.Text = " ES DIA JUEVES"
Else
If Val(TextBox1.Text) = 5 Then
TextBox2.Text = " ES DIA VIERNES"
Else
If Val(TextBox1.Text) = 6 Then
TextBox2.Text = " ES DIA SABADO"
Else
If Val(TextBox1.Text) = 7 Then
TextBox2.Text = " ES DIA DOMINGO"
Else
TextBox2.Text = " ESE NUMERO DE DIA NO EXISTE INTENTE CON OTRO"

End If
End If
End If
End If
End If
End If
End If

lunes, 15 de febrero de 2016

CONSULTAS EN ACCESS

AHORA ESTUDIAREMOS COMO REALIZAR CONSULTAS EN ACCESS
PARA ESO REALIZAREMOS UNA RELACIÓN DE UNA A VARIOS

lunes, 8 de febrero de 2016

SISTEMA FACTURABLE

REALIZAREMOS UN SISTEMA FACTURA BLE EN ACCESS

1. HACEMOS NUESTRA BASE DE DATOS
2. REALIZAMOS NUESTRA PRIMERA TABLA LLAMADA
PRODUCTO

2. REALIZAMOS LA SEGUNDA TABLA LLAMADA

FACTURA

3. HACEMOS NUESTRA TERCERA TABLA LLAMADA DETALLE

ESTA ES LA QUE NOS PERMITE HACER LA RELACIÓN DE UNO A VARIOS

RECUERDE QUE EL CAMPO CALCULADO DEBE DE QUEDAR [CANTIDAD]*[PRECIO]

AL TERMINAR LAS TABLAS LAS CERRAMOS Y NO VAMOS AL MENU HERRAMIENTA DE BASE DE DATOS Y elegimos relaciones y unimos los campos en comun

tendrá que quedar nuestra relación

nos vamos a la tabla de productos e ingresamos nuestros productos que tendra nuestra base de datos

ejemplo:

EN EL ASISTENTE PARA FORMULARIOS TRASLADAMOS LOS DATOS DE FACTURA TAL COMO VE LA IMAGEN

LUEGO DE LA TABLA DETALLE SOLO TRASLADO EL CAMPO CODIGO TAL COMO LO VE EN LA IMAGEN

LUEGO DE LA TABLA PRODUCTO TRASLADO EL CAMPO NOMBRE_PRODUCTO

LUEGO DE LA TABLA DETALLE TRASLADO LOS CAMPOS CANTIDAD, PRECIO, Y TOTAL

ELIJO SIGUIENTE LUEGO SIGUIENTE Y SIGUIENTE

HASTA LLEGAR A FINALIZAR DEBE QUEDAR MI FACTURA DE ESTA MANERA

DE MANERA QUE CUANDO INGRESE EL CODIGO DEL PRODUCTO ME DESPLIEGUE EL NOMBRE DEL PRODUCTO

Y LISTO TU SISTEMA FACTURA-BLE YA ESTA !!