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 - Eleкtro

#7781
Cita de: Eagle_Alwa en 25 Octubre 2013, 07:06 AMnecesito hacer un convertidor de tallas de calzado.

Yo ahí no veo ningún "Convertidor", asignas valores predefinidos, la aplicación no usa lógica alguna para convertir las unidades, si lo que quieres es predefinir tallas de la forma en la que lo estás haciendo, hazlo en un lugar separado, no me lo hagas diréctamente al seleccionar un item del combobox... muy dinámico eso no es, lo mejor es crear tu propio Type y así ya lo tienes todo resuelto:




Código (vbnet) [Seleccionar]
   Public Class Tallas

       Private _Name As String
       Private _Europa As Double
       Private _USA As Double
       Private _Mexico As Double

       Public Property Name() As String
           Get
               Return _Name
           End Get
           Set(ByVal value As String)
               _Name = value
           End Set
       End Property

       Public Property Europa() As Double
           Get
               Return _Europa
           End Get
           Set(ByVal value As Double)
               _Europa = value
           End Set
       End Property

       Public Property USA() As Double
           Get
               Return _USA
           End Get
           Set(ByVal value As Double)
               _USA = value
           End Set
       End Property

       Public Property Mexico() As Double
           Get
               Return _Mexico
           End Get
           Set(ByVal value As Double)
               _Mexico = value
           End Set
       End Property

   End Class


Código (vbnet) [Seleccionar]

       ' Agrego algunos zapatos con tallas predefinidas
       Dim Tallas As New List(Of Tallas) From { _
           New Tallas With {.Name = "Nombre de zapato 1", .Europa = 39, .USA = 7, .Mexico = 5.5}, _
           New Tallas With {.Name = "Nombre de zapato 2", .Europa = 40, .USA = 7.5, .Mexico = 6} _
       }

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       ' Busco un zapato, por su nombre.
       ' Puedes hacer lo mismo comparando el nombre con la propiedad "Combobox.Text"
       Dim Zapato As Tallas = Tallas.Find(Function(x) x.Name = "Nombre de zapato 1")

       ' Muestro los datos que quiero de este zapato encontrado...
       MsgBox(String.Format("Nombre: {1}{0}Talla Europa: {2}{0}Talla USA: {3}{0}Talla Mexico: {4}", _
                            Environment.NewLine, _
                            Zapato.Name, Zapato.Europa, Zapato.USA, Zapato.Mexico))

   End Sub


No soy programador de C#, aqui tienes el código convertido pero no se si funcionará:

