Título: Ayuda para usar MsgBox en Visual Basic Publicado por: zethli en 3 Junio 2020, 06:31 am necesito su ayuda para un proyecto donde debo usar un inputbox para colocar un numero que va a ir decreciendo y usar un Msgbox para que muestre ese decrecimiento en forma de triangulo, ademas de estar bien centrado así:
15 14 15 13 14 15 12 13 14 15 11 12 13 14 15 10 11 12 13 14 15 9 10 11 12 13 14 15 8 9 10 11 12 13 14 15 7 8 9 10 11 12 13 14 15 6 7 8 9 10 11 12 13 14 15 5 6 7 8 9 10 11 12 13 14 15 4 5 6 7 8 9 10 11 12 13 14 15 3 4 5 6 7 8 9 10 11 12 13 14 15 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 El codigo que use es este, me hace la forma pero, los números no me salen bien centrados ¿Qué puedo hacer?, ¿Como seria la condicion? Dim nume As Integer Dim tri, spe, nose As String tri = " " nume = InputBox("ingrese el numero", "entrada de datos") While (nume < 0) MsgBox("ingrese solo valores positivos") nume = InputBox("Ingrese solo números mayores a 0") End While Next For n As Integer = 0 To nume For i As Integer = n To 1 Step -1 If nume < 10 Then tri = tri & n - i + 1 & " " Else tri = tri & nume - i + 1 & " " End If Next tri += vbNewLine Next MsgBox(tri) End Sub Título: Re: Ayuda para usar MsgBox en Visual Basic Publicado por: **Aincrad** en 3 Junio 2020, 16:12 pm necesito su ayuda para un proyecto donde debo usar un inputbox para colocar un numero que va a ir decreciendo y usar un Msgbox para que muestre ese decrecimiento en forma de triangulo, ademas de estar bien centrado así: 15 14 15 13 14 15 12 13 14 15 11 12 13 14 15 10 11 12 13 14 15 9 10 11 12 13 14 15 8 9 10 11 12 13 14 15 7 8 9 10 11 12 13 14 15 6 7 8 9 10 11 12 13 14 15 5 6 7 8 9 10 11 12 13 14 15 4 5 6 7 8 9 10 11 12 13 14 15 3 4 5 6 7 8 9 10 11 12 13 14 15 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 El codigo que use es este, me hace la forma pero, los números no me salen bien centrados ¿Qué puedo hacer?, ¿Como seria la condicion? Dim nume As Integer Dim tri, spe, nose As String tri = " " nume = InputBox("ingrese el numero", "entrada de datos") While (nume < 0) MsgBox("ingrese solo valores positivos") nume = InputBox("Ingrese solo números mayores a 0") End While Next For n As Integer = 0 To nume For i As Integer = n To 1 Step -1 If nume < 10 Then tri = tri & n - i + 1 & " " Else tri = tri & nume - i + 1 & " " End If Next tri += vbNewLine Next MsgBox(tri) End Sub Siempre se te va a ver mal si usas eso ya que el Espacio (" ") no tiene el mismo tamaño que cualquier numero. Tendrias que rellenar con 0 y al final igual te dara error/ bug por las siguientes razones: 1= Que pasaria si meto Letras en el InputBox? 2= Se veria super mal si colocas numeros de mas del 100 en adelante. Bueno te reestructure el codigo . Solucionando todos esos problemas Código
Se vería así : (https://i.ibb.co/yS24mXn/a1.png) (https://i.ibb.co/S73M7Bm/A2.png) Comenta Cualquier cosa si necesitas ayuda Título: Re: Ayuda para usar MsgBox en Visual Basic Publicado por: EdePC en 3 Junio 2020, 20:13 pm Saludos,
- Si se trata de ejercicios de introducción a la programación con sentencias básicas podrías corregir tu código en la parte del If ya que no estás agregando los espacios iniciales si el nume es menor a 10, es más no estás comparando ni mostrando nume correctamente XD: Código
- Lo digo porque algunas veces el profesor pide un algoritmo sencillo de muestra de acuerdo a lo aprendido en clase, es como si se llevara Paint y el profesor pidiera dibujar una casa, y de pronto aparece un alumno que le trae un plano 3D en AutoCAD XD. Título: Re: Ayuda para usar MsgBox en Visual Basic Publicado por: zethli en 4 Junio 2020, 02:54 am Muchas gracias, me han salvado la vida.
|