Mensajes

Has un array o predefine una función  para ello, no es complicado

Sabes como se llama?

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

¿probaste usando DoEvents?

Ya me funciona, gracias por tu ayuda!
No conocía DoEvents

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"

Perdona pero no entiendo como utilizar lo de regex, ¿me lo podrías explicar?

Según lo he visto esta muy bien pero mi programa (Tengo Visual Basic 2010 Express) me indica que no está "regex" determinado.

Derive 6.0
Solo por si quieres mejorar tu programa y también mejorar otras cosas de matemáticas este programa es increíble. Tiene el mejor sistema de factorizar que haya visto nunca, resuelve todo lo que quieras de mates: sumatorios, productorios, ecuaciones, derivadas, integrales, funciones... y no solo eso resuelve con todos los dígitos que te de la gana (un millón de dígitos)

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

Si lograras descompilar el programa conseguirías muchas formulas y muy buenas.
Muchas gracias.

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?

Muchas gracias Keyen Night eres un máquina y lo has explicado muy bien.