Mensajes

Las operaciones no son las mismas y los resultados de las orillas sí te los dan.

Claro, el juego consiste en rellenar las casillas que están en blanco con números del 0 al 9 (incluidos los dos)
Las "x" son los sitios donde faltan los números.
n es un número que ya te dan.

x - x + x    =8
-   +    +
x+ n  / x    =2
/    -    *   
x +x+  x   =9

=   =   =
2    4    8

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.

Muchas gracias $Edu$ no sabía eso la pagina que me diste y lo explica muy bien.

Tengo otra pregunta
Yo hice este programa en el cual tú ingresas un nº en un textbox y te devuelve en un label el nº de veces que ha salido el 1  aleatoriamente y en otro label el nº de veces que ha salido el 2 aleatoriamente  (nota: los dos label sumados tienen que dar el textbox) y en otro label sale la diferencia de los otros labels anteriores.

Código [Seleccionar] Expandir

   Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click     
        If Not IsNumeric(TextBox4.Text) Then Exit Sub
        Label16.Text = ""
        Label7.Text = ""       
        Label5.Text = ""
        If Label16.Text = "" Then Label16.Text = 0
        If Label7.Text = "" Then Label7.Text = 0
        Dim a As Double
        Dim b As Integer = TextBox4.Text
        For b = 1 To b
            a = Rnd()
            If a < 0.5 Then Label16.Text = Label16.Text + 1
        Next b
        Label7.Text = TextBox4.Text - Label16.Text
        If Label5.Text = "" Then Label5.Text = 0
        Label5.Text = Label16.Text - Label7.Text
    End Sub

Lo que quiero hacer es otro programa en el cual en un textbox ingresas un nº y haga lo mismo que en el programa anterior pero en este quiero que se repita el proceso hasta que el valor absoluto del label de la diferencia  de los otros dos labels sea igual a el textbox y en un labelsolución me de el número de veces que se ha tenido que ejecutar. En este caso los dos labels y el label de la diferencia serán variables.


He intentado hacer lo que he podido pero no me sale porque cuando lo ejecuto tarda, puffff y eso no debería ser normal cuando se utilizan números pequeños.

Código [Seleccionar] Expandir

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        If Not IsNumeric(TextBox6.Text) Then Exit Sub
       Labelsolución.Text = ""
        If Labelsolución.Text = "" Then Labelsolución.Text = 0
        Dim x As Integer
        Dim z As Integer
        Dim g As Integer
        Dim t As Integer
        Do Until TextBox6.Text = t Or TextBox6.Text = t * (-1)
            Dim a As Double
            Dim b As Double = TextBox6.Text
            For b = 1 To b
                a = Rnd()
                If a < 0.5 Then z = z + 1
            Next b
            g = TextBox6.Text - z
            t = z - g
            x = x + 1
        Loop
        Labelsolución.Text = x
    End Sub

Por si no lo entendéis (seguro porque lo puse complicado):

Ejemplo:
TextBox6.Text = 4
Entonces:
z = 0
g = 4
t = -4
Valor absoluto de -4 = 4
TextBox6.Text = valor absoluto de t
y como solamente he necesitado ejecutarlo 1ª vez entonces en el label solución debe poner "1"

Ejemplo 2:
TextBox6.Text = 5
Entonces:
z = 3
g = 2
t = 1
Se repite porque val abs de t no es 5 y a labelsolución se le suma 1 por haber ejecutado el proceso una vez.

z = 5
g =0
t = 5
Como val abs de t es 5 y TextBox6.Text = 5 ya he acabado porque son iguales entonces a labelsolución se le suma otro
Entonces labelsolución tiene que poner 2 porque ha tenido que ejecutarse dos veces.

Espero que lo hayan entendido y gracias de antemano.

No entiendo para que es lo de timer.

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

Está genial tu código muchas gracias AbrahamAraon

Me he dado cuenta de que cuando ingreso en el programa "20" el resultado siempre es el mismo y no lo entiendo por que sale.
Sale estos números en orden como están y luego cuando ya ha salido el último salen los que tienen "^" siempre y no lo entiendo ya que es un programa de azar.

714714
1503551
268374   ^
1224009 ^
4783897 ^
1262185 ^
2050540 ^
3896331 ^
1788329 ^
1503551 ^

¿Alguien me puede ayudar a solucionarlo y a ver por qué pasa?

AbrahamAraon está muy bien el código que me has dado, funciona muy bien (No se si mejor o peor) pero lo que no consigo hacer es cambiar mi código para que me genere números primos en un listbox con dos textbox un número de inicio para generar números primos y un límite y el botón para ejecutarlo.
¿Me podrían ayudar a cambiarlo?

Y otra cosa en mi código cuando lo ejecuto solo me proporciona la respuesta a números menores de 10 dígitos. Si son 10 o más me da error y se para.
¿Cómo puedo solucionarlo?