Mensajes

Lo siento un error mio como pude olvidarme de lo mas sencillo jajajajajaja
era esto perdon por el spam lo siento muchachos

Dim Programa
Programa = Shell("C:\Tuprograma.EXE", 1)

Bueno ya al fin pude terminar mi programa lo hice en C# con un algoritmo Genetico.
En los proximos dias lo publico mas su source ok gracias a tods

Excelente aplicacion che mil felicidades  me gusta la pinta del programa muy bueno

Código (vb) [Seleccionar] Expandir


Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Skin1.LoadSkin App.Path & "\skins\Droid.skn" 'cargando el skin para el fondo
Skin1.ApplySkin hWnd 'aplicando el skin
End Sub


Private Sub SkinLabel3_DragDrop(Source As Control, x As Single, y As Single)

End Sub

Private Sub Start_Click()
'En este punto como puedo hacer para llamar a un ejecutable que tengo ya hecho.
'el cual se llama simulacion.exe
End Sub

Bueno mi problema es que no puedo llamar o mejor dicho no se como hacer para llamar a un exe revisando pude darle la pinta de un skin pero el otro no me ubico porfavor

Bueno como lo imprimo aki esta por el moento esta es mi idea..

Código (php) [Seleccionar] Expandir

/*
Solo se usa para imprimir el laberinto.
*/
function print_lab($text) {
    global $array;
    echo "\n<div class=\"inner\">";
    echo "\n<span style=\"font-size: 14px; font-weight: bold;\">$text</span>";
    echo "\n<hr>";
    echo "\n<table align=\"center\" cellpadding=\"0\" cellspacing=\"0\">\n";
    foreach($array as $col=>$arr) {
        echo "<tr>\n";
        foreach($arr as $row=>$act) {
            switch($act) {
                case 1:
                    echo "<td width=\"15\" height=\"15\" title=\"($row,$col)\"></td>\n";
                    break;
                case 2:
                    echo "<td width=\"15\" height=\"15\" bgcolor=\"#FFFFFF\" title=\"($row,$col)\">";
                    echo "<img src=\"queso.jpg\" alt=\"Queso ($row,$col)\" style=\"width: 15px; height: 15px; border: 0;\">";
                    echo "</td>\n";
                    break;
                case 3:
                    echo "<td width=\"15\" height=\"15\" title=\"($row,$col)\">";
                    echo "<img src=\"camino.jpg\" alt=\"Ruta ($row,$col)\" style=\"width: 15px; height: 15px; border: 0;\">";
                    echo "</td>\n";
                    break;
                case 4:
                    echo "<td width=\"15\" height=\"15\" bgcolor=\"#FFFFFF\" title=\"($row,$col)\">";
                    echo "<img src=\"raton.jpg\" alt=\"Ratón ($row,$col)\" style=\"width: 15px; height: 15px; border: 0;\">";
                    echo "</td>\n";
                    break;
                default:
                    echo "<td width=\"15\" height=\"15\" bgcolor=\"#FFFFFF\" title=\"($row,$col)\"></td>\n";
                    break;
            }
        }
        echo "</tr>\n";
    }
    echo "</table>\n\n";
    echo "\n</div>";
}

Bueno la actualizacion es ahi mismo priemro muestra el laberinto original luego con los dos personajes y por ultimo la solucion como estoy por una solucion beta aun no uso Ajax quiero q este estable y poder hacerlo recien con ajax pero lo que mas pienso es como hacer el random no me ubico muy bien

Hola como estan miren hice un post anteriormente el cual era de hacer un laberinto y poner al lobo y  caperucita. El lObo tiene que ir detras de caperucita Roja mas o menos lo tengo avanzado por el momento le s mostrare el codigo.
Y la duda con la que estoy

Código (php) [Seleccionar] Expandir

<?php 

