Mensajes

Quienes se animan a ayudarme a traducir el manual de wxWidgets. Revise la lista de correos de wx y no vi mensajes de traduccion del español, tengo traducidas algunas paginas y el manual de bakefile. Mientras seamos más mejor, algunos de las listas de traduccion del frances quieren usar el software Rosetta pero es pago, podemos utilizar DocBook que es open source.

Para los que no sepan que es wxWidgets vean aqui
http://es.wikipedia.org/wiki/WxWidgets

Yo habia leido de esto hace tiempo, creo que si se puede pero depende del equipo que se tenga para captar las señales y un buen filtrado de las señales parasitas. En esta pagina se esta desarrollando un proyecto Open Source sobre este tema y tambien explica como construir el hardware para conectarlo al puerto paralelo http://eckbox.sourceforge.net/. No se necesitan tantos materiales:
"Some wire, a (cheap) AM/FM radio, a spare speaker, a male audio connector, and a 25 pin M/F parallel port extender cable".

A ver quien se anima a probarlo.

Si tienes WinXP verifica si tienes habilitado el reinicio automatico (Inicio->Panel de control->Sistema pestaña Opciones avanzadas y en inicio y recuperacion presiona configuracion desmarca reinicio automatico), si lo tienes deshabilitado, verifica que aplicaciones tienes en el arraque para ver si tienes un virus. La otra opción es soldar los pines del procesador   .

http://juank.black-byte.com/xna-colisiones-2d/  esta la formula para calcular la distancia entre dos circulos, adapta el codigo a pascal. Estructura tu programa con funciones y colocalos asi:

Código [Seleccionar] Expandir


// Esto es un pseudocodigo para que veas como se puede estructurar tu programa
// Inicia el sistema de video e inicializa variables a usar
IniciarSistema()

// Bucle infinito hasta que se presione la tecla Escape (o cualquier otra)
while(Tecla <> Esc)

   // Verificar tecla (en caso de que quieras mover los circulos o salir del programa)  
   VerificarTeclas()
   // Detectar las colisiones entre los circulos o contra la pantalla (en la pag. de arriba tienes las formulas)
   DetectarColision()
   // Dibuja la nueva posicion de los circulos de acuerdo a los calculos realizados
   DibujarCirculo()

FinWhile()



Ese es la estructura basica para detectar colisiones.

  Primero lo de routers transparentes no existe, lo que si existe son los proxys transparente. Debes formular mejor tu pregunta que no se entiende. Cuando los paquetes salen del router tienen como ip de origen la ip publica que te asigno el ISP. Te recomiendo que leas los cuadernos HackxCrack en donde hablan sobre proxys o busques en google antes de preguntar.

Busca informacion en San google sobre proxys o en los cuadernos HackxCrack que hablan sobre como encadenar proxis para ocultar la ip, descargatelos y leetelos. Tambien puedes usar Tor para anonimizar las conexiones.

[Programa principal:]

Ya lo entendí, en el programa principal donde muestra el resultado de la operación (Suma) llama a la subrutina o subprograma y le da los valores (A,B) que son los valores que ingresó el usuario a las variables del subprograma en este caso X e Y y efectúa la operación que contiene éste, la de sumar, y por eso pone el comando devolver

Ahora chicos, quise pasar esto a Visual basic y no me funciona me quedó así:

Programa principal:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
A = InputBox("Ingrese un valor para a:")
B = InputBox("Ingrese un valor para b:")
MsgBox "El resultado de la operación es:" & Suma(A, B)
End Sub

Subrutina o subprograma:

Código (vb) [Seleccionar] Expandir

Private Sub Suma(X As Integer, Y As Integer, Sumar As Integer)
Sumar = A + B
End Sub

No sé como tengo que hacer para igualar al comando devolver del pseudocódigo, trate de poner A+B sólo pero me saca el signo "+" y me deja A B, entonces le puse Sumar = A+B pero igual no funciona


Y después cuando trato de ejecutarlo me aparece esto y cuando le doy aceptar me marca en amarillo la línea


Private Sub Form_Load()



Gracias y espero que me puedan ayudar

PD: No sería mejor moverlo a VB ahora?

* Primero tienes que declarar las variables que vas a utilizar:

Código [Seleccionar] Expandir


Dim A as Integer
Dim B as Integer


* Luego sustituir el nombre de las variables A y B por X e Y, no es necesario colocar el argumento Sumar, la funcion modificada t queda asi:

Código [Seleccionar] Expandir


Private Function Suma(X As Integer, Y As Integer) As Integer
Sumar = X + Y
End Function


* Lo demas esta bien, hay se deberia de ejecutar