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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: 1 ... 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 [44] 45 46 47 48 49 50 51 52 53 54 55
431  Programación / .NET (C#, VB.NET, ASP) / Re: Vuelvo al ataque con los texboxes :) evitar repe en: 6 Diciembre 2013, 19:21 pm
Cita de: EleKtro H@cker en  6 Diciembre 2013, 14:17 pm

Todo eso me sacó de quizio.
jejjejje

Ya esta funcionando gracias Elektro pero no creas te dejare tranquilo seguro algo se me ocurrira :)

Luis
432  Programación / .NET (C#, VB.NET, ASP) / Re: Vuelvo al ataque con los texboxes :) evitar repe en: 6 Diciembre 2013, 06:58 am
Cita de: EleKtro H@cker en  5 Diciembre 2013, 19:53 pm
En el método sumar, la variable TextBoxCount empieza a contar desde 1, 1 es el segundo elemento, por eso se salta el TextBox5.

Para corregirlo, borra esta linea del principio del bloque del For, y ponla al final del bloque:
EDITO:
O bien otra manera de solucionarlo puedes modificar esto:Por esto otro:
Código
  1. TextBoxCount = -1 ' Reseteo el valor a -1
Pero eso resulta algo confuso, mejor coloca la linea que te dije donde debe ir colocada.

saludos



Sigo en lo mismo :)

Código
  1. Public Class Form1
  2.  
  3.     Dim maximum As Short = 99
  4.     Dim x As Integer = 0
  5.     Dim Número As Double
  6.     Private TextBoxes As TextBox() = {Nothing}
  7.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32(), Result4 As Int32()
  8.     Private _textBox As Object
  9.  
  10.     Private Property Calcular As Object
  11.  
  12.     Private Property TextBox(ByVal TextBoxCount As Short) As Object
  13.         Get
  14.             Return _textBox
  15.         End Get
  16.         Set(ByVal value As Object)
  17.             _textBox = value
  18.         End Set
  19.     End Property
  20.  
  21.     Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
  22.         ' evitar letras
  23.         If Char.IsDigit(e.KeyChar) Then
  24.             e.Handled = False
  25.         ElseIf Char.IsControl(e.KeyChar) Then
  26.             e.Handled = False
  27.         ElseIf Char.IsSeparator(e.KeyChar) Then
  28.             e.Handled = False
  29.         Else
  30.             e.Handled = True
  31.         End If
  32.  
  33.     End Sub
  34.  
  35.  
  36.     ReadOnly Property Num1 As Int32
  37.         Get
  38.             Return CInt(TextBox1.Text)
  39.         End Get
  40.     End Property
  41.  
  42.     ReadOnly Property Num2 As Int32
  43.         Get
  44.             Return CInt(TextBox2.Text)
  45.         End Get
  46.     End Property
  47.     ReadOnly Property Num3 As Int32
  48.         Get
  49.             Return CInt(TextBox3.Text)
  50.         End Get
  51.     End Property
  52.     ReadOnly Property Num4 As Int32
  53.         Get
  54.             Return CInt(TextBox4.Text)
  55.         End Get
  56.     End Property
  57.  
  58.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  59.  
  60.  
  61.  
  62.         Dim TextBoxCount As Short = -1
  63.  
  64.         TextBoxes = {TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24}
  65.  
  66.         Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
  67.                   .Distinct().ToArray ' Elimino duplicados
  68.  
  69.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  70.                   .Distinct().ToArray ' Elimino duplicados
  71.  
  72.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  73.                   .Distinct().ToArray ' Elimino duplicados
  74.  
  75.         Result4 = {Num4 + 10, Num4 + 20, Num4 + 30} _
  76.                   .Distinct().ToArray ' Elimino duplicados
  77.  
  78.  
  79.  
  80.         Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)
  81.         Array.Sort(Result4)   ' Ordeno los Items
  82.  
  83.         TextBoxCount = -1 ' Reseteo el valor a cero <------cambie como dijiste y nada
  84.  
  85.         Dim Results As IEnumerable(Of Integer) =
  86.             Result1.Concat(Result2).Concat(Result3).Concat(Result4) ' concateno arrays
  87.  
  88.         If Results.Count > TextBoxes.Count Then
  89.             Throw New Exception("La cantidad de números es mayor que la cantidad de Textboxes")
  90.         End If
  91.  
  92.         For X As Integer = 0 To Results.Count - 1
  93.  
  94.             'TextBoxCount += 1 '  <------cambie  y nada tambien lo cambie de sitio
  95.  
  96.             TextBoxCount += 0 '  <------cambie  y nada
  97.  
  98.             Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
  99.  
  100.                 Case False ' El número no está repetido en ninguna "linea"
  101.                     ' Así que colocamos el número en el Textbox
  102.                     Try
  103.                         TextBoxes(TextBoxCount).Text = CStr(Results(X))
  104.                     Catch ex As Exception
  105.                         Throw New Exception(ex.Message & ex.StackTrace)
  106.                     End Try
  107.  
  108.                 Case True ' El número está repetido en alguna de las "lineas"
  109.                     ' Así que escribimos el número "máximo" en el textbox
  110.                     TextBoxes(TextBoxCount).Text = -CStr(maximum)
  111.  
  112.             End Select
  113.  
  114.  
  115.         Next X
  116.  
  117.     End Sub
  118.  
  119.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  120.  
  121.     End Sub
  122. End Class

