Temas

Buenas, me preguntaba por alguna función en la cual tu introduces algunas variables numéricas y la función te devuelve si o no.
La función te devuelve 1 si al menos 2 variables son iguales.
La función te devuelve 0 si todas las variables son diferentes.

Les pongo un ejemplo:
Dim x as integer = 1
Dim y as integer = 7
Dim z as integer = 1

FuncVariablesIguales(x,y,z)

La función me tendría que devolver 1 ya que la x y la z son iguales.

Me podrían ayudar a resolver este problema?
Se que se puede hacer diciendo si este es igual que el otro o igual que el otro... pero cuando hay muchas variable es muy largo.

Gracias

Buenas, he estado haciendo un programa de matemáticas con números grandes y tal. Algunas veces tarda bastante en hacer los cálculos y por eso me gustaría poner un timer para que me muestre el tiempo que tarda la aplicación en hacer los cálculos.
El problema es que mientras hace los cálculos el timer no se inicia pero si simplemente pongo un botón que ponga timer1.start si que se inicia.
¿Cómo puedo hacer que me funcione el timer cuando la aplicación esta "pensando"?
Muchas gracias

Hola , he visto un programa que calcula los decimales de pi hasta 32 millones y me pregunto como lo hace ya que la variable decimal solo coge creo que 90 binarios.

Mi pregunta: ¿Como puedo crear un tipo de variable que me deje tener todos los dígitos que me de la gana?

Hola, mirad necesito unas funciones (de programación) para un programa de matemáticas y conozco un programa de matemáticas que tiene las mejores funciones que he visto nunca

Como yo no se descompilar un programa, ¿me podrían ayudar a descompilar el programa derive para sacar sus fórmulas?

Aquí os paso el programa portable: (Copiad todo lo que esté entre comillas)
"https://rapidshare.com/files/4288239705/Derive 6 - Evaluación.rar"

Hola, estoy intentando hacer un programa que descomponga un número en factores primos. Aunque lo conseguí, va muy lento y no lo hace perfecto.

Yo quería que me descompusiera el número de un textbox, le diera un botón y me pusiera la descomposición en un label de este modo:

textbox = 60
label = 2^2·3·5


Yo lo hice con un listbox porque no pude hacerlo de otra forma.
Este es mi código:

Código [Seleccionar] Expandir

Public Class Form1
    Function isPrime(ByVal iNum As Decimal) As Boolean
        If (iNum < 2D) Then isPrime = False : Exit Function
        If (iNum < 4D) Then isPrime = True : Exit Function
        If (iNum Mod 2D = 0D) Then isPrime = False : Exit Function
        Dim iMax As Decimal : iMax = CInt(Math.Sqrt(CDbl(iNum)))
        Dim i As Decimal
        For i = 3D To iMax Step 2D
            If (iNum Mod i = 0D) Then isPrime = False : Exit Function
        Next i
        isPrime = True
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim a As Decimal = TextBox1.Text
        Dim j As Decimal
        Dim y As Decimal = 1D
        Dim z As Decimal
        For j = y To a
            If isPrime(j) Then
                For z = 1D To 1000D
                    If a Mod j ^ z = 0D Then ListBox1.Items.Add(j)
                Next
            End If
        Next j
    End Sub
End Class

Por favor, ¿pueden ayudarme a mejorar o mejor cambiar mi código?

Hola, estoy haciendo un programa para que me resuelva el cuadro numérico del periódico.
El programa consiste en 27 textbox y un botón.
Los textbox están ordenados de arriba hacia abajo y de izquierda a derecha.



Esta es solo la formula para la primera fila pero cuando pongo los signos (en el textbox 2 y 4) y el resultado (en el textbox 6) al iniciarla no funciona y me dice: "La conversión de la cadena "" en el tipo 'Double' no es válida."
Me lo dice en la parte de negrita.

Código [Seleccionar] Expandir

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text1 As Integer
        Dim text3 As Integer
        Dim text5 As Integer

        Dim a As Integer
        Dim b As Integer
        Dim text2 As String = TextBox2.Text
        Dim text4 As String = TextBox4.Text
     
        For text1 = 1 To 9
            For text3 = 1 To 9
                For text5 = 1 To 9
                    If text2 = "*" Then a = text1 * text3
                    If text2 = "+" Then a = text1 + text3
                    If text2 = "-" Then a = text1 - text3
                    If text2 = "/" Then a = text1 / text3

                    If text4 = "*" Then b = a * text5
                    If text4 = "+" Then b = a + text5
                    If text4 = "-" Then b = a - text5
                    If text4 = "/" Then b = a / text5

                    If b = Val(TextBox6.Text) Then [b]TextBox1.Text = text1 And TextBox3.Text = text3 And TextBox5.Text = text5[/b]
                Next
            Next
        Next
    End Sub
End Class

¿Me podrían ayudar para que me funcione el cuadro entero y decirme como tendría que poner la fórmula?

Gracias.

Hola, estoy haciendo un programa que genera ternas pitagóricas

Código [Seleccionar] Expandir

