จงเขียนโปรแกรมสำหรับคำนวณค่า Mean และ Standard Deviation (Std.) โดยอ่านข้อมูลจากแฟ้มข้อมูล ในตารางที่กำหนดให้ โดยสิ่งที่ต้องแสดงประกอบด้วย
- Expected Value
o Mean
o Std.
- Actual Value
o Mean
o Std.
DATA1.TXT DATA2.TXT
Estimate Proxy Size Development Hours
160 15.0
591 69.9
114 6.5
229 22.4
230 28.4
270 65.9
128 19.4
1657 198.7
624 38.8
1503 138.2
ตัวอย่างข้อมูล
ผลลัพธ์จากแฟ้ม DATA1.TXT
*******************************************************************************
PLEASE INPUT FILE: DATA1.TXT
*******************************************************************************
MEAN
*******************************************************************************
EXPECTED VALUE = 550.6
ACTUAL VALUE = (นิสิตต้องคำนวณค่า MEANเอง) *******************************************************************************
STANDARD DEVIATION
*******************************************************************************
EXPECTED VALUE = 572.03
ACTUAL VALUE = (นิสิตต้องคำนวณค่า Std. เอง) *******************************************************************************
ผลลัพธ์จากแฟ้ม DATA2.TXT
*******************************************************************************
PLEASE INPUT FILE: DATA2.TXT
*******************************************************************************
MEAN
*******************************************************************************
EXPECTED VALUE = 60.32
ACTUAL VALUE = (นิสิตต้องคำนวณค่า MEANเอง) *******************************************************************************
STANDARD DEVIATION
*******************************************************************************
EXPECTED VALUE = 62.26
ACTUAL VALUE = (นิสิตต้องคำนวณค่า Std. เอง) *******************************************************************************
ข้อมูลใน DATA1.TXT คืออะไร ???
ข้อมูลใน DATA2.TXT คืออะไร ???
Mean EXPECTED VALUE เอามาจากไหน ???
Mean ACTUAL VALUE คำนวนยังไง ???
STANDARD EXPECTED VALUE เอามาจากไหน ???
STANDARD ACTUAL VALUE คำนวนยังไง ???
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtMean.Click
_Load(ListBox1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStandard.Click
_Load(ListBox2)
End Sub
Sub _Load(ByRef _Listbox As ListBox)
OpenFileDialog1.Filter = "Text Files | *.txt"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim strFileName As String
strFileName = OpenFileDialog1.FileName
Dim file_name As New FileInfo(strFileName)
Dim myReader As StreamReader
myReader = New StreamReader(strFileName, System.Text.UnicodeEncoding.Default)
Do
_Listbox.Items.Add(myReader.ReadLine())
Loop Until myReader.Peek = -1
End If
End Sub
Private Sub BtCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCal.Click
Dim _dub As Double
For i = 0 To ListBox1.Items.Count - 1
_dub += ListBox1.Items.Item(i)
Next
txtMean.Text = _dub / ListBox1.Items.Count
_dub = 0
For i = 0 To ListBox2.Items.Count - 1
_dub += ListBox2.Items.Item(i)
Next
txtStandard.Text = _dub / ListBox2.Items.Count
End Sub
End Class
***คือผมไม่รู้ว่า
Mean EXPECTED VALUE, STANDARD EXPECTED VALUE เอามาจากไหน จขกท. บอกเอามาจากระบบเดิม ผมหาระบบเดิมไม่เจอผมไม่ใส่นะครับ
และผมก็ไม่รู้ว่า Mean ACTUAL VALUE, STANDARD ACTUAL VALUE คำนวนยังไง ??? ผมเลยมั่วเอาค่าเฉลี่ยแทน