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....
Renan Silva

Renan Silva

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar