Mensajes

[Oviedo]

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 (vbnet) [Seleccionar] Expandir

dim MIN as integer = 0
dim MAX as integer = 100

Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles TextBox7.TextChanged

 select case cint(sender.text)

   case not MIN to MAX:sender.text = cstr(MAX)

 end Select

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 [Seleccionar] Expandir

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

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 [Seleccionar] Expandir

  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

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

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 [Seleccionar] Expandir

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

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

Hola tengo un código cedido amablemente por Elektro Ha@cker pero no logro que funcione después de googlear bastante  no me aclaro con este error..

" La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base "

No se si es porque hago el form pongo los controles pero pongo el codigo despues ?

Código (vbnet) [Seleccionar] Expandir

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

   End Sub

End Class


Luis

Bien os pongo el codigo o la birria

tengo dos texbox numericos (r1 y r2)  donde introdusco dos digitos y hago una suma y los reflejo en los texbox 3, 4, 5 y 6 segun los numeros que le introduscas ( Rango desde el 01 al 99 ) estos deberian ir de menor a mayor. y evitar los repetidos ya que al conseguir repetidos reenplazar por cualquier numero comprendido en el rango ( disculpen pero aprendi a programar cuando habia que escribir mucho codigo jjje)

Bien seria mas o menos la mecanica:

en texbox1 pongo el numero 20 y en el texbox2 pongo el 40 y esto me daria este resultado:


texbox1 introdusco el 20

20+15= 35 esto se muestra en el texbox3
20+25= 45 esto se muestra en el texbox4

texbox2 introdusco el 40

40+30= 70 esto se muestra en el texbox5
40+20= 60 esto se muestra en el texbox4 <--aca es que se deberia ver el 70

los texbox se muestran de esta manera

texbox3 y texbox4
texbox5 y texbox6

Código [Seleccionar] Expandir

  Public Class Form1
    Dim Sep As Char
    Dim Número As Double
    Dim r1, r2 As Integer

    Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)

        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
        TextBox3.Text = r1 + 15
        TextBox4.Text = r1 + 25
       
       
        r2 = Val(TextBox2.Text)
        TextBox5.Text = r2 + 30
        TextBox6.Text = r2 + 20
End Sub


End Class


Pregunta : habra alguna forma mas facil de hacerlo jejejje ? o mostrar el resultado en un lisbox ya acomodado

Luis

Como podría ordenar de menor a mayor en este bloque de texbox ,ya que mando directo los datos ? se podría hacer con variables sin tener que usar matrices ?
y que no se repitan los números en los texbox y que si hay un repetido me lo supla con otro numero dentro de un rango de números ya establecido.

Pd: los números son aleatorios y no gobierno los resultados enviados a los texbox

Código [Seleccionar] Expandir

TextBox27.Text = r5
        TextBox28.Text = r5
        TextBox29.Text = r5
        TextBox30.Text = r5


Luis

[Salu2.]

Cuando llueve cambian las condiciones de presión ambiental y a estas frecuencias, 2.4 Ghz afectan con el efecto "Fading" (Desvanecimiento), busca en Wikipedia.......

Le pasa a todo el mundo......

Puedes leer un ratito por aquí:

http://foro.elhacker.net/foro_libre/nota_la_lluvia_si_afecta_la_potencia_de_la_senal_wifi_en_desmedro-t328188.0.html


Salu2.

Gracias ya me he enterado de todo

luis

Haciendo caso de los expertos en estos en un post anterior comentaba que usaba dos antenas yagis para conectar casa de madre vía wify con mi casa a mas de 5 kilómetros bien andaba a trompicones subia bajaba la señal, bien en ese post me recomendaron lo siguiente : casa mama retransmitir con una yagi, fácil solo sacar antena por el moden y en mi casa una planar o parabolica bien me compre una  wifisky 2000mW y aumento la señal y la estabilidad de la misma, pero porque cuando llueve aparece desaparece la señal y conecta y desconecta a cada rato,tengo otras señales con mayor fuerza y estas también le pasa lo mismo, están super fijas las dos antenas para no tener problemas de movimiento.

Alguna idea ?

Luis