BlueProgramming

Semaforo Visual Basic 6.0

in color, semaforo, shape, timer, tower light, vb6, visual basic, visual basic 6.0 - on 1:31 p.m. - 1 comment

Este es un programa que simula un semaforo real con un intervalo de 3 segundos.

Para ello insertamos 4 Shapes 3 en forma de circulo y 1 en forma de rectangulo.

Para cambiar la forma del Shape en un circulo ir a Propiedades > Shape.

Para darle color a los Shapes seleccionar el Shape > Propiedades > Fill Style y cambiar a Solid.

Luego ir Propiedades > FillColor y elegir el color deseado.

Tambien hay que insertar un timer y asignarle en Interval el valor 3000 que significa 3 segundos. Para ello elegir el timer Propiedades > Interval > 3000.

El siguiente es el codigo para poner a funcionar el programa:

Private Sub Form_Load()
Shape2.Visible = True
Shape1.Visible = False
Shape3.Visible = False
End Sub

Private Sub Timer1_Timer()
If Shape1.Visible Then

Shape2.Visible = True
Shape1.Visible = False
Shape3.Visible = False

ElseIf Shape2.Visible Then

Shape3.Visible = True
Shape2.Visible = False
Shape1.Visible = False

Else

Shape1.Visible = True
Shape2.Visible = False
Shape3.Visible = False

End If

End Sub

Nota: Es necesario estar seguro de que los nombres de los Shapes y del Timer sean iguales en mi codigo como en el suyo para que el programa funcione.

Encontrar factor Visual Basic 6.0

in dividir, factor, mod, vb6, visual basic, visual basic 6.0 - on 2:03 p.m. - No comments

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

in else, if, maximo, mayor, miobi, numero, then, vb 6, vb6, visual basic, visual basic 6.0 - on 10:31 p.m. - No comments

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

in calcular, cumpleaños, dias, fecha, PHP - on 3:49 p.m. - 2 comments

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ños:
<strong > $dias </strong> dias";

}

}
?>

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

</body>
<html>

Descargar Paint Tool SAI Portable gratis

in anime, descargar, dibujar, download, herramienta, Paint Tool SAI, portable, SAI - on 2:51 p.m. - No comments

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

in contraseña, crc32, crypt, encriptacion, encriptar, md5, password, PHP, shi1 - on 5:43 p.m. - No comments

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.