//Array que devolverá el laberinto 
$array = array( 
    array(1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1), 
    array(1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1), 
    array(1,0,1,0,1,1,1,1,0,1,1,1,1,1,0,1,0,0,1,0,1,0,0,1), 
    array(1,0,1,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,1,1,1,0,1,1), 
    array(1,0,1,1,1,1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,1), 
    array(1,0,0,0,0,0,0,1,0,1,1,1,0,1,0,1,1,0,1,0,1,0,0,1), 
    array(1,1,1,0,1,0,0,1,0,0,0,0,0,1,1,1,1,1,1,0,1,1,1,1), 
    array(1,0,0,0,1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1), 
    array(1,1,1,0,1,0,0,0,0,0,0,1,0,1,1,1,0,1,1,0,1,1,0,1), 
    array(1,0,1,0,1,0,1,1,1,1,1,1,0,1,0,1,0,0,1,0,1,0,0,1), 
    array(1,0,1,0,1,0,0,0,0,0,0,0,0,1,0,1,0,1,1,0,1,0,1,1), 
    array(1,0,1,0,1,0,1,1,1,1,1,0,1,1,0,0,0,1,0,0,1,0,0,1), 
    array(1,0,0,0,1,0,0,0,0,0,1,0,0,1,0,1,1,1,1,1,1,0,1,1), 
    array(1,0,1,0,0,0,0,1,1,1,1,1,0,1,0,1,0,0,0,0,0,0,0,1), 
    array(1,0,1,1,1,0,0,1,0,0,1,0,0,1,0,1,1,1,1,0,1,1,0,1), 
    array(1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,1), 
    array(1,1,1,0,1,1,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,1), 
    array(1,0,1,0,1,0,0,0,0,1,1,0,1,0,1,0,1,0,1,1,0,1,0,1), 
    array(1,0,1,0,1,0,1,1,0,0,1,0,0,0,1,0,1,0,0,1,0,1,0,1), 
    array(1,0,0,0,1,0,0,1,0,0,1,0,1,0,1,0,0,0,1,1,0,0,0,1), 
    array(1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,1,1,0,0,1,1,1,0,1), 
    array(1,0,1,0,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,1,1,0,1), 
    array(1,0,1,0,1,1,1,1,0,0,0,1,1,1,0,0,1,0,0,0,0,0,0,1), 
    array(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1) 
); 

/* 
Esta función ubica aleatoriamente (o a través del parámetro $p) 
la caperusita en el laberinto. Además, guarda estas posiciones en las 
variables $qx y $qy 
*/ 
function caperusita(&$array,$p = NULL) 
{ 
    global $qx,$qy; 
    if(isset($p) && strlen($p) >= 3) { 
        $p = explode(',',$p); 
        $t[1] = $p[0]; 
        $t[0] = $p[1]; 
    } else { 
        $d=count($array); 
        $t[0]=rand(0,($d-1)); 
        $t[1]=rand(0,($d-1));     
    } 
    if($array[$t[0]][$t[1]] == 0 && isset($array[$t[0]][$t[1]])) { 
        $array[$t[0]][$t[1]] = 2; 
        $qx = $t[1]; 
        $qy = $t[0]; 
        return TRUE; 
    } else { 
        return caperusita($array); 
    } 
} 

La duda con la que estoy es como poder hacer el laberinto de manera randomica.
osea la forma.

Código (php) [Seleccionar] Expandir

//Array que devolverá el laberinto
$array = array(
    array(1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),
    array(1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1),
    array(1,0,1,0,1,1,1,1,0,1,1,1,1,1,0,1,0,0,1,0,1,0,0,1),
    array(1,0,1,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,1,1,1,0,1,1),
    array(1,0,1,1,1,1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,1),
    array(1,0,0,0,0,0,0,1,0,1,1,1,0,1,0,1,1,0,1,0,1,0,0,1),
    array(1,1,1,0,1,0,0,1,0,0,0,0,0,1,1,1,1,1,1,0,1,1,1,1),
    array(1,0,0,0,1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1),
    array(1,1,1,0,1,0,0,0,0,0,0,1,0,1,1,1,0,1,1,0,1,1,0,1),
    array(1,0,1,0,1,0,1,1,1,1,1,1,0,1,0,1,0,0,1,0,1,0,0,1),
    array(1,0,1,0,1,0,0,0,0,0,0,0,0,1,0,1,0,1,1,0,1,0,1,1),
    array(1,0,1,0,1,0,1,1,1,1,1,0,1,1,0,0,0,1,0,0,1,0,0,1),
    array(1,0,0,0,1,0,0,0,0,0,1,0,0,1,0,1,1,1,1,1,1,0,1,1),
    array(1,0,1,0,0,0,0,1,1,1,1,1,0,1,0,1,0,0,0,0,0,0,0,1),
    array(1,0,1,1,1,0,0,1,0,0,1,0,0,1,0,1,1,1,1,0,1,1,0,1),
    array(1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,1),
    array(1,1,1,0,1,1,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,1),
    array(1,0,1,0,1,0,0,0,0,1,1,0,1,0,1,0,1,0,1,1,0,1,0,1),
    array(1,0,1,0,1,0,1,1,0,0,1,0,0,0,1,0,1,0,0,1,0,1,0,1),
    array(1,0,0,0,1,0,0,1,0,0,1,0,1,0,1,0,0,0,1,1,0,0,0,1),
    array(1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,1,1,0,0,1,1,1,0,1),
    array(1,0,1,0,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,1,1,0,1),
    array(1,0,1,0,1,1,1,1,0,0,0,1,1,1,0,0,1,0,0,0,0,0,0,1),
    array(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
);

La funcion de la caperucita sera casi la misma a la del lobo, lo que quiero es poder darle la opcion a que el lobo lo biusqye de manera propia si n necesirdad de intervencion del usuario ...

Bueno muchas gracias muchachos se les agradece por la ayuda  MCKSys  thanks pero el problema con el que estoy es el dar inteligencia propia al hombrecito por asi decirlo eestaba vieno un poco de el paso atras aver como me va y posiblemente lo desarrolle en php pero igual les dire como me va muchas gracias por la yuda viendo lo del laberitno que me diste me di cuenta  q no es complicado pero ahora estoy viendo darle movimientos propios seria un ente con toma de decisiones si no estoy mal muchas gracias ..... Saludos

?¿?¿?¿Bueno pero para llamar con la funcion del Bitmap como se puede hacer esa es mi duda revisando encontre con el paso atras ...... y viendolo estaba observando darle la solucion por medio de php

Hola como les va muchachos miren estoy volviendo nuevamente a lo que es visual basic y se me ocurrio hacer un laberinto con un personaje x el cual estoy por ver la idea es de poder darle al personaje lo dificil viene a continuacion lo cual no me ubico la idea es de crearle el laberinto dandole un a matriz n * n la cual nosotros la damos, y de crear los obstaculos del laberinto darle un inicio y un final ....

Continuando........

Luego de realizar ese tratamiento lo que sigue es la carga a la base de datos, y la redimension de la imagen, lo que yo pude hacer, fue que en una sola pagina me cree un temporal mas la subida a la base de datos.

Subir imagen a la Base de Datos

Lo siguiente que se hace es crear la pagina que se encarga de la subida, como yo soy Linuxero pude hacer que se suba el servidor de la misma manera la imagen aver que les parece

Código (php) [Seleccionar] Expandir

<?php
  // Constantes
  # Altura de el thumbnail en píxeles
  define("ALTURA", 100);
  # Nombre del archivo temporal del thumbnail
  //define("NAMETHUMB", "/tmp/thumbtemp"); //Esto en servidores Linux, en Windows podría ser:
define("NAMETHUMB", "D:/windows/temp/thumbtemp"); // y te olvidas de los problemas de permisos   Bueno lo de D: es por que en mi portatil esta el sistema
  # Servidor de base de datos
  define("DBHOST", "localhost");
  # nombre de la base de datos
  define("DBNAME", "productos");
  # Usuario de base de datos
  define("DBUSER", "root");
  # Password de base de datos
  define("DBPASSWORD", "delirion");
  // Mime types permitidos
  $mimetypes = array("image/jpeg", "image/pjpeg", "image/gif", "image/png");
  // Variables de la foto
  $name = $_FILES['form_foto']['name'];
  $type = $_FILES['form_foto']['type'];
  $tmp_name = $_FILES['form_foto']['tmp_name'];
  $size = $_FILES['form_foto']['size'];
  // Verificamos si el archivo es una imagen válida
  if(!in_array($type, $mimetypes))
    die("El archivo que subiste no es una imagen válida");
  // Creando el thumbnail
  switch($type) {
    case $mimetypes[0]:
    case $mimetypes[1]:
      $img = imagecreatefromjpeg($tmp_name);
      break;
    case $mimetypes[2]:
      $img = imagecreatefromgif($tmp_name);
      break;
    case $mimetypes[3]:
      $img = imagecreatefrompng($tmp_name);
      break;
  }
  
  $datos = getimagesize($tmp_name);
  $ratio = ($datos[1]/ALTURA);
  $ancho = round($datos[0]/$ratio);
  $thumb = imagecreatetruecolor($ancho, ALTURA);
  imagecopyresized($thumb, $img, 0, 0, 0, 0, $ancho, ALTURA, $datos[0], $datos[1]);
  switch($type) {
    case $mimetypes[0]:
    case $mimetypes[1]:
      imagejpeg($thumb, NAMETHUMB);
  break;
    case $mimetypes[2]:
      imagegif($thumb, NAMETHUMB);
      break;
    case $mimetypes[3]:
      imagepng($thumb, NAMETHUMB);
      break;
  }
  // Extrae los contenidos de las fotos
  # contenido de la foto original
  $fp = fopen($tmp_name, "rb");
  $tfoto = fread($fp, filesize($tmp_name));
  $tfoto = addslashes($tfoto);
  fclose($fp);
  # contenido del thumbnail
  $fp = fopen(NAMETHUMB, "rb");
  $tthumb = fread($fp, filesize(NAMETHUMB));
  $tthumb = addslashes($tthumb);
  fclose($fp);
  // Borra archivos temporales si es que existen
  @unlink($tmp_name);
  @unlink(NAMETHUMB);
  // Guardamos todo en la base de datos
  ?>
NOTA Bueno con esto termina si necesitan algo o falta algo espero recibir sus criticas y me ayuden a mejorarlo o empeorarlo jajaaj gracias a todos saludos y porfavor sean compasivos es mi primer micro tutorial.... es mi primer bb lo puedo decir