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 - Mr.Know

#11
Hola,

Vereis, no se que le pasa a mi blog que da igual que Theme ponga, o como de basico lo deje, o lo restaure a su punto mas inicial, que me descuadra el blog. La barra lateral derecha aparece abajo de la pagina expandida, las entradas no quedan alineadas.... y eso me pasa con todos los Themes, incluso con el mio que hasta ahora me funcionaba genial....

Ya no se que mas probar, alguien sabe que puede pasar ?

Dejo mi pagina, y espero que no lo consideren spawn

Web

si lo necesitan avisen y les adjunto la plantilla

un saludo y gracias
#12
Wireless en Linux / Re: AircrackGui Beta Testers
18 Septiembre 2010, 00:39 AM
Hola

tengo un problema despues de instalar la version 0.6.5 en wifislax 3.1 ( la unico que e conseguido instalar ) me tira este error:

wifislax ~ # aircrackGui
warning: Cannot convert string "nil2" to type FontStruct
xtrem: unable to open font "-Misc-Fixed-Medium-R-Normal--20--200-75-75-C-100-IS020646-1", Trying "fixed"....

como lo puedo solucionar ?

un saludo
#13
Hola

Mi opinion es que:

- La causa ( gallina ) produce un efecto ( huevo ) que sera la causa de un efecto ( gallina )... y asi hasta la eternidad.

El problema es que tomando esta cadena y cortando por donde deseemos partiremos con la idea de que la gallina o el huevo sera la causa y la restante el efecto. Pero la ciencia entra aqui para no cortar la cadena por un lugar aleatorio, y formula la hipotesis de que la gallina es el comienzo de la cadena, debido a ciertas proteinas sintetizadas por la gallina y respaldado por la propia evolucion. Por el momento, eso es lo que se sabe y es la hipotesis mas sostenible hasta que alguien descubra como un huevo puede surgir de la nada.

Da igual que digan, pues antes de la gallina habia un ancestro que puso el huevo de gallina, porque volveriamos a la paradoja solo cambiando los terminos ( en vez de gallina, lo denominariamos ancestro ) pero seguiria siendo una gallina poco evolucionada.

Por lo tanto, y segun mi pinion, toda causa tiene su efecto, y viciversa, por lo tanto un huevo no puede surgir de la nada, pero una gallina por evolucion si
#14
Hola

Por el momento creo que con los servos tengo suficiente, realmente la inclinacion podria hacerla yo mismo, pero necesito que sea mas automatizada, porque tengo que ajustar la posicion e inclinacion de 2 antenas de la forma mas precisa posible y evitar fallos humanos.

Espero que empezar a mediados de esta semana en la contruccion de la base, a cualquier problemita ya me pasare por aqui

gracias y un saludo
#15

interesante.... la verdad que es una buena solucion, solo deberia calcular el pulso equivalente a 1º y listo....

Pero de aqui me surge otra duda, es posible controlarlo directamente desde el puerto paralelo o necesitaria un circuito conversor o algo por el estilo.

El software de interpretacion lo voy a desarrolar en VB, y me idea era colocar en el programa la inclinacion deseada y que el programa calculase los pulsos y los enviase atraves del puerto paraleto directamente sin necesidad de circuitos extra

un saludo
#16
Hola,

Vereis estoy desarrollando un proyecto con una antena wifi direccional y necesito poder colocarla sobre una base que conectada al puerto paralelo de mi pc me permita realizar un giro de maximo 180º y una inclinacion maxima de 90º.

Con esto me refiero que centrando la antena en la base en unas coordenadas X e Y ( x sobre el eje horizontal e Y sobre el eje vertical ) pudiera desde mi ordenador mandar esas coordenadas y que la antena realize un giro o se incline si es necesario.

Las coordenadas serian la inclinacion que deberia realizar, si por ejemplo le mando la coordenada ( -65,25 ) le estaria pidiendo que girara 65º grados sobre el eje X hacia la izquierda y se inclinara 25 grados hacia arriba.

Desconozco como podria realizar el sistema de giro, esta pensando en unos motores ( creo que son de paso a paso ) que realian giros de 90º pero basicamente yo necesitaria realizar giros mas precisos como por ejemplo 48º.

He decir que la base aun no esta diseñada hasta que tenga una pequeña idea de como realizare el giro de la antena para adaptarla al circuito, solo tengo la idea de que en la base colocare unas pesas y algun material antideslizante para evitar el movimiento involuntario de la base.

un saludo
#17


Perfecto ! gracias a todos el codigo ya tira genial  ;-)

BlackZeroX▓▓▒▒░░  Gracias por el codigo pero creo que no me va a servir, para el diseño general del programa puedo usar Label1....LabelX  pero luego tengo que asignar a cada label un Nomnre especifico y no creo que el metodo ese me sirva.

