Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Buenos días,

Haciendo el ejercicio 7 correspondiente a la semana 8 me encuentro con el siguiente problema. El programa me entra en un bucle a la hora de ejecutar el Msgbox y de ahí no sale. El código utilizado es el siguiente:

Option Explicit

Dim TotalCemento As Integer
Dim CemEntregado As Integer

Private Sub Form_load()
Form1.Caption = "Control de cemento en almacén"
Label1.Alignment = 2
Label1.Caption = "Por favor, introduzca el total de kilos de cemento a retirar:"
Command1.Caption = "Retirar cemento"
TotalCemento = 25000
End Sub

Private Sub Command1_Click()
Text1 = CemEntregado
Do While TotalCemento >= 6000
CemEntregado = MsgBox("Cemento retirado de almacén")
TotalCemento = TotalCemento - CemEntregado
Loop
Label2.Alignment = 2
Label2.FontBold = True
Label2 = "El inventario ha bajado de 6000 kilos de cemento. Por favor, comuníquelo al almacén"
End Sub

Entiendo perfectamente el porqué entra en el bucle y de ahí no sale. Le estoy diciendo que mientras el TotalCemento sea mayor o igual de 6.000 que muestre el mensaje de "Cemento retirado de almacén" en un msgbox.

Lo que me gustaría saber es cómo solucionar este problema, es decir, como meter la cantidad de kilos a retirar en el TextBox, pulsar sobre el command button, que me muestre el mensaje en el msgbox y acto seguido vuelva a la pantalla principal a poner una nueva cantidad de cemento a retirar hasta que llegue a los 6000 kilos en el almacén y muestre el mensaje final en Label2.

Cualquier ayuda será bienvenida y muy agradecida. Si no queda clara mi explicación, por favor, indicármelo y trataré de aportar nuevos datos.

Muchas gracias de antemano.

Buenos días a todos,

Realizando el psudocódigo del ejercicio 5 de la semana 8 me encuentro en la siguiente situación. Me solicitan que en el pseudocódigo deben de aparecer un acumulador y un interruptor.

El psudocódigo que he creado es el siguiente:

1.Inicio
   2. TotalCajero = 600
   3. Mientras Totalcajero >= 0 Hacer
      Mostrar “Introduzca el importe a extraer”
      Pedir Cantidad
      TotalCajero = TotalCajero – Cantidad
   Repetir
   4. Mostrar “Se ha excedido de la cantidad máxima permitida”
5. Fin

La verdad es que no sé en qué momento o para qué situación disponer de un interruptor en este ejercicio. Entiendo que con este pseudocódigo ya quedaría reflejado que sólo puedo retirar un máximo diario de 600€ y me avisaría en el momento en que superase esa cantidad.

Cualquier correción o ayuda será bienvenida. Gracias.

Saludos.

Hola a todos,

Estoy completamente estancado y necesito vuestra ayuda para abrirme los ojos con el ejercicio 7 correspondiente a la semana 7 del curso de fundamentos de programación.

He creado el pseudocódigo pero soy incapaz de generar el código en VB. Me gustaría empezar por el principio: ¿Es correcto el pseudocódigo?. Porque si no lo es, desde luego estoy perdiendo el tiempo y ya llevo un retraso considerable en la entrega de los ejercicios (lo siento Mario  )

El pseudocódigo es el siguiente:

1. Inicio
 2. Desde i=1 hasta 8 Hacer
   2.1 Leer PersonasTotal
   2.2 PersonasTotal=PersonasTotal + personasEntran(i)
   2.3 Si personasEntran(i)=0 Entonces
         TransitoCero=TransitoCero + 1
         Mostrar "La hora", i, "hubo tránsito cero"
         FinSi
   2.4 Si personasEntran(i)>MaxTransito
         MaxTransito = personasEntran(i)
         HoraMaxTran = i
         FinSi
   Siguiente
 3. Media=PersonasTotal / 8
 4. Mostrar "El total de personas que pasaron fue ", PersonasTotal
 5. Mostar "Las horas de tránsito cero fueron ", TransitoCero
 6. Mostrar "La hora con mayor tránsito fue ", HoraMaxTran
 7. Mostrar "El número medio de personas por hora que entran al supermercado es ", Media
8. Fin

En primer lugar querría saber si el pseudocódigo es correcto y, en caso negativo, qué habría que cambiar.

Agradecería una ayuda para empezar con el código pues, como os comentaba, estoy completamente atascado.

Espero podáis ayudarme.

Muchas gracias,
Javier.
         

Buenos días,

Realizando uno de los ejercicios que se nos solicitan durante el curso de Fundamentos, concretamente a la hora de crear un programa en VB que nos facilite el area de un rectángulo, me surge la siguiente pregunta:

He creado dos Label (Label1 y Label2) y a continuación dos TextBox (Text1 y Text2) donde dejo reflejado los valores que corresponden a la base y la altura del rectángulo. Escribiendo el código para el cálculo del area (AreaRectangulo=Base x Altura) he utilizado la siguiente linea:
AreaRectangulo= Text1 x Text2

El programa funciona correctamente y me calcula el area, me muestra el resultado correctamente en un tercer Label que he creado con ese propósito y demás.

Mi pregunta es, ¿es correcto realizar el cálculo con la linea AreaRectangulo= Text1 x Text2? ¿Existe otra manera de realizar ese cálculo?

Espero haberme expresado con suficiente claridad.

Muchas gracias de antemano por vuestra ayuda.