Public Class Form1

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

        Dim cb As Integer 'pre Cateto (b)
        Dim ca As Integer 'Cateto (a)
        Dim y As Integer 'Hipotenusa
        Dim captation As Integer ' Cateto (b)

        For y = 1 To TextBox1.Text
            For ca = 1 To TextBox1.Text
                cb = (Math.Sqrt(y ^ 2 - ca ^ 2))
                If cb = (xxxxxxxxxx) Then captation = cb
                If y ^ 2 = captation ^ 2 + ca ^ 2 Then
                    ListBox1.Items.Add(y)
                    ListBox2.Items.Add(ca)
                    ListBox3.Items.Add(captation)
                End If
            Next
        Next       
    End Sub
End Class

Lo que pasa es que donde están las x necesito una función que me diga si cb tiene dígitos decimales y si tiene dígitos decimales que captation no sea igual a cb.
Y también como lo puedo hacer con un solo listbox pero separado por espacios los resultados.
Gracias de antemano

Hola os quería pedir ayuda para un programa de números primos.
Estoy haciendo un programa que comprueba si un número es primo o no y he intentado hacerlo lo mejor posible para que funcione mas rápido.
Al código también le añadí una formula que sirve para que si el número es divisible por 3 excepto el tres ya me diga que no es primo y se ahorre tener que hacer lo demás.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox1.Text) Then Exit Sub

        Dim i As Integer
        Dim Total As Integer

        For i = 1 To Len(TextBox1.Text)
            Total = Total + Val(Mid(TextBox1.Text, i, 1))
        Next

        If TextBox1.Text = 3 Then
            Label1.Text = ("El número es Primo")
        Else
            If Total Mod 3 = 0 Or TextBox1.Text = 1 Then
                Label1.Text = ("El número no es Primo")

            Else
                Dim resultado As Integer = -1
                Dim n As Double = TextBox1.Text

                For i = 2 To Math.Sqrt(n)
                    If n Mod i = 0 Then
                        resultado = 0
                        Exit For
                    End If
                Next
                If resultado = 0 Then Label1.Text = ("El número no es Primo")
                If resultado = -1 Then Label1.Text = ("El número es Primo")
            End If
        End If
    End Sub
End Class


El programa va muy bien ya que utiliza el método de la raíz cuadrada.
Bueno pues lo que quiero hacer es modificar este código para que en vez de comprobar si un número es primo o no te haga una lista en un listbox de todos los números primos desde un mínimo (textbox(min)) hasta un máximo (textbox(max)) pero sin cambiar el método.

Y también quería ver si hay alguna función para que coja el último dígito o la ultima letra de un textbox y como se utiliza.

Gracias de antemano

Hola, miren tengo un problema y es que en un programa que quiero hacer para estudiar juegos de azar, lo que pasa es que tengo que hacer un bucle dentro de otro y yo no lo se hacer.

El programa tiene un Botón(3), un Label(6) y un Textbox(2).

El programa funciona de la siguiente forma:
Tu ingresas un nº en un Textbox y al darle a al Botón lo que hace el programa es, imaginaos que tira un dado de dos caras (imaginaos aunque sea imposible) pues el nº que ingreses en el Textbox es el nº de veces que se repite la misma cara y en el Label quiero que me aparezca el nº de veces que el programa a necesitado tirarlo para sacar tal nº.

Pensé que el programa debería tener esta apariencia:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label6.Text = 0
        If TextBox2.Text = ("") Then TextBox2.Text = 0

        Dim a As Integer
        Dim b As Integer = TextBox2.Text
        Dim c As Integer = TextBox2.Text
        For b = 1 To b
            a = Rnd(1)
            If a < 0.5 Then Label6.Text = Label6.Text + 1
            If a < 0.5 Then
                For c = 1 To c
                    If a < 0.5 Then Label6.Text = Label6.Text + 1

                    Aquí es donde irían los infinitos bucles

                    If a > 0.5 Then Label6.Text = Label6.Text + 1
                Next c

            End If

            If a > 0.5 Then Label6.Text = Label6.Text + 1
        Next b
    End Sub

Y dentro del segundo bucle otro con otra variable y otro con otra variable... Pero no tendría fin porque para hacer el programa bien tendría que hacer infinitos bucles con infinitas variables.

Espero que lo hayan entendido y que me ayuden.
Gracias.

¿Se puede contar cuantas veces se presiona un botón?

Me pueden decir donde puedo encontrar una calculadora que no me ponga math error ni me eleve a 10 sino que me ponga el resultado exacto por muy grande que sea.
Ej: 10^10^10^10 = 10+1000 ceros.

Quiero hacer un programa para que en un textbox yo le pongo un nº (100) por ejemplo y me genere 100 nºs aleatorios entre el 1 y el 2 y que en otros dos textbox me diga cuantas veces se el nº 1 y cuantas el 2.
Mas o menos así:

Muchas gracias.

Hola
Estoy buscando una forma de estudiar el azar utilizando el Visual Basic.
Quería hacer un programa que tu le pongas en un textbox (100) y que con el random utilice el 1 y el 2 y que te salga en un label cuantas veces se repite el nº 1 y en otro label cuantas veces se repite el 2.
Gracias de antemano.