CONJUNTO DE DADOS DECLARADOS EM [Ô]TEXTBOX[Ô]
Prezados, boa tarde!
Estou com muita dificuldade em elaborar um programa para trabalhar com conjunto de dados e fórmulas estatÃsticas.
Este programa será utilizado para validação de métodos analÃticos em laboratório quÃmico e pretendo que ele funcione da seguinte forma: o usuário irá declarar os valores obtidos na elaboração de uma curva analÃtica de 7 pontos com 7 replicatas e, ao clicar no botão calcular, o programa irá gerar o valor referente à média, desvio-padrão, variância, de cada grupo (grupo [Ô]Ponto 1[Ô], grupo [Ô]Ponto 2[Ô], grupo [Ô]Ponto 3[Ô], etc...) (conforme a figura).
Esses grupos tem como [Ô]integrantes[Ô] os 7 valores das replicatas (replicata 1, replicata 2, replicata 3,..., replicata 7).
A minha dificuldade é agrupar esses valores declarados nos [Ô]textbox[Ô] para que eu consiga gerar os valores de média, desvio-padrão e etc....
O mais próximo que eu cheguei foi declarar os valores no mesmo [Ô]textbox[Ô] separados por vÃrgula, de acordo com a programação abaixo:
dim numeros()
numeros = split(textbox1,[Ô],[Ô])
dim soma
For Each num In numeros soma += num
Next
Porém, esteticamente o programa não ficou muito legal....
Bom, se alguém puder ajudar ou souber de algum caminho, desde já agradeço.
Estou com muita dificuldade em elaborar um programa para trabalhar com conjunto de dados e fórmulas estatÃsticas.
Este programa será utilizado para validação de métodos analÃticos em laboratório quÃmico e pretendo que ele funcione da seguinte forma: o usuário irá declarar os valores obtidos na elaboração de uma curva analÃtica de 7 pontos com 7 replicatas e, ao clicar no botão calcular, o programa irá gerar o valor referente à média, desvio-padrão, variância, de cada grupo (grupo [Ô]Ponto 1[Ô], grupo [Ô]Ponto 2[Ô], grupo [Ô]Ponto 3[Ô], etc...) (conforme a figura).
Esses grupos tem como [Ô]integrantes[Ô] os 7 valores das replicatas (replicata 1, replicata 2, replicata 3,..., replicata 7).
A minha dificuldade é agrupar esses valores declarados nos [Ô]textbox[Ô] para que eu consiga gerar os valores de média, desvio-padrão e etc....
O mais próximo que eu cheguei foi declarar os valores no mesmo [Ô]textbox[Ô] separados por vÃrgula, de acordo com a programação abaixo:
dim numeros()
numeros = split(textbox1,[Ô],[Ô])
dim soma
For Each num In numeros soma += num
Next
Porém, esteticamente o programa não ficou muito legal....
Bom, se alguém puder ajudar ou souber de algum caminho, desde já agradeço.
Cada ponto contém 7 replicatas que são digitadas em 7 diferentes textbox, sendo que cada uma dessas textbox, pode conter mais de um valor, é isso?
Somente um valor por textbox...
Cada replicata é um dado obtido em uma amostra diferente, ou seja, cada valor de textbox é único...
Cada replicata é um dado obtido em uma amostra diferente, ou seja, cada valor de textbox é único...
Alguém sabe?
Simples, use List<T>
Mas como eu associo que os valores da lista são os valores declarados nos [Ô]textbox[Ô] ?
Crie uma classe, com uma propriedade para o tipo de dado e uma para o valor. Crie a lista e adicione na lista todos os campos, especificando o que é e seu valor.
Kerplunk, consegui criar a lista porém, ao adicionar os [Ô]textbox[Ô] com o comando [Ô]lista.add(textbox.text)[Ô] não consigo trabalhar da maneira correta com as variáveis. Tentei declarar como double ou como string, então acho que ou não sei fazer ou estou no caminho errado.
Qual a melhor maneira de se fazer isso?
Tentei outro modo, aparentemente mais certo.
Declarei as variáveis do modo como você explicou, porém, ao executar o comando
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
Ele acusa um erro em
Private Function List(Of ponto1)() As List(Of ponto1)
Throw New
End Function
No qual não consigo declarar a função correta....
Alguém sabe???
Declarei as variáveis do modo como você explicou, porém, ao executar o comando
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
Ele acusa um erro em
Private Function List(Of ponto1)() As List(Of ponto1)
Throw New
End Function
No qual não consigo declarar a função correta....
Alguém sabe???
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...
Alguém sabe?
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...
Alguém sabe?
Tópico encerrado , respostas não são mais permitidas