Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Hans el Topo

#601
'el timer tiene k tener interval =1000 y enabled=true
'variables globales
dim veces as int   'veces k se dispara el timer
const segundoshora=3600

Private Sub Timer1_Timer()
  if  veces=segundoshora then
      Shell "c:\tuarchivo.ext"
       veces=0
  else
     veces=veces+1
   endif
End Sub
#602
de lo malo podrias usar los sims 2 ...xD
#603
PHP / Re: php & mysql..>>
7 Septiembre 2006, 18:18 PM
sera disminuir en uno el nº de plazas libres no?

te hago un esquema pero tendras que buscarte la vida

//la función le envias la id del curso lo que hace es comprobar si existen plazas libres con lo cual disminuye en una (devolviendo TRUE) o FALSE si no quedan plazas para ese curso
function reserva_plaza($id){
   //nos conectamos a la bd

   //pedimos las plazas libres del curso, la sentencia quedaría así...
   "select plibres from tablita_cursos where id=$id limit 1"
   //tras recoger el dato
//aqui iria si quedan plazas
if($plibres>0){
  //insertamos al nuevo que quiere cursar el curso en una tabla de usuarios o lo que quieras...

   //actualizamos el número de vacantes libres la sentencia  será de éste tipo...

"update tablita_cursos set plibres=plibres-1 where id=$id limit 1"
  //aqui devolveriamos la respuesta... return lo k la sentencia nos devuelva

  }else{
     
      return FALSE
}


//se puede quitar el if y poner en la sentencia otra condición...
"update tablita_cursos set plibres=plibres-1 where id=$id and plibres>0 limit 1"

}



tendrás que buscarte la vida con la info de las funciones a usar...

www.php.net   <-- aki tienes su info

aki te pongo las funciones...
mysql_connect
mysql_select_db
mysql_query
mysql_fetch_array


aki tienes un ejemplo de como usarlas...
EJEMPLO
#604
Diseño Gráfico / recursos para hacer tablas
7 Septiembre 2006, 03:50 AM
wuolas... me gustaría preguntaros si conoceis la existencia de algun lugar en el que encontrar recursos para adornar tablas...

para poner de bordes,marcos  en las tablas de diseños web

nose si me he explicado bien...
#605
Programación Visual Basic / Re: Firma digital en VB
7 Septiembre 2006, 00:42 AM
Cita de: Division-x en  7 Septiembre 2006, 00:29 AM
Cita de: Hans el Topo en  7 Septiembre 2006, 00:20 AM
estas cosas no irian mejor en el foro de hacking?

no deja de ser programacion en VB  :-\ :-\ :-\ :-\ :-\

S4lu2 [0R[)14l3s!!!!!

ya pero una cosa es firmar tus programas... y otra cosa es firmar tus programas con marcas que tienen un copyrigth... me da que iria mejor en hacking...
#606
Programación Visual Basic / Re: Firma digital en VB
7 Septiembre 2006, 00:20 AM
estas cosas no irian mejor en el foro de hacking?
#607
el error parece ser en que es una matriz y una array de una sola linea...xD

ya me funciona bien, muchas gracias por la ayuda
#608
que más detalles te hacen falta , que te los pongo...xD
#609
bueno... os pongo el código... como tengo las globales off... tengo que recibir los datos... pero nose en donde me equivoco puesto que los recibo con file...¿qúe hago mal?



$enviar=$_POST['enviar'];
if(isset($enviar)){
$archivo=$_FILES['archivo'];
$archivo_name=$_FILES['archivo_name'];
$archivo_size=$_FILES['archivo_size'];

        echo"<center>";

$extension = explode(".",$archivo_name);
$num = count($extension)-1;
if($extension[$num] == "rar"){
if($archivo_size < 200000){
if(!copy($archivo, "archivos/putoarchivo.rar")){
echo "error al copiar el archivo";
}else{
echo "archivo subido con exito";
}
}else{
echo "el archivo supera los 200 Kb";
}
}else{
echo "el formato de archivo no es valido, solo .rar";
}
echo"</center>";
}
?>
<br><br><br><br><table border=2 align=center bgcolor=#FFFFCC><tr><th>Subir archivo<FORM METHOD="POST" ACTION="subir.php" ENCTYPE="multipart/form-data">
<tr><th><br><INPUT TYPE="file" NAME="archivo"><br><br>
<tr><th><br><INPUT TYPE="submit" NAME="enviar" VALUE="Enviar"><br><br>
</FORM> </table>
#610
if text1.text=cint(text1.text) then
' dale caña
else
msgbox "No hay número..."



esto es algo muy básico y se puede hacer de muchas maneras.... te aconsejo te mires un pequeño manual...

lo lógico sería comprobar el change del text pero weno