De todas formas como el codigo ya no me devuelve ningun error perfecto.

un saludo
#18
Hola

Perfecto creo que ya lo he entendido mejor  :P ahora haber que tal de esta manera:


Veis algun fallo importante en el codigo ?

Código (vb) [Seleccionar]

Public Final As String ' Esta variable la calcule en otra funcion, pero la necesito en varias funciones asique la declaro como publica
Sub leer_partido()
    Dim MasNumeros(1 To 19) As String ' Tengo que usar String porque 18 lineas son numeros y 1 es alfanumerica
    Dim i%
    Dim nFic%
    Dim inicial As Integer
    inicial = 1
    nFic = FreeFile
    Open Final For Input As nFic
    For i = 1 To 19
        Input #nFic, MasNumeros(i)
    Next
    Close nFic
    Contador1 = Val(Contador1) + Val(inicial) ' Necesito llevar la cuenta de cuantas veces se llama a esta funcion.
'Ahora voy volcando dato a dato del array en su correspondiente label
    Label1.Caption = MasNumeros(1) & vbCrLf
    Label2.Caption = MasNumeros(2) & vbCrLf
    Label3.Caption = MasNumeros(3) & vbCrLf
    Label4.Caption = MasNumeros(4) & vbCrLf
    Label5.Caption = MasNumeros(5) & vbCrLf
    Label6.Caption = MasNumeros(6) & vbCrLf
    Label7.Caption = MasNumeros(7) & vbCrLf
    Label8.Caption = MasNumeros(8) & vbCrLf
    Label9.Caption = MasNumeros(9) & vbCrLf
    Label10.Caption = MasNumeros(10) & vbCrLf
    Label11.Caption = MasNumeros(11) & vbCrLf
    Label12.Caption = MasNumeros(12) & vbCrLf
    Label13.Caption = MasNumeros(13) & vbCrLf
    Label14.Caption = MasNumeros(14) & vbCrLf
    Label15.Caption = MasNumeros(15) & vbCrLf
    Label16.Caption = MasNumeros(16) & vbCrLf
    Label17.Caption = MasNumeros(17) & vbCrLf
    Label18.Caption = MasNumeros(18) & vbCrLf
    resultados.AddItem = MasNumeros(19) & vbCrLf ' Esto es un listbox y le meto datos alfanumericos ( una frase con numeros )
End Sub
#19
Cita de: .:BlackCoder:. en 14 Junio 2010, 23:42 PM
no te falta algo como faa=freefile? Digo yo  :xD

Si, esque como quite trozos no relevantes pues yo creo que me lo he comido.

Cita de: .:BlackCoder:. en 14 Junio 2010, 23:42 PM

Me parece que esta mal... Yo haria algo como:

un array de 18 strings (o enteros) y luego con un Do/Loop o un for, recorrer el archivo y darle el valor de la linia a cada posicion del array... Las posiciones pes las controlas con una variable...

Saludos

El problema esque no se como hacer que recorra el archivo linea a linea y la vaya almacenando en un valor del array...

Mira he remplanteado el codigo y ya te lo pongo completo

Código (VB) [Seleccionar]

Sub buscar_partidos()
On Error GoTo Error_Sub
Dim archivo As String
Dim temp As String, Ret As Long
Dim Directorio As String
Dim Final_A(1 To 18) As String * 60
ChDir App.Path
ChDrive App.Path
Directorio = App.Path
If Len(Directorio) > 3 Then Directorio = Directorio & "\BD\"
archivo = Form1.equipo1 & "-" & Form1.equipo2 & ".txt"
Me.MousePointer = vbHourglass
temp = String(MAX_PATH, 0)
Ret = SearchTreeForFile(Directorio, archivo, temp)
If Ret <> 0 Then
  Final_A = Left$(temp, InStr(1, temp, Chr$(0)) - 1) '*********
Else
  MsgBox "Partido No encontrado", vbInformation
End If
Me.MousePointer = 0
Exit Sub
Error_Sub:
MsgBox Err.Description, vbCritical
Me.MousePointer = 0
End Sub



y esta es la linea que no se que hacer y lo pongo a lo burro xD

Código (VB) [Seleccionar]
Final_A = Left$(temp, InStr(1, temp, Chr$(0)) - 1)

Lo que necesito es poder volcar linea a linea en el Array Final_A, siendo cada linea un elemento del Array. Recuerdo que cada lina del documento solo contiene 1 numero.

un saludo y gracias
#20
Cita de: shellroot@alex-laptop:~$ en 14 Junio 2010, 23:22 PM
Código (vb) [Seleccionar]
Label1.Text = Label1.Text & Array_D(1)
No entiendo eso.

Pues hay lo que pretendo es, añadir al texto que tiene la Label 1 el primer elemeto del array que deberia ser la linea 1 del documento de texto.

un saludo