Luis
433  Programación / .NET (C#, VB.NET, ASP) / Re: Vuelvo al ataque con los texboxes :) evitar repe en: 5 Diciembre 2013, 19:08 pm
Hola de nuevo :)

Bueno funciona salvo que el texbox5 que seria el primero en recibir resultados se queda en blanco probe a eliminarlo y el siquiente le pasa lo mismo ???


Luis
434  Programación / .NET (C#, VB.NET, ASP) / Re: Vuelvo al ataque con los texboxes :) evitar repe en: 4 Diciembre 2013, 20:48 pm
Yo creo que sigo mañana  :-( ya son muchas horas despierto me levanto a las 5 de la mañana a ver que hago con este vicio jejej a las 7 me marcho a currar de mecánico menos mal que ahora son 8 horas de continuo (hasta el mes pasado  10 horas  al dia y por supuesto con  bajada de sueldo) bueno estoy cansado gracias por todo ya mañana sera otra ves que " ATACO " jeje

Gracias

Luis
435  Programación / .NET (C#, VB.NET, ASP) / Re: Vuelvo al ataque con los texboxes :) evitar repe en: 4 Diciembre 2013, 20:27 pm
No da error pero no hace nada se ejecuta pero no me muestra resultados he limpiado un poco el codigo lo deje a si pero ya me mareo

Código
  1. Public Class Form1
  2.  
  3.     Dim maximum As Short = 99
  4.     Dim x As Integer = 0
  5.     Dim Número As Double
  6.     Private TextBoxes As TextBox() = {Nothing}
  7.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32(), Result4 As Int32()
  8.     Private _textBox As Object
  9.  
  10.     Private Property Calcular As Object
  11.  
  12.     Private Property TextBox(ByVal TextBoxCount As Short) As Object
  13.         Get
  14.             Return _textBox
  15.         End Get
  16.         Set(ByVal value As Object)
  17.             _textBox = value
  18.         End Set
  19.     End Property
  20.  
  21.     Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
  22.         ' evitar letras
  23.         If Char.IsDigit(e.KeyChar) Then
  24.             e.Handled = False
  25.         ElseIf Char.IsControl(e.KeyChar) Then
  26.             e.Handled = False
  27.         ElseIf Char.IsSeparator(e.KeyChar) Then
  28.             e.Handled = False
  29.         Else
  30.             e.Handled = True
  31.         End If
  32.  
  33.     End Sub
  34.  
  35.     Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
  36.         Me.ControlBox = False ' Elimino todos los controles del formulario
  37.     End Sub
  38.     ReadOnly Property Num1 As Int32
  39.         Get
  40.             Return CInt(TextBox1.Text)
  41.         End Get
  42.     End Property
  43.  
  44.     ReadOnly Property Num2 As Int32
  45.         Get
  46.             Return CInt(TextBox2.Text)
  47.         End Get
  48.     End Property
  49.     ReadOnly Property Num3 As Int32
  50.         Get
  51.             Return CInt(TextBox3.Text)
  52.         End Get
  53.     End Property
  54.     ReadOnly Property Num4 As Int32
  55.         Get
  56.             Return CInt(TextBox4.Text)
  57.         End Get
  58.     End Property
  59.  
  60.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs)
  61.  
  62.  
  63.  
  64.         Dim TextBoxCount As Short = -1
  65.  
  66.         TextBoxes = {TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24}
  67.  
  68.         Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
  69.                   .Distinct().ToArray ' Elimino duplicados
  70.  
  71.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  72.                   .Distinct().ToArray ' Elimino duplicados
  73.  
  74.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  75.                   .Distinct().ToArray ' Elimino duplicados
  76.  
  77.         Result4 = {Num4 + 10, Num4 + 20, Num4 + 30} _
  78.                   .Distinct().ToArray ' Elimino duplicados
  79.  
  80.  
  81.  
  82.         Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)
  83.         Array.Sort(Result4)   ' Ordeno los Items
  84.  
  85.         TextBoxCount = 0 ' Reseteo el valor a cero
  86.  
  87.         Dim Results As IEnumerable(Of Integer) =
  88.             Result1.Concat(Result2).Concat(Result3).Concat(Result4) ' concateno arrays
  89.  
  90.         If Results.Count > TextBoxes.Count Then
  91.             Throw New Exception("La cantidad de números es mayor que la cantidad de Textboxes")
  92.         End If
  93.  
  94.         For X As Integer = 0 To Results.Count - 1
  95.  
  96.             TextBoxCount += 1
  97.  
  98.             Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
  99.  
  100.                 Case False ' El número no está repetido en ninguna "linea"
  101.                     ' Así que colocamos el número en el Textbox
  102.                     Try
  103.                         TextBoxes(TextBoxCount).Text = CStr(Results(X))
  104.                     Catch ex As Exception
  105.                         Throw New Exception(ex.Message & ex.StackTrace)
  106.                     End Try
  107.  
  108.                 Case True ' El número está repetido en alguna de las "lineas"
  109.                     ' Así que escribimos el número "máximo" en el textbox
  110.                     TextBoxes(TextBoxCount).Text = -CStr(maximum)
  111.  
  112.             End Select
  113.  
  114.         Next X
  115.  
  116.     End Sub
  117. End Class
436  Programación / .NET (C#, VB.NET, ASP) / Re: Vuelvo al ataque con los texboxes :) evitar repe en: 4 Diciembre 2013, 19:47 pm
Tiemblo cada ves que veo que Elektro me responde jejejej,bueno aca va


Código
  1. Public Class Form1
  2.  
  3.     Dim maximum As Short = 99
  4.     Dim x As Integer = 0
  5.     Dim Número As Double
  6.     Private TextBoxes As TextBox() = {Nothing}
  7.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32(), Result4 As Int32()
  8.     Private _textBox As Object
  9.  
  10.     Private Property Calcular As Object
  11.  
  12.     Private Property TextBox(ByVal TextBoxCount As Short) As Object
  13.         Get
  14.             Return _textBox
  15.         End Get
  16.         Set(ByVal value As Object)
  17.             _textBox = value
  18.         End Set
  19.     End Property
  20.     ' trial-----------------------------
  21.  
  22.     Private Shadows Sub Load() Handles MyBase.Load
  23.         My.Settings.contador += 1
  24.         checar()
  25.     End Sub
  26.  
  27.     Sub checar()
  28.  
  29.         If My.Settings.contador >= 2500 Then
  30.             MsgBox("Por motivos de seguridad este programa no se activara hasta que me la gana jejeje")
  31.             'Application.Exit()
  32.         End If
  33.  
  34.     End Sub
  35.     '---------------------
  36.     Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
  37.         ' evitar letras
  38.         If Char.IsDigit(e.KeyChar) Then
  39.             e.Handled = False
  40.         ElseIf Char.IsControl(e.KeyChar) Then
  41.             e.Handled = False
  42.         ElseIf Char.IsSeparator(e.KeyChar) Then
  43.             e.Handled = False
  44.         Else
  45.             e.Handled = True
  46.         End If
  47.  
  48.     End Sub
  49.  
  50.     Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  51.         Me.ControlBox = False ' Elimino todos los controles del formulario
  52.     End Sub
  53.     ReadOnly Property Num1 As Int32
  54.         Get
  55.             Return CInt(TextBox1.Text)
  56.         End Get
  57.     End Property
  58.  
  59.     ReadOnly Property Num2 As Int32
  60.         Get
  61.             Return CInt(TextBox2.Text)
  62.         End Get
  63.     End Property
  64.     ReadOnly Property Num3 As Int32
  65.         Get
  66.             Return CInt(TextBox3.Text)
  67.         End Get
  68.     End Property
  69.     ReadOnly Property Num4 As Int32
  70.         Get
  71.             Return CInt(TextBox4.Text)
  72.         End Get
  73.     End Property
  74.  
  75.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
  76.     Handles Button1.Click
  77.  
  78.  
  79.         Dim TextBoxCount As Short = -1
  80.  
  81.         TextBoxes = {TextBox5, TextBox6, 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, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42}
  82.  
  83.         Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
  84.                   .Distinct().ToArray ' Elimino duplicados
  85.  
  86.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  87.                   .Distinct().ToArray ' Elimino duplicados
  88.  
  89.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  90.                   .Distinct().ToArray ' Elimino duplicados
  91.  
  92.         Result4 = {Num4 + 10, Num4 + 20, Num4 + 30} _
  93.                   .Distinct().ToArray ' Elimino duplicados
  94.  
  95.  
  96.  
  97.         Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3) : Array.Sort(Result4) : Array.Sort(Result5) : Array.Sort(Result6)  ' Ordeno los Items
  98.         ' ----------------------------------------------------------------------------
  99.         ' aca que no salgan repetidos en las lineas -------------------------------------
  100.         ' Concateno todos los Arrays (esto es algo opcional, simplemente para hacerlo de una en este ejemplo)
  101.         Dim Results As IEnumerable(Of Integer) =
  102.             Result1.Concat(Result2).Concat(Result3).Concat(Result4)
  103.  
  104.         For X As Integer = 0 To Results.Count - 1
  105.  
  106.  
  107.  
  108.             TextBoxCount += 1
  109.  
  110.             Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
  111.  
  112.                 Case False ' El número no está repetido en ninguna "linea"
  113.                     ' Así que colocamos el número en el Textbox
  114.                     TextBox(TextBoxCount).Text = Convert.ToString(Results(X))
  115.  
  116.                 Case True ' El número está repetido en alguna de las "lineas"
  117.                     ' Así que haces lo que quieras con el Número/Textbox
  118.                     MsgBox(Results(X))
  119.                     TextBox(TextBoxCount).Text = -1.ToString
  120.  
  121.             End Select
  122.         Next X
  123.         ' -----------------------------------------------------------------------
  124.  
  125.         ' aca vamos con el rango
  126.  
  127.         For Each Number As Int32 In Result1
  128.             TextBoxCount += 1
  129.             TextBoxes(TextBoxCount).Text = Number
  130.         Next
  131.         ' -----------------------------------------
  132.         For Each Number As Int32 In Result2
  133.             TextBoxCount += 1
  134.             TextBoxes(TextBoxCount).Text = Number
  135.         Next
  136.         ' -----------------------------------------
  137.         For Each Number As Int32 In Result3
  138.  
  139.             TextBoxCount += 1
  140.  
  141.             If Not Number > maximum Then
  142.                 TextBoxes(TextBoxCount).Text = CStr(Number)
  143.             Else
  144.                 TextBoxes(TextBoxCount).Text = CStr(maximum)
  145.             End If
  146.  
  147.         Next Number
  148.         ' -----------------------------------------
  149.         For Each Number As Int32 In Result4
  150.  
  151.             TextBoxCount += 1
  152.  
  153.             If Not Number > maximum Then
  154.                 TextBoxes(TextBoxCount).Text = CStr(Number)
  155.             Else
  156.                 TextBoxes(TextBoxCount).Text = CStr(maximum)
  157.             End If
  158.  
  159.         Next Number
  160.         ' -----------------------------------------
  161.  
  162.     End Sub
  163.  
  164.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  165.  
  166.     End Sub
  167.  
  168.  
  169.     ' limpiar texboxes
  170.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  171.         For Each obj As Control In Me.Controls
  172.             If (TypeOf obj Is TextBox) Then
  173.                 obj.Text = ""
  174.             End If
  175.             If (TypeOf obj Is GroupBox) Then
  176.                 For Each caja As Control In obj.Controls
  177.                     If (TypeOf caja Is TextBox) Then
  178.                         caja.Text = ""
  179.                     End If
  180.                 Next
  181.             End If
  182.         Next
  183.     End Sub
  184.  
  185.     Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
  186.         ' solo numeros sin letras ni signos raros
  187.         sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
  188.     End Sub
  189.  
  190.     Private Sub TextBox8_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
  191.         sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
  192.     End Sub
  193.  
  194.     Private Sub TextBox9_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
  195.         sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
  196.     End Sub
  197.  
  198.     Private Sub TextBox25_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged, TextBox8.TextChanged, TextBox7.TextChanged, TextBox30.TextChanged, TextBox29.TextChanged, TextBox28.TextChanged, TextBox27.TextChanged, TextBox26.TextChanged, TextBox25.TextChanged, TextBox24.TextChanged, TextBox23.TextChanged, TextBox22.TextChanged, TextBox21.TextChanged, TextBox20.TextChanged, TextBox19.TextChanged, TextBox18.TextChanged, TextBox17.TextChanged, TextBox16.TextChanged, TextBox15.TextChanged, TextBox14.TextChanged, TextBox13.TextChanged, TextBox12.TextChanged, TextBox11.TextChanged, TextBox10.TextChanged
  199.         sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
  200.     End Sub
  201.  
  202.     Private Sub TextBox31_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox36.TextChanged, TextBox35.TextChanged, TextBox34.TextChanged, TextBox33.TextChanged, TextBox32.TextChanged, TextBox31.TextChanged
  203.         sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
  204.     End Sub
  205.  
  206.     Private Sub TextBox6_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress, TextBox3.KeyPress, TextBox2.KeyPress, TextBox1.KeyPress
  207.         Button1.Enabled = ((TextBox1.TextLength > 0) And (TextBox2.TextLength > 0) And (TextBox3.TextLength > 0) And (TextBox4.TextLength > 0) ))
  208.         solonumeros(e)
  209.         If e.KeyChar = ChrW(Keys.Enter) Then
  210.             e.Handled = True
  211.             SendKeys.Send("{TAB}")
  212.  
  213.         End If
  214.  
  215.  
  216.     End Sub
  217. End Class]