Código (csharp) [Seleccionar]

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Tallas
{

private string _Name;
private double _Europa;
private double _USA;

private double _Mexico;
public string Name {
get { return _Name; }
set { _Name = value; }
}

public double Europa {
get { return _Europa; }
set { _Europa = value; }
}

public double USA {
get { return _USA; }
set { _USA = value; }
}

public double Mexico {
get { return _Mexico; }
set { _Mexico = value; }
}

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================


Código (csharp) [Seleccionar]


private void Form1_Load(object sender, EventArgs e)
{
// Agrego algunos zapatos con tallas predefinidas
List<Tallas> Tallas = new List<Tallas> {
new Tallas {
Name = "Nombre de zapato 1",
Europa = 39,
USA = 7,
Mexico = 5.5
},
new Tallas {
Name = "Nombre de zapato 2",
Europa = 40,
USA = 7.5,
Mexico = 6
}
};

// Busco un zapato, por su nombre.
// Puedes hacer lo mismo comparando el nombre con la propiedad "Combobox.Text"
Tallas Zapato = Tallas.Find(x => x.Name == "Nombre de zapato 1");

// Muestro los datos que quiero de este zapato encontrado...
Interaction.MsgBox(string.Format("Nombre: {1}{0}Talla Europa: {2}{0}Talla USA: {3}{0}Talla Mexico: {4}", Environment.NewLine, Zapato.Name, Zapato.Europa, Zapato.USA, Zapato.Mexico));

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================






Cita de: El Benjo en 25 Octubre 2013, 08:10 AMOtra cosa, espero que al ejecutar la aplicación estés quitando los comentarios, porque si no es así no sé cómo esperas que la propiedad Text cambie. ¬¬

Yo también lo pensé xDDD
#7782
Si, y te lo he pedido con respeto, como comprenderás responderme 3 veces para criticar no es responder, es un poco Troll, no me interesa involucrarme en discusiones o en si el mundo es así o es asá, solo necesito ayuda para encontrar los tests, eso es lo único que me importa de esta y futuras conversaciones en este hilo.

Un saludo.
#7783
@ @synthesize

Lo sigues pintando todo muy bonito...parece que vivas en otro mundo (no lo digo como ofensa)

Aqui hay personas de 50 años y más, si, pero desde pequeños han estado familiarizados con la tecnologia, creo que olvidas ese dato tan importante, parece mentira, ¿es que no conoces a ninguna persona mayor que no tiene ni idea de ordenadores y por mas que le expliques no lo entiende?, que te lo diga cualquier familia numerosa...

CitarY si no hay dinero para pagar multas... haberlo pensado antes de cometer infracciones

Eso es complétamente irrelevante, no tiene nada que ver que te quiten una cosa, con tener que aprender otra (INFORMÁTICA) la cual NO TIENE NADA QUE VER para volver a examinarte del carnet de CONDUCIR.

Cita de: @synthesize en 24 Octubre 2013, 18:38 PMSobre tener ordenador, hay muchos sitios donde acceder a un ordenador (Bibliotecas públicas, cybercafés, vecinos, amigos (amigos los cuales seguro que se ofrecen a explicarte como funciona todo)) etc.

Esta persona consume su tiempo trabajando casi todo el dia, tiene amigos/as de su edad (no son informáticos tampoco ni tienen idea mucha de PC's, como suele ser habitual en la vida real con las personas de 50-60 años), y esta persona no tiene tiempo para mucho, pero aunque lo tuviera, no podría aprender bien, pues ha ido a cibercafés pero los empleados son más patanes manejando un ordenador que una persona de 90 años, así que no le han servido de ayuda para hacer nada.

Y bueno, porfavor, cada uno que piense lo que quiera, te pido que dejes la conversación aqui.

Saludos!
#7784
¿Alguna ayuda más, porfavor?.

Solo busco una página web de Tests de conducir donde salgan todas las preguntas en una página (no 1 pregunta por página) y que no haya que darle a ningún botón tipo "Corregir" para mostrar las respuestas.
#7785
Con este código podemos heredar un TextBox y averiguar la opción que ha elegido el usuario en el CMT por defecto de Windows.

El código original no es mio, pero lo he adaptado apra que funcione corréctamente la opción "Cut", y le he añadido la constande de "Delete".

Modo de empleo:

Código (vbnet) [Seleccionar]
    Private Sub TextBox1_OnTextCommand(sender As Object, e As MyTextBox.ContextCommandEventArgs) _
    Handles MyTextBox1.OnCut, MyTextBox1.OnPaste, MyTextBox1.OnCopy, MyTextBox1.OnDelete

        MessageBox.Show("Activated " & e.Command.ToString())

    End Sub


Código (vbnet) [Seleccionar]
Class MyTextBox : Inherits TextBox

    Private Last_Command As ContextCommands = Nothing

    Private WithEvents CopyOrCut_Timer As New Timer _
            With {.Interval = 5, .Enabled = False}

    Public Enum ContextCommands
        WM_CUT = &H300
        WM_COPY = &H301
        WM_PASTE = &H302
        WM_DELETE = &H303
    End Enum

    Public Class ContextCommandEventArgs
        Inherits EventArgs
        Public Property Command As ContextCommands
    End Class

    Event OnCut(sender As Object, e As ContextCommandEventArgs)
    Event OnCopy(sender As Object, e As ContextCommandEventArgs)
    Event OnPaste(sender As Object, e As ContextCommandEventArgs)
    Event OnDelete(sender As Object, e As ContextCommandEventArgs)

    Protected Overrides Sub WndProc(ByRef m As Message)

        MyBase.WndProc(m)

        Select Case m.Msg

            Case ContextCommands.WM_COPY
                Last_Command = ContextCommands.WM_COPY
                CopyOrCut_Timer.Enabled = True

            Case ContextCommands.WM_CUT
                Last_Command = ContextCommands.WM_CUT

            Case ContextCommands.WM_PASTE
                RaiseEvent OnPaste(Me, New ContextCommandEventArgs() _
                                       With {.Command = ContextCommands.WM_PASTE})

            Case ContextCommands.WM_DELETE
                RaiseEvent OnDelete(Me, New ContextCommandEventArgs() _
                                        With {.Command = ContextCommands.WM_DELETE})

        End Select

    End Sub

    Private Sub Cut_Timer_Tick(sender As Object, e As EventArgs) _
    Handles CopyOrCut_Timer.Tick

        sender.enabled = False

        Select Case Last_Command

            Case ContextCommands.WM_COPY
                RaiseEvent OnCopy(Me, New ContextCommandEventArgs() _
                                      With {.Command = ContextCommands.WM_COPY})

            Case ContextCommands.WM_CUT
                RaiseEvent OnCut(Me, New ContextCommandEventArgs() _
                                     With {.Command = ContextCommands.WM_CUT})

        End Select

        Last_Command = Nothing

    End Sub

End Class
#7786
@luis456

Cita de: luis456 en 24 Octubre 2013, 06:17 AMLo he probado pero no me funciona :) sera porque yo no escribo directamente sobre el texbox ? ya que este recibe de una variable el resultado a mostrar en el texbox

Si no estás escribiendo diréctamente sobre el Textbox, entonces porque te suscribes el evento TextChanged del textbox y porque intentas hacer las operacions de rango dentro de ese bloque?.

Citar
  Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox48.TextChanged
       If Val(TextBox7.Text) >= 99 Then
           TextBox7.Text = ""
       End If
   End Sub

Es tan sencillo como que compruebes el rango del valor de la variable Result1 y según el rango que sea, asignas un valor u otro al Textbox7, no compares la propiedad Text del textbox, que se supone que va a estar vacia... si no he entendido mal.

PD: Sobre el uso de Val ya ni lo vuelvo a comentar.

Saludos
#7787
Cita de: Pédrin-2 en 23 Octubre 2013, 23:54 PM
En cuanto al consumo lo ignoro, al igual que ignoro si en vista de detalles no lo tienes acitvado sigue funcionando en segundo plano.

No, cuando desactivas una opción de la columna no se procesa, uf, de lo contrario estariamos apañaos! xD, si se procesasen todos los atributos cargar uan carpeta costaría siglos.

Yo por eso siempre uso el perfil de vista de "Archivos" para todas las carpetas del PC, que no tiene más columnas de la que necesito (nombre, fecha, tamaño, tipo).

Si quieres puedes hacer la prueba tu mismo, con una carpeta donde tengas una buena cantidad de archivos de musica/videos, ponte a activar opciones que tengan que leer los metadatos de cada archivo (titulo, autor, año, codec, duración, dimensiones, etc...) y verás como la carpeta tarda muchísimo en leerse complétamente porque necesita rellenar la información de las nuevas columnas, pues a eso es a lo que me refiero...que no vale la pena consumir asi a menos que realmente sea necesario.

Saludos
#7788
Solo tienes una cosa mal, el operador & se va a procesar siempre aunque el copy falle... así que por ende el || nunca se va a procesar.

Código (dos) [Seleccionar]
copy /Y "%%@" "I:\Carpeta\" 1>nul 2>&1 && (
Echo El archivo: "%%@" fue copiado correctamente.
) || (
Echo Hubo un fallo al copiar el archivo "%%@".
)


Citar   commandA &  commandB      Run commandA and then run commandB
  commandA && commandB      Run commandA, if it succeeds then run commandB
  commandA || commandB      Run commandA, if it fails then run commandB

Saludos.
#7789
Scripting / Re: Ayuda botones Tkinter
23 Octubre 2013, 18:23 PM
@AlbertSerres

1. No hagas doble topic, usa el botón modificar en tu otro post para añadir la información que quieras.

2. Usa las etiquetas para insertar código

3. Cierro el tema, Gracias por leer.
#7790
Tienes que declarar las variables fuera de cualquier procedimiento.

Te recomiendo una lectura...:
-> Declaración de variable
-> Período de duración
-> Instrucción Dim

Saludos