List of T para cálculos com valores declarados em textbox.
17/06/2013
0
Bom dia pessoal,
Preciso criar um "programa" no qual eu insira valores decimais nos "textbox" (por exemplo, do textbox1 ao textbox10) e esse valores sejam agrupados para retornar o resultado da média, variância e alguns outros cálculos estatísticos.
Estou tentando criar um List of T para isso, porém estou com muita dificuldade e não encontrei uma maneira melhor. Alguém sabe como fazer? Ou alguém tem alguma ideia melhor?
Até agora, estou nessa etapa
Imports System
Imports System.Collections.Generic
Public Class frmParametros
Private _average As String
'valores declarados nos textbox
Private Property P1R1 As String
Private Property P1R2 As String
Private Property P1R3 As String
Private Property P1R4 As String
Private Property P1R5 As String
Private Property P1R6 As String
Private Property P1R7 As String
Private Property Average(ByVal list As List(Of ponto1)) As String
Get
Return _average
End Get
Set(ByVal value As String)
_average = value
End Set
End Property
Public Shared Function ToDecimal( _
ByVal value As String _
) As Decimal
Return value
End Function
Private Sub frmParametros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ponto1 As New List(Of Decimal)
txtP1R1.Text = P1R1()
txtP1R2.Text = P1R2()
txtP1R3.Text = P1R3()
txtP1R4.Text = P1R4()
txtP1R5.Text = P1R5()
txtP1R6.Text = P1R6()
txtP1R7.Text = P1R7()
Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
txtMediaP1.Text = Average(List(Of ponto1))
End Sub
Porém, não estou conseguindo retornar o valor. Acusa que falta alguma coisa, não consigo identificar...
Desde já agradeço....
Preciso criar um "programa" no qual eu insira valores decimais nos "textbox" (por exemplo, do textbox1 ao textbox10) e esse valores sejam agrupados para retornar o resultado da média, variância e alguns outros cálculos estatísticos.
Estou tentando criar um List of T para isso, porém estou com muita dificuldade e não encontrei uma maneira melhor. Alguém sabe como fazer? Ou alguém tem alguma ideia melhor?
Até agora, estou nessa etapa
Imports System
Imports System.Collections.Generic
Public Class frmParametros
Private _average As String
'valores declarados nos textbox
Private Property P1R1 As String
Private Property P1R2 As String
Private Property P1R3 As String
Private Property P1R4 As String
Private Property P1R5 As String
Private Property P1R6 As String
Private Property P1R7 As String
Private Property Average(ByVal list As List(Of ponto1)) As String
Get
Return _average
End Get
Set(ByVal value As String)
_average = value
End Set
End Property
Public Shared Function ToDecimal( _
ByVal value As String _
) As Decimal
Return value
End Function
Private Sub frmParametros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ponto1 As New List(Of Decimal)
txtP1R1.Text = P1R1()
txtP1R2.Text = P1R2()
txtP1R3.Text = P1R3()
txtP1R4.Text = P1R4()
txtP1R5.Text = P1R5()
txtP1R6.Text = P1R6()
txtP1R7.Text = P1R7()
Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
txtMediaP1.Text = Average(List(Of ponto1))
End Sub
Porém, não estou conseguindo retornar o valor. Acusa que falta alguma coisa, não consigo identificar...
Desde já agradeço....
Renan Silva
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)