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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Temas
Páginas: [1] 2
1  Programación / Programación Visual Basic / Función para saber si alguna variable es igual a otra en: 27 Junio 2015, 17:15 pm
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
2  Programación / Programación Visual Basic / Problema con el Timer en: 23 Diciembre 2014, 11:52 am
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
3  Programación / .NET (C#, VB.NET, ASP) / Double, long, decimal... la siguiente en: 12 Agosto 2012, 19:22 pm
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?
4  Programación / Ingeniería Inversa / Descompilar Derive en: 8 Agosto 2012, 16:44 pm
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"
5  Programación / .NET (C#, VB.NET, ASP) / Descomponer en factores primos en: 7 Agosto 2012, 00:56 am
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:
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?
6  Programación / .NET (C#, VB.NET, ASP) / Ayuda. Juego del periódico (Cuadro Numérico) en: 3 Agosto 2012, 14:09 pm
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:
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.
7  Programación / .NET (C#, VB.NET, ASP) / Ayuda para programa de ternas pitagóricas (a^2 = b^2 + c^2) en: 17 Julio 2012, 00:42 am
Hola, estoy haciendo un programa que genera ternas pitagóricas

Código:
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
8  Programación / .NET (C#, VB.NET, ASP) / Ayuda para mejorar programa para números primos VB 2010 Express en: 15 Julio 2012, 11:04 am
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
  1. Public Class Form1
  2.  
  3.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.        If Not IsNumeric(TextBox1.Text) Then Exit Sub
  5.  
  6.        Dim i As Integer
  7.        Dim Total As Integer
  8.  
  9.        For i = 1 To Len(TextBox1.Text)
  10.            Total = Total + Val(Mid(TextBox1.Text, i, 1))
  11.        Next
  12.  
  13.        If TextBox1.Text = 3 Then
  14.            Label1.Text = ("El n&#250;mero es Primo")
  15.        Else
  16.            If Total Mod 3 = 0 Or TextBox1.Text = 1 Then
  17.                Label1.Text = ("El n&#250;mero no es Primo")
  18.  
  19.            Else
  20.                Dim resultado As Integer = -1
  21.                Dim n As Double = TextBox1.Text
  22.  
  23.                For i = 2 To Math.Sqrt(n)
  24.                    If n Mod i = 0 Then
  25.                        resultado = 0
  26.                        Exit For
  27.                    End If
  28.                Next
  29.                If resultado = 0 Then Label1.Text = ("El n&#250;mero no es Primo")
  30.                If resultado = -1 Then Label1.Text = ("El n&#250;mero es Primo")
  31.            End If
  32.        End If
  33.    End Sub
  34. End Class
  35.  

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
9  Programación / .NET (C#, VB.NET, ASP) / Ayuda con bucles VB 2010 en: 13 Julio 2012, 10:27 am
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.
10  Programación / Programación Visual Basic / Pregunta muy simple en: 7 Noviembre 2011, 23:35 pm
¿Se puede contar cuantas veces se presiona un botón?
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines