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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: 1 ... 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 [47] 48 49 50 51 52 53 54 55
461  Programación / .NET (C#, VB.NET, ASP) / Re: Como eliminar resultados numericos en un variable o Array ? en: 27 Octubre 2013, 12:54 pm
Cita de: EleKtro H@cker en 27 Octubre 2013, 12:33 pm
Código
  1.     Private Sub Test(sender As Object, e As EventArgs) Handles MyBase.Shown
  2.  
  3.         Dim TextBoxes() As TextBox = _
  4.             {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5}
  5.  
  6.         Dim TextBoxCount As Integer = 0
  7.  
  8.         Dim maximum As Short = 99
  9.  
  10.         Dim Result() As Integer = { _
  11.                                     90, _
  12.                                     40, _
  13.                                     50, _
  14.                                     90, _
  15.                                     100, _
  16.                                     125 _
  17.                                   }.Distinct().ToArray
  18.  
  19.         Array.Sort(Result)
  20.  
  21.         For Each Number As Integer In Result
  22.  
  23.             TextBoxes(TextBoxCount).Text = _
  24.                 If(Not Number > maximum, _
  25.                    CStr(Number), _
  26.                    CStr(maximum))
  27.  
  28.             Threading.Interlocked.Increment(TextBoxCount)
  29.  
  30.         Next Number
  31.  
  32.     End Sub



Saludos


Gracias EleKtro siempre tan amable ahora a ver como adapto esto a mi código :) pensaba que con un simple iff se haria jejeje ya te contare como me va..

Luis
462  Programación / .NET (C#, VB.NET, ASP) / Como eliminar resultados numericos en un variable o Array ? en: 27 Octubre 2013, 09:15 am
Hola quiero mostrar números dentro de un rango establecido (00 al 99 )

Necesito hacer una función que me elimine lo números que se pasen de 99 ? pero que no me deje los texboxes vacíos ? poniendo el ultimo numero del rango si este se pasa del mismo


Código:
Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
                  .Distinct().ToArray ' 

        Array.Sort(Result1)

 
For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next


Luis
463  Programación / .NET (C#, VB.NET, ASP) / Re: De nuevo al ataque jeje no logro controlar que no me muestre lo que quiero en: 24 Octubre 2013, 19:53 pm
Cita de: EleKtro H@cker en 24 Octubre 2013, 09:08 am
@luis456

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?.

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


Porque como veras los texboxes se van llenando por las variables (por cierto este fue el codigo que me diste :) )

Código:
Public Class Form1
    Dim MIN As Integer = 0
    Dim MAX As Integer = 99

    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ControlBox = False ' Elimino todos los controles del formulario
    End Sub

   

    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
    Dim Sep As Object
    Dim texbox7 As Object
    Dim o As Object
    Private _val As Object
    Private _val1 As Integer
    Dim TextBox As TextBox()

    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property

    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property
    ReadOnly Property Num3 As Int32
        Get
            Return CInt(TextBox3.Text)
        End Get
    End Property


Private Property KeyAscii As Integer

    Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
        Get
            Return _val
        End Get
        Set(ByVal value As Object)
            _val = value
        End Set
    End Property

    Private Property Val(ByVal p1 As Object) As Integer
        Get
            Return _val1
        End Get
        Set(ByVal value As Integer)
            _val1 = value
        End Set
    End Property

    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Calcular.Click

        Dim TextBoxCount As Short = -1

        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}

        Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                  .Distinct().ToArray ' Elimino duplicados

        Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                  .Distinct().ToArray ' Elimino duplicados

        Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                  .Distinct().ToArray ' Elimino duplicados,,,,,,,,,,,

Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items

        ' funcion
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next

        For Each Number As Int32 In Result2
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next

        For Each Number As Int32 In Result3
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next


End Class


