Encontrar factor Visual Basic 6.0

El siguiente programa puede encontrar los factores de un numero introducido por el usuario el cual los mostrara en un Listbox. Para ello se utilizo la simple logica de que un numero es divisible por todos sus factores. El codigo es el suguiente:





Option Explicit

Private Sub Command1_Click()
List1.Clear
Dim N, x As Integer
N = Val(Text1.Text)
For x = 2 To N - 1
If N Mod x = 0 Then
List1.AddItem (x)
End If
Next
List1.AddItem (N)
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = "0"
List1.Clear
Text1.SetFocus
End Sub




Encontrar el mayor numero Visual Basic 6.0

El siguiente programa permite al usuario insertar tres numeros para calcular cual es el mayor. En un cuarto input se imprimira el mayor de los tres.


El codigo es el siguiente:

Private Sub cmdcalcular_Click()

If Val(txt1.Text) > Val(txt2.Text) And Val(txt1.Text) > Val(txt3.Text) Then

txtresultado.Text = txt1.Text

Else

If Val(txt2.Text) > Val(txt3.Text) Then

txtresultado.Text = txt2.Text

Else

txtresultado.Text = txt3.Text

End If

End If


End Sub



Foto D126 by miobi


PHP: Calcular cuantos dias faltan para tu cumpleaños

Al insertar el mes el dia y el ano de tu proximo cumpleanos el programa te dira cuantos dias restan para esta fecha.

<!DOCTYPE html>
<html>
<head>
  <title>PHP: Dias para tu cimpleanos</title>
  </head>
  <body>
  
 <?php


if (isset($_POST['mes'], $_POST['dia'], $_POST['anio']) == true) {
    
    $mes  = $_POST['mes'];
    $dia  = $_POST['dia'];
    $anio = $_POST['anio'];
    
    if (empty($mes) || empty($dia) || empty($anio)) {
        echo '<strong> * Todos los campos son necesarios </strong>';
    } else {
        
        
        $t_dias   = mktime(0, 0, 0, $mes, $dia, $anio);
        $hoy      = time();
        $dif_dias = ($t_dias - $hoy);
        $dias     = (int) ($dif_dias / 86400);
        print "Dias que faltan para tu cumplea&ntilde;os: 
<strong > $dias </strong> dias";
        
    }
    
}
?>

<h3> Escribe tu fecha de cumplea&ntilde;os </h3>
<form method="POST" action="">
Mes <br />
<input type="text" name="mes" /> <br />
Dia <br />
<input type="text" name="dia" /> <br />
A&ntilde;o <br />
<input type="text" name="anio" /> <br />
<input type="submit" name="calcular">
</form> 

</body>
<html>






Descargar Paint Tool SAI Portable gratis

Paint Tool SAI es una herramienta ligera de dibujo para Microsoft Windows.

Link de descarga

Algunos ejemplos de dibujos hechos con esta herramienta:





Otros menos profesionales




Encriptacion de datos en PHP

En PHP existen varias funciones para la encriptacion de datos. Estas funciones son utiles para encriptar ciertas informaciones importantes tales como contrasenas. Entre allas estan las funciones crypt(), crc32(), md5() y sha1. Algunas son mas seguras que otras, en los ejemplos las coloco segun su nivel de seguridad:
 El siguiente es un ejemplo de como usar algunos:


<h2> Encriptaci&otilde;n de datos en PHP </h2>

<?php 
$dato = '123456';

$contrasena_crypt = crypt($dato);
$contrasena_crc32 = crc32($dato);
$contrasena_md5 = md5($dato);
$contrasena_sha1 = sha1($dato);

echo '<strong>crypt </strong>'.$contrasena_crypt.'<br />';
echo '<strong>crc32 </strong>'.$contrasena_crc32.'<br />';
echo '<strong>md5 </strong> '.$contrasena_md5.'<br />';
echo '<strong>sha1 </strong>'.$contrasena_sha1.'<br />';
?>


Si los datos encryptados estan compuestos de palabras y/o numeros consecutivos es muy probable que alguien pueda descifrar el codigo encriptado, por eso es importante que en el caso de las contrasenas se compongan de combinaciones de letras, numeros y caracteres especiales. Existen websites que pueden intentar descifrar estos codigos encriptados tales como: md5decript.org y md5decripter.co.uk por mencionar algunos. 

Lenguaje C : Area del circulo

La formula del area del circulo es A = π * r ^ 2. En donde A es la constante que representara el area,  π es el simbolo del pi que vale 3.14 y r es el valor del radio elevado al cuadrado.

El codigo en lenguaje C, es el siguiente:

   #include<stdio.h>
    main()
    {
     float r,pi,a;
    printf("introduce el valor del radio\n");
    scanf("%f",&r);
    pi= 3.14;
    a= pi*r*r;
    printf("el area del circulo es:%f\n",a);
    getchar();
    getchar();

    }