jejejejejeje pos... sip.... aprendi muxo y seguire aprendiendo eso siempre.y cuando.. me enseñen.. jejejje y pa ir io mediante el internet.. toodo lo nuevo q dan pues.. consultar gracias... a todos....¡¡¡ jejjej
lo analice bn.. lo logre.. ahora... para q vean q io no hago deberes..¡¡¡¡ pos tenia planeado estudiar cada una de las cosas nuevas q agragaban en el codigo y si me intereso en aprender...¡¡¡¡ trankilos...¡¡¡¡ solo hice un intento y pedi ayuda nadies es perfecto icluso uno de uds.. a de haber pedido ayuda en algun momento.... asi mismo con los errores.. q por mas q los analicen se hacen faciles..¡¡¡¡¡
en la primera codificacion q envie de este mismo ejercicio.... intente eso... incluso cambie las declaraciones.. pro.. en ese caso... me empieza a sumar los numeros.. en un solo label o etiqueta..¡¡¡¡
mira esta es otro codigo con el que intente hacer.... el programa.. pro es lo mismo....me salen los numeros sumados... en cada label........
Dim promo As Integer Dim apro As Integer Dim apla As Integer ------------------------------------------------------------------------------------------------------------- Private Sub Command1_Click() If Text1 >= 7 Then Label11.Caption = 1 Else End If If Text1 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text2 >= 7 Then Label11.Caption = 1 Else End If If Text2 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text3 >= 7 Then Label11.Caption = 1 Else End If If Text3 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text4 >= 7 Then Label11.Caption = 1 Else End If If Text4 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text5 >= 7 Then Label11.Caption = 1 Else End If If Text5 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text6 >= 7 Then Label11.Caption = 1 Else End If If Text6 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text7 >= 7 Then Label11.Caption = 1 Else End If If Text7 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text8 >= 7 Then Label11.Caption = 1 Else End If If Text8 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text9 >= 7 Then Label11.Caption = 1 Else End If If Text9 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If If Text10 >= 7 Then Label11.Caption = 1 Else End If If Text10 >= 4 Then Label12.Caption = 1 Else Label13.Caption = 1 End If End Sub
grasia men....pro mira ahora tengo este otro.... no lo tomes como molestia esq de vdd nesesito ayuda.. mira este.. es casi lo mismo.. kisiera ver si me puede corrregir es casi la misma codificacion q utilizaba en el anterior...... Ingresar las notas de 10 alumnos pertenecientes a un curso e indicar: Cantidad de alumnos que aprobaron con una nota comprendida entre 4 y 6. Cantidad de alumnos aplazados (nota menor a 4). Cantidad de alumnos promocionados (nota superior o igual o 6).
esta es la codificacion Private Sub Command1_Click() Dim n As Integer For I = 1 To 10 n = Val(InputBox("Dame un NOTAS", "INGRESA LOS NOTAS########")) If n >= 6 Then Label1.Caption = n Else End If If n >= 4 Then Label2.Caption = n Else Label3.Caption = n End If Next I End Sub
te agradeceria si me ayudaras...¡¡¡¡¡¡ y de la q me salvas..¡¡