Memorizador de resultados
Private Sub Command1_Click()
Dim pi
pi = 4 * Atn(1)
Label1.Caption = pi * ((Val(Text1) / 2) ^ 2) * Val(Text2)
Label2.Caption = CDbl(Label2) + CDbl(Label1)
Label3.Caption = CDbl(Label3) + 1
List1.AddItem CDbl(Label1)
End Sub
Hola, os explico: Label 1, calcula un valor. Label2, incrementa el resultado del Label1 de cada operación. Label3, muestra la cantidad de ejecuciones que se han realizado. El List1 almacena los resultados del Label1.
Lo que yo pretendo es que haciendo doble click en el resultado(Label1) almacenado en el List1, el Label2 actualize su valor restando el valor que le hemos sacado, por lo que creo que se debería memorizar el resultado(Label1) asociado con el numero de ejecución(Label3) para poder disponer en todo momento de el valor que se calculó, por ejemplo, hace treinta ejecuciones del botón Command1. Espero que alguien me pueda ayudar de alguna manera. Lo que sea. GRACIAS.
Dim pi
pi = 4 * Atn(1)
Label1.Caption = pi * ((Val(Text1) / 2) ^ 2) * Val(Text2)
Label2.Caption = CDbl(Label2) + CDbl(Label1)
Label3.Caption = CDbl(Label3) + 1
List1.AddItem CDbl(Label1)
End Sub
Hola, os explico: Label 1, calcula un valor. Label2, incrementa el resultado del Label1 de cada operación. Label3, muestra la cantidad de ejecuciones que se han realizado. El List1 almacena los resultados del Label1.
Lo que yo pretendo es que haciendo doble click en el resultado(Label1) almacenado en el List1, el Label2 actualize su valor restando el valor que le hemos sacado, por lo que creo que se debería memorizar el resultado(Label1) asociado con el numero de ejecución(Label3) para poder disponer en todo momento de el valor que se calculó, por ejemplo, hace treinta ejecuciones del botón Command1. Espero que alguien me pueda ayudar de alguna manera. Lo que sea. GRACIAS.
1 respuesta
Respuesta de leosoft
1