SoloCodigo

necesito que me expliquen por favor como se haria este programa en visual  me lo dejaron en la escuela por favor estoy deseperado:


lo k pasa es k es para una lavanderia hay tres lavadoras una grande para capaciad de 30 unidades la mediana para capacidad d 25 y la combinada k es donde pueden echar un numero sobrante
por ejemplo en la mediana cada 25 unidades es un carga
y por ejmeplo kieren lavar 180 manteles
entonces esos 180 se tienen k distribuir en las 3 lavadoras d tal modo k el sistema les diga cuantas cargas debe hechar a cada una tomando en cuenta k estas trabajan al mismo tiempo.

se los agradecere

hola f_tanori mira el codigo es este respecto al programa de lavanderia solo k al correrlo en vez d desplazarme cuantas cargas debe ser por cada lavadora me pone el numero mil k es el k le puse en el ciclo segun yo el limite de piezas del producto
Private Sub Command1_Click()
Dim suma As Integer
Dim I As Integer
suma = 0

y = InputBox("CAPTURA LA DESCRIPCION A LAVAR.")


If y = "TABLON" Or y = "tablon" Then
Label5.Caption = y
Text2.Text = "30"
Text3.Text = "40"

X = InputBox("NUMERO DE PIEZAS:")
 For I = 1 To 1000 Step 1
 If (X = Val(Text2.Text) + Val(Text3.Text)) Then
  suma = suma + 1
  Label7.Caption = suma
  Else
  I = I + 1
 
  End If
 Next I
 End If
 

t agradeceria lo checaras y k es lo ke stamos haciendo mal

saludos

lo k pasa es k trabajan 3 lavanderias la mediana la grande y combinada al mismo  tiempo en el programa me pide la descripcion del producto
y = InputBox("CAPTURA LA DESCRIPCION A LAVAR.")
ya k depende del producto es la capacidad maxima para cada lavadora y cuantas piezas se van a lavar yo toomo en cuenta que son mil piezas por cada producto e intento parrtir d ese numero, entonces despues d k pide la descripcion le va a dar la capacidad maxima en este caso se trata de tablones y al caturar tablon me va a decir k en la mediana tiene un max d 30 y en la grande un max d 40
If y = "TABLON" Or y = "tablon" Then
Label5.Caption = y
Text2.Text = "30"
Text3.Text = "40"


 despues capturan el numero d piezas a lavar
X = InputBox("NUMERO DE PIEZAS:")

por ejemplo son 100 piezas las k van a lavar lo k kiero lanzar como resultado es el numero d cargas  k debe tener cada lavadora ya k por cada 30 y 40 pzas sera una carga respectivamente asta llegar a las 110
30                   +             40                                  + 10 k se van a la combinada
1 carga                            1 carga   =llevo 70 pzas
1 carga                                                                  1 carga
completo las 110pzas

en este caso el resultado seria

mediana                     grande                  combinada
2                                   1                              1           no. de cargas a lavar


esto es lo k precisamente el programa debe lanzar como resultado es por eso k le meti un ciclo y dentro del ciclo un contador

For I = 1 To 1000 Step 1
 If (X = Val(Text2.Text) + Val(Text3.Text)) Then
  suma = suma + 1
  Label7.Caption = suma
  Else
  I = I + 1
 
  End If
 Next I
 End If
para 1000 pzas
si x(no d pzas a lavar) va a ser igual a 70 ya k trabajan al mismo tiempo entonces sera igual a una carga con el contador suma=suma+1 tomando en cuenta k como inicia el ciclo la suma es =0 y lo visualiza en una etiketa si no es asi regresa al ciclo, o acaso esta mal mi metodologia???


d antemano muchas gracias y espero puedas entenderlo


saludos  

tienes razon muchas gracias por tu respuesta seguiere en busca d una nueva solucion.......

gracias tambien habia pensado en un while entonces podria decirse:

mientras

x sea mayor o menor a la suma de las dos lavadoras se incrementara en 1 lavadora mediana

tomando en cuenta k x es la cantidad k insertara el usuario kedaria asi:
Do While (x >= (text2.text+text3.text))
        text2.Text = text2.Text + 1
        text3.Text = text3.Text + 1
         x=((text2.text)+(text3.text))

hasta hay kedaria para las dos lavadoras las cuales cuenta con un cierto numero d capacidad entonces para la combinadale inserto una condicion:

si x es mayor o igual a la capacidad d la lavadora gde incremento en esta, y decremento x a la capacidad de la lavadora grande y lo mismo hago con la mediana

muchas gracias por la aportacion

lo intentare con un while y condiciones

saludos

aah si es verdad gracias por marcarme ese error tienes razon mira ahora mi codigo esta asi

txtMediana.Text = 0
    txtGrande.Text = 0
    txtMixta.Text = 0
   
Y = InputBox("CAPTURA LA DESCRIPCION A LAVAR.")


If Y = "TABLON" Or Y = "tablon" Then
Label5.Caption = Y
Text2.Text = "30"
Text3.Text = "40"
cantidad = InputBox("¿CUANTAS PIEZAS VAS A LAVAR?:", "PIEZAS", "0", 0, 0)

Do While (cantidad >= 70)
        txtGrande.Text = txtGrande.Text + 1
        txtMediana.Text = txtMediana.Text + 1
        cantidad = cantidad - 70
    Loop
    If (cantidad >= 40) Then
        txtGrande.Text = txtGrande.Text + 1
        cantidad = cantidad - 40
    ElseIf (cantidad >= 30) Then
        txtMediana.Text = txtMediana.Text + 1
        cantidad = cantidad - 30
    End If
    txtMixta = cantidad
    End If
   

End Sub


solo k ahora tengo otro problema ya k uso cajas d inputbox para insertar la cantidad al dar aceptar me da las cantidades pero por ejemplo si el usuario se ekivoca vez k aparece la caja del mensaje con los botones aceptar y cancelar si le da cancelar me marca un error en un mensaje dociendome k no coinciden los tipos tu sabes por k??? me pasa esto..

d antemano muchas gracias por sus aportaciones

saludos

Otro consejo es que ejecutes tu programa paso a paso ( "F8" ) y vallas viendo que valores van tomando las variables, eso puede ser muy útil para detectar errores como esos (Hubieras visto que la variable "cantidad" tomaba un valor nulo y aún así intentabas realizar operaciones con ella).

PD: Para comprobar si el usuario ha ingresado la palabra tablon sin importar como haya utilizado las mayúsculas y minúsculas (Ej: "TaBlOn") usá: UCase convierte una cadena a mayúsculas.

Un saludo

OTRA PREG...¿COMO PUEDO HACER PARA REDONDEAR LAS CANTIDADES?.....POR EJEMPLO SI MI RESULTADO ES LANZADO EN UN TEXT ..SU VALOR ES 99.999999 COMO PODRIA CAMBIAR ESE NUMERO A 100 PARA QUE QUEDE RENDONDEADO....ESPERO PUEDAN AYUDARME Y GRADESCO SU ATENCION....SALUDOS