elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13
91  Programación / .NET (C#, VB.NET, ASP) / Como podría combinar el contenido de dos lixtbox en un tercero en: 26 Diciembre 2013, 02:44 am
Hola ando buscando una forma corta de combinar (no sumar ni adicionar) todo el contenido de dos lisbox en un otro sin que haya duplicados en grupos de cuatro resultados esto es si hay por ejemplo entre los dos lisbox 12 numeros que se muestren grupos de cuatro esto seria 3 resultados de cuatro números cada uno


Gracias :)

Felices fiestas a todos

Luis
92  Programación / .NET (C#, VB.NET, ASP) / Tutoriales ejemplos para trabajar con arrays ? en: 20 Diciembre 2013, 06:15 am
Alguien podria facilitar o decirme donde puedo conseguir buenos tutoriales con ejemplos basicos (para neofitos jeje) explicados para trabajar con arrays ?

Gracias

Luis
93  Programación / .NET (C#, VB.NET, ASP) / Hola de nuevo :) como puedo mostrar horizontalmente números en un Lixtbox ? en: 18 Diciembre 2013, 16:54 pm
Hola ya cuando pregunto es que me come el coco :)

Tengo un lixbox y me muestra los resultados en vertical y por probar quiero saber si se puede en horizontal

ahora me los muestra a si

25
45
68
75
78
79
80
88
 99

y quiero saber si se puede mostrar de esta forma ?

25 45 68 75 78 79 80 88 99

la funcion que uso es esta

Código:
 Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any

                Case False ' El número no está repetido en ninguna "linea"
                    ' Así que colocamos el número en el Textbox
                    Try
                        ListBox1.Items.Add(CStr(Results(X)))


                        ' TextBoxes(TextBoxCount).Text = CStr(Results(X))
                    Catch ex As Exception
                        Throw New Exception(ex.Message & ex.StackTrace)
                    End Try

                    ' Case True ' El número está repetido en alguna de las "lineas"
                    ' Así que escribimos el número "máximo" en el textbox
                    ' TextBoxes(TextBoxCount).Text = -CStr(maximum)

            End Select
            ' TextBoxCount += 1

        Next X


Saludos

Luis
94  Programación / .NET (C#, VB.NET, ASP) / :) Hola de nuevo por acá,ahora nuevo invento pasar datos a un ListBox1 en: 9 Diciembre 2013, 19:58 pm
Trasteando un poco por la red y super aburrido con los texboxes he probado a ver si en ves de estar mostrando los resultados en los texboxes los muestro en un listbox ?

quiero mostrar el resultado de   Result1 ,Result2, Result3 lo unico que logro es cuando introdusco en los primeros texboxes

Código:
 Private Sub TextBox_Leave(ByVal sender As System.Object, ByVal e As  _
System.EventArgs) Handles TextBox7.Leave, TextBox8.Leave, TextBox9.Leave
        ListBox1.Items.Add(sender.text)
    End Sub


Luis
95  Programación / .NET (C#, VB.NET, ASP) / Vuelvo al ataque con los texboxes :) evitar repe en: 3 Diciembre 2013, 16:53 pm
Bien gracias a Elketro jejej que me da una buena mano a pesar que estoy injertado con visual y net. bueno a lo mejor y nace un lenguaje de programacion nuevo jejeje.

Bien como veran en el codigo en que los resultados van entrando en los texboxes segun se hagan los calculos y estan numerados consecutivamente y estos texbosex los muestro en el formu en lineas de 4 en cuatro.


Texboses mostrados de esta forma
1   2  3  4
5   6  7  8
9 10 11 12

Bien mi problema es que no quiero que se repitan números en las lineas ??? y como estos se van llenando segun el calculo o suma he probado a intercalar los texboxes pero menuda chapuza jejeje.

Bueno el codigo

Código
  1. Public Class Form1
  2.     Dim MIN As Integer = 0
  3.     Dim MAX As Integer = 99
  4.  
  5.     Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         Me.ControlBox = False ' Elimino todos los controles del formulario
  7.     End Sub
  8.  
  9.  
  10.  
  11.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
  12.     Dim Sep As Object
  13.     Dim texbox7 As Object
  14.     Dim o As Object
  15.     Private _val As Object
  16.     Private _val1 As Integer
  17.     Dim TextBox As TextBox()
  18.  
  19.     ReadOnly Property Num1 As Int32
  20.         Get
  21.             Return CInt(TextBox1.Text)
  22.         End Get
  23.     End Property
  24.  
  25.     ReadOnly Property Num2 As Int32
  26.         Get
  27.             Return CInt(TextBox2.Text)
  28.         End Get
  29.     End Property
  30.     ReadOnly Property Num3 As Int32
  31.         Get
  32.             Return CInt(TextBox3.Text)
  33.         End Get
  34.     End Property
  35.  
  36.  
  37. Private Property KeyAscii As Integer
  38.  
  39.     Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
  40.         Get
  41.             Return _val
  42.         End Get
  43.         Set(ByVal value As Object)
  44.             _val = value
  45.         End Set
  46.     End Property
  47.  
  48.     Private Property Val(ByVal p1 As Object) As Integer
  49.         Get
  50.             Return _val1
  51.         End Get
  52.         Set(ByVal value As Integer)
  53.             _val1 = value
  54.         End Set
  55.     End Property
  56.  
  57.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
  58.     Handles Calcular.Click
  59.  
  60.         Dim TextBoxCount As Short = -1
  61.  
  62.         TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}
  63.  
  64.         Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
  65.                   .Distinct().ToArray ' Elimino duplicados
  66.  
  67.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  68.                   .Distinct().ToArray ' Elimino duplicados
  69.  
  70.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  71.                   .Distinct().ToArray ' Elimino duplicados
  72.  
  73. Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items
  74.  
  75.         ' funcion
  76.         For Each Number As Int32 In Result1
  77.             TextBoxCount += 1
  78.             TextBox(TextBoxCount).Text = Number
  79.         Next
  80.  
  81.         For Each Number As Int32 In Result2
  82.             TextBoxCount += 1
  83.             TextBox(TextBoxCount).Text = Number
  84.         Next
  85.  
  86.         For Each Number As Int32 In Result3
  87.             TextBoxCount += 1
  88.             TextBox(TextBoxCount).Text = Number
  89.         Next
  90.  
  91.  
  92. End Class


Luis
96  Programación / .NET (C#, VB.NET, ASP) / Caducar programa con tiempo ? en: 30 Noviembre 2013, 12:31 pm
Hola bien mi idea no es hacer un trial ni demo solo nesecito una rutina simple que me detenga el programa sin mesagebox ni nada solo que no funcione ni haga nada al ejecutarlo,


Código
  1. Public Class Form1
  2.     Dim MIN As Integer = 0
  3.     Dim MAX As Integer = 99
  4.  
  5.     Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         Me.ControlBox = False ' Elimino todos los controles del formulario
  7.     End Sub
  8.  
  9.  
  10.  
  11.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
  12.     Dim Sep As Object
  13.     Dim texbox7 As Object
  14.     Dim o As Object
  15.     Private _val As Object
  16.     Private _val1 As Integer
  17.     Dim TextBox As TextBox()
  18.  
  19.     ReadOnly Property Num1 As Int32
  20.         Get
  21.             Return CInt(TextBox1.Text)
  22.         End Get
  23.     End Property
  24.  
  25.     ReadOnly Property Num2 As Int32
  26.         Get
  27.             Return CInt(TextBox2.Text)
  28.         End Get
  29.     End Property
  30.     ReadOnly Property Num3 As Int32
  31.         Get
  32.             Return CInt(TextBox3.Text)
  33.         End Get
  34.     End Property
  35.  
  36.  
  37. Private Property KeyAscii As Integer
  38.  
  39.     Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
  40.         Get
  41.             Return _val
  42.         End Get
  43.         Set(ByVal value As Object)
  44.             _val = value
  45.         End Set
  46.     End Property
  47.  
  48.     Private Property Val(ByVal p1 As Object) As Integer
  49.         Get
  50.             Return _val1
  51.         End Get
  52.         Set(ByVal value As Integer)
  53.             _val1 = value
  54.         End Set
  55.     End Property
  56.  
  57.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
  58.     Handles Calcular.Click
  59.  
  60.         Dim TextBoxCount As Short = -1
  61.  
  62.         TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}
  63.  
  64.         Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
  65.                   .Distinct().ToArray ' Elimino duplicados
  66.  
  67.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  68.                   .Distinct().ToArray ' Elimino duplicados
  69.  
  70.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  71.                   .Distinct().ToArray ' Elimino duplicados,,,,,,,,,,,
  72.  
  73. Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items
  74.  
  75.         ' funcion
  76.         For Each Number As Int32 In Result1
  77.             TextBoxCount += 1
  78.             TextBox(TextBoxCount).Text = Number
  79.         Next
  80.  
  81.         For Each Number As Int32 In Result2
  82.             TextBoxCount += 1
  83.             TextBox(TextBoxCount).Text = Number
  84.         Next
  85.  
  86.         For Each Number As Int32 In Result3
  87.             TextBoxCount += 1
  88.             TextBox(TextBoxCount).Text = Number
  89.         Next
  90.  
  91.  
  92. End Class


gracias de antemano

Luis
97  Programación / .NET (C#, VB.NET, ASP) / Limitar programa con tiempo ? en: 14 Noviembre 2013, 06:57 am
Donde puedo conseguir una rutina de tiempo para que pasado tres meses o dias se bloquee el programa y saque un mesagebox diciendo lo que sea ?

gracias

Luis
98  Seguridad Informática / Seguridad / Inundado de virus ????? troyanos y demas cosas :) en: 6 Noviembre 2013, 21:05 pm
Bien tengo un P4 8 gigas ram disco 500 gigas y demas patrañas jejej uso wify desde casa a casa de mama con wifisky 2000 y a veces uso una cuenta con la rural del pueblo full señal ( todas las barritas ) uso el antivirus  "  Microsoft Secuirity Essentila " pero mi pc va como un 286 de principio de siglo Lento muyyyyyyy lento que da dolor de Hue... abrir el face jejje pero solo va lento el internet cuando lo uso para programar o abrir cualquier cosa va como un tiro ?????

Alguna idea ?

Luis
 
99  Programación / .NET (C#, VB.NET, ASP) / Pregunta tonta ? como cambiar icono en visual net 2010 ejecutables y formularios en: 1 Noviembre 2013, 12:17 pm
Uso el VB 2010 y cuando quiero cambiar el icono en propiedades del proyecto aunque tenga bien ubicados los iconos cuando los busco con el editor no se ven ?? por lo tanto no los puedo cambiar me gustaría cambiar los de los formularios y el del ejecutable.

tengo de 16 y de 32 por si....

luis
100  Programación / .NET (C#, VB.NET, ASP) / Evitar resultados repetidos cada 4 teboxes de una lista de texboxes consecutivas en: 1 Noviembre 2013, 09:07 am
Hago unos calculos matematicos donde envio estos resultados a unos texboxes que estan ordenados de forma consecutiva, como podria evitar resultados repetidos cada cuatro teboxes

Código:
Dim TextBoxCount As Short = -1

TextBoxes = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox29, TextBox30....}
 




pense en esta forma pero no encuentro la logica

Código:
cadacuatro = {TextBox7, TextBox8, TextBox9, TextBox10,} _
                  .Distinct().ToArray  Eliminar duplicados


Luis
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines