Mensajes

Mmm... bueno entonces por eliminatoria?

Algunas partidas se han postergado pero estas deben jugarse esta misma semana, el proximo sabado será la segunda ronda.

Carloswaldo

Tú eres el organizador no nos preguntes a nosotros  ya varios votaron, la pregunta te la hacemos ¿eliminatoria? ¡Decide!

Si se deja como eliminatoria yo ya estoy eliminado y entonces las semifinales serian el sábado que viene (17-05-08) y la final el sábado de arriba (24-05-08) así se acabaría el torneo este mismo mes y podríamos comenzar otro el mes que viene o el de arriba, quizás con mas gente..

Probé con SendKeys "(Text1.text)" y nada. ¿Cómo hago?

NO lo coloques entre comillas dobles.

Código (vb) [Seleccionar] Expandir

SendKeys Text1.Text

y... si no tiene foco ¡dáselo!

Código (vb) [Seleccionar] Expandir

Shell ("cmd.exe"), vbNormalFocus

Para que sepas, haciendo una fusión de api's "FindWindow + ShowWindow" se puede obtener una buena rutina que le de el foco cuando lo desees...

Puede que eso paresca, pero el problema es que la primera ves funciona, pero al momento de volver a hacelrlo el texto se sustitulle, no se crea debajo del existente.

Hubieras empezado por hay, por como lo formulas supongo que ya tienes el code completo pero que solo se te presenta ese inconveniente, acláramelo si me equivoco.

Lo que sucede es lo siguiente, para abrir el archivo de seguro estas usando el modo Output, lee esto:

Existen 5 modos de acceder a los ficheros
•   Output, para ficheros de salida, es decir para guardar los datos.
         Si el fichero existe, lo borrará (sobrescribirá) y si no existe, lo creará.
•   Input, para leer los datos de un fichero ya existente.
•   Append, como el Output, pero añadiendo la información al final del fichero, si este ya existe (sin tocar el contenido de los mismos).
•   Random, para acceso aleatorio.
•   Binary, para acceso binario.

En ese caso solo cambia el modo a "Append" (cuando intentas abrir el fichero) y debería funcionar como quieres.

Si seguimos así terminaremos la primera ronda a finales de agosto  , recuerden que es una liguilla, por lo tanto después de la primera partida aun hay que jugar unas 6 mas por persona y como vamos, nos llevara todo el año, si aun se puede tomar en consideración, yo propongo que se cambie el formato a eliminatoria directa como dijo N@5h en una ocasión si no me equivoco, esto para ganar tiempo, hay gente afuera que también desea jugar y esta esperando a que terminemos este primer torneo, yo se que con un nuevo formato, yo quedaría eliminado directamente por perder el primer encuentro, pero eso no importa, igual solo se ha jugado una partida y fue donde yo estuve participando, piénsenlo, no me gustaría esperar todo un mes para jugar el siguiente encuentro, además, es necesario resaltar que ni se ha establecido la fecha de la segunda vuelta  yo creo que de aquí al 20010... naah

Con el permiso de HaDeS, - que fue el primero en postear esto acá. 

A ver... te han posteado el mismo code una y otra vez, le puse comentarios y lo modifique para que lo logres entender.

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim sNombreAplicacion As String, sSeccion As String, sClave As String
Dim sConfiguracion As String

Private Sub Command2_Click()
    'Deshabilitamos el botón 1
    Command1.Enabled = False
   
    'Grabamos en el registro nuestra configuracion
    sConfiguracion = "1"
    SaveSetting sNombreAplicacion, sSeccion, sClave, sConfiguracion
End Sub

Private Sub Form_Load()
'Los parametros tanto para GetSetting como para SaveSetting son:

'AppName: Debemos indicar el nombre de la aplicacion, en el ejemplo pasamos App.Exename

'Section: Dato de tipo String para la sección a crear o leer

'Key: Nombre de la clave a crear o leer

'Setting: En SaveSetting es el Valor a guardar. En el caso de GetSetting este
' parametro no existe, y tiene uno llamado Default que es de tipo opcional para 
' asignar en caso de que no haya datos.
   
    'En ese sentido
    sNombreAplicacion = App.EXEName
    sSeccion = "Boton"
    sClave = "Habilitado"
       
    'Al iniciar comprobamos en el registro y asignamos la ultima configuracion
    If GetSetting(sNombreAplicacion, sSeccion, sClave) = "1" Then
            Command1.Enabled = False
    End If
End Sub

Eso hace lo que quieres... pero no te conformes con eso, preguntate ¿Cómo funciona? y si lo que ves no te da la respuesta, trata de buscarla por tu propia cuenta y si no puedes, vuelves a postear acá. 

Quedaría así...

Código (vb) [Seleccionar] Expandir


destino = Dir1.Path & IIf(Right(Dir1.Path, 1) <> "\", "\boot.elf", "boot.elf")


Debes estudiar detenidamente lo que es la concatenación, la utilizaras muy a menudo...

El dir1.path te devuelve una cadena y para UNIRLA-CONCATENARLA con otra cadena, utilizas el "&" o "+", de esta manera el path de destino queda exactamente como debería.

Fíjate que en este ejemplo se usa un bloque condicional para verificar si al final de la cadena devuelta por el dir1 hay o no un "\"  y dependiendo de eso lo asigna o no, aunque la verdad es que te lo copiará con doble "\" o no...

Lo demás te tocara investigarlo, por ejemplo ¿que hace el Right? ¿Que se le pasa como parámetro? ¡Investígalo!

Visita esta Web, Aquí, es bastante buena.

edit:

destino = Dir1.Path & "EL_NOMBRE_QUE_QUIERAS"

No se les olvide que hay que asignar el "\" --> "\EL_NOMBRE_QUE_QUIERAS", ya que la cadena que devuelve el dir1 no la tiene, solo que sea un directorio raíz...

¡Saludos!

Simple, CONCATENACIÓN...

¿que es esto?

1- destino = Dir1.Path & "boot.elf".Name

2- destino = Dir1.Path & boot.elf.Name

Es deducible, si pierde el foco ¡dáselo! 

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub CmdCopiar_Click()
    Text1.SetFocus
    SendKeys "^(C)"
End Sub

Private Sub CmdPegar_Click()
    Text1.SetFocus
    SendKeys "^(V)"
End Sub


A mi me funcioooooonaaaaaaaa, tengo partes del cerebro inflamado (dolor de cabeza)  ¡saludos!

Se pueden seleccionar varios ckeck sin problema, lo que sucede es que, NO estas CONCATENANDO...

Ese es el error mas común que se comete cuendo se empieza...

Como lo tienes, siempre te mostrará en el text el valor asignado al ultimo check seleccionado...

Esta sería la forma correcta ¡concatendo! si no sabes que es concatenar --> google

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Text5.Text = ""
   
    If tenis.Value = 1 Then
        Text5.Text = "Tenis"
    End If
   
    If bailar.Value = 1 Then
        Text5.Text = Text5 & " Bailar"
    End If
   
    If cantar.Value = 1 Then
        Text5.Text = Text5 & " canta"
    End If
   
    If corre.Value = 1 Then
        Text5.Text = Text5 & " Corre"
    End If
End Sub

Control + C es para copiar al portapapeles... en ese sentido:

Selecciona el texto a copiar (por ejemplo) y luego presionas el botón donde le colocaste el sendkeys y ¡listo! se copio... no tiene más misterios... acá me funciona o ¿no es eso lo que querías hacer?