437  Programación / .NET (C#, VB.NET, ASP) / Re: Vuelvo al ataque con los texboxes :) evitar repe en: 4 Diciembre 2013, 19:05 pm
Gracias Weeds

Hice lo que me pusiste y sigue todo igual como dije antes solo que ahora el error me lo da

Código:
TextBox(TextBoxCount).Text = Convert.ToString(Results(X))

"""""" Variable de objeto o de bloque With no establecida.  ????????'


luis
438  Programación / .NET (C#, VB.NET, ASP) / Re: Vuelvo al ataque con los texboxes :) evitar repe en: 4 Diciembre 2013, 18:37 pm
Bueno despues de estar enredado con esto y que la pc me escupa ejjeje no se ya donde buscar pues el programa en el editor antes de ejecutarlo no me da error pero al ejecutarlo todo parece bien pero cuando hago la funcion BINGO

Message=No se puede implementar el método o la operación.


Lo puse de esta forma


Código
  1. Public Class Form1
  2.     Dim MIN As Integer = 0
  3.     Dim MAX As Integer = 99
  4.     Dim x As Integer <---------NO SE SI ES A SI
  5.  
  6.  
  7.     Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8.         Me.ControlBox = False ' Elimino todos los controles del formulario
  9.     End Sub
  10.  
  11.  
  12.  
  13.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
  14.     Dim Sep As Object
  15.     Dim texbox7 As Object
  16.     Dim o As Object
  17.     Private _val As Object
  18.     Private _val1 As Integer
  19.     Dim TextBox As TextBox()
  20.  
  21.     ReadOnly Property Num1 As Int32
  22.         Get
  23.             Return CInt(TextBox1.Text)
  24.         End Get
  25.     End Property
  26.  
  27.     ReadOnly Property Num2 As Int32
  28.         Get
  29.             Return CInt(TextBox2.Text)
  30.         End Get
  31.     End Property
  32.     ReadOnly Property Num3 As Int32
  33.         Get
  34.             Return CInt(TextBox3.Text)
  35.         End Get
  36.     End Property
  37.  
  38.  
  39. Private Property KeyAscii As Integer
  40.  
  41.     Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
  42.         Get
  43.             Return _val
  44.         End Get
  45.         Set(ByVal value As Object)
  46.             _val = value
  47.         End Set
  48.     End Property
  49.  
  50.     Private Property Val(ByVal p1 As Object) As Integer
  51.         Get
  52.             Return _val1
  53.         End Get
  54.         Set(ByVal value As Integer)
  55.             _val1 = value
  56.         End Set
  57.     End Property
  58.  
  59.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
  60.     Handles Calcular.Click
  61.  
  62.         Dim TextBoxCount As Short = -1
  63.  
  64.         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}
  65.  
  66.         Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
  67.                   .Distinct().ToArray ' Elimino duplicados
  68.  
  69.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  70.                   .Distinct().ToArray ' Elimino duplicados
  71.  
  72.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  73.                   .Distinct().ToArray ' Elimino duplicados
  74.  
  75. Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items
  76.  
  77. --------------------------ACA LO PUSE
  78.  ' Concateno todos los Arrays (esto es algo opcional, simplemente para hacerlo de una en este ejemplo)
  79.         Dim Results As IEnumerable(Of Integer) =
  80.             Result1.Concat(Result2).Concat(Result3)
  81.  
  82.         For X As Integer = 0 To Results.Count - 1
  83.  
  84.             TextBoxCount += 1
  85.  
  86.             Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
  87.  
  88.                 Case False ' El número no está repetido en ninguna "linea"
  89.                     ' Así que colocamos el número en el Textbox
  90.                     TextBox(TextBoxCount).Text = Convert.ToString(Results(X))
  91.  
  92.                 Case True ' El número está repetido en alguna de las "lineas"
  93.                     ' Así que haces lo que quieras con el Número/Textbox
  94.                     MsgBox(Results(X))
  95.                     TextBox(TextBoxCount).Text = -1.ToString
  96.  
  97.             End Select
  98.  
  99.         Next X
  100.  
  101.  
  102. ---------------------------------------------------------------------- 
  103.         ' funcion
  104.         For Each Number As Int32 In Result1
  105.             TextBoxCount += 1
  106.             TextBox(TextBoxCount).Text = Number
  107.         Next
  108.  
  109.         For Each Number As Int32 In Result2
  110.             TextBoxCount += 1
  111.             TextBox(TextBoxCount).Text = Number
  112.         Next
  113.  
  114.         For Each Number As Int32 In Result3
  115.             TextBoxCount += 1
  116.             TextBox(TextBoxCount).Text = Number
  117.         Next
  118.  
  119.    Private Function TextBox(ByVal TextBoxCount As Short) As Object
  120.         Throw New NotImplementedException <--ERROR-Message=No se puede implementar el método o la operación.
  121.     End Function
  122.  
  123. End Class


Lo siento Elektro jejeje estoy tapao

Luis
439  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
440  Programación / .NET (C#, VB.NET, ASP) / Re: Caducar programa con tiempo ? en: 2 Diciembre 2013, 20:49 pm
Cita de: EleKtro H@cker en  2 Diciembre 2013, 20:22 pm
Por ese motivo te he dejado una url junto a una cita donde explica como usar las user settings, en la página de las propiedades del proyecto, hay una pestaña que se llama "Settings", para crear settings.



Si creas una Setting llamada "Contador", pues luego puedes acceder a ella de la manera que te he mostrado:

Código:
My.Settings.Contador]M = X

Saludos!

Ufff ahora cree el Settings.Contador en propiedades pero como uso el 2010 varia el nombre " extensiones My " bien no me da errores cuando en el apartado TIPO esta puesto esto "string "  y en ambito  " USUARIO " Pero no cuenta y el programa sigue ejecutandose ?????


Luis

YA YA LO LOGRE JEJEJEJ ERA PONER " INTEGER " UFFFF

Gracias Elektro

Luis
Páginas: 1 ... 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 [44] 45 46 47 48 49 50 51 52 53 54 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines