Programación General > Visual Basic 6.0 e inferiores
Ayuda Con Programa
Josephb de Joshua:
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
F_Tanori:
Muy bien ¿cual es el problema con eso? te recuerdo que en solocodigo no se le hace la tarea a nadie, indica cual es tu duda en concreto ;)
y se te ayudara
Saludos
yessi11111:
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 :P
Toph:
--- Cita de: "yessi11111" ---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
--- Fin de la cita ---
:huh: No entiendo que es lo que estas queriendo hacer pero te aparece 1000 porque en esta parte:
--- Cita de: "yessi11111" ---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
--- Fin de la cita ---
si el numero de piezas es 70 entra en el if y de ahi no se sale hasta que I = 1000, ya que la primera vez se pregunta x=70 si es cierto entonces suma vale 1, pone eso en label7.caption, luego con next I vuelve al lazo For a preguntarse lo mismo y X va a seguir siendo 70 porque en ninguna parte se decrementa este valor por lo que esto se va a hacer hasta que I sea igual a 1000 que es el ultimo valor que queda en suma y se muestra en label7.caption , el label 7 cambia de 1 a 1000 pero lo hace tan rapido que solo se ve el numero final. Esto lo puedes comprobar si lo corres paso a paso.
Como te digo no entiendo muy bien que es lo que quieres hacer exactamente, seria bueno que pusieras el algoritmo del programa :comp:
saludos :hola:
yessi11111:
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 :(
Navegación
[#] Página Siguiente
Ir a la versión completa