Luis
464  Programación / .NET (C#, VB.NET, ASP) / Re: De nuevo al ataque jeje no logro controlar que no me muestre lo que quiero en: 24 Octubre 2013, 06:17 am
Cita de: El Benjo en 23 Octubre 2013, 21:51 pm
Bueno, depende de lo que quieras realmente si lo que quieres es que simplemente no se puedan ingresar números en un rango mayor entonces sería algo como:

Código
  1. Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox48.TextChanged
  2.         If Val(TextBox7.Text) > 99 Then
  3.             TextBox7.Text = 99
  4.         End If
  5. End Sub 
  6.  

Pero yo te recomendaría utilizar el control "NumericUpDown", es más fácil de programar y es un poco más profesional hacerlo de esta manera.

Saludos


Lo 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



Código:
 Result1 = {Num1 + 1, Num1 + 2, Num1 + 20} _


Luis
465  Programación / .NET (C#, VB.NET, ASP) / De nuevo al ataque jeje no logro controlar que no me muestre lo que quiero en: 23 Octubre 2013, 20:40 pm
Bien aunque no lo crean me da pena preguntar ya varias veces lo mismo  :silbar: no logro hacer que en unos resultados de unas simples cuentas no me muestren en los texboxes. dentro de un rango establecido  ( mi rango es 00 al 99 )  y todo lo que se pase de 99 no lo debe mostrar pero si debe de mostrar el 99, bien he gogleado y buscado por este mismo foro pero na,,,estoy probando con esta rutina pero na tampoco....AUXILIO :)

Código:
 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


Luis
466  Programación / .NET (C#, VB.NET, ASP) / Re: " no se controlo nulreferenceExection " ?????? en: 19 Octubre 2013, 16:56 pm
Cita de: EleKtro H@cker en 19 Octubre 2013, 15:31 pm
La excepción segúramente es porque estás usando una "O" de Oviedo en lugar de un Cero  :¬¬

PD: (ya estamos de nuevo usando los wrappers de las funciones de vb... (VAL) ¿no hay manera de cambiar eso he? xD)




Código
  1. dim MIN as integer = 0
  2. dim MAX as integer = 100
  3.  
  4. Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
  5. Handles TextBox7.TextChanged
  6.  
  7.   select case cint(sender.text)
  8.  
  9.     case not MIN to MAX:sender.text = cstr(MAX)
  10.  
  11.   end Select
  12.  
  13. End Sub  

el código lo he escrito al vuelo, si el número no está en el rango MIN-MAX entonces se escribe el valor MAX en el textbox, creo que es lo que querías hacer

fíjate lo facil que era

un saludo!

Gracias por tu ayuda :)

lo recien acabo de probar y solo me pone el el texbox el numero maximo jejej haciendo varios calculos para probar pero siempre me pone el mismo numero el codigo que estoy haciendo para las pruebas es el que me diste el otro dia

Código:
Public Class Form1
 
    Private TextBoxes As TextBox() = {Nothing}
 
    Private Result1 As Int32(), Result2 As Int32()
 
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
 
    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property
 
    Private Sub Sumar(sender As Object, e As EventArgs) _
    Handles Button_Sum.Click
 
        Dim TextBoxCount As Short = -1
 
        TextBoxes = {TextBox3, TextBox4, TextBox5, TextBox6}
 
        Result1 = {Num1 + 15, Num1 + 25} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 30, Num2 + 20} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Array.Sort(Result1) : Array.Sort(Result2) ' Ordeno los Items
 
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result2
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next
 
   


Luis
467  Programación / .NET (C#, VB.NET, ASP) / " no se controlo nulreferenceExection " ?????? en: 19 Octubre 2013, 13:45 pm
Hola vuelvo al ataque :)

Estoy tratando que los texbox que reciben los resultados de unas ecuaciones matematicas no permitan mostrar numeros que no esten dentro de determinado rango y probando con este pedazo de codigo me salta este error  " no se controlo nulreferenceExection "


Tambien me gustaria saber como no dejar el texbox vacio  mostrando el ultimo numero dentro del rango establecido :)


Código:
  Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        If Val(Me.texbox7.tex) < o Or Val(Me.texbox7.tex) > 20 Then
        End If
    End Sub 

Luis
468  Programación / .NET (C#, VB.NET, ASP) / Re: Limitar resultados de calculo matematico en un grupo de texbox en: 18 Octubre 2013, 19:57 pm
Cita de: EleKtro H@cker en 17 Octubre 2013, 22:05 pm
Para comprobar si un número está en el rango:

Saludos

Bien Elektro probando tu codigo no me da error de ninguna clase pero no se como poner el rango de numeros que deben de mostrar los texboxes

luis
469  Programación / .NET (C#, VB.NET, ASP) / Limitar resultados de calculo matematico en un grupo de texbox en: 17 Octubre 2013, 21:48 pm
Como puedo limitar dentro de un rango de números los resultados de un calculo matemático sea suma o resta.

Es que si la suma da como resultado 100 pero mi rango es 99 que no me muestre 100 pero ponga  el  99 para no dejar el texbox vació 

Mi idea es crear una variable con los números que tengo como validos para que el resultado compare y si esta dentro de este rango los valide y los muestre en los texbox ,y si esto no es a si que me muestre el máximo que en este caso es el 99


Código:
Public Class Form1
 
    Private TextBoxes As TextBox() = {Nothing}
 
    Private Result1 As Int32(), Result2 As Int32()
 
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
 
    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property
 
    Private Sub Sumar(sender As Object, e As EventArgs) _
    Handles Button_Sum.Click
 
        Dim TextBoxCount As Short = -1
 
        TextBoxes = {TextBox3, TextBox4, TextBox5, TextBox6}
 
        Result1 = {Num1 + 15, Num1 + 25} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 30, Num2 + 20} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Array.Sort(Result1) : Array.Sort(Result2) ' Ordeno los Items
 
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result2
            TextBoxCount += 1
         


Gracias de antemano

Luis
470  Programación / .NET (C#, VB.NET, ASP) / Re: La cláusula Handles requiere una variable WithEvents ???? en: 13 Octubre 2013, 04:45 am
Cita de: EleKtro H@cker en 13 Octubre 2013, 01:25 am
Hola,

Esto ya intenté explicártelo, aquí tienes documentación: http://msdn.microsoft.com/en-us/library/stf7ebaz%28v=vs.90%29.aspx

El error está aquí:
Copiaste el ejemplo que te proporcioné sin fijarte lo suficiente,
lo que sucede es que en tu aplicación no tienes ningún botón que se llame "Button_Sum".

Ese es el nombre que le di yo al botón de sumar de mi ejemplo:

Para resolverlo símplemente tienes que reemplazar/usar en esa linea el nombre correcto de tu boton (Ej: Handles button1.click)...

PD: No confundir el nombre del control, con el texto del control (Button_Sum, "Sum").

Un saludo


Ya de verdad estoy seguro que las facultades de observacion a los 53 se pierden un poco  :-[

de nuevo gracias

Luis
Páginas: 1 ... 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