Al otro lado de la pantalla
Se que resultara bastante extraño, pero es que ha ejecutado un bucle sin tener una variable como es de costumbre después
de la instrucción for.
¿ Se inventa la variable ?, ¿ Toma el espacio como una variable ?
Private valores As Float[] = [1.1, 1.2, 1.5, 1.8, 2.2, 2.7, 3.3, 3.9, 4.7, 5.6, 6.8, 8.2]
Public Sub Form_Open()
Dim resisbusca As Float
Dim valorminimo, valormaximo As Float
Dim toleran As Float
Dim x As Integer
Dim y As Integer
Dim n As Integer
Print "Introduce el valor de la resistencia a buscar "
Input resisbusca
Print "¿ Cual es la tolerancia ?."
Input toleran
valorminimo = resisbusca - (resisbusca / 100) * toleran
valormaximo = resisbusca + (resisbusca / 100) * toleran
Print "El valor minimo a encontrar es: " & valorminimo
Print "El valor maximo a encontrar es: " & valormaximo
Print
n = 0
For x = 0 To valores.Max
For y = n To valores.Max
If (valores[x] + valores[y]) >= valorminimo And (valores[x] + valores[y]) <= valormaximo Then
Print valores[x] & " + " & valores[y] & " = " & (valores[x] + valores[y])
Endif
Next
n += 1
Next
End
Public Sub Form_Open()
Dim resisbusca As Float
Dim valorminimo, valormaximo As Float
Dim toleran As Float
Dim x As Integer
Dim y As Integer
Dim n As Integer
Print "Introduce el valor de la resistencia a buscar "
Input resisbusca
Print "¿ Cual es la tolerancia ?."
Input toleran
valorminimo = resisbusca - (resisbusca / 100) * toleran
valormaximo = resisbusca + (resisbusca / 100) * toleran
Print "El valor minimo a encontrar es: " & valorminimo
Print "El valor maximo a encontrar es: " & valormaximo
n = 0
For x = 0 To valores.Max
For y = n To valores.Max
If (valores[x] + valores[y]) >= valorminimo And (valores[x] + valores[y]) <= valormaximo Then
Print valores[x] & " + " & valores[y] & " = " & (valores[x] + valores[y])
Endif
Next
n += 1
Next
End
La aplicación no esta completa, pero quitar la y del bucle y ejecutar. A mi ha ejecutado sin la y
Probar con valores pequeños, aun no he añadido multiplicadores.
La idea de la variable n es para que no repita valores.
Saludos
