รายงานผลการวิจัย DPUlibdoc.dpu.ac.th › research › 145513.pdf ·...

รายงานผลการวจย

เรอง

การพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถตในชวตประจ าวน

The Development of Program for Testing Knowledge and Understanding on

Mathematics and Statistics for Daily life

โดย

นภาภรณ จนทรศพท

รายงานการวจยนไดรบทนอดหนนจาก มหาวทยาลยธรกจบณฑตย พ.ศ. 2554

DPU

ค

ชอเรอง การพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถตในชวตประจ าวน

ผวจย นภาภรณ จนทรศพท สถาบน มหาวทยาลยธรกจบณฑตย ปทพมพ 2555 สถานทพมพ มหาวทยาลยธรกจบณฑตย แหลงทเกบรายงานการวจยฉบบสมบรณ จ านวนหนางานวจย 212 หนา : มหาวทยาลยธรกจบณฑตย ค าส าคญ - ลขสทธ มหาวทยาลยธรกจบณฑตย

บทคดยอ

การพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถตในชวตประจ าวน มวตถประสงคเพอพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถตในชวตประจ าวน โดยสรางแอพพรเคชนอยางงายขนดวยโปรแกรม Visual Basic 6.0 เพอค านวณหาอตราสวนอยางต า ตรวจสอบอตราสวนทเทากน ค านวณอตราสวนตอเนอง การแปลงอตราสวนใดๆใหอยในรปรอยละหรอเปอรเซนต การค านวณในเรองดอกเบยเชงเดยว หรอดอกเบยคงตน ค านวณหาดอกเบย ค านวณหาเงนตน ค านวณหาอตราดอกเบย และการค านวณหาระยะเวลา การค านวณในเรองดอกเบยทบตน ค านวณหาเงนรวมเมอครบ n งวด ค านวณหาเงนตน และค านวณหาดอกเบย การค านวณในเรองมลคาของเงนในอนาคต ค านวณหามลคาของเงนในอนาคต ค านวณหาเงนรายงวด และค านวณหาดอกเบย การค านวณในเรองมลคาปจจบนของเงน ค านวณมลคาปจจบนของเงน ค านวณหาเงนรายงวด และค านวณดอกเบย และการค านวณหาคาสถตเชงพรรณนาทงกรณขอมลไมแจกแจงความถและกรณขอมลแจกแจงความถ โดยค านวณหาคาสถต 2 กลม คอ กลมทหนงค านวณหาคาสถตทใชวดแนวโนมเขาสสวนกลางของขอมล ประกอบดวย คาเฉลย มธยฐาน ฐานนยม และกลมทสองค านวณหาคาสถตทใชวดการกระจายของขอมล ซงม 2 ประเภท คอ หนงการวดการกระจายสมบรณ ประกอบดวย พสย ความแปรปรวน และคาเบยงเบนมาตรฐาน และสองการวดการกระจายสมพทธ ประกอบดวย สมประสทธของพสย และสมประสทธความแปรผน

DPU

ง

Title : The Development of Program for Testing Knowledge and Understanding on Mathematics and Statistics for Daily life Researcher: Napaporn Juntarasab Institution : Dhurakij Pundit University Year of Publication : 2012 Publisher : Dhurakij Pundit University Sources : Dhurakij Pundit University No. of page : 212 pages Keyword : - Copy right : Dhurakij Pundit University

Abstract The objectives of The Development of Program for Testing Knowledge and Understanding on Mathematics and Statistics for Daily life has an objectives for development program for testing knowledge and understanding on mathematics and statistics for daily life subject. By create application with Visual Basic 6.0 for calculate simple ratio equal ratio continuous ratio transform ratio to percent simple interest compound interest flat rate future value present value descriptive statistics compose with central tendency mean median mode and measure of dispersion compose with range variance standard deviation coefficient of range and coefficient of variation for frequency and non frequency data.

DPU

จ

กตตกรรมประกาศ ขอขอบคณมหาวทยาลยธรกจบณฑตยส าหรบทนในการท างานวจย ทงในสวนของอปกรณ เครองมอ แหลงขอมล บคลากร หนวยงานทเกยวของทชวยใหท างานวจยนส าเรจลลวงดวยด ผทรงคณวฒทชวยตรวจทานรายงานวจยนเพอการปรบปรงแกไขใหมความถกตองเหมาะสมมากขน หากมความผดพลาดประการใดตองขออภยไว ณ โอกาสน

ผวจย

DPU

ฉ

สารบญ

หนา

บทคดยอภาษาไทย ค บทคดยอภาษาองกฤษ ง กตตกรรมประกาศ จ สารบญ ฉ สารบญรป ซ

บทท 1 บทน า 1

-ทมาและความส าคญของปญหา 1 -วตถประสงค 2 -ขอบเขตการวจย 2 -ประโยชนทคาดวาจะไดรบ 3

บทท 2 เอกสารและงานวจยทเกยวของ 4

-เนอหาในวชาคณตศาสตรและสถตในชวตประจ าวนทน ามาใช ในการพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจ

-อตราสวน 6 -อตราสวนอยางต า

-อตราสวนทเทากน -อตราสวนตอเนอง

-การแปลงอตราสวนใหอยในรปรอยละหรอเปอรเซนต

-ดอกเบย 7

-ดอกเบยคงตน 7 -ดอกเบยคงท 12 -ดอกเบยทบตน 13

-มลคาของเงนในอนาคต 18 -มลคาปจจบนของเงน 20

DPU

สารบญ (ตอ)

หนา

-การวดแนวโนมเขาสสวนกลาง 21 -การวดการกระจายของขอมล 26

-ความร 34

-เอกสารและงานวจยทเกยวของ 38

-กรอบแนวคดในการวจย 39

บทท 3 ระเบยบวธการวจย 41

บทท 4 ผลการวจย 56

บทท 5 สรปผล อภปรายผล และขอเสนอแนะ 121

บรรณานกรม 124 ภาคผนวก ก. ภาษาคอมพวเตอร Visual Basic 6.0 127

ข. ประวตผวจย 212

DPU

ซ

สารบญรป รปท หนา

1 หนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ 57

2 หนาจอโปรแกรมค านวณหาอตราสวนอยางต า 58


4 หนาจอโปรแกรมค านวณหาอตราสวนทเทากน 60

5 หนาจอโปรแกรมค านวณหาอตราสวนทเทากน 62


7 หนาจอโปรแกรมค านวณอตราสวนตอเนอง 64


9 หนาจอโปรแกรมส าหรบการแปลงอตราสวนใดๆใหอยในรปรอยละ 67


11 หนาจอโปรแกรมส าหรบเลอกคาทตองการค านวณเกยวกบดอกเบยคงตน 69

12 หนาจอโปรแกรมค านวณหาดอกเบย 70

13 หนาจอโปรแกรมค านวณหาดอกเบยเมอแสดงขอความเตอน 72

กรณขอมลไมสมบรณ

14 หนาจอโปรแกรมค านวณหาดอกเบยเมอแสดงขอความเตอน 73


15 หนาจอโปรแกรมค านวณหาดอกเบยเมอระยะเวลาเปนจ านวนวน 74

16 หนาจอโปรแกรมส าหรบเลอกคาทตองการค านวณ 75

DPU

ฌ

สารบญรป (ตอ) รปท หนา

17 หนาจอโปรแกรมส าหรบค านวณหาเงนตน 76

18 หนาจอโปรแกรมค านวณเงนตนเมอแสดงขอความเตอน 77



20 หนาจอโปรแกรมค านวณหาอตราดอกเบย 79


เมอระยะเวลาเปนจ านวนเดอน

22 หนาจอโปรแกรมค านวณหาอตราดอกเบยเมอแสดงขอความเตอน 82




25 หนาจอโปรแกรมค านวณหาระยะเวลา 85

26 หนาจอโปรแกรมค านวณหาระยะเวลาเมอแสดงขอความเตอน 86



28 หนาจอโปรแกรมส าหรบค านวณดอกเบยคงท 88

29 หนาจอโปรแกรมค านวณหาดอกเบยคงทเมอแสดงขอความเตอน 89


DPU

ญ



31 หนาจอโปรแกรมส าหรบค านวณดอกเบยทบตน 91

32 หนาจอโปรแกรมส าหรบค านวณดอกเบยทบตน 93

33 หนาจอโปรแกรมค านวณหาดอกเบยทบตนเมอแสดงขอความเตอน 94







37 หนาจอโปรแกรมส าหรบค านวณมลคาของเงนในอนาคต 98

38 หนาจอโปรแกรมส าหรบค านวณมลคาของเงนในอนาคต 100

39 หนาจอโปรแกรมค านวณมลคาของเงนในอนาคตเมอ 101

แสดงขอความเตอนกรณขอมลไมสมบรณ


41 หนาจอโปรแกรมส าหรบค านวณมลคาปจจบนของเงน 103

42 หนาจอโปรแกรมส าหรบค านวณมลคาปจจบนของเงน 105

DPU

ฎ


43 หนาจอโปรแกรมค านวณมลคาปจจบนของเงนเมอ 106

แสดงขอความเตอนกรณขอมลไมสมบรณ


45 หนาจอโปรแกรมส าหรบค านวณคาสถตเบองตน 108

ส าหรบขอมลไมแจกแจงความถ






ส าหรบขอมลไมแจกแจงความถกรณขอมลไมสมบรณ



ส าหรบขอมลแจกแจงความถ





DPU

ฏ



ส าหรบขอมลแจกแจงความถกรณขอมลไมสมบรณ





56 หนาจอโปรแกรมส ารวจความพงพอใจจากการใชงานโปรแกรม 120

DPU

บทท 1

บทน า

ความเปนมาของปญหา

ในการเรยนวชาทเกยวของกบการค านวณดานคณตศาสตรไมวาจะเปนคณตศาสตรพนฐานหรอคณตศาสตรข นสง การท าแบบฝกหดเพอฝกฝน และเพมทกษะในการค านวณเพอหาค าตอบส าหรบผเรยนเปนสงทส าคญไมวาจะเปนโจทยแบบฝกหดทมอยทวไปตามเนอหาในแตละเรองแตละบทเรยน ทผสอนมอบหมาย หรอ เปนโจทยทผสอนมอบหมายใหผเรยนคดและเขยนขนเองโดยดตวอยางแนวทางในการเขยนโจทยจากตวอยางโจทยทมอย ลวนแตมประโยชนมากบางนอยบางขนอยกบตวผเรยนเปนส าคญ ส าหรบในการเรยนวชาคณตศาสตรและสถตในชวตประจ าวนนน เนอหาวชามทงในสวนของการค านวณ เชน อตราสวน อตราสวนอยางต า อตราสวนตอเนอง รอยละ ดอกเบยเชงเดยว ดอกเบยทบตน มลคาปจจบนของเงน การวเคราะหขอมลขนตนดวยสถตเชงพรรณนาซงประกอบดวย การวดแนวโนมเขาสสวนกลาง การวดการกระจายของขอมล ส าหรบขอมลทแจกแจงความถและขอมลทไมแจกแจงความถ ซงเปนการค านวณเบองตนเทานน และเนอหาทไมมการค านวณแตเปนเนอหาเรองราวรอบตวในชวตประจ าวน เชน เรองเกยวกบการประกนภย ภาษเงนไดบคคลธรรมดา สถตกบการด ารงชวต การเกบรวบรวมขอมล และการน าเสนอขอมล ซงในการเรยนการสอนนนโจทยทใชในการฝกทกษะส าหรบการหาค าตอบนน มทงโจทยทผสอนมอบหมายใหผเรยน โจทยทผเรยนคนควาหาเพมเตมเพอฝกฝนทกษะเอง หรอบางกรณเปนโจทยทผสอนมอบหมายใหผเรยนคดและเขยนโจทยและหาค าตอบดวยตนเอง ซงไดแนวคดมาจากการเขาอบรม และน ามาใชในการเรยนการสอน ซงผเรยนแตละคนจะเขยนโจทยทแตกตางกน และมค าตอบทแตกตางกน ในสวนของผสอนตองใชเวลาในการตรวจค าตอบคอนขางนาน ดงนน จงมแนวคดทจะพฒนาโปรแกรมนขน เพอชวยในการตรวจค าตอบส าหรบเนอหาในสวนทมการค านวณ ซงเปนโปรแกรมทสามารถใชไดทงผเรยนและผสอน ในสวนของผเรยนสามารถทจะใชโปรแกรมนชวยในการตรวจทานค าตอบทตนเองค านวณไดวาค านวณไดถกตองหรอไม ไมวาจะเปนโจทยแบบฝกหดทผสอนมอบหมาย หรอเปนโจทยทผเรยนคนควาเพมเตมมาเพอฝกฝนทกษะในการหาค าตอบ หรอเปนโจทยทผเรยนคดและเขยนขนเอง โดยผเรยนสามารถทจะตรวจทานค าตอบ

DPU

- 2 -

ได ซงหากค าตอบทค านวณไดนน ตรงกบค าตอบทใชโปรแกรมในการหาค าตอบกเปนสงทบงบอกไดสงหนงวาผเรยนมความรความเขาใจในเนอหา และวธการค านวณหาค าตอบไดถกตอง

วตถประสงค

เพอพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจของนกศกษาส าหรบวชาคณตศาสตรและสถตในชวตประจ าวน

ขอบเขตการวจย

ส าหรบการพฒนาโปรแกรมน สรางขนเพอใชชวยตรวจค าตอบ จากโจทยทผเรยนก าหนดขนเอง หรอโจทยทผสอนมอบหมาย หรอโจทยทมอยในหนงสอ เอกสารประกอบการสอน ตามเนอหาในวชาคณตศาสตรและสถตในชวตประจ าวนครอบคลมรายละเอยด ดงน

1. อตราสวน

1.1 อตราสวนอยางต า อตราสวนทเทากน อตราสวนตอเนอง 1.2 การเปลยนอตราสวนใหอยในรปรอยละหรอเปอรเซนต

2. ดอกเบย

2.1 ดอกเบยเชงเดยว (Simple Interest) ซงมทงกรณทค านวณหา 2.1.1 ดอกเบย 2.1.2 เงนตน 2.1.3 อตราดอกเบย 2.1.4 ระยะเวลา 2.2 ดอกเบยคงท (Flat Rate) 2.3 ดอกเบยทบตน(Compound Interest)

3. มลคาปจจบนของเงน

3.1 มลคาของเงนในอนาคต 3.2 มลคาปจจบนของเงน

DPU

- 3 -

4. การวเคราะหขอมลขนตนดวยสถตเชงพรรณนา ทงขอมลแจกแจงความถและขอมลไมแจกแจงความถ ซงประกอบดวยการหาคาสถต ดงน

4.1 การวดแนวโนมเขาสสวนกลาง ประกอบดวย คาเฉลย มธยฐาน และฐานนยม

4.2 การวดการกระจายของขอมล ประกอบดวย 4.2.1 การวดการกระจายสมบรณ คอ พสย ความแปรปรวน และคา เบยงเบนมาตรฐาน

4.2.2 การวดการกระจายสมพทธ คอ สมประสทธพสย และ สมประสทธความแปรผน

ประโยชนทคาดวาจะไดรบ

1. เปนโปรแกรมทชวยผเรยนในการเรยนวชาคณตศาสตรและสถตในชวตประจ าวน ซงสามารถวดความรความเขาใจของผเรยน โดยชวยในการตรวจทานค าตอบจากโจทยของผเรยนเมอมการท าแบบฝกหดทบทวนบทเรยนนอกหองเรยน ไมวาจะเปนโจทยทผสอนมอบหมายหรอเปนโจทยทผเรยนคดและเขยนขนเอง

2. เปนโปรแกรมส าหรบชวยผสอนในการสอนวชาคณตศาสตรและสถตในชวตประจ าวน ซงสามารถวดความรความเขาใจของผเรยน และชวยในการตรวจค าตอบของผเรยนได โดยเฉพาะกรณทผสอนมอบหมายใหผเรยนคดและเขยนโจทยขนเอง ซงเปนโจทยทแตกตางกน โปรแกรมนจะชวยใหเพมความรวดเรวใหกบผสอนในการตรวจทานค าตอบของนกศกษา รวมทงใชประโยชนอนๆ เชน ตรวจทานค าตอบส าหรบการจดท าขอสอบไมวาจะเปนขอสอบเกบคะแนน หรอขอสอบกลางภาค และปลายภาค

DPU

บทท 2

เอกสารและงานวจยทเกยวของ

การพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถต

ในชวตประจ าวน ผวจยไดเรยบเรยงเนอหาไวตามล าดบ ดงน 1.เนอหาในวชาคณตศาสตรและสถตในชวตประจ าวนทน ามาใชในการพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจ ประกอบดวย

1.1 อตราสวน 1.1.1 อตราสวนอยางต า

1.1.2 อตราสวนทเทากน 1.1.3 อตราสวนตอเนอง

1.1.4 การแปลงอตราสวนใหอยในรปรอยละหรอเปอรเซนต

1.2 ดอกเบย

1.2.1 ดอกเบยคงตน (Simple Interest) ซงมทงกรณทค านวณหา 1.2.1.1 ดอกเบย 1.2.1.2 เงนตน 1.2.1.3 อตราดอกเบย 1.2.1.4 ระยะเวลา 1.2.2 ดอกเบยคงท (Flat Rate) 1.2.3 ดอกเบยทบตน(Compound Interest)


DPU

- 5 -

1.5 การวดแนวโนมเขาสสวนกลาง ประกอบดวย คาเฉลย มธยฐาน และฐานนยม 1.6 การวดการกระจายของขอมล ประกอบดวย 1.6.1 การวดการกระจายสมบรณ คอ พสย ความแปรปรวน และ คาเบยงเบนมาตรฐาน 1.6.2 การวดการกระจายสมพทธ คอ สมประสทธพสย และ สมประสทธความแปรผน

2. ความร

2.1 นยามของความร 2.2 การจ าแนกความร 2.2.1 ความรตามลกษณะ 2.2.2 ความรตามโครงสราง 2.2.3 ความรและอ านาจ 2.2.4 ความรภายใตบรบทเฉพาะ 2.3 สงคมวทยาความร

3. เอกสารและงานวจยทเกยวของกบพฤตกรรมการเรยน ความสมพนธระหวาง พฤตกรรมการเรยนกบผลสมฤทธทางการเรยน 4. กรอบแนวคดในการวจย

DPU

- 6 -

1.เนอหาในวชาคณตศาสตรและสถตในชวตประจ าวนทน ามาใชในการพฒนาโปรแกรมประกอบดวย

1.1 อตราสวน

1.1.1 อตราสวนอยางต า

อตราสวนอยางต า คอ อตราสวนเปรยบเทยบของปรมาณ 2 ปรมาณขนไปในรปของจ านวนเตมลงตวทนอยทสด ในการเขยนอตราสวนนยมเขยนเปนอตราสวนอยางต าเพราะงายตอการค านวณ เชน อตราสวน 10 : 100 เมอท าเปนอตราสวนอยางต าเทากบ 1 : 10

1.1.2 อตราสวนทเทากน

อตราสวนทเทากน คอ อตราสวนใดๆทท าใหเปนอตราสวนอยางต าไดเทากน เชน 4 : 5 = 8 : 10 = 12 : 15 เนองจากเมอท าเปนอตราสวนอยางต าแลวไดอตราสวนทเทากนในทน คอ 4 : 5

1.1.3 อตราสวนตอเนอง

อตราสวนตอเนอง คอ อตราสวนทแสดงความสมพนธระหวางอตราสวน 2 อตราสวนขนไป เชน a : b และ b : c สามารถเขยนไดเปน a : b : c เชน ก าหนดให a : b = 7 : 3 และ b : c = 8 : 5 จะได a : b : c เทากบ 56 : 24 : 15

1.1.4 การแปลงอตราสวนใหอยในรปรอยละหรอเปอรเซนต

รอยละ คอ การเปรยบเทยบจ านวน 2 จ านวน โดยใหจ านวนทสองในอตราสวนเปน 100 เชน เมตตาสอบวชาคณตศาสตรไดคะแนนรอยละ 75 หมายความวา ถาคะแนนเตม 100 คะแนน เมตตาสอบได 75 คะแนน เปนตน และใช % เปนสญลกษณทใชเขยนแทนรอยละ

หรอเปอรเซนต เชน

เมอเปลยนใหอยในรปรอยละหรอเปอรเซนตแลวเทากบ 68% หรอ

รอยละ 68

DPU

- 7 -

1.2 ดอกเบย

1.2.1 ดอกเบยคงตน

เปนการค านวณดอกเบยทคดจากเงนตนจ านวนเดยว ตามระยะเวลาและอตราดอกเบยทก าหนด เชน การค านวณหาดอกเบยคงตน จากเงนตน 10,000 บาท ดวยอตราดอกเบย 1.25%

ตอป ตลอดระยะเวลา 5 ป โดยจะมดอกเบยเทากบ 10,000 x

x 5 = 625 บาท

การค านวณดอกเบยคงตน

การค านวณดอกเบยคงตนใชสตรการค านวณ ดงน

เมอ I = ดอกเบย P = เงนตน R = อตราดอกเบย (อยในรปรอยละหรอเปอรเซนต โดยสวนใหญ

ก าหนดเปนอตราตอป) T = ระยะเวลา (ป) ตวอยาง เงนตน 1,000 บาท อตราดอกเบยคงตน 2% ตอป ระยะเวลา 5 ป จงค านวณหาดอกเบย และเงนรวม

วธท า

จากสตร I = P x R x T

= 1,000 x

x 5

= 100 บาท

ดงนน ในระยะเวลา 5 ป จากเงนตน 1,000 บาท อตราดอกเบยคงตนตามทก าหนด จะมดอกเบยเทากบ 100 บาท และเปนเงนรวมเทากบ 1,100 บาท ตวอยาง เงนตน 1,000 บาท อตราดอกเบยคงตน 2% ตอเดอน ระยะเวลา 5 เดอน จงค านวณหาดอกเบย และเงนรวม

I = P x R x T

DPU

- 8 -

วธท า จากสตร I = P x R x T

= 1,000 x

x 5

= 100 บาท

ดงนน ในระยะเวลา 5 เดอน จากเงนตน 1,000 บาท อตราดอกเบยคงตนตามทก าหนด จะมดอกเบยเทากบ 100 บาท และเปนเงนรวมเทากบ 1,100 บาท

จากตวอยางท 2 จะเหนวากรณทค านวณดอกเบยโดยอตราดอกเบยเปนอตราดอกเบยตอเดอน และระยะเวลาเปนจ านวนเดอน สามารถทจะค านวณหาดอกเบยตามสตรไดเลยโดยไมตองแปลงอตราดอกเบยใหเปนอตราตอปหรอแปลงระยะเวลาใหเปนป เชนเดยวกนถาอตราดอกเบยเปนอตราตอวน ระยะเวลาเปนจ านวนวน กสามารถทจะค านวณหาดอกเบยไดเลย การใชสตรเพอค านวณนนหนวยของอตราดอกเบยและระยะเวลาใหมความสมพนธกนกสามารถใชค านวณหาดอกเบย เงนตน อตราดอกเบย หรอระยะเวลา ตามทตองการทราบได ดงตวอยางตอไปน ตวอยาง จงหาเงนตนของดอกเบย 100 บาท อตราดอกเบยคงตน 2% ตอป ระยะเวลา 5 ป


100 = P x

x 5

P =

= 1,000 บาท

ดงนน จะไดเงนตน เทากบ 1,000 บาท

ตวอยางท จงหาอตราดอกเบย ของเงนตน 1,000 บาท ดอกเบย 100 บาท ระยะเวลา 5 ป


100 = 1,000 x

x 5

R =

= 2% ตอป

ดงนน จะไดอตราดอกเบย 2% ตอป

DPU

- 9 -

ตวอยาง จงหาระยะเวลาของเงนตน 1,000 บาท ดอกเบย 100 บาท อตราดอกเบยคงตน 2% ตอป


100 = 1,000 x

x T

T =

= 5 ป

ดงนน จะไดระยะเวลาเทากบ 5 ป

การคดดอกเบยเมอระยะเวลาไมเปนจ านวนเตมป

เวลาค านวณดอกเบยนน ระยะเวลาทจะค านวณอาจเปนจ านวนวน จ านวนเดอน ซงไมเปนจ านวนเตมป เชน ระยะเวลา 30 วน ระยะเวลา 5 เดอน หรอระยะเวลา 1 ป 4 เดอน เปนตน ดงนนในการค านวณดอกเบยจงตองแปลงระยะเวลาใหเปนจ านวนเตมป

กรณระยะเวลาเปนเดอน

กรณทระยะเวลาเปนเดอน การแปลงเดอนใหเปนป ดงน

ตวอยาง เงนตน 1,000 บาท อตราดอกเบย 2% ตอป ระยะเวลา 6 เดอน จงค านวณหาดอกเบยและเงนรวม


= 1,000 x

x

= 10 บาท

ดงนน ทเงนตน 1,000 บาท อตราดอกเบย 2% ตอป ระยะเวลา 6 เดอน ดอกเบยเทากบ 10 บาทและเงนรวมเทากบ 1,010 บาท

ระยะเวลา (T) = จ านวนเดอน

DPU

- 10 -

กรณระยะเวลาเปนวน

การแปลงระยะเวลาจากจ านวนวนทจะค านวณดอกเบยใหเปนปนนแบงเปน 2 แบบตามการนบจ านวนวนใน 1 ป ดงน

ก) กรณนบจ านวนวนโดยใหทกๆเดอนม 30 วน เทาๆกน ดงนน 1 ป มจ านวนวนเทากบ 360 วน เรยกการคดดอกเบยแบบนวา Ordinary Simple Interest

ข) กรณนบจ านวนวนตามจรง เชน เดอนมกราคม ม 31 วน เดอนกมภาพนธ ม 28 หรอ 29 วน เดอนมนาคมม 31 วน เปนตน ดงนน 1 ป มจ านวนวนเทากบ 365 (หรอ 366) วน เรยกการคดดอกเบยแบบนวา Exact Simple Interest

ตวอยาง เงนตน 1,000 บาท อตราดอกเบย 2%ตอป ระยะเวลา 45 วน จงค านวณหาดอกเบยและเงนรวม แบบ Ordinary Simple Interest และ Exact Simple Interest

วธท า เมอค านวณดอกเบยแบบ Ordinary Simple Interest


= 1,000 x

x

= 2.50 บาท

ดงนน ทเงนตน 1,000 บาท อตราดอกเบย 2%ตอป ระยะเวลา 45 วน จะเปนดอกเบย 2.50 บาท และเงนรวมเทากบ 1,002.50 บาท

เมอค านวณดอกเบยแบบ Exact Simple Interest


ระยะเวลา ( T ) = จ านวนวน

ระยะเวลา ( T ) = จ านวนวน

หรอ

DPU

- 11 -

= 1,000 x

x

= 2.47 บาท

ดงนน ทเงนตน 1,000 บาท อตราดอกเบย 2%ตอป ระยะเวลา 45 วน จะเปนดอกเบย 2.47 บาท และเงนรวมเทากบ 1,002.47 บาท

การนบจ านวนวนตามจรง (Exact Time)

การค านวณดอกเบยเมอระยะเวลาทจะค านวณก าหนดเปนชวงเวลามาให เชน ค านวณดอกเบยของเงนตน 1,000 บาท อตราดอกเบยคงตน 2%ตอป ระยะเวลาตงแต วนท 11 เมษายน ถง 15 กรกฎาคม กรณนในการค านวณดอกเบยตองนบจ านวนวนตามระยะเวลาทก าหนดซงการนบจ านวนวนม 2 แบบคอ การนบแบบประมาณ (Approximate Time) คอ การนบจ านวนวนโดยนบทกๆเดอนม 30 วนเทากนทกเดอน และการนบจ านวนวนตามจรง (Exact Time) เปนการนบจ านวนวนตามจรง เชน เดอนมกราคมม 31 วน กมภาพนธม 28 หรอ 29 วน หรอเดอนมนาคมม 31 วน เปนตน โดยนบรวมวนแรกหรอวนสดทายวนใดวนหนง ในทนจะค านวณดอกเบยโดยนบจ านวนวน เฉพาะกรณนบจ านวนวนตามจรง (Exact Time)

ตวอยาง จงค านวณหาดอกเบยและเงนรวม แบบ Ordinary Simple Interest และ Exact

Simple Interest ของเงนตน 1,000 บาท อตราดอกเบย 2% ตอป ระยะเวลาตงแตวนท 10 เมษายน ถงวนท 5 มถนายน

วธท า การนบระยะเวลาโดยจะนบรวมวนแรกหรอนบรวมวนสดทายจะไดจ านวนวนเทากน

นบรวมวนแรก นบรวมวนสดทาย

10 เมษายน – 30 เมษายน 21 20

1 พฤษภาคม- 31 พฤษภาคม 31 31

1 มถนายน – 5 มถนายน 4 5

รวม 56 56

จากการนบจ านวนวนตามตารางขางตน เมอไดจ านวนวนแลว จากนนน ามาค านวณดอกเบยตามสตรการค านวณดอกเบยคงตนเชนเดม ดงน

DPU

- 12 -

คดดอกเบย แบบ Ordinary Simple Interest


= 1,000 x

x

= 3.11 บาท

คดดอกเบย แบบ Exact Simple Interest


= 1,000 x

x

= 3.07 บาท

วธการคดดอกเบยคงตนเปนวธทน ามาใชค านวณจ านวนเงนทตองผอนช าระ และดอกเบยทงหมดทเกดขน กรณทผซ อๆสนคาแบบผอนช าระไดดวย ตวอยางเชน

1.2.2 ดอกเบยคงท (Flat Rate)

ตวอยาง รถยนตราคา 954,000 บาท อตราดอกเบย 2.5%ตอป โดยผซอจะผอนเปนรายเดอนๆละเทาๆกนเปนระยะเวลา 5 ป จงค านวณหาดอกเบยและจ านวนเงนทตองผอนช าระในแตละเดอน


= 954,000 x

x 5

= 119,250 บาท

ผซอผอนช าระรายเดอน เปนเวลา 5 ป ดงนนจ านวนงวดหรอเดอนทตองผอนช าระทงหมดเทากบ 12 x 5 = 60 เดอน

ผอนช าระเดอนละ

= 17,887.50 บาท

DPU

- 13 -

ดงนน ผซอตองผอนรถยนตคนนเดอนละ 17,887.50 บาท ทกๆเดอน เปนระยะเวลา 5 ป โดยเปนดอกเบยทตองช าระทงหมดเทากบ 119,250 บาท

1.2.3 ดอกเบยทบตน(Compound Interest)

ดอกเบยทบตน หมายถง ดอกเบยทคดจากเงนตนเรมแรกบวกกบดอกเบยทไดรบ ในแตละงวดทผานมา ท าใหดอกเบยทค านวณไดเพมขนทกปตามเงนตนทเพมขน ตวอยางเชน เงนตน 1,000 บาท อตราดอกเบย 2%ตอป คดดอกเบยทบตนทกปๆละครง เปนระยะเวลา 4 ป ค านวณดอกเบย ดงน

สนปท 1 ดอกเบย = 1,000 x

= 20 บาท

ดงนน ณ สนปท 1 จะมเงนรวมทงหมด 1,000 + 20 = 1,020 บาท เงนรวมจ านวนนจะเปนเงนตนของปทสอง

สนปท 2 ดอกเบย = 1,020 x

= 20.40 บาท

ดงนน ณ สนปท 2 จะมเงนรวมทงหมด 1,020 + 20.40 = 1,040.40 บาท เงนรวมจ านวนนจะเปนเงนตนของปทสาม

สนปท 3 ดอกเบย = 1,040.40 x

= 20.81 บาท

ดงนน ณ สนปท 3 จะมเงนรวมทงหมด 1,040.40 + 20.81 = 1,061.21 บาท เงนรวมจ านวนนจะเปนเงนตนของปทส

สนปท 4 ดอกเบย = 1,061.21 x

= 21.22 บาท

ดงนน ณ สนปท 4 เมอครบก าหนด จะมเงนรวมทงหมด 1,061.21 + 21.22 = 1,082.43 บาท ซงหากจ านวนปหรอจ านวนงวดทใชเพอค านวณดอกเบยมจ านวนมากขนการค านวณดวยสตรจะมความสะดวกมากกวา

DPU

- 14 -

การค านวณดอกเบยทบตนโดยใชสตร

ก าหนดให

P แทน เงนตน

i แทน อตราดอกเบยตองวด

I แทน ดอกเบย

n แทน จ านวนงวดทงหมด

Sn แทน เงนรวมเมอครบก าหนดระยะเวลา n งวด

การค านวณหาเงนรวม ค านวณไดดงน

(1)

สนงวดท n

(2)

เงนตน (P)

(3)

ดอกเบย (I) =(2)x i

(4)

เงนรวม (Sn)=(2)+(3) 1 P Pi P+Pi = P(1+i) 2 P(1+i) P(1+i)i P(1+i)+ P(1+i)i=P(1+i)2 3 P(1+i)2 P(1+i)2i P(1+i)2+ P(1+i)2i=P(1+i)3 4 P(1+i)3 P(1+i)3i P(1+i)3+ P(1+i)3i=P(1+i)4

จากตารางในคอลมภท (4) จะไดเงนรวมเมอครบแตละงวด ดงน

เงนรวมเมอสนงวดท 1 S1 = P(1+i)1




ดงนน จะไดสตรในการค านวณเงนรวมเมอครบ n งวด ( ) จากเงนตนงวดแรก อตราดอกเบย i% ตอป โดยทไมมการรบดอกเบยออกไปกอนครบก าหนด ดงน

=

DPU

- 15 -

และสตรส าหรบใชค านวณหาดอกเบยทบตน ดงน

โดยในการค านวณดอกเบยทบตนนน อตราดอกเบย i และรอบระยะเวลาหรองวดของการคดดอกเบยทบตน จะตองสมพนธกน เชน ถาอตราดอกเบยเปนอตราดอกเบยตอป (โดยสวนใหญอตราดอกเบยจะเปนอตราดอกเบยตอป) แตการคดดอกเบยทบตนจะคดดอกเบยทบตนทกๆเดอน แสดงวางวดของการคดดอกเบยเปนเดอน ดงนนอตราดอกเบยตอปตองแปลงใหเปนอตราดอกเบยตอเดอน โดยค านวณอตราดอกเบยตองวด ดงน

และจ านวนงวดทงหมด ( n ) ค านวณได ดงน

ตวอยาง จงค านวณหาเงนรวมและดอกเบยทบตนของเงนตน 1,000 บาท โดยคดดอกเบยทบตนทกป อตราดอกเบย 5%ตอป ระยะเวลา 5 ป

วธท า จากโจทย อตราดอกเบยตองวด (i) เทากบ ตอป

= 5% ตองวด

จ านวนงวดทงหมด (n) เทากบ 1 x 5 = 5 งวด จากสตร =

= 1,000(1+5%)5 จากตาราง (1+5%)5 มคาเทากบ 1.2763 = 1,000(1+5%)5 = 1,000(1.2763) = 1,276.30 บาท ดอกเบยเทากบ 1,276.30 - 1,000 = 276.30 บาท ตวอยาง จงค านวณหาเงนรวมและดอกเบยทบตนของเงนตน 1,000 บาท อตราดอกเบย 6%ตอป ระยะเวลา 3 ป เมอคดดอกเบยทบตนแตกตางกน ดงน

I = - P

อตราดอกเบยตองวด (i) = อตราดอกเบยตอป

จ านวนครงทคดดอกเบยใน ป

จ านวนงวดทงหมด (n) = จ านวนครงทคดดอกเบยใน 1 ป x จ านวนป

DPU

- 16 -

ก. คดดอกเบยทบตนทกปๆละครง ข. คดดอกเบยทบตนทก 6 เดอน ค. คดดอกเบยทบตนทก 3 เดอน ง. คดดอกเบยทบตนทกเดอน

ก. คดดอกเบยทบตนทกปๆละครง (1 ป คดดอกเบย 1 งวด)

วธท า

อตราดอกเบยตองวด (i) เทากบ ตอป

= 6%ตองวด


= 1,000(1+6%)3 จากตาราง (1+6%)3 มคาเทากบ 1.191 = 1,000(1.191) = 1,191 บาท ดอกเบยเทากบ 1,191 - 1,000 = 191 บาท

ข. คดดอกเบยทบตนทก 6 เดอน (1 ป คดดอกเบย 2 งวด) วธท า


= 3% ตองวด


= 1,000(1+3%)6 จากตาราง (1+3%)6 มคาเทากบ 1.1941 = 1,000(1.1941) = 1,194.10 บาท ดอกเบยเทากบ 1,194.10 - 1,000 = 194.10 บาท

ค. คดดอกเบยทบตนทก 3 เดอน (1 ป คดดอกเบย 4 งวด) วธท า


=

= 1

% หรอ 1.5%ตองวด

จ านวนงวดทงหมด (n) เทากบ 4 x 3 = 12 งวด

DPU

- 17 -

จากสตร =

= 1,000(1+1

%)12

จากตาราง (1+1

%)12 มคาเทากบ 1.1956

= 1,000(1.1956) = 1,195.60 บาท ดอกเบยเทากบ 1,195.60 - 1,000 = 195.60 บาท

ง. คดดอกเบยทบตนทกเดอน (1 ป คดดอกเบย 12 งวด) วธท า


=



= 1,000(1+

%)36

จากตาราง (1+


= 1,000(1.1967) = 1,196.70 บาท ดอกเบยเทากบ 1,196.70 - 1,000 = 196.70 บาท

การค านวณหาเงนตนหรอคาปจจบน

กรณหากตองการค านวณหาเงนตนหรอคาปจจบนของเงนทตองฝาก เพอใหไดเงนจ านวนหนงเมอครบตามจ านวนปทก าหนด โดยคดดอกเบยแบบทบตน ค านวณไดตามสตรดอกเบยทบตนดงน


P =

DPU

- 18 -

ตวอยาง จงหาจ านวนเงนทจะตองฝากธนาคารในปจจบน ถาตองการไดรบเงนจ านวน 500,000 บาทใน 5 ปขางหนา โดยธนาคารใหอตราดอกเบย 2%ตอป และคดดอกเบยทบตนทก 3 เดอน

วธท า

คดดอกเบยทบตนทก 3 เดอน ดงนน 1 ป คดดอกเบย 4 งวด


=


จ านวนงวดทงหมด (n) เทากบ 4 x 5 = 20 งวด เงนรวมเมอครบก าหนด n งวด (Sn) เทากบ 500,000 บาท


P =

=

จากตาราง (1+


ดงนน P =

= 452,529.64 บาท

1.3 มลคาของเงนในอนาคต (Future Value) ก าหนดให R แทน จ านวนเงนทตองจายตองวด n แทน จ านวนงวด S แทน จ านวนเงนทตองจายในอนาคต

Sn┐i อานคาจากตาราง Future Value of an Annuity Tables เมอทราบ n และ i ตวอยาง ฝากเงนกบธนาคาร 2,500 บาททกๆ 3 เดอน โดยธนาคารจายดอกเบยปละ 8% ตอป ทบตนทก 3 เดอน เมอสนปท 10 จะมเงนฝากในธนาคารเทาใด

FV = R x Sn┐i

DPU

- 19 -

วธท า n = 40

i = ตอป

= 2%

S40┐2% = 60.4020 FV =S = R x S40┐2% = 2,500 x 60.4020 = 151,005 บาท หรอกรณหากตองการค านวณหาเงนรายงวดทตองฝากหรอตองช าระค านวณไดโดย ตวอยาง ตองการเกบเงนใหได 30,000 บาท ในเวลา 4 ป ธนาคารใหดอกเบยรอยละ 4 ตอปทบตนทก 6 เดอน สวางตองฝากเงนงวดละเทาไร ( 1 งวด 6 เดอน) และสวางไดดอกเบยเทาไร วธท า S = 30,000 บาท

i = ตอป

= 2%

n = 4 x 2 = 8 S8┐2% = 8.5830

R = S หรอ FV = 30,000 = 3,495.29 บาท S8┐2% 8.5830

ดอกเบยทไดรบ = 30,000 – (8 x 3,495.29) = 2,037.68 บาท

R =

DPU

- 20 -

1.4 มลคาปจจบนของเงน (Present Value) ก าหนดให A แทน คาปจจบนของเงน an┐i อานคาจากตาราง Present Value of an Annuity Tables เมอทราบ n และ i หรอกรณหากตองการค านวณหาเงนรายงวด R ค านวณไดโดย ตวอยาง กเงนจากสหกรณออมทรพยเพอซอคอมพวเตอร ตองช าระเงนใหสหกรณออมทรพยเดอนละ 1,200 บาท เปนเวลา 5 ป จงค านวณหาคาปจจบนของการจายเงน ถาอตราดอกเบย 9% ตอป คดดอกเบยทบตนทกเดอน วธท า R = 1,200

i = ตอป

= 0.75%

n = 60 a60┐0.75% = 48.1734

PV หรอ A = R x a60┐0.75% = 1,200 x 48.1734 = 57,808.08

ตวอยาง กเงนจากธนาคาร 4,000,000 บาท เพอซอบานใหม ธนาคารคดดอกเบย 12% ตอปคดดอกเบยทบตนทก 3 เดอน เปนเวลา 20 ป จะตองผอนช าระใหธนาคารทกๆ 3 เดอน เปนจ านวนเงนเทากน ตองจายเงนใหธนาคารงวดละเทาไร และตองจายเงนคนธนาคารทงหมดเทาไร

วธท า i = ตอป

= 3%

n = 4 x 20 = 80 a80┐3% = 30.2008

PV = R x an┐i

R =

DPU

- 21 -

PV หรอ A = R x a80┐3% R = PV

a80┐3% = 132,446.82

ตองจายคนทงหมด = 132,446.82 x 80 = 10,595,745.60 บาท

1.5 การวดแนวโนมเขาสศนยกลาง ประกอบดวย คาเฉลย มธยฐาน และฐานนยม

คาเฉลยเลขคณต (Mean)

เปนการน าขอมลทกคามารวมกน แลวหารดวยจ านวนขอมลทงหมด

การค านวณหาคาเฉลยกรณขอมลไมแจกแจงความถ

คาเฉลยประชากร

เมอก าหนดให µ แทน คาเฉลยของประชากร

N แทน จ านวนขอมลทงหมด

Xi แทน คาขอมลตวท i

คาเฉลยตวอยาง

เมอก าหนดให แทน คาเฉลยของตวอยาง

n แทน จ านวนตวอยางสม

Xi แทน คาขอมลตวท i

N

XN

i

i 1

n

X

X

n

i

i 1

DPU

- 22 -

ตวอยาง จงค านวณหาคาเฉลยของคะแนนสอบของนกศกษา 10 คน ดงน 18 15 13 20 7 12 9 15 14 18 จากคะแนนเตม 20 คะแนน


= 14.1

จากคะแนนสอบของนกศกษา 10 คน มคะแนนเฉลยเทากบ 14.1 คะแนน

กรณขอมลแจกแจงความถ

คาเฉลยประชากร

เมอก าหนดให µ แทน คาเฉลยของประชากร

N แทน จ านวนขอมลทงหมด

Xi แทน จดกงกลางของชนท i

fi แทน คาความถของชนท i

k แทน จ านวนอนตรภาคชน

คาเฉลยตวอยาง

เมอก าหนดให แทน คาเฉลยของตวอยาง n แทน จ านวนตวอยางสม Xi แทน จดกงกลางของชนท i

N

Xfk

i

ii 1

n

Xf

X

k

i

ii 1

n

X

X

n

i

i 1DPU

- 23 -

fi แทน คาความถของชนท i k แทน จ านวนอนตรภาคชน ตวอยาง จากขอมลคะแนนสอบของนกศกษาหองหนงจ านวน 75 คน มคะแนนดงน

คะแนน จ านวน จดกงกลาง(x i ) fixi

10-14 10 12 120 15-19 15 17 255 20-24 20 22 440 25-29 20 27 540 30-34 10 32 320 รวม 75 1,675

คาเฉลยเทากบ

= 22.33

มธยฐาน (Median)

คอ คาทอยต าแหนงกงกลางของขอมลทงหมด เมอเรยงล าดบขอมลจากนอยไปหามาก หรอจากมากไปหานอย

กรณขอมลไมแจกแจงความถ ค านวณหามธยฐานโดยล าดบ ดงน

1. เรยงขอมลจากนอยไปหามาก 2. ค านวณหาต าแหนงมธยฐาน 3. ถาจ านวนขอมลเปนจ านวนค มธยฐานจะตรงกบขอมลต าแหนงท (n+1)/2 พอด 4. ถาจ านวนขอมลเปนจ านวนค มธยฐานจะอยกงกลางระหวางขอมล 2 คา ใหน าขอมลต าแหนงท และ มาบวกกนแลวหาร 2 ตวอยาง จงหาคามธยฐานของขอมลตอไปน ขอมลชดท 1 : 23, 32, 25, 28, 34, 30, 21

1. เรยงขอมล 21, 23, 25, 28, 30, 32, 34 2. ค านวณหาต าแหนงมธยฐาน

2

n1

2

n

42

17

2

1

n

DPU

- 24 -

3. มธยฐาน = 28 ขอมลชดท 2 : 11, 13, 10, 9, 12, 13

1. เรยงขอมล 9, 10, 11, 12, 13, 13 2. ค านวณหาต าแหนงมธยฐาน

3. มธยฐาน


1. ค านวณหาต าแหนงมธยฐาน

2. มธยฐานจะอยในชนแรกทมความถสะสมมากกวา 3. ค านวณหาคามธยฐานจากสตร

เมอก าหนดให L แทน ขอบเขตลางของชนทมมธยฐานอย I แทน ความกวางของชน

F แทน ความถสะสมของชนทต ากวาชนทมธยฐานอย f แทน ความถของชนทมธยฐานอย

5.32

16

2

1

n

5.112

1211

2

n

2

n

f

Fn

ILMed

]2

[

DPU

- 25 -

ตวอยาง จากขอมลคะแนนสอบนกศกษา 75 คน เมอน ามาค านวณหาคามธยฐาน ไดดงน

คะแนน จ านวน (f) ความถสะสม (F)

10-14 10 10 15-19 15 25 20-24 20 45 25-29 20 65 30-34 10 75 รวม 75

มธยฐานอยในชนท 3 แทนคาลงตามสตรดงน

Med = 19.5 + 5[

] = 22.625

ฐานนยม (Mode)

คอ คาของขอมลทมจ านวนซ ากนมากทสด หรอมความถสงทสด ขอมลบางชดอาจมฐานนยมมากกวา 1 คา แตถามฐานนยมมากกวา 2 คา อาจจะถอวาขอมลชดนนไมมฐานนยม และหากขอมลชดใดมขอมลไมซ ากนเลยจะถอวาไมมฐานนยมเชนกน

กรณขอมลไมแจกแจงความถ

ตวอยาง ขอมลชดท 1 : 1, 4, 8, 9, 1, 0 ฐานนยม คอ 1 ขอมลชดท 2 : 24, 33, 27, 36, 24, 31, 36 ฐานนยม คอ 24, 36

DPU

- 26 -


ฐานนยมจะอยในชนทมความถสงทสด และ ค านวณหาคาฐานนยมจากสตร

เมอ L แทน ขอบเขตลางของชนทมฐาน I แทน ความกวางของชน d1 แทน ผลตางของความถของชนทฐานนยมอยกบชนทต ากวา d2 แทน ผลตางของความถของชนทฐานนยมอยกบชนทสงกวา ตวอยาง จากขอมลคะแนนสอบนกศกษา 75 คน เมอน ามาค านวณหาคาฐานนยม ไดดงน

คะแนน จ านวน

10-14 10 15-19 15 d1 20-24 20 25-29 15 d2 30-34 10 รวม 70

แทนคาตามสตร

21

1

dd

dILMod

Mode = 19.5 + 5[

] = 22

1.6 การวดการกระจายของขอมล (Measures of Dispersion)

เปนสถตประเภทหนงทใชอธบายลกษณะการกระจายของขอมล การทขอมลชดหนงๆ ประกอบดวยคาทแตกตางกน เรยกวา เปนขอมลทมการกระจาย ถาขอมลชดใดๆประกอบดวยคาทแตกตางกนมาก เรยกวา เปนขอมลทมกระจายมาก ถาประกอบดวยคาทแตกตางกนนอย

21

1

dd

dILMod DPU

- 27 -

เรยกวา เปนขอมลทมการกระจายนอย และถาประกอบดวยขอมลทมคาเทากนหมด เรยกวา เปนขอมลทไมมการกระจาย

การวดการกระจายของขอมล แบงไดเปน 2 วธ คอ

1. การวดการกระจายสมบรณ (Absolute Variation)

การวดการกระจายของขอมลเพยงชดเดยว เพอดวาขอมลชดนนแตละคามความแตกตางกนมากนอยเพยงใด ประกอบดวย

1.1 พสย (Range) 1.2 สวนเบยงเบนควอรไทล (Quartile deviation) 1.3 สวนเบยงเบนเฉลย (Mean Deviation หรอ Average Deviation) 1.4 สวนเบยงเบนมาตรฐาน (Standard Deviation) โปรแกรมค านวณในทนค านวณเฉพาะพสย สวนเบยงเบนมาตรฐาน และความ

แปรปรวน ซงเปนคาทค านวณตามเนอหาในวชาน

2. การวดการกระจายสมพทธ (Relative Variation)

การวดการกระจายของขอมลทมากกวา 1 ชด โดยใชอตราสวนของคาทไดจากการวดการกระจายสมบรณ กบคากลางของขอมลนนๆ เพอใชในการเปรยบเทยบการกระจายของขอมลเหลานน ประกอบดวย

2.1 สมประสทธของพสย (Coefficient of Range) 2.2 สมประสทธของสวนเบยงเบนควอรไทล (Coefficient of Quartile Deviation) 2.3 สมประสทธของสวนเบยงเบนเฉลย (Coefficient of Average Deviation) 2.4 สมประสทธของความแปรผน (Coefficient of Variation)

สถตทใชวดการกระจายสมพทธ โปรแกรมค านวณตามเนอหาในรายวชาเฉพาะ สมประสทธของพสย และสมประสทธของความแปรผน

DPU

- 28 -

1.6.1 การวดการกระจายสมบรณ (Absolute Variation) พสย (Range) กรณขอมลไมแจกแจงความถ พสย = เมอ Xmax คอ ขอมลทมคามากทสด Xmin คอ ขอมลทมคานอยทสด ตวอยาง ขอมลอายของพนกงานบรษทแหงหนงจ านวน 5 คน ดงน 28 35 45 31 40 มพสยเทากบ 17 กรณขอมลแจกแจงความถ

พสย = ขอบบนของชนทขอมลมคามากทสด – ขอบลางของชนทขอมลมคานอยทสด

คะแนน จ านวน

10-14 10 15-19 15 20-24 20 25-29 15 30-34 10 รวม 70

จากขอมลตวอยางตามตารางขางตน พสย = 34.5 – 9.5 = 25

ความแปรปรวน (Variance)

คาเฉลยของคาความแตกตางก าลงสองระหวางขอมลแตละคากบคาเฉลยของขอมล

minmax XX DPU

- 29 -

กรณขอมลไมแจกแจงความถ

สตรความแปรปรวนของประชากร

หรอ

เมอ

2 แทน ความแปรปรวน Xi แทน ขอมลคาท i µ แทน คาเฉลยของประชากร N แทน จ านวนประชากร สตรความแปรปรวนของตวอยาง

หรอ

เมอ

S2 แทน ความแปรปรวนของตวอยาง แทน คาเฉลยของขอมลตวอยาง Xi แทน ขอมลคาท i n แทน จ านวนขอมลตวอยาง

N

XN

i

i

1

2

2

)(

21

2

2 NN

XN

i

i

1

)(1

2

2

n

XX

S

n

i

i

2

1

22 .1

1XnX

nS

n

i

i

DPU

- 30 -

ตวอยาง จงค านวณหาคาความแปรปรวนของคะแนนสอบของนกศกษา 10 คน ดงน 18 15 13 20 7 12 9 15 14 18 จากคะแนนเตม 20 คะแนน แทนคาตามสตร S2 = (18-14.1)2+(15-14.1)2+(13-14.1)2+(20-14.1)2+….+(14-14.1)2

10-1 = 16.54


สตรความแปรปรวนของประชากร

หรอ

เมอ

2 แทน ความแปรปรวน Xi แทน จดกงกลางขอมลชนท i µ แทน คาเฉลยของประชากร N แทน จ านวนประชากร fi แทน จ านวนขอมลชนท i

N

Xfk

i

ii

1

2

2

)(

N

NXfk

i

ii

1

22

2

1

)(1

2

2

n

XX

S

n

i

iDPU

- 31 -

สตรความแปรปรวนของตวอยาง

หรอ

เมอ

S2 แทน ความแปรปรวนของตวอยาง แทน คาเฉลยของขอมลตวอยาง Xi แทน จดกงกลางชนท i n แทน จ านวนขอมลตวอยาง fi แทน จ านวนขอมลชนท i ตวอยาง

คะแนน จ านวน จดกงกลาง(x i ) fixi f(xi - )2

10-14 10 12 120 1,067.089 15-19 15 17 255 426.1335 20-24 20 22 440 2.178 25-29 20 27 540 436.178 30-34 10 32 320 935.089 รวม 75 1,675 2,866.6675

มคาเฉลยเทากบ 22.33 แทนคาตามสตร

S2 =

= 38.74

1

)(1

2

2

n

XXf

S

k

i

ii

1

1

22

2

n

XnXf

S

k

i

ii

1

)(1

2

2

n

XXf

S

k

i

ii

DPU

- 32 -

คาเบยงเบนมาตรฐาน (Standard Deviation) คอ คารากทสองของความแปรปรวน จะมหนวยเดยวกบขอมล กรณขอมลไมแจกแจงความถ สตรคาเบยงเบนมาตรฐานของประชากร หรอ สตรคาเบยงเบนมาตรฐานของตวอยาง หรอ ดงนนจากความแปรปรวนของคะแนนสอบของนกศกษา 10 คน ซงมคาเทากบ 16.54 จะมคาเบยงเบนมาตรฐานเทากบ √ = 4.07

21

2

NN

XN

i

i

N

XN

i

i

1

2)(

1

)(1

2

n

xX

s

n

i

i

1

1

22

n

nxX

s

n

i

i

DPU

- 33 -

กรณขอมลแจกแจงความถ สตรคาเบยงเบนมาตรฐานของประชากร หรอ สตรคาเบยงเบนมาตรฐานของตวอยาง หรอ 1.6.2 การวดการกระจายสมพทธ สตรคาสมประสทธพสย เมอ Xmax คอ ขอมลทมคามากทสด Xmin คอ ขอมลทมคานอยทสด

2

N

XfN

i

ii

1

2)(

N

NXfN

i

ii

1

22

2SS

1

)(1

2

n

xXf

s

n

i

ii

1

1

22

n

nxXf

s

n

i

ii

100minmax

minmax

XX

XX

DPU

- 34 -

สตรคาสมประสทธของความแปรผน คาสมประสทธของความแปรผนของประชากร = คาสมประสทธของความแปรผนของตวอยาง = เมอ แทน คาเบยงเบนมาตรฐานของประชากร S แทน คาเบยงแบนมาตรฐานของตวอยาง แทน คาเฉลยของประชากร แทน คาเฉลยของตวอยาง

2. ความร (Knowledge)

คอความเขาใจในเรองบางเรอง หรอสงบางสง ซงอาจจะรวมไปถงความสามารถในการน าสงนนไปใชเพอเปาหมายบางประการ ความสามารถในการรบางอยางนเปนสงสนใจหลกของวชาปรชญา (ทหลายครงกเปนเรองทมการโตเถยงอยางมาก) และมสาขาทศกษาดานนโดยเฉพาะเรยกวาญาณวทยา (epistemology) ความรในทางปฏบตมกเปนสงททราบกนในกลมคน และในความหมายนเองทความรนนถกปรบเปลยนและจดการในหลาย ๆ แบบ

2.1 นยามของความร

ค าวาความรนน ในทศนะของฮอสเปอร (อางถงในมาโนช เวชพนธ 2532, 15-16) นบเปนขนแรกของพฤตกรรมทเกยวของกบความสามารถในการจดจ า ซงอาจจะโดยการนกได มองเหน ไดยน หรอ ไดฟง ความรน เปนหนงในขนตอนของการเรยนร โดยประกอบไปดวยค าจ ากดความหรอความหมาย ขอเทจจรง ทฤษฎ กฎ โครงสราง วธการแกไขปญหา และมาตรฐานเปนตน ซงอาจกลาวไดวา ความรเปนเรองของการจ าอะไรได ระลกได โดยไมจ าเปนตองใชความคดทซบซอนหรอใชความสามารถของสมองมากนก ดวยเหตน การจ าไดจงถอวาเปน กระบวนการทส าคญในทางจตวทยา และเปนขนตอนทน าไปสพฤตกรรมทกอใหเกดความเขาใจ การน าความรไปใชในการวเคราะห การสงเคราะห การประเมนผล ซงเปนขนตอนทไดใชความคดและความสามารถทางสมองมากขนเปนล าดบ สวนความเขาใจ (Comprehension) นน ฮอสเปอร ชใหเหนวา เปนขนตอนตอมาจากความร โดยเปนขนตอนทจะตองใชความสามารถของสมองและทกษะในชนทสงขน จนถงระดบของการสอความหมาย ซงอาจ

100

100X

SDPU

http://th.wikipedia.org/wiki/%E0%B8%84%E0%B8%A7%E0%B8%B2%E0%B8%A1%E0%B9%80%E0%B8%82%E0%B9%89%E0%B8%B2%E0%B9%83%E0%B8%88

http://th.wikipedia.org/wiki/%E0%B8%9B%E0%B8%A3%E0%B8%B1%E0%B8%8A%E0%B8%8D%E0%B8%B2

http://th.wikipedia.org/wiki/%E0%B8%8D%E0%B8%B2%E0%B8%93%E0%B8%A7%E0%B8%B4%E0%B8%97%E0%B8%A2%E0%B8%B2

- 35 -

เปนไปไดโดยการใชปากเปลา ขอเขยน ภาษา หรอการใชสญลกษณ โดยมกเกดขนหลงจากทบคคลไดรบขาวสารตาง ๆ แลว อาจจะโดยการฟง การเหน การไดยน หรอเขยน แลวแสดงออกมาในรปของการใชทกษะหรอการแปลความหมายตาง ๆ เชน การบรรยายขาวสารทไดยนมาโดยค าพดของตนเอง หรอการแปลความหมายจากภาษาหนงไปเปนอกภาษาหนง โดยคงความหมายเดมเอาไว หรออาจเปนการแสดงความคดเหนหรอใหขอสรปหรอการคาดคะเนกได

ประภาเพญ สวรรณ (อางถงในอกษร สวสด 2542, 26) ไดใหค าอธบายวา ความร เปนพฤตกรรมขนตนทผเรยนรเพยงแตเกดความจ าได โดยอาจจะเปนการนกไดหรอโดยการมองเหน ไดยน จ าได ความรในชนนไดแก ความรเกยวกบค าจ ากดความ ความหมาย ขอเทจจรง กฎเกณฑ โครงสรางและวธแกไขปญหา สวนความเขาใจอาจแสดงออกมาในรปของทกษะดาน “การแปล” ซงหมายถง ความสามารถในการเขยนบรรยายเกยวกบขาวสารนน ๆ โดยใชค าพดของตนเอง และ “การใหความหมาย” ทแสดงออกมาในรปของความคดเหนและขอสรป รวมถงความสามารถในการ “คาดคะเน” หรอการคาดหมายวาจะเกดอะไรขน

เบนจามน บลม (Benjamin S. Bloom อางถงในอกษร สวสด 2542, 26-28) ไดใหความหมายของ ความร วาหมายถง เรองทเกยวกบการระลกถงสงเฉพาะ วธการและกระบวนการตาง ๆ รวมถงแบบกระสวนของโครงการวตถประสงคในดานความร โดยเนนในเรองของกระบวนการทางจตวทยาของความจ า อนเปนกระบวนการทเชอมโยงเกยวกบการจดระเบยบ โดยกอนหนานนในป ค.ศ. 1965 บลมและคณะ ไดเสนอแนวคดเกยวกบการรบรหรอพทธพสย (cognitive domain) ของคน วาประกอบดวยความรตามระดบตาง ๆ รวม 6 ระดบ ซงอาจพจารณาจากระดบความรในขนต าไปสระดบของความรในระดบทสงขนไป โดยบลมและคณะ ไดแจกแจงรายละเอยดของแตละระดบไวดงน

1. ความร หมายถง การเรยนรทเนนถงการจ าและการระลกไดถงความคด วตถ และปรากฏการณตาง ๆ ซงเปนความจ าทเรมจากสงงาย ๆ ทเปนอสระแกกน ไปจนถงความจ าในสงทยงยากซบซอนและมความสมพนธระหวางกน

2. ความเขาใจหรอความคดรวบยอด (Comprehension) เปนความสามารถทางสตปญญาในการขยายความร ความจ า ใหกวางออกไปจากเดมอยางสมเหตสมผล การแสดงพฤตกรรมเมอเผชญกบสอความหมาย และความสามารถในการแปลความหมาย การสรปหรอการขยายความสงใดสงหนง

3. การน าไปปรบใช (Application) เปนความสามารถในการน าความร (knowledge) ความเขาใจหรอความคดรวบยอด (comprehension) ในเรองใด ๆ ทมอยเดม ไปแกไขปญหาทแปลกใหมของเรองนน โดยการใชความรตาง ๆ โดยเฉพาะอยางยงวธการกบความคด

DPU

- 36 -

รวบยอดมาผสมผสานกบความสามารถในการแปลความหมาย การสรปหรอการขยายความสงนน

4. การวเคราะห (Analysis) เปนความสามารถและทกษะทสงกวาความเขาใจ และการน าไปปรบใช โดยมลกษณะเปนการแยกแยะสงทจะพจารณาออกเปนสวนยอย ทม ความสมพนธกน รวมทงการสบคนความสมพนธของสวนตาง ๆ เพอดวาสวนประกอบปลกยอยนนสามารถเขากนไดหรอไม อนจะชวยใหเกดความเขาใจตอสงหนงสงใดอยางแทจรง

5. การสงเคราะห (Synthesis) เปนความสามารถในการรวบรวมสวนประกอบยอย ๆ หรอสวนใหญ ๆ เขาดวยกนเพอใหเปนเรองราวอนหนงอนเดยวกน การสงเคราะหจะมลกษณะของการเปนกระบวนการรวบรวมเนอหาสาระของเรองตาง ๆ เขาไวดวยกน เพอสรางรปแบบหรอโครงสรางทยงไมชดเจนขนมากอน อนเปนกระบวนการทตองอาศยความคดสรางสรรคภายในขอบเขตของสงทก าหนดให

6. การประเมนผล (Evaluation) เปนความสามารถในการตดสนเกยวกบความคด คานยม ผลงาน ค าตอบ วธการและเนอหาสาระเพอวตถประสงคบางอยาง โดยมการก าหนดเกณฑ (criteria) เปนฐานในการพจารณาตดสน การประเมนผล จดไดวาเปนขนตอนทสงสดของพทธลกษณะ (characteristics of cognitive domain) ทตองใชความรความเขาใจ การน าไปปรบใช การวเคราะหและการสงเคราะหเขามาพจารณาประกอบกนเพอท าการประเมนผลสงหนงสงใด

ความรคอ สงทมนษยสราง ผลต ความคด ความเชอ ความจรง ความหมาย โดยใช ขอเทจจรง ขอคดเหน ตรรกะ แสดงผานภาษา เครองหมาย และสอตาง ๆ โดยมเปาหมายและวตถประสงคเปนไปตามผสราง ผผลตจะใหความหมาย

2.2 การจ าแนกความร

2.2.1 ความรตามลกษณะ

1. ความรทฝงอยในคน (Tacit Knowledge) เปนความรทไดจากประสบการณ พรสวรรคหรอสญชาตญาณของแตละบคคล เชน ทกษะในการท างาน งานฝมอ หรอการคดเชงวเคราะห

2. ความรทชดแจง (Explicit Knowledge) เปน ความรทสามารถ ถายทอดไดโดยผานวธตาง ๆ เชน การบนทก

DPU

http://th.wikipedia.org/wiki/%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B8%A7%E0%B8%B4%E0%B9%80%E0%B8%84%E0%B8%A3%E0%B8%B2%E0%B8%B0%E0%B8%AB%E0%B9%8C

http://th.wikipedia.org/wiki/%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B8%AA%E0%B8%B1%E0%B8%87%E0%B9%80%E0%B8%84%E0%B8%A3%E0%B8%B2%E0%B8%B0%E0%B8%AB%E0%B9%8C

http://th.wikipedia.org/wiki/%E0%B8%9B%E0%B8%A3%E0%B8%B0%E0%B8%AA%E0%B8%9A%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B8%93%E0%B9%8C

http://th.wikipedia.org/w/index.php?title=%E0%B8%AA%E0%B8%B1%E0%B8%8D%E0%B8%8A%E0%B8%B2%E0%B8%95%E0%B8%8D%E0%B8%B2%E0%B8%93&action=edit&redlink=1

- 37 -

2.2.2 ความรตามโครงสราง

1. โครงสรางสวนบนของความร ไดแก Idea ปรชญา หลกการ อดมการณ 2. โครงสรางสวนลางของความร ไดแก ภาคปฏบตการของความร ไดแก

องคความรทแสดงในรปของ ขอเขยน สญญาณ การแสดงออกใน รปแบบตาง ๆ เชน ศลปะ การเดนขบวนทางการเมอง โครงสราง สวนลางของความรมโครงสรางระดบลกคอ ความหมาย (significant)

2.2.3 ความรและอ านาจ

ความรและอ านาจ เปนสงเดยวกน เพราะถกผลต และ เคลอบไวภายใต รปแบบ 2 รปแบบ คอ

1. รปแบบทแสดงออกถงความรนแรง ไดแก ความรทางดานการปราบปราม การทหาร การควบคมนกโทษ อาชญวทยา การสงคราม จตเวชศาสตร

2. รปแบบทแสดงออกถงความไมรนแรง แตแฝงไวดวยความรนแรง ไดแก ความรทางดานสอสารมวลชน การโฆษณา การตลาด ทฤษฎบรหารธรกจ ทฤษฎทางการเมอง ความรทางการศกษา การพฒนาและทกสง ทใชการ ครอบง าความคด ผานปฏบตการทางการสรางความรเพอ กดกน/เบยด ขบ/ควบคม มนษย

2.2.4 ความรภายใตบรบทเฉพาะ

ความรภายใตบรบทเฉพาะ (Situated Knowledge) คอความรทมความเฉพาะเจาะจงไปทบางบรบท บางสถานการณ ใหลองจนตนาการถงเหดสองพนธทข นอยคนละฝากของภเขา พนธหนงสามารถรบประทานได อกพนธเปนเหดทมพษ เมอขามขอบเขตนนไปอกฝ งหนง การใชความรทข นกบขอบเขตทางนเวศเดม อาจท าใหอดตาย หรอไมกเกดอนตรายจากพษได

กระบวนการสรางความรบางอยาง เชน การลองผดลองถก หรอการเรยนรจากประสบการณ มกกอใหเกดความรทอยภายใตบรบทเฉพาะ ประโยชนหนงของกระบวนการวทยาศาสตรคอทฤษฎทไดจากระเบยบวธน มกจะองกบบรบทเฉพาะนอยกวาวธอน ๆ

DPU

http://th.wikipedia.org/wiki/%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B8%A5%E0%B8%AD%E0%B8%87%E0%B8%9C%E0%B8%B4%E0%B8%94%E0%B8%A5%E0%B8%AD%E0%B8%87%E0%B8%96%E0%B8%B9%E0%B8%81

http://th.wikipedia.org/wiki/%E0%B8%9B%E0%B8%A3%E0%B8%B0%E0%B8%AA%E0%B8%9A%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B8%93%E0%B9%8C

http://th.wikipedia.org/wiki/%E0%B8%A3%E0%B8%B0%E0%B9%80%E0%B8%9A%E0%B8%B5%E0%B8%A2%E0%B8%9A%E0%B8%A7%E0%B8%B4%E0%B8%98%E0%B8%B5%E0%B8%97%E0%B8%B2%E0%B8%87%E0%B8%A7%E0%B8%B4%E0%B8%97%E0%B8%A2%E0%B8%B2%E0%B8%A8%E0%B8%B2%E0%B8%AA%E0%B8%95%E0%B8%A3%E0%B9%8C

http://th.wikipedia.org/wiki/%E0%B8%A3%E0%B8%B0%E0%B9%80%E0%B8%9A%E0%B8%B5%E0%B8%A2%E0%B8%9A%E0%B8%A7%E0%B8%B4%E0%B8%98%E0%B8%B5%E0%B8%97%E0%B8%B2%E0%B8%87%E0%B8%A7%E0%B8%B4%E0%B8%97%E0%B8%A2%E0%B8%B2%E0%B8%A8%E0%B8%B2%E0%B8%AA%E0%B8%95%E0%B8%A3%E0%B9%8C

- 38 -

ความรภายใตบรบทเฉพาะมกแฝงอยในภาษา วฒนธรรม หรอประเพณ นกวพากษลทธจกรวรรดนยมทางวฒนธรรม กลาววาการเกดขนของวฒนธรรมเดยวท าใหความรทองถนบางอยางถกท าลายลง

2.3 สงคมวทยาความร

บางแงมมของความรกอใหเกดลกษณะทางสงคม ตวอยางเชน ความรนนเปน รปแบบหนงของทนทางสงคม สงคมวทยาความรศกษากระบวนการทสงคมและความรมการกระท าตอกน

ทงปจเจกและสงคมตาง ๆ ไดรบความรผานทางประสบการณ การสงเกต และการ อปนย การทความรนแพรกระจายถกศกษาในการแพรกระจาย ทฤษฎการแพรกระจายของนวตกรรมศกษาปจจยทท าใหผคนตระหนก ทดลอง และน าแนวคดและเทคโนโลยใหมเขามาใช ซงสามารถชวยอธบายพฒนาการของความรได

3. เอกสารและงานวจยทเกยวของกบพฤตกรรมการเรยน ความสมพนธระหวาง

พฤตกรรมการเรยนกบผลสมฤทธทางการเรยน

พฤตกรรมการเรยนเปนปจจยส าคญประการหนงทสงผลตอผลสมฤทธทางการเรยน และในการทจะเพมผลสมฤทธทางการเรยน (ทพวรรณ สวรรณประเสรฐ, 2541, หนา 112) ซงพฤตกรรมการเรยนทดนน จะสงผลตอผลสมฤทธทางการเรยนทดข นของแตละบคคล ซงมพฤตกรรมในการเรยนดกวานกเรยนทมผลสมฤทธทางการเรยนต าและเมอนกเรยนไดปรบปรงแกไขพฤตกรรมในการเรยนใหดขนแลวจะท าใหนกเรยนมผลสมฤทธทางการเรยนดขน Maddox (1965, pp. 11-12) ไดกลาวถงความส าคญของพฤตกรรมการเรยนตอผลสมฤทธทางการเรยนวา ผลสมฤทธทางการเรยนขนอยกบความสามารถของบคคลการท างาน และขนอยกบวธการเรยนทมประสทธภาพดวย เพราะมกปรากฏวานกเรยนทม สตปญญาสงหลายคนสอบตกหรอท าคะแนนสอบไดนอยกวาผทมสตปญญาและความถนดในการเรยนปานกลางหรอต า ซงความแตกตางของผลสมฤทธทางการเรยนของแตละคนนอกจากจะขนอยกบองคประกอบทางดานสตปญญาและความสามารถทางสมองรอยละ 50-60 แลวยงขนอยกบความพยายามและวธการศกษาอยางมประสทธภาพรอยละ 30-40 และไดเพมเตมอกวา พฤตกรรมการเรยนหรอวธเรยนทมประสทธภาพนนเปนองคประกอบหนงทท าใหผเรยน ประสบความส าเรจในการเรยน กลาวคอ นกเรยนทเรยนดนนไมจ าเปนตองเปนคนทมสตปญญาเฉลยวฉลาดมาก แตตองเปนคนทตองรจกใชเวลา ตองรจกวธเรยน วธท างานใหไดผลด

DPU

http://th.wikipedia.org/w/index.php?title=%E0%B8%A5%E0%B8%B1%E0%B8%97%E0%B8%98%E0%B8%B4%E0%B8%88%E0%B8%B1%E0%B8%81%E0%B8%A3%E0%B8%A7%E0%B8%A3%E0%B8%A3%E0%B8%94%E0%B8%B4%E0%B8%99%E0%B8%B4%E0%B8%A2%E0%B8%A1%E0%B8%97%E0%B8%B2%E0%B8%87%E0%B8%A7%E0%B8%B1%E0%B8%92%E0%B8%99%E0%B8%98%E0%B8%A3%E0%B8%A3%E0%B8%A1&action=edit&redlink=1

http://th.wikipedia.org/w/index.php?title=%E0%B8%A5%E0%B8%B1%E0%B8%97%E0%B8%98%E0%B8%B4%E0%B8%88%E0%B8%B1%E0%B8%81%E0%B8%A3%E0%B8%A7%E0%B8%A3%E0%B8%A3%E0%B8%94%E0%B8%B4%E0%B8%99%E0%B8%B4%E0%B8%A2%E0%B8%A1%E0%B8%97%E0%B8%B2%E0%B8%87%E0%B8%A7%E0%B8%B1%E0%B8%92%E0%B8%99%E0%B8%98%E0%B8%A3%E0%B8%A3%E0%B8%A1&action=edit&redlink=1

http://th.wikipedia.org/w/index.php?title=%E0%B8%A7%E0%B8%B1%E0%B8%92%E0%B8%99%E0%B8%98%E0%B8%A3%E0%B8%A3%E0%B8%A1%E0%B9%80%E0%B8%94%E0%B8%B5%E0%B9%88%E0%B8%A2%E0%B8%A7&action=edit&redlink=1

http://th.wikipedia.org/w/index.php?title=%E0%B8%97%E0%B8%B8%E0%B8%99%E0%B8%97%E0%B8%B2%E0%B8%87%E0%B8%AA%E0%B8%B1%E0%B8%87%E0%B8%84%E0%B8%A1&action=edit&redlink=1

http://th.wikipedia.org/w/index.php?title=%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B9%81%E0%B8%9E%E0%B8%A3%E0%B9%88%E0%B8%81%E0%B8%A3%E0%B8%B0%E0%B8%88%E0%B8%B2%E0%B8%A2_(%E0%B8%A1%E0%B8%B2%E0%B8%99%E0%B8%B8%E0%B8%A9%E0%B8%A2%E0%B8%A7%E0%B8%B4%E0%B8%97%E0%B8%A2%E0%B8%B2)&action=edit&redlink=1

http://th.wikipedia.org/w/index.php?title=%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B9%81%E0%B8%9E%E0%B8%A3%E0%B9%88%E0%B8%81%E0%B8%A3%E0%B8%B0%E0%B8%88%E0%B8%B2%E0%B8%A2%E0%B8%82%E0%B8%AD%E0%B8%87%E0%B8%99%E0%B8%A7%E0%B8%B1%E0%B8%95%E0%B8%81%E0%B8%A3%E0%B8%A3%E0%B8%A1&action=edit&redlink=1

http://th.wikipedia.org/w/index.php?title=%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B9%81%E0%B8%9E%E0%B8%A3%E0%B9%88%E0%B8%81%E0%B8%A3%E0%B8%B0%E0%B8%88%E0%B8%B2%E0%B8%A2%E0%B8%82%E0%B8%AD%E0%B8%87%E0%B8%99%E0%B8%A7%E0%B8%B1%E0%B8%95%E0%B8%81%E0%B8%A3%E0%B8%A3%E0%B8%A1&action=edit&redlink=1

- 39 -

Brown and Holtzman (1955, p. 75) ไดท าการศกษาเกยวกบเรองนสยในการเรยนและเจตคตในการเรยน โดยสรางแบบส ารวจนสยในการเรยนและเจตคตในการเรยนขน (The Survey of Study Habits and Attitudes--SSHA) น าไปสอบกบกลมตวอยางซงเปนนกเรยนชนมธยมศกษา เกรด 12 จ านวน 455 คน แลวน าคะแนนทไดจากแบบส ารวจไปหาคาสหสมพนธกบผลสมฤทธทางการเรยน ซงไดจากคะแนนสอบปลายป ผลการวจยพบวา คาสมประสทธ สหสมพนธคะแนนจากแบบส ารวจกบผลสมฤทธทางการเรยนของนกเรยนชายและหญงเทากบ .48 และ .51 ตามล าดบ และทศนคตในการเรยน มความสมพนธอยางมนยส าคญกบผลสมฤทธทางการเรยน กลยา สกลแกว (2532) ศกษาเรอง ความสมพนธระหวางพฤตกรรมการเรยนเจตคตตอครและผลสมฤทธทางการเรยนวชาสงคมศกษาของนกเรยนชนมธยมศกษาปท 2 กรงเทพมหานคร โดยใชกลมตวอยางจ านวน 840 คนผลการวจยพบวา พฤตกรรมการเรยนและผลสมฤทธทางการเรยนวชาสงคมศกษาของนกเรยนชนมธยมศกษาปท 2 มความสมพนธกนในทางบวกอยางมนยส าคญทางสถตทระดบ .01 โดยมคาสมประสทธสหสมพนธเทากบ .1569 ทศนย ศรวฒน (2532) ศกษาเรอง แบบการเรยนของนกศกษาคณะรฐศาสตรมหาวทยาลยรามค าแหง พบวา นกศกษาคณะรฐศาสตรโดยสวนใหญชอบแบบการเรยนมสวนรวมและแบบรวมมอ สวนแบบอน ๆ นกศกษาชอบปานกลาง นอกจากนนกศกษาทมผลสมฤทธทางการเรยนตางกน มเจตคตตอการเรยนแตละแบบแตกตางกนอยางไมมนยส าคญทางสถต จากตวอยางงานวจยขางตนนนแสดงวา พฤตกรรมการเรยนมความสมพนธกบผลสมฤทธทางการเรยน โดยหากผเรยนมพฤตกรรมการเรยนด เชน มเจตคตตอการเรยน มความขยนหมนเพยร รจกวธเรยน วางแผนการเรยนใชเวลาเรยนอยางมประสทธภาพ ผเรยนสามารถเรยนโดยมผลสมฤทธทางการเรยนดได

4. กรอบแนวคดในการวจย

ในการเรยนรของผเรยนในทกวชานน หากผเรยนมความเขาใจในเนอหาวชาและสามารถน าไปใชในการแกปญหา หรอปรบประยกตใชไดกย งหมายถงความสมฤทธผลทางการเรยนรของผเรยน ซงความสมฤทธผลทางการเรยนของผเรยนนน อาศยปจจยประกอบหลายๆ ดาน ไมวาจะเปน ผเรยน ผสอน เทคนควธการสอน อปกรณ สอการเรยนการสอน ส าหรบในงานวจยนสรางขนเพอเปนสวนหนงส าหรบการเรยนรของผเรยนซงจากเนอหาในวชาคณตศาสตรและสถตในชวตประจ าวนทเรยบเรยงไวขางตนนน ในการเรยนการสอนพนฐานของผเรยนแตละคนแตกตางกน การค านวณหาค าตอบส าหรบเนอหาหลายๆ เรองไมใชเรองยาก

DPU

- 40 -

ส าหรบผเรยนสวนหนง ขณะทอาจเปนเรองยากส าหรบผเรยนอกสวนหนง ซงโดยรวมแลวทงสองกลมส าหรบการเรยนวชาทางดานคณตศาสตรหรอสถตจ าเปนทตองมการท าแบบฝกหดเพอทบทวน และเพอเพมทกษะในการค านวณหาค าตอบ ซงในการเรยนรของผเรยนนนไมไดมเฉพาะในหองเรยน และการท าแบบฝกหดทบทวนกไมเฉพาะโจทยทผสอนมอบหมายเทานน อาจเปนโจทยอนๆทผเรยนคนควาเพมเตมเอง หรอเปนโจทยทผเรยนคดและเขยนขนเอง ซงผเรยนควรไดทราบวาค าตอบทค านวณไดนนถกตองหรอไม ดงนน จงเกดแนวคดทจะพฒนาโปรแกรมนขน เพอชวยใหผเรยนสามารถตรวจทานค าตอบไดเอง ไมวาจะเปนโจทยทผสอนมอบหมาย หรอเปนโจทยทผเรยนคนควาเพมเตมเพอฝกฝน หรอเปนโจทยทผเรยนคดและเขยนโจทยขนเองโดยอาศยแนวทางการเขยนจากตวอยางโจทยทม และหากเปนโจทยทผเรยนคดและเขยนขนเองนนมขอมลไมครบถวนสมบรณ เมอผเรยนตรวจทานค าตอบดวยโปรแกรมชวยตรวจทานค าตอบน ผเรยนจะทราบในสวนของขอมลทยงไมครบถวนสมบรณ ซงเปนวธหนงทจะชวยในการทดสอบความรความเขาใจของผเรยน ซงหากผเรยนตรวจทานค าตอบแลวถกตอง กเปนสงหนงทบงบอกไดวาผเรยนนนมความรความเขาใจในเนอหา และวธการในการค านวณทถกตอง

DPU

บทท 3

วธด าเนนการวจย

ในการพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถตในชวตประจ าวน มข นตอนในการท างาน ดงน

ขนท 1 ศกษาขนตอนการท างานของโปรแกรมเพอหาค าตอบตามเนอหาแตละสวนในวชา ดงน

1. อตราสวน

1.1 อตราสวนอยางต า อตราสวนทเทากน อตราสวนตอเนอง 1.2 การเปลยนอตราสวนใหอยในรปรอยละหรอเปอรเซนต

2. ดอกเบย

2.1 ดอกเบยเชงเดยว (Simple Interest) ซงมทงกรณทค านวณหา 2.1.1 ดอกเบย 2.1.2 เงนตน 2.1.3 อตราดอกเบย 2.1.4 ระยะเวลา 2.2 ดอกเบยคงท (Flat Rate) 2.3 ดอกเบยทบตน (Compound Interest)

3. มลคาปจจบนของเงน


DPU

- 42 -

4. การวเคราะหขอมลขนตนดวยสถตเชงพรรณนา ทงขอมลแจกแจงความถและขอมลไมแจกแจงความถ ซงประกอบดวยการหาคาสถต ดงน

4.1 การวดแนวโนมเขาสสวนกลาง ประกอบดวย คาเฉลย มธยฐาน และฐานนยม

4.2 การวดการกระจายของขอมล ประกอบดวย 4.2.1 การวดการกระจายสมบรณ คอ พสย ความแปรปรวน และคา เบยงเบนมาตรฐาน 4.2.2 การวดการกระจายสมพทธ คอ สมประสทธพสย และ สมประสทธความแปรผน ขนท 2 เขยนค าสงดวยโปรแกรม Visual Basic 6.0 ตามขนตอนทก าหนด ในขนท 1

ขนท 3 ทดสอบการท างานของโปรแกรม

โดยในโปรแกรมค านวณคาแตละโปรแกรมมผงแสดงการท างาน ดงตอไปน

DPU

- 43 -

ผงแสดงการท างานโปรแกรมค านวณอตราสวนอยางต า

เรมตน

รบคาอตราสวน

ค านวณใหเปนอตราสวนอยางต า

แสดงคาอตราสวน อยางต าทางหนาจอ

จบการท างาน

DPU

- 44 -

ผงแสดงการท างานโปรแกรมค านวณอตราสวนทเทากน

เรมตน


ค านวณอตราสวนทเทากน

แสดงคาทางหนาจอ


DPU

- 45 -

ผงแสดงการท างานโปรแกรมค านวณอตราสวนตอเนอง

เรมตน


ค านวณอตราสวนตอเนอง



DPU

- 46 -

ผงแสดงการท างานโปรแกรมแปลงอตราสวนใดๆใหอยในรปรอยละ

เรมตน


ค านวณโดยแปลงใหอยในรปรอยละ




DPU

- 47 -

ผงแสดงการท างานโปรแกรมค านวณดอกเบย

ไมครบ

ครบ

เรมตน

รบคาเงนตน อตราดอกเบย และระยะเวลา

ค านวณหาดอกเบย จากสตร I = P x R x T



ขอมลครบหรอไม?

DPU

- 48 -

ผงแสดงการท างานโปรแกรมค านวณเงนตน

ไมครบ

ครบ

เรมตน

รบคาดอกเบย อตราดอกเบย และระยะเวลา

ค านวณหาเงนตน จากสตร P =




DPU

- 49 -

ผงแสดงการท างานโปรแกรมค านวณอตราดอกเบย

ไมครบ

ครบ

เรมตน

รบคาดอกเบย เงนตน และระยะเวลา

ค านวณหาอตราดอกเบย จากสตร R =




DPU

- 50 -

ผงแสดงการท างานโปรแกรมค านวณระยะเวลา

ไมครบ

ครบ

เรมตน

รบคาดอกเบย เงนตน และอตราดอกเบย

ค านวณหาระยะเวลา จากสตร T =




DPU

- 51 -

ผงแสดงการท างานโปรแกรมค านวณดอกเบยทบตน

Sn P

ไมครบ ไมครบ

ครบ ครบ

เรมตน

รบคาเงนตน P

อตราดอกเบย

ระยะเวลา และการคดดอกเบยทบตน

ค านวณ Sn หรอ P

รบคาเงนรวม Sn อตราดอกเบย


ค านวณ Sn = P( ) หรอ

ค านวณ P =

( )





DPU

- 52 -

ผงแสดงการท างานโปรแกรมค านวณมลคาของเงนในอนาคต

FV R


ครบ ครบ

เรมตน

ค านวณ FVหรอ R

รบคาเงนรายงวด R



รบคาเงนรวม FV อตราดอกเบย




ค านวณ FV = R . หรอ

ค านวณ R =



DPU

- 53 -

ผงแสดงการท างานโปรแกรมค านวณมลคาปจจบนของเงน

PV R


ครบ ครบ

เรมตน

ค านวณ PVหรอ R

รบคาเงนรายงวด R



รบคาเงนรวม PV อตราดอกเบย


ค านวณ PV = R . หรอ

ค านวณ R =





DPU

- 54 -

ผงแสดงการท างานโปรแกรมค านวณคาสถตเบองตนส าหรบขอมลไมแจกแจงความถ

ไมครบ ครบ

เรมตน

รบคาจ านวนขอมล

ปอนขอมลตามจ านวนขอมล

ขอมลครบ หรอไม?

ค านวณ



DPU

- 55 -

ผงแสดงการท างานโปรแกรมค านวณคาสถตเบองตนส าหรบขอมลแจกแจงความถ ไมครบ ครบ

เรมตน

รบคาจ านวนชนของ ขอมล

ปอนขอมลและจ านวนขอมลในแตละชน

ขอมลครบ หรอไม?

ค านวณ



DPU

บทท 4

ผลการวจย

การพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถตในชวตประจ าวน โดยการสรางแอพพรเคชนอยางงาย ดวยโปรแกรม Visual Basic 6.0 เพอค านวณคาตางๆตามเนอหาในวชา ประกอบดวย

1. โปรแกรมค านวณหาอตราสวนอยางต า

2. โปรแกรมค านวณเพอตรวจสอบอตราสวนทเทากน

3. โปรแกรมค านวณหาอตราสวนตอเนอง

4. โปรแกรมค านวณส าหรบแปลงอตราสวนใดๆใหอยในรปรอยละหรอเปอรเซนต

5. โปรแกรมส าหรบค านวณดอกเบยคงตน ซงประกอบดวย

5.1 โปรแกรมค านวณหาดอกเบย

5.2 โปรแกรมค านวณหาเงนตน

5.3 โปรแกรมค านวณหาอตราดอกเบย

5.4 โปรแกรมค านวณหาระยะเวลา

6. โปรแกรมส าหรบค านวณดอกเบยคงท

7. โปรแกรมส าหรบค านวณดอกเบยทบตน

8. โปรแกรมส าหรบค านวณมลคาของเงนในอนาคต

9. โปรแกรมส าหรบค านวณมลคาปจจบนของเงน

10. โปรแกรมค านวณหาคาสถตเบองตนส าหรบขอมลไมแจกแจงความถ

11. โปรแกรมค านวณหาคาสถตเบองตนส าหรบขอมลแจกแจงความถ

และน าเสนอผลตามล าดบเนอหาตามล าดบขางตน ดงน

เมอเรมใชงานหนาจอโปรแกรมเรมตนจะปรากฏดงรปท 1 ดงน

DPU

- 57 -

รปท 1

หนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ

จากรปท 1 เปนโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ เมอตองการค านวณหาอตราสวนอยางต า คลกอตราสวนอยางต า และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณหาอตราสวนอยางต า ดงรปท 2 ดงน

DPU

- 58 -

รปท 2

หนาจอโปรแกรมค านวณหาอตราสวนอยางต า

จากรปท 2 ปอนอตราสวนทตองการท าใหเปนอตราสวนอยางต า ซงในทนอตราสวนทน ามาค านวณเปนอตราสวนทมจ านวนไดสงสด 4 จ านวน (เวลาทใชในการค านวณมากนอยจะแตกตางกนเนองจากหากเปนอตราสวนทมตวเลขทมคามากๆอาจใชเวลาในการค านวณนาน รวมทงขนอยกบความเรวของเครองคอมพวเตอรทใช) เชน ตามตวอยาง อตราสวนทตองการ

ท าเปนอตราสวนอยางต าเปนอตราสวนทม 3 จ านวน คอ 4 :

: 5 เมอปอนอตราสวน

เรยบรอยแลวคลกป มค านวณ กจะไดค าตอบซงเปนอตราสวนอยางต า คอ 12 : 10 : 15 ซงหากตองการแกไขหรอเมอไดค าตอบแลวตองการค านวณหาอตราสวนอยางต าส าหรบอตราสวนอนๆใหคลกป มลบ หรอกลบไปกรอกขอมลอตราสวนทตองการค านวณแลวคลกป มค านวณเลยไดเชนกน สวนป มกลบไปเมนหลกคลกเมอตองการค านวณหาคาอนๆเชน อตราสวนตอเนอง หรอรอยละ เปนตน และป มออกจากโปรแกรมส าหรบหยดการท างานของโปรแกรม หากตองการค านวณคาอนๆ เชน ตรวจสอบอตราสวนทเทากน คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 3

DPU

- 59 -

รปท 3


จากรปท 3 คลกอตราสวนทเทากน และ คลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณหาอตราสวนทเทากน ดงรปท 4 ดงน

DPU

- 60 -

รปท 4

หนาจอโปรแกรมค านวณหาอตราสวนทเทากน

จากรปท 4 ปอนอตราสวนทตองการตรวจสอบวาเปนอตราสวนทเทากนหรอไม ซงในทนอตราสวนทน ามาตรวจสอบความเทากนทดสอบไดสงสด 3 อตราสวน เชน ตามตวอยาง

อตราสวนทตองการตรวจสอบความเทากน ม 3 อตราสวน คอ

: 2 , 1 : 5 และ 10 : 3 (เวลา

ทใชในการค านวณมากนอยจะแตกตางกนเนองจากหากเปนอตราสวนทมตวเลขทมคามากๆอาจใชเวลาในการค านวณนาน รวมทงขนอยกบความเรวของเครองคอมพวเตอรทใช) เมอปอนอตราสวนเรยบรอยแลวคลกป มค านวณ จะไดค าตอบซงเปนอตราสวนอยางต าของแตละอตราสวน คอ อตราสวนท 1 เมอท าเปนอตราสวนอยางต าไดเทากบ 2 : 3 อตราสวนท 2 เมอท าเปนอตราสวนอยางต าไดเทากบ 1 : 5 และอตราสวนท 3 เมอท าเปนอตราสวนอยางต าแลวไดเทากบ 10 : 3 ซงทง 3 อตราสวนไมเทากน จะปรากฏขอความ NOT EQUAL ในกลองค าตอบ ซงหากตองการแกไขหรอเมอไดค าตอบแลวตองการตรวจสอบความเทากนของอตราสวนอนๆใหคลกป มลบ หรอกลบไปกรอกขอมลอตราสวนแลวคลกป มค านวณไดเชนกน

DPU

- 61 -

สวนป มกลบไปเมนหลกคลกเมอตองการตองการค านวณหาคาอนๆเชน อตราสวนตอเนอง หรอรอยละ เปนตน และป มออกจากโปรแกรมส าหรบหยดการท างานของโปรแกรม

DPU

- 62 -

รปท 5

หนาจอโปรแกรมค านวณหาอตราสวนทเทากน

จากรปท 5 เปนอกตวอยางหนงส าหรบตรวจสอบความเทากนของอตราสวน โดยอตราสวนทตองการตรวจสอบม 3 อตราสวน คอ 4 : 10 , 24 : 60 และ 2 : 5 เมอปอนขอมลอตราสวนแตละอตราสวนเรยบรอยแลวคลกป มค านวณ โปรแกรมจะค านวณอตราสวนแตละอตราสวนใหเปนอตราสวนอยางต า ซงตามตวอยางนทง 3 อตราสวนเมอท าเปนอยางต าแลวเทากน คอ เทากบ 2 : 5 โปรแกรมจะแสดงขอความ EQUAL ในกลองค าตอบ

หากตองการค านวณคาอนๆ เชน ตองการค านวณอตราสวนตอเนอง คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 6 ดงน

DPU

- 63 -

รปท 6


จากรปท 6 คลกอตราสวนตอเนอง และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณหาอตราสวนตอเนอง ดงรปท 7 ดงน

DPU

- 64 -

รปท 7

หนาจอโปรแกรมค านวณอตราสวนตอเนอง

จากรปท 7 ส าหรบการค านวณอตราสวนตอเนอง อตราสวนทใชในการค านวณใชไดสงสด 3 อตราสวน โดยการปอนอตราสวนทตองการท าใหเปนอตราสวนเดยวกน เชน ตามตวอยาง

อตราสวน a : b เทากบ

: 3 อตราสวน b : c เทากบ 2 : 9 (เวลาทใชในการค านวณมาก

นอยจะแตกตางกนเหมอนกบการค านวณอตราสวนอยางต าและอตราสวนทเทากน เนองจากหากเปนอตราสวนทมตวเลขทมคามากๆอาจใชเวลาในการค านวณนาน รวมทงขนอยกบความเรวของเครองคอมพวเตอรทใช) เมอปอนอตราสวนเรยบรอยแลวคลกป มค านวณ จะไดค าตอบซงเปนอตราสวนตอเนอง a : b : c เทากบ 8 : 30 : 135 ซงหากตองการแกไขหรอเมอไดค าตอบแลวตองการค านวณหาอตราสวนตอเนองอนๆ คลกป มลบ หรอกลบไปกรอกขอมลอตราสวนแลวคลกป มค านวณไดเชนกน สวนป มกลบไปเมนหลกคลกเมอตองการค านวณหาคาอนๆเชน อตราสวนอยางต า อตราสวนทเทากน หรอรอยละ เปนตน และคลกป มออกจากโปรแกรม เมอตองการหยดการท างานของโปรแกรม

DPU

- 65 -

หากตองการค านวณคาอนๆ เชน ตองการแปลงอตราสวนใดๆใหเปนอยในรปรอยละ คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 8 ดงน

DPU

- 66 -

รปท 8


จากรปท 8 คลกรอยละ และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบแปลงอตราสวนใดๆใหอยในรปรอยละ ดงรปท 9 ดงน

DPU

- 67 -

รปท 9

หนาจอโปรแกรมส าหรบการแปลงอตราสวนใดๆใหอยในรปรอยละ

จากรปท 9 ปอนอตราสวนทตองการแปลงใหอยในรปรอยละ เชน ตามตวอยางตองการแปลง

อตราสวน

: 23 ใหอยในรปรอยละ เมอปอนขอมลอตราสวนเรยบรอยแลวคลกป มค านวณ

จะไดค าตอบซงแปลงใหอยในรปรอยละไดเทากบ รอยละ 97.83 หากตองการแกไขหรอเมอไดค าตอบแลวตองการค านวณหาอตราสวนตอเนองอนๆ คลกป มลบ หรอกลบไปกรอกขอมลอตราสวนแลวคลกป มค านวณ ไดเชนกน สวนป มกลบไปเมนหลกคลกเมอตองการค านวณหาคาอนๆเชน อตราสวนอยางต า อตราสวนทเทากน อตราสวนตอเนอง เปนตน และคลกป มออกจากโปรแกรม เพอหยดการท างานของโปรแกรม

หากตองการค านวณคาอนๆ เชน ตองการค านวณดอกเบยคงตน คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 10 ดงน

DPU

- 68 -

รปท 10


จากรปท 10 คลกดอกเบยคงตน และ คลกป มค านวณ จะไดหนาจอโปรแกรมส าหรบเลอกคาทตองการค านวณ คอ ดอกเบย เงนตน อตราดอกเบย และระยะเวลา ดงรปท 11 ดงน

DPU

- 69 -

รปท 11

หนาจอโปรแกรมส าหรบเลอกคาทตองการค านวณเกยวกบดอกเบยคงตน

จากรปท 11 จากหนาจอโปรแกรมเมอตองการค านวณคาใดคลกเลอกคานน เชน ตองการค านวณหาดอกเบย คลกเลอกดอกเบย ตองการค านวณหาเงนตน คลกเลอกเงนตน ตองการค านวณหาอตราดอกเบย คลกเลอกอตราดอกเบย หรอตองการค านวณหาระยะเวลา คลกเลอกระยะเวลา แลวคลกป มค านวณ หากคลกป มกลบไปเมนหลก จะกลบไปทหนาจอโปรแกรมเรมตนเพอเลอกคาทตองการค านวณ และถา คลกป มออกจากโปรแกรม โปรแกรมจะหยดการท างาน ในทนตองการค านวณดอกเบย คลกดอกเบย และ คลกป มค านวณ จะไดหนาจอโปรแกรมส าหรบค านวณดอกเบยคงตน ดงรปท 12 ดงน

DPU

- 70 -

รปท 12

หนาจอโปรแกรมค านวณหาดอกเบย

จากรปท 12 เมอตองการค านวณหาดอกเบย ปอนขอมลเงนตน อตราดอกเบยรอยละเทาใด อาจเปนอตราดอกเบยรอยละตอวน อตราดอกเบยรอยละตอเดอน หรออตราดอกเบยรอยละตอป ถาเปนอตราดอกเบยตอวน ตองเลอกตอวา 1 ปนบจ านวนกวน 360 365 หรอ 366 วน ซงหากยงไมเลอกจะมขอความเตอน สวนขอมลระยะเวลาหนวยระยะเวลาอาจเปนวน ระยะเวลาเปนเดอน หรอระยะเวลาเปนป หากระยะเวลาเปนจ านวนวน ตองเลอกตอวา 1 ปนบจ านวนกวน 360 365 หรอ 366 วน เหมอนกบอตราดอกเบย หากยงไมเลอกจะมขอความเตอน เชนเดยวกบอตราดอกเบย ตามตวอยางในทนตองการค านวณหาดอกเบยของ เงนตน 1,000 บาท อตราดอกเบยรอยละ 10 ตอป ระยะเวลา 10 ป เมอปอนขอมลเรยบรอยแลวคลกป มค านวณ จะไดค าตอบคอ ดอกเบยเทากบ 1,000 บาท และเงนรวม 2,000 บาท ทกลองค าตอบ คลกป มลบ เมอตองการค านวณดอกเบยดวยเงนตน อตราดอกเบยและระยะเวลาดวยคาอนๆหรอ กลบไปกรอกทกลองรบขอมล แลวคลกป มค านวณ ไดเชนเดยวกน สวนหากตองการค านวณคาอนๆ เชน เมอตองการค านวณหาเงนตนในโจทยขออนๆให คลกป มค านวณคา

DPU

- 71 -

อนๆ จะปรากฏหนาจอโปรแกรมดงรปท 11 หาก คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนเพอเลอกคาทตองการค านวณ ดงรปท 10

DPU

- 72 -

รปท 13

หนาจอโปรแกรมค านวณหาดอกเบยเมอแสดงขอความเตอนกรณขอมลไมสมบรณ

จากรปท 13 เมอตองการค านวณดอกเบย กรณอตราดอกเบยเปนอตราดอกเบยรอยละ 10 ตอวน แตไมไดเลอกจ านวนวน 360 365 หรอ 366 วน หรอ ไมไดปอนขอมลเงนตน หรอ อตราดอกเบย หรอ ระยะเวลาเมอ คลกป มค านวณ โปรแกรมจะแสดงขอความเตอน ดงรปท 13

DPU

- 73 -

รปท 14

หนาจอโปรแกรมค านวณหาดอกเบยเมอแสดงขอความเตอนกรณขอมลไมสมบรณ

จากรปท 14 หากระยะเวลาทตองการค านวณดอกเบย 10 วน แตไมไดเลอกวา 1 ปนบจ านวน 360 365 หรอ 366 วน เมอ คลกป มค านวณ โปรแกรมจะแสดงขอความเตอน ดงรป

DPU

- 74 -

รปท 15

หนาจอโปรแกรมค านวณหาดอกเบยเมอระยะเวลาเปนจ านวนวน

จากรปท 15 เปนตวอยางการค านวณหาดอกเบยเมอระยะเวลาเปนจ านวนวน ดวยเงนตน 1,000 บาท อตราดอกเบยรอยละ 10 ตอป ระยะเวลา 10 วน โดย 1 ปนบจ านวน 360 วน ปอนขอมลแลวคลกป มค านวณ ไดค าตอบคอดอกเบยเทากบ 2.78 บาท เงนรวมเทากบ 1,002.78 บาท หากตองการค านวณหาเงนตน คลกป มค านวณคาอนๆ จะปรากฏหนาจอโปรแกรมดงรปท 16 ดงน

DPU

- 75 -

รปท 16

หนาจอโปรแกรมส าหรบเลอกคาทตองการค านวณ

จากรปท 16 คลกเงนตน และคลกป มค านวณ จะไดหนาจอโปรแกรมส าหรบค านวณเงนตน ดงรปท 17 ดงน

DPU

- 76 -

รปท 17

หนาจอโปรแกรมส าหรบค านวณหาเงนตน

จากรปท 17 เมอตองการค านวณหาเงนตน จากหนาจอโปรแกรม ใหปอนขอมลคอ ดอกเบย อตราดอกเบย ซงอาจเปนอตราดอกเบยตอวน อตราดอกเบยตอเดอน หรออตราดอกเบยตอป และปอนขอมลระยะเวลา หนวยเวลา อาจเปนวน เดอน หรอป โดยตวอยางในทนค านวณท ดอกเบย 1,000 บาท อตราดอกเบยรอยละ 10 ตอป ระยะเวลา 10 ป ปอนขอมลแลว คลกป มค านวณ จะไดค าตอบคอ เงนตน 1,000 บาท และเงนรวม 2,000 บาท

และเชนเดยวกบหนาจอโปรแกรมส าหรบค านวณหาดอกเบย คลกป มลบ เมอตองการค านวณหาเงนตน ทดอกเบย อตราดอกเบย และระยะเวลาดวยคาอนๆ หรออาจกลบไปทกลองรบขอมลและปอนขอมลและคลกปมค านวณ ไดเชนเดยวกน คลกป มค านวณคาอนๆ เมอตองการค านวณดอกเบย อตราดอกเบย หรอระยะเวลา และคลกป มกลบไปเมนหลก

เมอตองการค านวณคาในเรองอนๆ เชน อตราสวนอยางต า อตราสวนตอเนอง รอยละ เปนตน และคลกป มออกจากโปรแกรม เมอตองการหยดการท างานของโปรแกรม

DPU

- 77 -

รปท 18

หนาจอโปรแกรมค านวณเงนตนเมอแสดงขอความเตอนกรณขอมลไมสมบรณ

จากรปท 18 เชนเดยวกบกรณตองการค านวณหาดอกเบย หากกรอกขอมลไมครบหรอไมสมบรณ เชน ไมไดกรอกขอมลดอกเบย ระยะเวลา หรอ อตราดอกเบยรอยละ 10 ตอวน แตไมไดระบวา 1 ปนบจ านวน 360 365 หรอ 366 วน โปรแกรมจะแสดงขอความเตอน ดงรป

หากตองการค านวณหาอตราดอกเบย คลกป มค านวณคาอนๆ จะปรากฏหนาจอโปรแกรมดงรปท 19 ดงน

DPU

- 78 -

รปท 19


จากรปท 19 คลกอตราดอกเบย และคลกป มค านวณ จะไดหนาจอโปรแกรมส าหรบค านวณอตราดอกเบย ดงรปท 20 ดงน

DPU

- 79 -

รปท 20

หนาจอโปรแกรมค านวณหาอตราดอกเบย

จากรปท 20 เมอตองการค านวณหาอตราดอกเบย โดยตองปอนขอมลดอกเบย เงนตน และระยะเวลา หนวยระยะเวลา อาจเปนวน เดอน หรอป หาก ระยะเวลาเปนจ านวนวน ตองเลอกจ านวนวนทนบใน 1 ป 360 365 หรอ 366 วน ตามตวอยางในทนค านวณหาอตราดอกเบย เมอมขอมลดอกเบย 100 บาท เงนตน 2,000 บาท ระยะเวลา 10 ป เมอปอนขอมลเรยบรอยแลว คลกป มค านวณ ค าตอบในทนจะค านวณอตราดอกเบยทงอตราดอกเบยรอยละตอวน อตราดอกเบยรอยละตอเดอน และอตราดอกเบยรอยละตอป ในกรณค าตอบของอตราดอกเบยรอยละตอวนในทนจะค านวณเมอ 1 ปนบจ านวน 365 วน จากตวอยาง จะไดค าตอบอตราดอกเบยรอยละ 0.0014 ตอวน อตราดอกเบยรอยละ 0.0417 ตอเดอน และอตราดอกเบยรอยละ 0.5 ตอป หากตองการค านวณหาอตราดอกเบยทเงนตน ดอกเบย และระยะเวลาอนๆ คลกป มลบ และกรอกขอมลใหมหรอกลบไปกรอกขอมล และคลกป มค านวณ ไดเชนเดยวกน คลกป มค านวณคาอนๆ หากตองการค านวณคาอนๆเกยวกบดอกเบยคงตน เชน ค านวณดอกเบย ค านวณเงนตน หรอค านวณระยะเวลา คลกป มกลบไปเมนหลกหากตองการค านวณ

DPU

- 80 -

คาอนๆ เชน ตองการค านวณดอกเบยทบตน หรอ อตราสวนอยางต า และคลกป มออกจากโปรแกรม เมอตองการหยดการท างานของโปรแกรม

DPU

- 81 -

รปท 21

หนาจอโปรแกรมค านวณหาอตราดอกเบยเมอระยะเวลาเปนจ านวนเดอน

จากรปท 21 เปนอกตวอยางหนงส าหรบการค านวณหาอตราดอกเบย เมอมขอมลดอกเบย 100 บาท เงนตน 2,000 บาท ระยะเวลา 10 เดอน ปอนขอมลแลวคลกป มค านวณจะไดค าตอบอตราดอกเบยรอยละ 0.0164 ตอวน อตราดอกเบยรอยละ 0.5 ตอเดอน และอตราดอกเบยรอยละ 6 ตอป

DPU

- 82 -

รปท 22

หนาจอโปรแกรมค านวณหาอตราดอกเบยเมอแสดงขอความเตอน


จากรปท 22 เมอค านวณหาอตราดอกเบย โดยมขอมลดอกเบย 100 บาท เงนตน 2,000 บาท ระยะเวลา 10 วน แตไมไดระบวา 1 ปนบจ านวน 360 365 หรอ 366 วน เมอปอนขอมลเรยบรอยแลว คลกป มค านวณ โปรแกรมจะแสดงขอความเตอน ดงรป

DPU

- 83 -

รปท 23

หนาจอโปรแกรมค านวณหาอตราดอกเบย

จากรปท 23 จากตวอยางจากรปท 22 เมอโปรแกรมแสดงขอความเตอนใหระบจ านวนวนแลวคลก OK แลวเลอกจ านวน 1 ป นบ 360 วน แลว คลกป มค านวณ จะไดค าตอบคอ อตราดอกเบยรอยละ 0.5 ตอวน อตราดอกเบยรอยละ 15 ตอเดอน และอตราดอกเบยรอยละ 180 ตอป เปนตน หากตองการค านวณหาระยะเวลา คลกป มค านวณคาอนๆ จะปรากฏหนาจอโปรแกรมดงรปท 24 ดงน

DPU

- 84 -

รปท 24


จากรปท 24 คลกระยะเวลา และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณระยะเวลา ดงรปท 25 ดงน

DPU

- 85 -

รปท 25

หนาจอโปรแกรมค านวณหาระยะเวลา

จากรปท 25 เมอตองการค านวณหาระยะเวลา ตองปอนขอมลดอกเบย เงนตน และอตราดอกเบย ซงอตราดอกเบยอาจเปนอตราดอกเบยตอวน อตราดอกเบยตอเดอน หรออตราดอกเบยตอป หากเปนอตราดอกเบยตอวน ตองเลอกจ านวนวนทนบใน 1 ป นบ 360 365 หรอ 366 วน ตามตวอยางในทน มขอมลดอกเบย 1,000 บาท เงนตน 20,000 บาท อตราดอกเบยรอยละ 10 ตอป เมอปอนขอมลเรยบรอยแลว คลกป มค านวณ จะไดค าตอบคอ ระยะเวลา 0.04 เดอน และ 0.5 ป จากขอมลตวอยางระยะเวลาเปนวนไมแสดงคาเนองจากมคานอยมาก ซงโปรแกรมตงคาส าหรบแสดงค าตอบโดยใชทศนยม 4 ต าแหนง และในทนค านวณโดยใช 1 ปม 365 วน

DPU

- 86 -

รปท 26

หนาจอโปรแกรมค านวณหาระยะเวลาเมอแสดงขอความเตอน


จากรปท 26 เมอค านวณหาระยะเวลา โดยมขอมลดอกเบย 100 บาท เงนตน 20,000 บาท อตราดอกเบยรอยละ 20 ตอวน เมอปอนขอมลเรยบรอยแลว คลกป มค านวณ โปรแกรมจะแสดงขอความเตอนใหเลอกจ านวนวน ดงรป หากตองการค านวณคาอนๆในเรองดอกเบยคงตน คลกป มค านวณคาอนๆ เชนเดยวกบหนาจอส าหรบค านวณดอกเบย เงนตน และอตราดอกเบย สวนนอกจากการค านวณในเรองดอกเบยคงตน เชน ค านวณจ านวนเงนทตองผอนเมอซอสนคาเงนผอน และดอกเบยทงหมดทตองช าระ คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 27

DPU

- 87 -

รปท 27


จากรปท 27 คลกดอกเบยคงท และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณดอกเบยคงท ดงรปท 28

DPU

- 88 -

รปท 28

หนาจอโปรแกรมส าหรบค านวณดอกเบยคงท

จากรปท 28 เมอตองการค านวณหาจ านวนเงนทตองผอนในแตละงวด และดอกเบยทงหมดทตองช าระ ปอนขอมลราคาสนคา เงนมดจ า (ถาม) อตราดอกเบยรอยละตอวน อตราดอกเบยรอยละตอเดอน หรออตราดอกเบยรอยละตอป หากเปนอตราดอกเบยตอวน ตองเลอกจ านวนวนทนบใน 1 ป 360 365 หรอ 366 วน และระยะเวลาผอนสง อาจเปน วน เดอน หรอป เชนเดยวกบอตราดอกเบย ถาระยะเวลาเปนวน ตองเลอกจ านวนวนทนบใน 1 ป คอ 360 365 หรอ 366 วน โดยตวอยางการค านวณในทน สนคาราคา 10,000 บาท และจายมดจ าสนคาไป 2,000 บาท อตราดอกเบยรอยละ 15 ตอป ระยะเวลาผอนสง 10 เดอน ปอนขอมลแลว คลกป มค านวณ จะไดจ านวนเงนทตองผอนในแตละเดอนๆละ 900 บาท และเปนดอกเบยทงหมดเทากบ 1,000 บาท กรณหากปอนขอมลไมครบหรอไมสมบรณ โปรแกรมจะแสดงขอความเตอน ดงรปท 29

DPU

- 89 -

รปท 29

หนาจอโปรแกรมค านวณหาดอกเบยคงทเมอแสดงขอความเตอนกรณขอมลไมสมบรณ

จากรปท 29 เปนตวอยางการค านวณเมอปอนขอมลไมครบ หรอไมสมบรณ ตามตวอยางเมอตองการค านวณหาจ านวนเงนทตองผอนในแตละเดอน เมอซอสนคาราคา 10,000 บาท และจายมดจ าสนคาไป 2,000 บาท อตราดอกเบยรอยละ 15 ตอวน แตยงไมไดเลอกจ านวนวนทใชค านวณใน 1 ป เมอปอนขอมลแลว คลกป มค านวณ โปรแกรมจะแสดงขอความเตอนใหเลอกจ านวนวน 360 365 หรอ 366 วน ดงรป

หากตองการค านวณหาคาอนๆ เชน ค านวณดอกเบยทบตน คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 30

DPU

- 90 -

รปท 30


จากรปท 30 คลกดอกเบยทบตน และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณดอกเบยทบตน ดงรปท 31

DPU

- 91 -

รปท 31

หนาจอโปรแกรมส าหรบค านวณดอกเบยทบตน

จากรปท 31 เมอตองการค านวณในเรองดอกเบยทบตน หนาจอโปรแกรมสามารถใชค านวณหาไดทงกรณค านวณหาเงนรวมเมอครบ n งวด (Sn) และ เงนตน (P) หากตองการค านวณหาเงนรวมเมอครบ n งวด (Sn) คลกเลอก Sn และใหปอนขอมล เงนตน (P) สวนในกลองรบขอมล (Sn) ไมตองปอนขอมล หรอหากปอนขอมลลงไป เมอคลกปมค านวณ โปรแกรมจะลบออกโดยอตโนมต และเมอตองการค านวณหาเงนตน (P) โดยคลกเลอก P และใหปอนขอมล เงนรวมเมอครบ n งวด (Sn) สวน เงนตน (P) ไมตองปอนขอมล หรอหากปอนขอมลลงไป เมอคลกปมค านวณ โปรแกรมจะลบออกโดยอตโนมต เชนเดยวกน เมอเลอกคาทตองการค านวณแลว ปอนขอมลอตราดอกเบยซงอาจเปนอตราดอกเบยรอยละตอวน อตราดอกเบยรอยละตอเดอน หรอ อตราดอกเบยรอยละตอป หากเปนอตราดอกเบยรอยละตอวน ตองเลอกวา 1 ปนบจ านวน 360 365 หรอ 366 วน และเลอกการคดดอกเบยทบตน โดยมการคดดอกเบยทบตนตงแตทบตนทก 1 เดอน ทบตนทก 2 เดอน ทบตนทก 3 เดอน ทบตนทก 4

DPU

- 92 -

เดอน จนกระทงทบตนทก 12 เดอน หรอทบตนปละ 1 ครง และปอนระยะเวลา โดยระยะเวลา หนวยอาจเปนวน เปนเดอน หรอเปนป หากระยะเวลา เปนวน เชน 90 วน ตองเลอกจ านวนวนทนบใน 1 ป 360 365 หรอ 366 วน ตามตวอยางเปนการค านวณหาจ านวนเงนรวมเมอครบก าหนด n งวด (Sn) จากเงนตน (P) 1,000 บาท อตราดอกเบยรอยละ 10 ตอป ระยะเวลา 10 ป คดดอกเบยทบตนทกๆ 6 เดอน หรอปละ 2 ครง ปอนขอมลเรยบรอยแลว คลกป มค านวณ จะไดค าตอบในกลองค าตอบ คอ เงนรวมเมอครบ n งวด (Sn) เทากบ 2,653.3 บาท เงนตน 1,000 บาท และไดดอกเบยทงหมดเทากบ 1,653.3 บาท หากตองการค านวณคาอนๆ คลกป มลบ และกลบไปเลอกและปอนขอมลใหมหรอกลบไปเลอกและปอนขอมลทหนาจอโปรแกรมโดยไมตองคลกปมลบกอน แลวคลกป มค านวณ คลกปมกลบไปทเมนหลกเมอตองการค านวณคาอนๆ เชน ค านวณในเรองอตราสวน รอยละ ดอกเบยคงท หรอหาคาสถตเบองตนส าหรบขอมลแจกแจงความถ เปนตน และคลกป มออกจากโปรแกรม เมอตองการหยดการท างานของโปรแกรม

DPU

- 93 -

รปท 32

หนาจอโปรแกรมส าหรบค านวณดอกเบยทบตน

จากรปท 32 เปนตวอยางกรณทตองการค านวณหาเงนตน (P) เมอเงนรวมเมอครบ n งวด (Sn) เทากบ 500,000 บาท อตราดอกเบยรอยละ 2 ตอเดอน คดดอกเบยทบตนทกๆ 4 เดอน และระยะเวลา 10 ป เมอปอนขอมลเรยบรอยแลว คลกป มค านวณ จะไดค าตอบในกลองค าตอบซงมเงนรวมเมอครบ n งวด (Sn) เทากบ 500,000 บาท เงนตน (P) เทากบ 409,637.1701 บาท และดอกเบยทงหมดเทากบ 90,362.8299 บาท

DPU

- 94 -

รปท 33

หนาจอโปรแกรมค านวณหาดอกเบยทบตนเมอแสดงขอความเตอน


จากรปท 33 เปนตวอยางกรณท ตองการค านวณหาเงนรวมเมอครบ n งวด (Sn) โดยปอนขอมลอตราดอกเบย การคดดอกเบยทบตน และระยะเวลา แตไมไดคลกเลอกวาค านวณหาคาใด เมอคลกป มค านวณ จะมกลองขอความเตอนใหเลอกหรอปอนขอมลใหครบ ดงรป

DPU

- 95 -

รปท 34



จากรปท 34 เปนตวอยางกรณทมกลองขอความเตอนเมอยงไมไดคลกเลอกการคดดอกเบยทบตน

DPU

- 96 -

รปท 35



จากรปท 35 เปนตวอยางกรณทมกลองขอความเตอนเมอระยะเวลา 90 วน แตยงไมไดคลกเลอกการนบจ านวนวนใน 1 ป 360 365 หรอ 366 วน หลงจากค านวณดอกเบยทบตนแลว หากตองการค านวณในเรองอนๆ เชน ค านวณหามลคาของเงนในอนาคตจากหนาจอโปรแกรมตามรปท 35 คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 36

DPU

- 97 -

รปท 36


จากรปท 36 คลกมลคาของเงนในอนาคต และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณในเรองมลคาของเงนในอนาคต ดงรปท 37

DPU

- 98 -

รปท 37

หนาจอโปรแกรมส าหรบค านวณมลคาของเงนในอนาคต

จากรปท 37 เมอตองการค านวณในเรองมลคาของเงนในอนาคต หนาจอโปรแกรมสามารถใชค านวณหาไดทงกรณค านวณหามลคาของเงนในอนาคต (FV) และ เงนรายงวด (R) หากตองการค านวณหามลคาของเงนในอนาคต (FV) คลกเลอก FV และใหปอนขอมล เงนรายงวด (R) สวนในกลองรบขอมล FV ไมตองปอนขอมล หรอหากปอนขอมลลงไป เมอคลกปมค านวณ โปรแกรมจะลบออกโดยอตโนมต และเมอตองการค านวณหาเงนรายงวด (R) โดยคลกเลอก R และใหปอนขอมล มลคาของเงนในอนาคต (FV) สวน เงนรายงวด (R) ไมตองปอนขอมล หรอหากปอนขอมลลงไป เมอคลกปมค านวณ โปรแกรมจะลบออกโดยอตโนมต เชนเดยวกน เมอเลอกคาทตองการค านวณแลว ปอนขอมลอตราดอกเบยซงอาจเปนอตราดอกเบยรอยละตอวน อตราดอกเบยรอยละตอเดอน หรอ อตราดอกเบยรอยละตอป หากเปนอตราดอกเบยรอยละตอวน ตองเลอกวา 1 ปนบจ านวน 360 365 หรอ 366 วน และเลอกการคดดอกเบยทบตน โดยมการคดดอกเบยทบตนตงแตทบตนทก 1 เดอน ทบตนทก 2 เดอน ทบตนทก 3 เดอน ทบตนทก

DPU

- 99 -

4 เดอน จนกระทงทบตนทก 12 เดอน หรอทบตนปละ 1 ครง และปอนระยะเวลา โดยระยะเวลา หนวยอาจเปนวน เปนเดอน หรอเปนป หากระยะเวลา เปนวน เชน 90 วน ตองเลอกจ านวนวนทนบใน 1 ป 360 365 หรอ 366 วน ตามตวอยางเปนการค านวณหามลคาของเงนในอนาคต (FV) จากเงนรายงวด (R) 1,000 บาท อตราดอกเบยรอยละ 10 ตอป ระยะเวลา 5 ป คดดอกเบยทบตนทกๆ 3 เดอน หรอปละ 4 ครง ปอนขอมลเรยบรอยแลว คลกป มค านวณ จะไดค าตอบในกลองค าตอบ คอ มลคาของเงนในอนาคต (FV) เทากบ 25,544.6576 บาท เงนรายงวด (R) 1,000 บาท และไดดอกเบยทงหมดเทากบ 5,544.6576 บาท หากตองการค านวณคาอนๆ คลกป มลบ และกลบไปเลอกและปอนขอมลใหมหรอกลบไปเลอกและปอนขอมลทหนาจอโปรแกรมโดยไมตองคลกปมลบกอนไดเชนเดยวกน และ คลกป มค านวณ คลกป มกลบไปทเมนหลกเมอตองการค านวณคาอนๆ เชน ค านวณในเรองอตราสวน รอยละ ดอกเบยคงท หรอหาคาสถตเบองตนส าหรบขอมลแจกแจงความถ เปนตน และคลกป มออกจากโปรแกรม เมอตองการหยดการท างานของโปรแกรม

DPU

- 100 -

รปท 38

หนาจอโปรแกรมส าหรบค านวณมลคาของเงนในอนาคต

จากรปท 38 จากตวอยางหนาจอตามรปท 37 เปนการค านวณหามลคาของเงนในอนาคต (FV) หากตองการค านวณหา เงนรายงวด ( R) ปอนและเลอกขอมลเชนเดยวกบกรณค านวณหามลคาของเงนในอนาคต (FV) ทงขอมลอตราดอกเบย การคดดอกเบยทบตน และระยะเวลา แตกตางกนทการเลอกคาทตองการค านวณ โดยตองคลกเลอก คาทค านวณ คอ R เชนจากตวอยาง ตองฝากเงนงวดละเทาใด เมอตองการเกบเงนใหได 100,000 บาท ในระยะเวลา 5 ป โดยจะไดดอกเบยในอตราดอกเบยรอยละ 10 ตอป และคดดอกเบยทบตนทก 6 เดอน เมอปอนขอมลเรยบรอยแลว คลกป มค านวณ จะไดค าตอบทกลองค าตอบ คอ มลคาของเงนในอนาคต (FV) เทากบ 100,000 บาท เงนรายงวดทตองฝากเทากนทกงวดๆละ 7,950.4575 บาท ไดดอกเบยทงหมดเทากบ 20,495.425 บาท หากปอนขอมลไมครบหรอไมสมบรณ โปรแกรมจะมกลองขอความเตอนใหเลอกหรอปอนขอมลใหครบ ดงตวอยางตอไป

DPU

- 101 -

รปท 39

หนาจอโปรแกรมค านวณมลคาของเงนในอนาคตเมอแสดงขอความเตอน


จากรปท 39 จากหนาจอโปรแกรมค านวณมลคาของเงนในอนาคต เมอมการปอนหรอเลอกขอมลไมครบ เชน ไมไดเลอกคาทตองการค านวณ FV หรอ R หรอคลกเลอกค านวณคา FV แตไมไดปอนขอมลเงนรายงวด R หรอ ไมไดเลอกการคดดอกเบยทบตนทกๆ กเดอน โปรแกรมจะแสดงขอความเตอนวาขอมลสวนใดทยงไมสมบรณ เชน จากตวอยางเปนการค านวณหา FV เมอ เงนรายงวด R เทากบ 1,000 บาท อตราดอกเบยรอยละ 10 ตอป ระยะเวลา 5 ป แตยงไมไดคลกเลอกการคดดอกเบยทบตน เมอ คลกป มค านวณ โปรแกรมจะแสดงขอความเตอน ดงรป

DPU

- 102 -

หากตองการค านวณคาอนๆ เชน ค านวณในเรองมลคาปจจบนของเงน คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 40

รปท 40


จากรปท 40 คลกมลคาปจจบนของเงน และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณในเรองมลคาปจจบนของเงน ดงรปท 41

DPU

- 103 -

รปท 41

หนาจอโปรแกรมส าหรบค านวณมลคาปจจบนของเงน

จากรปท 41 เมอตองการค านวณในเรองมลคาปจจบนของเงน หนาจอโปรแกรมสามารถใชค านวณหาไดทงกรณค านวณหามลคาปจจบนของเงน (PV) และ เงนรายงวด (R) หากตองการค านวณหามลคาปจจบนของเงน (PV) คลกเลอก PV และใหปอนขอมล เงนรายงวด (R) สวนในกลองรบขอมล ในกลองรบขอมล PV ไมตองปอนขอมล หรอหากปอนขอมลลงไป เมอคลกปมค านวณ โปรแกรมจะลบออกโดยอตโนมต และเมอตองการค านวณหาเงนรายงวด (R) โดยคลกเลอก R และใหปอนขอมล มลคาปจจบนของเงน (PV) สวน เงนรายงวด (R) ไมตองปอนขอมล หรอหากปอนขอมลลงไป เมอคลกปมค านวณ โปรแกรมจะลบออกโดยอตโนมต เชนเดยวกน เมอเลอกคาทตองการค านวณแลว ปอนขอมลอตราดอกเบยซงอาจเปนอตราดอกเบยรอยละตอวน อตราดอกเบยรอยละตอเดอน หรอ อตราดอกเบยรอยละตอป หากเปนอตราดอกเบยรอยละตอวน ตองเลอกวา 1 ปนบจ านวน 360 365 หรอ 366 วน และเลอกการคดดอกเบยทบตน โดยมการคดดอกเบยทบตนตงแตทบตนทก 1 เดอน ทบตนทก 2 เดอน ทบตน

DPU

- 104 -

ทก 3 เดอน ทบตนทก 4 เดอน จนกระทงทบตนทก 12 เดอน หรอทบตนปละ 1 ครง และปอนระยะเวลา โดยระยะเวลา หนวยอาจเปนวน เปนเดอน หรอเปนป หากระยะเวลา เปนวน เชน 90 วน ตองเลอกจ านวนวนทนบใน 1 ป 360 365 หรอ 366 วน ตามตวอยางเปนการค านวณหามลคาปจจบนของเงน (PV) จากเงนรายงวด (R) 1,000 บาท อตราดอกเบยรอยละ 5 ตอป ระยะเวลา 10 ป คดดอกเบยทบตนทกๆ 2 เดอน หรอปละ 6 ครง ปอนขอมลเรยบรอยแลว คลกป มค านวณ จะไดค าตอบในกลองค าตอบ คอ มลคาปจจบนของเงน (PV) เทากบ 47,065.369 บาท เงนรายงวด (R) 1,000 บาท และไดดอกเบยทงหมดเทากบ 12,934.631 บาท หากตองการค านวณคาอนๆ คลกป มลบ และกลบไปเลอกและปอนขอมลใหมหรอกลบไปเลอกและปอนขอมลทหนาจอโปรแกรมโดยไมตองคลกปมลบกอนไดเชนเดยวกน และ คลกป มค านวณ คลกป มกลบไปทเมนหลกเมอตองการค านวณคาอนๆ เชน ค านวณในเรองอตราสวน รอยละ ดอกเบยคงท หรอหาคาสถตเบองตนส าหรบขอมลแจกแจงความถ เปนตน และคลกป มออกจากโปรแกรม เมอตองการหยดการท างานของโปรแกรม

DPU

- 105 -

รปท 42

หนาจอโปรแกรมส าหรบค านวณมลคาปจจบนของเงน

จากรปท 42 จากตวอยางหนาจอตามรปท 41 เปนการค านวณหามลคาปจจบนของเงน (PV) หากตองการค านวณหา เงนรายงวด ( R) ปอนและเลอกขอมลเชนเดยวกบกรณค านวณหามลคาปจจบนของเงน (PV) ทงขอมลอตราดอกเบย การคดดอกเบยทบตน และระยะเวลา แตกตางกนทการเลอกคาทตองการค านวณ โดยตองคลกเลอก คาทค านวณ คอ R เชนจากตวอยาง ตองช าระเงนคนธนาคารงวดละเทาใด เมอกเงนมา 10,000 บาท ในระยะเวลา 10 ป โดยจะไดดอกเบยในอตราดอกเบยรอยละ 4 ตอป และคดดอกเบยทบตนทก 12 เดอน หรอคดดอกเบยทบตนปละ 1 ครง เมอปอนขอมลเรยบรอยแลว คลกป มค านวณ จะไดค าตอบทกลองค าตอบ คอ มลคาปจจบนของเงน (PV) เทากบ 10,000 บาท เงนรายงวดทตองช าระคนธนาคารทกงวดๆละ 1,232.9094 บาท ไดดอกเบยทงหมดเทากบ 2,329.094 บาท หากปอนขอมลไมครบหรอไมสมบรณ โปรแกรมจะมกลองขอความเตอนใหเลอกหรอปอนขอมลใหครบ ดงตวอยางตอไป

DPU

- 106 -

รปท 43

หนาจอโปรแกรมค านวณมลคาปจจบนของเงนเมอแสดงขอความเตอน


จากรปท 43 จากหนาจอโปรแกรมค านวณมลคาปจจบนของเงน เมอมการปอนหรอเลอกขอมลไมครบ เชน ไมไดเลอกคาทตองการค านวณ PV หรอ R หรอคลกเลอกค านวณคา PV แตไมไดปอนขอมลเงนรายงวด R หรอ ตองการค านวณหา R แตไมไดปอนขอมล PV ไมไดเลอกการคดดอกเบยทบตนทกๆ กเดอน โปรแกรมจะแสดงขอความเตอนวาขอมลสวนใดทยงไมสมบรณ เชน จากตวอยางเปนการค านวณหา PV เมอ เงนรายงวด R เทากบ 1,000 บาท อตราดอกเบยรอยละ 4 ตอป ระยะเวลา 5 ป แตยงไมไดคลกเลอกการคดดอกเบยทบตน เมอ คลกป มค านวณ โปรแกรมจะแสดงขอความเตอน ดงรป

DPU

- 107 -

หากตองการค านวณคาอนๆ เชน ค านวณหาคาสถตเบองตนส าหรบขอมลไมแจกแจงความถ คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 44

รปท 44


จากรปท 44 คลกสถตส าหรบขอมลไมแจกแจงความถ และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณคาสถตเบองตนส าหรบขอมลไมแจกแจงความถ ดงรปท 45

DPU

- 108 -

รปท 45

หนาจอโปรแกรมส าหรบค านวณคาสถตเบองตนส าหรบขอมลไมแจกแจงความถ

จากรปท 45 เมอตองการค านวณหาคาสถตเบองตนของขอมลไมแจกแจงความถ ซงประกอบดวย การวดแนวโนมเขาสสวนกลาง คอ คาเฉลย มธยฐาน และฐานนยม และการวดการกระจายของขอมล คอ การวดการกระจายสมบรณ ประกอบดวย พสย ความแปรปรวน และคาเบยงเบนมาตรฐาน และการวดการกระจายสมพทธ ประกอบดวย คาสมประสทธพสย และคาสมประสทธความแปรผน จากหนาจอโปรแกรม ใหปอนจ านวนขอมล และปอนขอมลแตละจ านวน เชน ตามตวอยางในหนาจอ มขอมลอย 10 จ านวน คอ 2 2 3 2 7 6 8 7 9 10 โดยปอนขอมลตามแนวนอนจากซายไปขวา ในทนปอนขอมลไดสงสด 40 จ านวน หากไมไดปอนจ านวนขอมล หรอ ปอนขอมลไมครบตามจ านวนทก าหนด โปรแกรมจะแสดงขอความเตอนใหปอนขอมลใหครบ ขณะเดยวกนหากปอนขอมลเกนจ านวนตามทก าหนด โปรแกรมจะลบขอมลสวนทเกนออกใหโดยอตโนมต จากขอมลตวอยางในทน เมอ คลกป มค านวณ จะไดคาสถตเบองตนตงแต คาเฉลย มธยฐาน ฐานนยม พสย ความแปรปรวน คาเบยงเบนมาตรฐาน

DPU

- 109 -

คาสมประสทธพสย และคาสมประสทธความแปรผน สวนคาฐานนยม มคาฐานนยมได 1 หรอ 2 คา หากไมมฐานนยม หรอมคาฐานนยม 3 คาขนไป ในกลองค าตอบคาฐานนยมจะปลอยวางไว จากขอมลและหนาจอตวอยาง ไดคาเฉลยเทากบ 5.6 คามธยฐาน เทากบ 6.5 คาฐานนยม เทากบ 2 พสย เทากบ 8 ความแปรปรวนเทากบ 9.6 คาเบยงเบนมาตรฐานเทากบ 3.0984 คาสมประสทธพสย เทากบ 66.6667 และคาสมประสทธความแปรผน เทากบ 55.3283

DPU

- 110 -

รปท 46


จากรปท 46 เปนตวอยางการค านวณหาคาสถตเบองตน และแสดงคาฐานนยม กรณมคาฐานนยม 2 คา

DPU

- 111 -

รปท 47


จากรปท 47 เปนตวอยางการค านวณหาคาสถตเบองตน และไมแสดงคาฐานนยม กรณไมมคาฐานนยม หรอมคาฐานนยมมากกวา 2 คา

DPU

- 112 -

รปท 48



จากรปท 48 เปนตวอยางเมอปอนจ านวนขอมล 10 จ านวน แตปอนขอมลเพยง 7 จ านวน และคลกป มค านวณ โปรแกรมจะแสดงกลองขอความเตอน ดงรป ตอไปหากตองการค านวณคาสถตเบองตนส าหรบขอมลแจกแจงความถ คลกป มกลบไปเมนหลก จะปรากฏหนาจอโปรแกรมเรมตนส าหรบเลอกคาทตองการค านวณ ดงรปท 49

DPU

- 113 -

รปท 49


จากรปท 49 คลกสถตส าหรบขอมลแจกแจงความถ และคลกป มค านวณ จะปรากฏหนาจอโปรแกรมส าหรบค านวณคาสถตเบองตนส าหรบขอมลแจกแจงความถ ดงรปท 50

DPU

- 114 -

รปท 50

หนาจอโปรแกรมส าหรบค านวณคาสถตเบองตนส าหรบขอมลแจกแจงความถ

จากรปท 50 จากหนาจอโปรแกรมเรมตน ปอนจ านวนชนของขอมล ขอมลในแตละอนตรภาคชน และจ านวนขอมลในแตละชน จากตวอยาง มขอมล 5 ชน ชนท 1 มขอมลตงแต 10 ถง 14 ม 10จ านวน , ชนท 2 มขอมลตงแต 15 ถง 19 ม 20 จ านวน , ชนท 3 มขอมลตงแต 20 ถง 24 ม 30 จ านวน ,ชนท 4 มขอมลตงแต 25 ถง 29 ม 20 จ านวน และชนท 5 มขอมลตงแต 30 ถง 34 ม 10 จ านวน และคลกป มค านวณ จะไดคาสถตการวดแนวโนมเขาสสวนกลาง คอ คาเฉลย มธยฐาน และฐานนยม และการวดการกระจายของขอมลมล คอ พสย ความแปรปรวน คาเบยงเบนมาตรฐาน คาสมประสทธพสย และคาสมประสทธความแปรผน โดยคาฐานนยมจะแสดงคาฐานนยมของขอมล 1 หรอ 2 คา หากเปนขอมลทไมมฐานนยมหรอมฐานนยมมากกวา 2 คา จะปลอยกลองค าตอบคาฐานนยมวางไว จากตวอยางขอมลขางตน ได คาเฉลย คามธยฐาน และคาฐานนยม เทากบ 22 คาพสยเทากบ 25 คาความแปรปรวนเทากบ 33.7079

DPU

- 115 -

คาเบยงเบนมาตรฐานเทากบ 5.8058 คาสมประสทธพสยเทากบ 56.8182 และคาสมประสทธ ความแปรผนเทากบ 26.3902

รปท 51


จากรปท 51 เปนตวอยางการแสดงค าตอบคาฐานนยม เมอขอมลมคาฐานนยม 2 คา

DPU

- 116 -

รปท 52


จากรปท 52 เปนตวอยางการแสดงค าตอบคาฐานนยม เมอเปนขอมลทไมมคาฐานนยม หรอมคาฐานนยมมากกวา 2 คา ในกลองค าตอบฐานนยมจะปลอยวางไว

DPU

- 117 -

รปท 53



จากรปท 53 เปนตวอยางกรณปอนขอมลไมครบหรอไมสมบรณ เชน จากหนาจอโปรแกรม ไมไดปอนจ านวนชนของขอมล เมอปอนขอมล และจ านวนขอมลในแตละชนแลว คลกป มค านวณ โปรแกรมจะแสดงขอความเตอน ดงรป

DPU

- 118 -

รปท 54



จากรปท 54 เปนตวอยางกรณปอนขอมลไมครบหรอไมสมบรณ เชน จากหนาจอโปรแกรม ปอนขอมล ในชนท 5 มขอมลตงแต 30 ถง 35 ซงมความกวางไมเทากบชนอนๆ ซงมความกวางของชนเทากบ 5 เมอ คลกป มค านวณ โปรแกรมจะแสดงขอความเตอน ดงรป

DPU

- 119 -

รปท 55



จากรปท 55 เปนตวอยางกรณปอนขอมลไมครบหรอไมสมบรณ เชน จากหนาจอโปรแกรม ปอนขอมล ในชนท 5 ทมขอมลตงแต 30 ถง 34 แตไมไดปอนจ านวนขอมลในชนน เมอ คลกป มค านวณ โปรแกรมจะแสดงขอความเตอน ดงรป จากตวอยางการใชงานโปรแกรมส าหรบค านวณคาตงแตค านวณอตราสวนอยางต า ตรวจสอบอตราสวนทเทากน ค านวณหาอตราสวนตอเนอง จนกระทงค านวณคาสถตเบองตนส าหรบขอมลไมแจกแจงความถ และขอมลแจกแจงความถ ทกหนาจอโปรแกรมเมอผใชคลกป มออกจากโปรแกรมจะปรากฏหนาจอ ดงรปท 55 ซงเปนหนาจอโปรแกรมส าหรบส ารวจความพงพอใจจากการใชงานโปรแกรม

DPU

- 120 -

รปท 56

หนาจอโปรแกรมส ารวจความพงพอใจจากการใชงานโปรแกรม

จากรปท 56 เมอ คลกป มออกจากโปรแกรม ของทกโปรแกรมการค านวณจะปรากฏหนาจอส าหรบส ารวจความพงพอใจจากการใชงานโปรแกรม ซงมระดบความพงพอใจ 5 ระดบ คอ มากทสด มาก ปานกลาง นอย และ นอยทสด เมอเลอกระดบความพงพอใจและ คลกป ม OK จะหยดการท างานและออกจากโปรแกรม

DPU

บทท 5

สรปผล อภปรายผล และขอเสนอแนะ

จากการศกษาเพอพฒนาโปรแกรมส าหรบทดสอบความรความเขาใจส าหรบวชา

คณตศาสตรและสถตในชวตประจ าวน มวตถประสงคเพอพฒนาโปรแกรมเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถตในชวตประจ าวน เพอใหทงผเรยนและผสอนสามารถน ามาใชส าหรบตรวจค าตอบจากโจทยตามเนอหาในวชา เฉพาะเนอหาในสวนของการค านวณ โดยสรางแอพพรเคชนอยางงาย ดวยโปรแกรม Visual Basic 6.0

สรปผลการวจยตามวตถประสงค ดงน

จากการพฒนาโปรแกรมเพอชวยตรวจทานค าตอบเพอใชทดสอบความรความเขาใจส าหรบวชาคณตศาสตรและสถตในชวตประจ าวนนน ไดสรางแอพพรเคชนทใชงานไดงาย ส าหรบชวยผเรยนตรวจทานค าตอบตามเนอหาวชา ในการท าแบบฝกหดทบทวนภายหลงจากการเรยนร ไมวาจะเปนจากการเรยนรในชนเรยน หรอจากการเรยนรดวยการทบทวนของผเรยนเอง ซงประกอบดวย การค านวณหาอตราสวนอยางต า การตรวจสอบอตราสวนทเทากน การหาอตราสวนตอเนอง การแปลงอตราสวนใดๆใหอยในรปรอยละหรอเปอรเซนต การค านวณในเรองดอกเบยคงตน ซงมทงการค านวณหาดอกเบย ค านวณหาเงนตน ค านวณหาอตราดอกเบย และค านวณหาระยะเวลา การค านวณในเรองดอกเบยทบตน มทงการค านวณหาเงนรวมเมอครบก าหนด n งวด การค านวณหาเงนรวม และการหาดอกเบยทไดเมอคดดอกเบยแบบทบตน การค านวณในเรองมลคาของเงนในอนาคต มทงการค านวณหามลคาของเงนในอนาคต ค านวณหาเงนรายงวด และค านวณหาในสวนของดอกเบย การค านวณในเรองมลคาปจจบนของเงน ค านวณหาเงนรายงวด และค านวณหาในสวนของดอกเบย และการค านวณในเรองของสถตซงเปนการค านวณหาคาสถตเชงพรรณนา ซงมสถต 2 กลม คอ การวดแนวโนมเขาสสวนกลาง ซงประกอบดวย คาเฉลย มธยฐาน และฐานนยม การวดการกระจายของขอมล ประกอบดวย พสย ความแปรปรวน คาเบยงเบนมาตรฐาน สมประสทธพสย และสมประสทธ ความแปรผน โดยแบงเปนการค านวณส าหรบขอมลไมแจกแจงความถ และขอมลแจกแจงความถ

DPU

- 122 -

อภปรายผล

จากโปรแกรมทพฒนาขนเพอใชทดสอบความรความเขาใจตามเนอหาในวชาคณตศาสตรและสถตในชวตประจ าวนโดยใชกบเนอหาในสวนทมการค านวณเพอใชชวยในการทดสอบความรความเขาใจโดยชวยผเรยนในการตรวจทานค าตอบ ท าใหไดมการฝกฝนดวยการท าแบบฝกหดไดเองนอกหองเรยน หรอฝกหดแกปญหาโจทยอนๆทผเรยนคนควาเพมเตม หรอเปนโจทยทผสอนมอบหมายใหผเรยนคด และเขยนขนเอง โดยดตวอยางแนวทางการเขยนโจทยจากตวอยางโจทยทม หลงจากผเรยนไดมการเรยนรตามเนอหาในแตละเรอง ซงหากผเรยนไดมการท าแบบฝกหดทบทวนเพมเตมมากขนเทาใดกจะท าใหผเรยนมผลสมฤทธ ทางการเรยนทดข น สอดคลองกบผลงานวจยของ ทพวรรณ สวรรณประเสรฐ, 2541, หนา 112 พบวา พฤตกรรมการเรยนทดนน จะสงผลตอผลสมฤทธทางการเรยนทดข นของแตละบคคล ซงมพฤตกรรมในการเรยนดกวานกเรยนทมผลสมฤทธทางการเรยนต าและเมอนกเรยนไดปรบปรงแกไขพฤตกรรมในการเรยนใหดขน และ Maddox (1965, pp. 11-12) ไดกลาวถงความส าคญของพฤตกรรมการเรยนตอผลสมฤทธทางการเรยนวา ผลสมฤทธทางการเรยนขนอยกบความสามารถของบคคลการท างาน และขนอยกบวธการเรยนทมประสทธภาพดวย รวมทงงานวจยของ กลยา สกลแกว (2532) พบวา พฤตกรรมการเรยนและผลสมฤทธทางการเรยนวชาสงคมศกษาของนกเรยนชนมธยมศกษาปท 2 มความสมพนธกนในทางบวกอยางมนยส าคญทางสถตทระดบ .01 โดยมคาสมประสทธสหสมพนธเทากบ .1569 และในสวนของผเรยนทมความรความเขาใจในเนอหาวชาดอยแลวการไดทบทวนเพมเตม หรอตรวจทานค าตอบทถกตองดวยโปรแกรมทพฒนาขนนกจะยงเพมความมนใจใหกบผเรยนมากยงขน ขณะเดยวกนในสวนของผเรยนทมความรความเขาใจในระดบทนอยกวากคงตองมความพยายามมากขนในการทจะท าความเขาใจในเนอหา และหมนท าแบบฝกหดทบทวน ซงโปรแกรมทพฒนาขนมานเปนสวนหนงทชวยในการเรยนรของผเรยน เพอทบทวนความร ความเขาใจ และตรวจสอบค าตอบแตทงนกข นอยกบตวผเรยนเปนส าคญ โดยโปรแกรมนเปนเพยงสวนหนงส าหรบการเรยนรของผเรยนเทานน

โจทยแบบฝกหดสวนใหญทใชในการเรยนการสอนนนมขอมลไมมากนก เชน โจทยในเรองอตราสวน การค านวณหาอตราสวนอยางต าของอตราสวนใดๆ สวนใหญจะเปนอตราสวนทม 2 หรอ 3 จ านวน หรอการตรวจสอบอตราสวนทเทากน อตราสวนทน ามาตรวจสอบความเทากนสวนใหญจะม 2 หรอ 3 อตราสวน สวนการหาอตราสวนตอเนองกเชนเดยวกนโจทยสวนใหญจะม 2 หรอ 3 อตราสวน เปนตน ซงในการค านวณหาทงอตราสวนอยางต า อตราสวนตอเนอง และ อตราสวนทเทากนนน อาจมขอจ ากดกรณทจ านวนในอตราสวนหากม 3 หรอ 4

DPU

- 123 -

จ านวนและแตละจ านวนมคามากๆ อาจใชเวลานานในการประมวลผลซงขนอยกบประสทธภาพของเครองคอมพวเตอรทใชงาน

สวนการค านวณหาคาสถตเบองตนส าหรบขอมลไมแจกแจงความถนน ขอมลจากโจทยทใชค านวณไมวาจะเปนโจทยทผสอนมอบหมายหรอเปนโจทยทผเรยนคดและเขยนขนเอง กใชขอมลทมจ านวนไมมาก เชน อาจใชขอมลตวอยาง 5 จ านวน 6 จ านวน 8 จ านวน หรอ 10 จ านวน เปนตน ดงนน โปรแกรมทพฒนาขนนจงก าหนดใหสามารถค านวณคาสถตเชงพรรณนาโดยใชกบขอมลไดสงสด 40 จ านวน เชนเดยวกนส าหรบขอมลแจกแจงความถขอมลทน ามาใชในการค านวณเพอหาคาสถตเชงพรรณนาสวนใหญจะมจ านวนชนของขอมลไมมากนก ทใชเปนขอมลตวอยางสวนใหญเปนขอมลทมจ านวน 5 ชน 6 ชน หรออาจใช 10 ชน ดงนนโปรแกรมทพฒนาขนนจงสรางขนใหสอดคลองกบโจทยทใชกนในการเรยนการสอน โดยใชค านวณกบขอมลทมจ านวนชนของขอมลสงสด 13 ชน ขอเสนอแนะ

1. การค านวณหาคาสถตเบองตนกรณขอมลไมแจกแจงความถนนในทนสรางขนส าหรบใชค านวณกบตวอยางโจทยทมขอมลสงสด 40 จ านวน เนองจากในการเรยนการสอนตวอยางขอมลจากโจทยทใชไมวาจะเปนขอมลจากโจทยทผสอนมอบหมายใหผเรยน หรอเปนโจทยผสอนมอบหมายใหผเรยนคดและเขยนขนเอง เพอใชในการหาค าตอบจะมจ านวนไมมากนก เชน อาจมขอมลตวอยาง 5 จ านวน 7 จ านวน 8 จ านวน หรอ 10 จ านวน เปนตน ดงนน โปรแกรมทสรางขนจงตงไวสงสดท 40 จ านวน ซงอาจพฒนาตอใหสามารถรบขอมลตวอยางใหมากขน และค านวณคาสถตอนๆ เพมขน เชน สวนเบยงเบนควอรไทล สวนเบยงเบนเฉลย สมประสทธของสวนเบยงเบนควอรไทล และสมประสทธของสวนเบยงเบนเฉลย

2. การค านวณหาคาสถตเบองตนกรณขอมลแจกแจงความถ โปรแกรมทพฒนาขนนก าหนดจ านวนชนของขอมลสงสดไว 13 ชน ซงเชนเดยวกบขอมลไมแจกแจงความถเนองจากในการเรยนการสอน ขอมลตวอยางทใชส าหรบค านวณไมวาจะเปนโจทยทผสอนมอบหมายหรอเปนโจทยทผสอนมอบหมายใหผเรยนคดและเขยนขนเอง จะมจ านวนชนไมมากนก เชน จ านวนชนของขอมล 4 ชน 5 ชน หรอจ านวนชนมากทสดทพบคอ 10 ชน ดงนน โปรแกรมทสรางขนจงตงไวสงสด 13 ชน ซงอาจพฒนาตอใหรบขอมลทมจ านวนชนของขอมลไดมากขน รวมทงค านวณคาสถตเบองตนอนๆเพมขน เชน สวนเบยงเบนควอรไทล สวนเบยงเบนเฉลย สมประสทธของสวนเบยงเบนควอรไทล และสมประสทธของสวนเบยงเบนเฉลย เชนเดยวกบการค านวณส าหรบขอมลไมแจกแจงความถ

DPU

- 124 -

บรรณานกรม

เกษร พลอยโพธ. การศกษาพฤตกรรมการเรยนกบผลสมฤทธทางการเรยนของนกศกษา มหาวทยาลยเทคโนโลยราชมงคลธญบร. วทยานพนธวทยาศาสตรมหาบณฑต (จตวทยา พฒนาการ). มหาวทยาลยรามค าแหง , 2552. กลยา สกลแกว. ความสมพนธระหวางพฤตกรรมการเรยน เจตคตตอครและผลสมฤทธทางการ เรยนวชาสงคมศกษาของนกเรยนชนมธยมศกษาปท 2กรงเทพมหานคร. วทยานพนธ ครศาสตรมหาบณฑต, จฬาลงกรณมหาวทยาลย , 2532. ชชวาลย ทตศวช. บณฑตวทยาลย วทยาลยรชตภาคย. พชต สนตกลานนท. คมอเรยน Visual Basic 6.0 . พมพครงท 5. กรงเทพมหานคร : ซเอดยเคชน , 2544. ทศนย ศรวฒน. แบบการเรยนของนกศกษาคณะรฐศาสตร มหาวทยาลยรามค าแหง. กรงเทพมหานคร. ปรญญานพนธการศกษามหาบณฑต, มหาวทยาลยศรนครนทรวโรฒ , 2532. ทพวรรณ สวรรณประเสรฐ. ตวแปรทเกยวของกบพฤตกรรมการเรยนของนกเรยนชนมธยม

ตน สงกดกรมสามญศกษา จงหวดปราจนบร. ปรญญานพนธการศกษามหาบณฑต, มหาวทยาลยศรนครนทรวโรฒ , 2541.

มาโนช เวชพนธ, นาวาอากาศเอก. เอกสารวจยสวนบคคล เรองการมสวนรวมทางการ

เมองของขาราชการประจ า : ศกษาเปรยบเทยบขาราชการพลเรอน ทหารและ ต ารวจ, 2532.

วชย สรเชดเกยรต. การจ าลองเชงคอมพวเตอร. กรงเทพฯ : สกายบกส, 2544. สมศกด ศรขจรเกยรต. Advanced Visual Basic 6.0 . กรงเทพมหานคร : บบลโอไฟล พบลชชง, 2537. สจจะ จรสรงเรอง. คมอการสรางแอพพลเคชน ดวย Visual Basic 6.0 Basic & Advanced. กรงเทพมหานคร : ดานสทธาการพมพ, 2542.

DPU

- 125 -

สชาย ธนวเสถยร. Fundamental of Visual Basic 6.0 Structured Programming. กรงเทพมหานคร : ซเอดยเคชน , 2541.

อกษร สวสด. ความรความเขาใจ และความตระหนกในการอนรกษสงแวดลอมของ

นกเรยนชนมธยมศกษาตอนปลาย : กรณศกษาในเขตบางกะป กรงเทพมหานคร ภาคนพนธ ปรญญาพฒนบรหารศาสตรมหาบณฑต (พฒนา สงคม) สถาบนบณฑตพฒนบรหารศาสตร, 2542 .

เอกสารประกอบการสอนวชา คณตศาสตรและสถตในชวตประจ าวน มหาวทยาลยธรกจ

บณฑตย Brown, W. F., & Holtzman, H. W. A study attitude questionaire for predicting academic success. The Journal of Educational Psychology, 46, 75-84 ,1955. Evans, Merran and others. Statistical Distributions 3rd . A Wiley-Interscience Publication, 2000. Forbes, Catherine. Statistical Distributions 4th . A Wiley-Interscience Publication, 2011. Paul H.Garthwaite Ian T.Jolliffe and Byron Jones. Statistical Inference 2nd , Oxford University Press, 2002 . Law and Kelton. Simulation Modeling & Analysis, McGraw-Hill : Singapore, 2000. Maddox, H. How to study. London: The English Language Book Society , 1965. Ross, Sheldon. Simulation 3rd Edition, Academic Press, 2002. Ross, Sheldon. A First Course in Probability, Macmillan : New York, 1976.

ความร. http://th.wikipeadia.org/wiki[Online] พฤตกรรมการเรยนและผลสมฤทธทางการเรยน. http://idis.ru.ac.th/report/index.php?topic=6093.5;wap2

DPU

http://th.wikipeadia.org/wiki%5bOnline

ภาคผนวก

DPU

- 127 -

ค าสงโปรแกรมเรมตน

Private Sub Command1_Click()

If Option1.Value = True Then

Form2.Show

ElseIf Option2.Value = True Then

Form3.Show


Form4.Show


Form5.Show


Form6.Show


Form11.Show


Form12.Show


Form13.Show


Form14.Show


Form15.Show


Form16.Show


Form17.Show

ElseIf Option1.Value = False And Option2.Value = False And Option3.Value = False And

Option4.Value = False And Option5.Value = False And Option6.Value = False And Option7.Value =

False And Option8.Value = False And Option9.Value = False And Option10.Value = False And

Option11.Value = False Then

End

End If

DPU

- 128 -

Unload Form1

End Sub


End

End Sub

Private Sub Form_Load()

Option1.Value = Clear











End Sub

DPU

- 129 -

ค าสงโปรแกรมค านวณหาอตราสวนอยางต า


Dim vvv_1(0 To 100000), vvv_3(0 To 100000), vvv_5(0 To 100000), vvv_7(0 To 100000) As Single

Dim ss(0 To 100000) As Single

val_1 = Val(Text1)

val_2 = Val(Text2)

val_3 = Val(Text3)

val_4 = Val(Text4)

val_5 = Val(Text5)

val_6 = Val(Text6)

val_7 = Val(Text7)

val_8 = Val(Text8)

If val_1 = 0 And val_2 = 0 And val_3 = 0 And val_4 = 0 And val_5 = 0 And val_6 = 0 And val_7 = 0

And val_8 = 0 Then

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Else

If val_5 = 0 And val_6 = 0 And val_7 = 0 And val_8 = 0 Then

If val_2 = 0 Then

Text2 = ""

val_2 = 1

End If

If val_4 = 0 Then

Text4 = ""

val_4 = 1

End If

DPU

- 130 -

val_1 = val_1 * val_4 * 10000

val_3 = val_3 * val_2 * 10000

If val_1 > val_3 Then

k = val_1

ccc = 0

For i = 2 To k

v_val_1 = val_1 Mod i


If v_val_1 = 0 And v_val_3 = 0 Then

ccc = ccc + 1

vvv_1(ccc) = val_1 / i


End If

Next i

End If

If val_1 < val_3 Then

k = val_3

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If

If val_1 = val_3 Then

ccc = 1

vvv_1(1) = 1

vvv_3(1) = 1

DPU

- 131 -

End If

Text9 = vvv_1(ccc)

Text10 = vvv_3(ccc)

Else

If val_7 = 0 And val_8 = 0 Then

If val_2 = 0 Then

Text2 = ""

val_2 = 1

End If

If val_4 = 0 Then

Text4 = ""

val_4 = 1

End If

If val_6 = 0 Then

Text6 = ""

val_6 = 1

End If

val_1 = ((val_1 * val_2 * val_4 * val_6) / val_2) * 10000



ss(1) = val_1

ss(2) = val_3

ss(3) = val_5

For j = 1 To 3

For i = 1 To 2

Min = ss(i)

Max = ss(i + 1)

If Min > Max Then

ss(i) = Max

ss(i + 1) = Min

Else

ss(i) = Min

ss(i + 1) = Max

DPU

- 132 -

End If

Next i

Next j

ss(3) = Max

If val_1 = val_3 = val_5 Then

ccc = 1

vvv_1(1) = 1

vvv_3(1) = 1

vvv_5(1) = 1

Else

ccc = 0

For i = 2 To Max




If v_val_1 = 0 And v_val_3 = 0 And v_val_5 = 0 Then

ccc = ccc + 1




End If

Next i

End If

Text9 = vvv_1(ccc)

Text10 = vvv_3(ccc)

Text11 = vvv_5(ccc)

Else

If val_2 = 0 Then

Text2 = ""

val_2 = 1

End If

If val_4 = 0 Then

DPU

- 133 -

Text4 = ""

val_4 = 1

End If

If val_6 = 0 Then

Text6 = ""

val_6 = 1

End If

If val_8 = 0 Then

Text8 = ""

val_8 = 1

End If

val_1 = val_1 * val_2
















val_1 = val_1 / val_2


DPU

- 134 -



val_1 = val_1 * 10000

val_3 = val_3 * 10000

val_5 = val_5 * 10000

val_7 = val_7 * 10000

ss(1) = val_1

ss(2) = val_3

ss(3) = val_5

ss(4) = val_7

For j = 1 To 4

For i = 1 To 3

Min = ss(i)

Max = ss(i + 1)

If Min > Max Then

ss(i) = Max

ss(i + 1) = Min

Else

ss(i) = Min

ss(i + 1) = Max

End If

Next i

Next j

ss(4) = Max

If val_1 = val_3 = val_5 = val_7 Then

ccc = 1

vvv_1(1) = 1

vvv_3(1) = 1

vvv_5(1) = 1

DPU

- 135 -

vvv_7(1) = 1

Else

ccc = 0

For i = 2 To Max





If v_val_1 = 0 And v_val_3 = 0 And v_val_5 = 0 And v_val_7 = 0

Then

ccc = ccc + 1





End If

Next i

End If

Text9 = vvv_1(ccc)

Text10 = vvv_3(ccc)

Text11 = vvv_5(ccc)

Text12 = vvv_7(ccc)

End If

End If

End If

End Sub


Text1 = ""

DPU

- 136 -

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text10 = ""

Text11 = ""

Text12 = ""

End Sub


Form1.Show

Unload Form2

End Sub


End

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text10 = ""

Text11 = ""

Text12 = ""

End Sub

DPU

- 137 -

ค าสงโปรแกรมค านวณหาอตราสวนทเทากน Private Sub Command1_Click()

Dim vvv_1(0 To 100000), vvv_3(0 To 100000), vvv_5(0 To 100000), vvv_7(0 To 100000), vvv_9(0

To 100000), vvv_11(0 To 100000) As Single


val_1 = Val(Text1.Text)












If val_1 = 0 And val_2 = 0 And val_3 = 0 And val_4 = 0 And val_5 = 0 And val_6 = 0 And val_7 = 0

And val_8 = 0 And val_9 = 0 And val_10 = 0 And val_11 = 0 And val_12 = 0 Then

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text10 = ""

Text11 = ""

Text12 = ""

Text13 = ""

DPU

- 138 -

Text14 = ""

Text15 = ""

Text16 = ""

Text17 = ""

Text18 = ""

Text19 = ""

Else


If val_2 = 0 Then

Text2 = ""

val_2 = 1

End If

If val_4 = 0 Then

Text4 = ""

val_4 = 1

End If

If val_6 = 0 Then

Text6 = ""

val_6 = 1

End If

If val_8 = 0 Then

Text8 = ""

val_8 = 1

End If

val_1 = val_1 * val_4 * 10000

val_3 = val_3 * val_2 * 10000


k = val_1

ccc = 0

For i = 2 To k




DPU

- 139 -

ccc = ccc + 1



End If

Next i

End If


k = val_3

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If


ccc = 1

vvv_1(1) = 1

vvv_3(1) = 1

End If

vv1 = vvv_1(ccc)

vv3 = vvv_3(ccc)

Text13.Text = vv1

Text14.Text = vv3

val_5 = val_5 * val_8 * 10000

val_7 = val_7 * val_6 * 10000


k = val_5

DPU

- 140 -

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If


k = val_7

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If


ccc = 1

vvv_5(1) = 1

vvv_7(1) = 1

End If

vv5 = vvv_5(ccc)

vv7 = vvv_7(ccc)

Text15.Text = vv5

DPU

- 141 -

Text16.Text = vv7

If (vv1 = vv5) And (vv3 = vv7) Then

Text19.Text = "EQUAL"

Else

Text19.Text = "NOT EQUAL"

End If

Else

'*******************************************************************

'*************check equal 3 ratio***********************************

If val_2 = 0 Then

Text2 = ""

val_2 = 1

End If

If val_4 = 0 Then

Text4 = ""

val_4 = 1

End If

If val_6 = 0 Then

Text6 = ""

val_6 = 1

End If

If val_8 = 0 Then

Text8 = ""

val_8 = 1

End If

If val_10 = 0 Then

Text10 = ""

val_10 = 1

End If

If val_12 = 0 Then

Text12 = ""

DPU

- 142 -

val_12 = 1

End If

val_1 = val_1 * val_4 * 10000

val_3 = val_3 * val_2 * 10000


k = val_1

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If


k = val_3

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If


ccc = 1

DPU

- 143 -

vvv_1(1) = 1

vvv_3(1) = 1

End If

vv1 = vvv_1(ccc)

vv3 = vvv_3(ccc)

Text13.Text = vv1

Text14.Text = vv3

val_5 = val_5 * val_8 * 10000

val_7 = val_7 * val_6 * 10000


k = val_5

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If


k = val_7

ccc = 0

For i = 2 To k




ccc = ccc + 1



DPU

- 144 -

End If

Next i

End If


ccc = 1

vvv_5(1) = 1

vvv_7(1) = 1

End If

vv5 = vvv_5(ccc)

vv7 = vvv_7(ccc)

Text15.Text = vv5

Text16.Text = vv7

val_9 = val_9 * val_12 * 10000

val_11 = val_11 * val_10 * 10000


k = val_9

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If


k = val_11

ccc = 0

For i = 2 To k

DPU

- 145 -




ccc = ccc + 1



End If

Next i

End If


ccc = 1

vvv_9(1) = 1

vvv_11(1) = 1

End If

vv9 = vvv_9(ccc)

vv11 = vvv_11(ccc)

Text17.Text = vv9

Text18.Text = vv11

If vv1 = vv5 And vv5 = vv9 And vv3 = vv7 And vv7 = vv11 Then

Text19.Text = "EQUAL"

Else

Text19.Text = "NOT EQUAL"

End If

End If

End If

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

DPU

- 146 -

Text7 = ""

Text8 = ""

Text9 = ""

Text10 = ""

Text11 = ""

Text12 = ""

Text13 = ""

Text14 = ""

Text15 = ""

Text16 = ""

Text17 = ""

Text18 = ""

Text19 = ""

End Sub


Form1.Show

Unload Form3

End Sub


End

End Sub


End

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

DPU

- 147 -

Text9 = ""

Text10 = ""

Text11 = ""

Text12 = ""

Text13 = ""

Text14 = ""

Text15 = ""

Text16 = ""

Text17 = ""

Text18 = ""

Text19 = ""

End Sub

DPU

- 148 -

ค าสงโปรแกรมค านวณหาอตราสวนตอเนอง Private Sub Command1_Click()

Dim vvv_1(0 To 100000), vvv_3(0 To 100000), vvv_5(0 To 100000), vvv_7(0 To 100000), vvv_9(0

To 100000) As Single






'******************





'***************





'*******************************

'*************2 ratio


If val_2 = 0 Then

Text2 = ""

val_2 = 1

End If

If val_4 = 0 Then

Text4 = ""

val_4 = 1

End If

DPU

- 149 -

If val_6 = 0 Then

Text6 = ""

val_6 = 1

End If

If val_8 = 0 Then

Text8 = ""

val_8 = 1

End If

v3 = val_3 * val_5

v4 = val_4 * val_6





val_3 = v3

val_4 = v4




ss(1) = val_1

ss(2) = val_3

ss(3) = val_5

For j = 1 To 3

For i = 1 To 2

Min = ss(i)

Max = ss(i + 1)

If Min > Max Then

ss(i) = Max

ss(i + 1) = Min

Else

ss(i) = Min

DPU

- 150 -

ss(i + 1) = Max

End If

Next i

Next j

ss(3) = Max

If val_1 = val_3 = val_5 Then

ccc = 1

vvv_1(1) = 1

vvv_3(1) = 1

vvv_5(1) = 1

Else

ccc = 0

For i = 2 To Max




If v_val_1 = 0 And v_val_3 = 0 And v_val_5 = 0 Then

ccc = ccc + 1




End If

Next i

End If

Text13.Text = vvv_1(ccc)



Text16.Text = ""

Else

'********************************

'********3 ratio

If val_2 = 0 Then

Text2 = ""

DPU

- 151 -

val_2 = 1

End If

If val_4 = 0 Then

Text4 = ""

val_4 = 1

End If

If val_6 = 0 Then

Text6 = ""

val_6 = 1

End If

If val_8 = 0 Then

Text8 = ""

val_8 = 1

End If

If val_10 = 0 Then

Text10 = ""

val_10 = 1

End If

If val_12 = 0 Then

Text12 = ""

val_12 = 1

End If

v3 = val_3 * val_5

v4 = val_4 * val_6





val_3 = v3

val_4 = v4

DPU

- 152 -

v5 = val_5 * val_9

v6 = val_6 * val_10







val_5 = v5

val_6 = v6

val_1 = ((val_1 * val_2 * val_4 * val_6 * val_8) / val_2) * 10000




ss(1) = val_1

ss(2) = val_3

ss(3) = val_5

ss(4) = val_7

For j = 1 To 4

For i = 1 To 3

Min = ss(i)

Max = ss(i + 1)

If Min > Max Then

ss(i) = Max

ss(i + 1) = Min

Else

ss(i) = Min

ss(i + 1) = Max

End If

DPU

- 153 -

Next i

Next j

ss(4) = Max

If val_1 = val_3 = val_5 = val_7 Then

ccc = 1

vvv_1(1) = 1

vvv_3(1) = 1

vvv_5(1) = 1

vvv_7(1) = 1

Else

ccc = 0

For i = 2 To Max





If v_val_1 = 0 And v_val_3 = 0 And v_val_5 = 0 And v_val_7 = 0 Then

ccc = ccc + 1





End If

Next i

End If





End If

End Sub


Text1.Text = ""

DPU

- 154 -

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Text16.Text = ""

End Sub


Form1.Show

Unload Form4

End Sub


End

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

DPU

- 155 -

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Text16.Text = ""

End Sub

DPU

- 156 -

ค าสงโปรแกรมแปลงอตราสวนใดๆใหอยในรปรอยละ Private Sub Command1_Click()

Dim vvv_1(0 To 100000), vvv_3(0 To 100000) As Single






Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Else

If val_2 = 0 Then

Text2 = ""

val_2 = 1

End If

If val_4 = 0 Then

Text4 = ""

val_4 = 1

End If

val_1 = val_1 * val_4 * 10000

val_3 = val_3 * val_2 * 10000


k = val_1

ccc = 0

For i = 2 To k


DPU

- 157 -



ccc = ccc + 1



End If

Next i

End If


k = val_3

ccc = 0

For i = 2 To k




ccc = ccc + 1



End If

Next i

End If


ccc = 1

vvv_1(1) = 1

vvv_3(1) = 1

End If

percent_value = Round((vvv_1(ccc) * 100) / vvv_3(ccc), 2)

DPU

- 158 -

Text5 = percent_value

End If

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

End Sub


Form1.Show

Unload Form5

End Sub


End

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

End Sub

DPU

- 159 -

ค าสงโปรแกรมเพอเลอกคาทตองการค านวณในเรองดอกเบยคงตน Private Sub Command1_Click()


Form7.Show

Unload Form6


Form8.Show

Unload Form6


Form9.Show

Unload Form6


Form10.Show

Unload Form6

End If

End Sub


Form1.Show

Unload Form6

End Sub


Form17.Show

Unload Form6

End Sub






End Sub

DPU

- 160 -

ค าสงโปรแกรมค านวณหาดอกเบย Private Sub Command1_Click()

If Text1 = "" Then

MsgBox "Enter Primary", vbOKOnly, "Not Complete"

ElseIf Text2 = "" Then

MsgBox "Enter Interest Rate", vbOKOnly, "Not Complete"


MsgBox "Enter Time", vbOKOnly, "Not Complete"

ElseIf Option10.Value = False And Option11.Value = False And Option12.Value = False Then

MsgBox "Select Interest Rate per Day Month or Year", vbOKOnly, "Not Complete"

ElseIf Option10.Value = True And Option1.Value = False And Option2.Value = False And


MsgBox "Select 360 365 or 366", vbOKOnly, "Not Complete"


MsgBox "Select Time Unit Day Month or Year", vbOKOnly, "Not Complete"




Else

p = Val(Text1)

r = Val(Text2)

t = Val(Text3)

If Option10.Value = True And Option1.Value = True Then

r = r * 360

ElseIf Option10.Value = True And Option2.Value = True Then

r = r * 365


r = r * 366


r = r * 12



DPU

- 161 -



r = r




End If


t = t / 360


t = t / 365


t = t / 366


t = t / 12





t = t




End If

interest = Round((p * (r / 100) * t), 2)

Text4 = interest

Text5 = p + interest

End If

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

DPU

- 162 -

Text4 = ""

Text5 = ""

Option1 = Clear

Option2 = Clear

Option3 = Clear

Option4 = Clear

Option5 = Clear

Option6 = Clear

Option7 = Clear

Option8 = Clear

Option9 = Clear

Option10 = Clear

Option11 = Clear

Option12 = Clear

End Sub


Form6.Show

Unload Form7

End Sub


Form1.Show

Unload Form7

End Sub


Form17.Show

Unload Form7

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

DPU

- 163 -

Option1 = Clear

Option2 = Clear

Option3 = Clear

Option4 = Clear

Option5 = Clear

Option6 = Clear

Option7 = Clear

Option8 = Clear

Option9 = Clear

Option10 = Clear

Option11 = Clear

Option12 = Clear

End Sub

DPU

- 164 -

ค าสงโปรแกรมค านวณหาเงนตน Private Sub Command1_Click()

If Text1 = "" Then

MsgBox "Enter Interest", vbOKOnly, "Not Complete"




MsgBox "Enter Interest Time", vbOKOnly, "Not Complete"


MsgBox "Select Interest Rate per Day Month or Year", vbOKOnly, "Not Complete"





MsgBox "Select Time Unit Day Month or Year", vbOKOnly, "Not Complete"




Else

interest = Val(Text1)

r = Val(Text2)

t = Val(Text3)


r = r * 360


r = r * 365


r = r * 366


r = r * 12



DPU

- 165 -



r = r




End If


t = t / 360


t = t / 365


t = t / 366


t = t / 12





t = t




End If

p = Round(interest / ((r / 100) * t), 4)

Text4 = p

Text5 = p + interest

End If

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

DPU

- 166 -

Text4 = ""

Text5 = ""

Option1 = Clear

Option2 = Clear

Option3 = Clear

Option4 = Clear

Option5 = Clear

Option6 = Clear

Option7 = Clear

Option8 = Clear

Option9 = Clear

Option10 = Clear

Option11 = Clear

Option12 = Clear

End Sub


Unload Form8

Form6.Show

End Sub


Form1.Show

Unload Form8

End Sub


Form17.Show

Unload Form8

End Sub


Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

DPU

- 167 -

Option1 = Clear

Option2 = Clear

Option3 = Clear

Option4 = Clear

Option5 = Clear

Option6 = Clear

Option7 = Clear

Option8 = Clear

Option9 = Clear

Option10 = Clear

Option11 = Clear

Option12 = Clear

End Sub

DPU

- 168 -

ค าสงโปรแกรมค านวณหาอตราดอกเบย Private Sub Command1_Click()

If Text1 = "" Then







MsgBox "Select Day Month or Year", vbOKOnly, "Not Complete"




Else


p = Val(Text2)

t = Val(Text3)


t = t / 360


t = t / 365


t = t / 366


t = t / 12





t = t



DPU

- 169 -


End If

r = (interest / (p * t)) * 100


Text4 = Round(r / 360, 4)









End If


Text6 = Round(r, 4)

End If

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""







End Sub

DPU

- 170 -


Unload Form9

Form6.Show

End Sub


Unload Form9

Form1.Show

End Sub


Unload Form9

Form17.Show

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""







End Sub

DPU

- 171 -

ค าสงโปรแกรมค านวณหาระยะเวลา Private Sub Command1_Click()

If Text1 = "" Then




ElseIf Text3 = "" Then '



MsgBox "Select Per Day Month or Year", vbOKOnly, "Not Complete"




Else


p = Val(Text2)

r = Val(Text3)


r = r * 360


r = r * 365


r = r * 366


r = r * 12


r = r

End If

t = interest / (p * (r / 100))


Text4 = Round(t / 360, 2)


DPU

- 172 -




End If


Text6 = Round(t, 2)

End If

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""







End Sub


Unload Form10

Form6.Show

End Sub


Unload Form10

Form1.Show

End Sub


Unload Form10

Form17.Show

DPU

- 173 -

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""







End Sub

DPU

- 174 -

ค าสงโปรแกรมค านวณดอกเบยคงท Private Sub Command1_Click()

If Text1 = "" Then

MsgBox "Enter Price", vbOKOnly, "Not Complete"


MsgBox "Not Pay some ", vbOKOnly, "Not Complete"




MsgBox "Enter Time Payment", vbOKOnly, "Not Complete"


MsgBox "Select Per Day Month or Year", vbOKOnly, "Not Complete"


MsgBox "Select Time Payment", vbOKOnly, "Not Complete"







Else

p = Val(Text1)

a = Val(Text2)

r = Val(Text3)

t = Val(Text4)

t1 = t


r = r * 360


r = r * 365


r = r * 366

DPU

- 175 -


r = r * 12





r = r




End If


t = t / 360


t = t / 365


t = t / 366


t = t / 12





t = t




End If

interest = Round((p - a) * (r / 100) * t, 2)

s = (p - a) + interest

payment = s / t1

Text5 = payment

Text6 = interest

DPU

- 176 -

End If

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""







End Sub


Unload Form11

Form1.Show

End Sub


Unload Form11

Form17.Show

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""



DPU

- 177 -





End Sub

DPU

- 178 -

ค าสงโปรแกรมค านวณดอกเบยทบตน Private Sub Command1_Click()

If Option1.Value = False And Option2.Value = False Then

MsgBox "Select Sn or P", vbOKOnly, "Not Complete"

ElseIf Option1.Value = True And Text2 = "" Then

MsgBox "Enter P", vbOKOnly, "Not Complete"


MsgBox "Enter Sn", vbOKOnly, "Not Complete"






MsgBox "Select Unit Time Day Month or Year", vbOKOnly, "Not Complete"





MsgBox "Select Interest Rate Per Day Month or Year", vbOKOnly, "Not Complete"





Option9.Value = False And Option10.Value = False And Option11.Value = False And


Option15.Value = False And Option16.Value = False And Option17.Value = False Then

MsgBox "Select Compound Period", vbOKOnly, "Not Complete"

Else

r = Val(Text3)

t = Val(Text4)


Text1 = HideSelection

DPU

- 179 -

p = Val(Text2)



sn = Val(Text1)


r = r * 360


r = r * 365


r = r * 366


r = r * 12





r = r




End If


t = t / 360


t = t / 365


t = t / 366


t = t / 12





DPU

- 180 -

t = t




End If


k = 12 / 1


k = 12 / 2


k = 12 / 3


k = 12 / 4


k = 12 / 5


k = 12 / 6


k = 12 / 7


k = 12 / 8


k = 12 / 9


k = 12 / 10


k = 12 / 11


k = 12 / 12

End If

n = k * t

r = r / k


DPU

- 181 -

sn = Round(p * (1 + (r / 100)) ^ n, 4)

Text5 = sn

Text6 = p


p = Round(sn / ((1 + (r / 100)) ^ n), 4)

Text5 = sn

Text6 = p

End If

interest = sn - p

Text7 = Round(interest, 4)

End If

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""














DPU

- 182 -














End Sub


Unload Form12

Form1.Show

End Sub


Unload Form12

Form17.Show

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""




DPU

- 183 -
























End Sub

DPU

- 184 -

ค าสงโปรแกรมค านวณมลคาของเงนในอนาคต Private Sub Command1_Click()


MsgBox "Select FV or R", vbOKOnly, "Not Complete"


MsgBox "Enter R", vbOKOnly, "Not Complete"


MsgBox "Enter FV", vbOKOnly, "Not Complete"




MsgBox "Enter Time Period", vbOKOnly, "Not Complete"
















Else

r = Val(Text3)

t = Val(Text4)


DPU

- 185 -

annual = Val(Text2)



f_v = Val(Text1)



t = t / 360


t = t / 365


t = t / 366


t = t / 12





t = t




End If


r = r * 360


r = r * 365


r = r * 366


r = r * 12




DPU

- 186 -


r = r




End If


k = 12 / 1


k = 12 / 2


k = 12 / 3


k = 12 / 4


k = 12 / 5


k = 12 / 6


k = 12 / 7


k = 12 / 8


k = 12 / 9


k = 12 / 10


k = 12 / 11


k = 12 / 12

End If

n = k * t

r = r / k

DPU

- 187 -


f_v = Round(annual * (((1 + (r / 100)) ^ n) - 1) / (r / 100), 4)


annual = Round(f_v / ((((1 + (r / 100)) ^ n) - 1) / (r / 100)), 4)

End If

interest = Round(f_v - (annual * n), 4)

Text5 = f_v

Text6 = annual

Text7 = interest

End If

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""















DPU

- 188 -













End Sub


Unload Form13

Form1.Show

End Sub


Unload Form13

Form17.Show

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""





DPU

- 189 -























End Sub

DPU

- 190 -

ค าสงโปรแกรมค านวณมลคาปจจบนของเงน Private Sub Command1_Click()


MsgBox "Select PV or R", vbOKOnly, "Not Complete"


MsgBox "Enter R", vbOKOnly, "Not Complete"


MsgBox "Enter PV", vbOKOnly, "Not Complete"




MsgBox "Enter Time Period", vbOKOnly, "Not Complete"
















Else

r = Val(Text3)

t = Val(Text4)


DPU

- 191 -

annual = Val(Text2)



p_v = Val(Text1)



t = t / 360


t = t / 365


t = t / 366


t = t / 12





t = t




End If


r = r * 360


r = r * 365


r = r * 366


r = r * 12




DPU

- 192 -


r = r




End If


k = 12 / 1


k = 12 / 2


k = 12 / 3


k = 12 / 4


k = 12 / 5


k = 12 / 6


k = 12 / 7


k = 12 / 8


k = 12 / 9


k = 12 / 10


k = 12 / 11


k = 12 / 12

End If

n = k * t

r = r / k

DPU

- 193 -


p_v = Round(annual * (1 - (1 + (r / 100)) ^ (-n)) / (r / 100), 4)


annual = Round(p_v / ((1 - (1 + (r / 100)) ^ (-n)) / (r / 100)), 4)

End If

interest = Round((annual * n) - p_v, 4)

Text5 = p_v

Text6 = annual

Text7 = interest

End If

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""















DPU

- 194 -













End Sub


Unload Form14

Form1.Show

End Sub


Unload Form14

Form17.Show

End Sub


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""





DPU

- 195 -























End Sub

DPU

- 196 -

ค าสงโปรแกรมค านวณหาคาสถตเบองตนส าหรบขอมลไมแจกแจงความถ Private Sub Command1_Click()

Dim dt(0 To 100000), count(0 To 100000), ss(0 To 100000) As Single

If Text1 = "" Then

MsgBox "Enter Amount Of Data", vbOKOnly, "Not Complete!!!!!"

Else

sum_dd = 0

dd = 0

k = Val(Text1)

For i = 0 To k - 1

dt(i) = Val(Text2(i))

dd = dt(i)

sum_dd = sum_dd + dd

Next i

For i = 0 To k - 1

If dt(i) = 0 Then

kkk = 1

Exit For

End If

Next i

For i = k To 39

Text2(i) = ""

Next i

If kkk <> 1 Then

' MEAN

mean = sum_dd / k

'sort data

For i = 0 To k - 1

For j = 0 To k - 2

Min = dt(j)

Max = dt(j + 1)

If Min > Max Then

DPU

- 197 -

dt(j) = Max

dt(j + 1) = Min

Else

dt(j) = Min

dt(j + 1) = Max

End If

Next j

Next i

' MEDIAN

mid_point = ((k + 1) / 2) - 1

lo_mid = mid_point - 0.5

up_mid = mid_point + 0.5

For i = 0 To k - 1

If mid_point = i Then

median = dt(mid_point)

Exit For

Else

If (mid_point >= lo_mid) And (mid_point <= up_mid) Then

med1 = dt(lo_mid)

med2 = dt(up_mid)

median = (med1 + med2) / 2

End If

End If

Next i

Text3 = Round(mean, 4)

Text4 = Round(median, 4)

'count for Mode value

amount = 1

DPU

- 198 -

z = 0

For i = 0 To k - 2

s1 = dt(i)

s2 = dt(i + 1)

If s1 = s2 Then

amount = amount + 1

Else

z = z + 1

count(z) = amount

ss(z) = s1

amount = 1

End If

Next i

z = z + 1

ss(z) = dt(k - 1)

count(z) = amount

' finding MODE

'sorted count ********************

For i = 1 To z

For j = 1 To z - 1

Min = count(j)

Max = count(j + 1)

v1 = ss(j)

v2 = ss(j + 1)

If Min > Max Then

count(j) = Max

DPU

- 199 -

count(j + 1) = Min

ss(j) = v2

ss(j + 1) = v1

Else

count(j) = Min

count(j + 1) = Max

ss(j) = v1

ss(j + 1) = v2

End If

Next j

Next i

' ****************

max_value1 = count(z)

max_value2 = count(z - 1)

mode1 = ss(z)

mode2 = ss(z - 1)

If (z = 1) Or (z = 2) Then

If z = 1 Then

mode1 = ss(z)

Text5 = Round(mode1, 4)

Text6 = ""

End If

If (z = 2) And (k <= 3) Then

If max_value1 <> max_value2 Then

mode1 = ss(z)

Else

DPU

- 200 -

If mode1 <> mode2 Then

Text5 = ""

Text6 = ""

End If

End If


Text6 = ""

Else

If (z = 2) And (k > 3) Then

If max_value1 = max_value2 Then

mode1 = ss(z - 1)

mode2 = ss(z)



Else

If mode1 <> mode2 Then

mode1 = ss(z)

Else

mode1 = ss(z)

End If


Text6 = ""

End If

End If

End If

Else

If z >= 3 Then

DPU

- 201 -

max_value3 = count(z - 2)

If (max_value1 = max_value2) And (max_value2 <> max_value3) Then

mode1 = ss(z)

mode2 = ss(z - 1)



End If

If (max_value1 = max_value2) And (max_value2 = max_value3) Then

Text5 = ""

Text6 = ""

End If

If (max_value1 <> max_value2) Then

mode1 = ss(z)


Text6 = ""

End If

End If

End If

' RANGE

range = dt(k - 1) - dt(0)

'VAR

v = 0

sum_v = 0

For i = 0 To k - 1

v = (dt(i) - mean) ^ 2

sum_v = sum_v + v

Next i

variance = sum_v / (k - 1)

stdv = Sqr(variance)

cr = ((dt(k - 1) - dt(0)) / (dt(k - 1) + dt(0))) * 100

DPU

- 202 -

cv = (stdv / mean) * 100

Text7 = Round(range, 4)

Text8 = Round(variance, 4)

Text9 = Round(stdv, 4)

Text10 = Round(cr, 4)

Text11 = Round(cv, 4)

Else

MsgBox "Enter Data Not Complete", vbOKOnly, "Not Complete!!!!!"

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text10 = ""

Text11 = ""

End If

End If

End Sub


Text1.Text = ""

For i = 0 To 39

Text2(i) = ""

Next i

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

DPU

- 203 -

Text10.Text = ""

Text11.Text = ""

End Sub


Unload Form15

Form1.Show

End Sub


Form17.Show

Unload Form15

End Sub


Text1.Text = ""

For i = 0 To 39

Text2(i) = ""

Next i

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

End Sub

DPU

- 204 -

ค าสงโปรแกรมค านวณหาคาสถตเบองตนส าหรบขอมลแจกแจงความถ Private Sub Command1_Click()

Dim cum_f(0 To 100000), mid_point(0 To 100000), lower_limit(0 To 100000), up_li, lo_li As Double

Dim count(0 To 100000), interval(0 To 100000), fq(0 To 100000), f(0 To 100000), X(0 To 100000),

fx(0 To 100000) As Double

Dim interval1, interval2, cy, mid_po, cum_frequency As Variant

Dim sum_for_var, median, variance, standard_dev, f1, f2, max_f As Variant

Dim f_max1, f_max2, f_max3, f_c, c_max, dif As Variant

sum_fx = 0

sum_fi = 0

If Text1 = "" Then

MsgBox "Enter Amount Of Interval", vbOKOnly, "Not Complete!!!!!"

Else

k = Val(Text1)

For i = 0 To k - 1

f(i) = Val(Text3(i))

If Text3(i) = "" Then

MsgBox "Enter Frequency Not Complete", vbOKOnly, "Not Complete!!!!!"

kkk = 1

Exit For

Else

'f(i) = Val(Text3(i))

fq(i) = f(i)

ff = f(i)

sum_fi = sum_fi + ff

cum_f(i) = sum_fi

End If

Next i

n = 2 * k

For i = 0 To n - 1

X(i) = Val(Text2(i))

Next i

DPU

- 205 -

For i = n To 25

Text2(i) = ""

Next i

For i = k To 12

Text3(i) = ""

Next i

'check interval

cy = 0

For i = 1 To n - 1 Step 2

up_li = X(i) + 0.5

lo_li = X(i - 1) - 0.5

lower_limit(cy) = lo_li

interval(cy) = up_li - lo_li

mid_point(cy) = (up_li + lo_li) / 2

cy = cy + 1

Next i

For i = 0 To k - 1

fx(i) = f(i) * mid_point(i)

sum_fx = sum_fx + fx(i)

Next i

For i = 0 To k - 2

interval1 = interval(i)

interval2 = interval(i + 1)

If interval1 <> interval2 Then

MsgBox "Check Interval Again", vbOKOnly, "Not Complete!!!!!"

kkk = 1

Exit For

End If

Next i

If kkk <> 1 Then

' MEAN

m = sum_fx / sum_fi

' MEDIAN

DPU

- 206 -

mid_po = sum_fi / 2

For i = 0 To k - 1

cum_frequency = cum_f(i)

If cum_frequency > mid_po And i = 0 Then

median = lower_limit(i) + (interval(i) * (mid_po / f(i)))

Exit For

End If

If cum_frequency > mid_po And i <> 0 Then

median = lower_limit(i) + (interval(i) * ((mid_po - cum_f(i - 1)) / f(i)))

Exit For

End If

Next i

'VARIANCE AND STANDART DEVIATION

sum_for_var = 0

dif = 0

For i = 0 To k - 1

sum_for_var = sum_for_var + (f(i) * ((mid_point(i) - m) ^ 2))

Next i

variance = sum_for_var / (sum_fi - 1)

standard_dev = Sqr(variance)

'RANGE

Max = X(n - 1) + 0.5

Min = X(0) - 0.5

range = Max - Min

'COEFFICIENT OF RANGE

cr = ((Max - Min) / (Max + Min)) * 100

'COEFFICIENT OF VARIATION

cv = (standard_dev / m) * 100

'MODE

For j = 0 To k - 1

DPU

- 207 -

For i = 0 To k - 2

f1 = f(i)

f2 = f(i + 1)

If f1 > f2 Then

f(i) = f2

f(i + 1) = f1

Else

f(i) = f1

f(i + 1) = f2

End If

Next i

Next j

c = 0

For i = 0 To k - 1

f_max1 = f(k - 1)

f_max2 = f(k - 2)

f_max3 = f(k - 3)

f_c = fq(i)

If (f_max1 <> f_max2) And (f_c = f_max1) Then

If i = 0 Then

d1 = f_c

d2 = f_max1 - fq(i + 1)

End If

If i = k - 1 Then

d1 = f_max1 - fq(i - 1)

d2 = f_c

End If

If i > 0 And i < k - 1 Then

d1 = f_max1 - fq(i - 1)

d2 = f_max1 - fq(i + 1)

End If

mode1 = lower_limit(i) + (interval(i) * (d1 / (d1 + d2)))

mode2 = ""

DPU

- 208 -

Exit For

End If

If (f_max1 = f_max2) And (f_max2 <> f_max3) And (f_c = f_max1) Then

If i = 0 Then

d1 = f_c

d2 = f_max1 - fq(i + 1)


End If

If i = k - 1 Then

d1 = f_max1 - fq(i - 1)

d2 = f_c


End If

If i > 0 And i < k - 1 Then

d1 = f_max1 - fq(i - 1)

d2 = f_max2 - fq(i + 1)

c = c + 1

If c = 2 Then


Exit For

Else


End If

End If

End If

If (f_max1 = f_max2) And (f_max2 = f_max3) Then

mode1 = ""

mode2 = ""

Exit For

End If

Next i

Text4 = Round(m, 4)

DPU

- 209 -

Text5 = Round(median, 4)

Text6 = mode1

Text7 = mode2

Text8 = Round(range, 4)

Text9 = Round(variance, 4)

Text10 = Round(standard_dev, 4)

Text11 = Round(cr, 4)

Text12 = Round(cv, 4)

Else

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text10 = ""

Text11 = ""

Text12 = ""

End If

End If

End Sub


For i = 0 To 25

Text2(i) = ""

Next i

For i = 0 To 12

Text3(i) = ""

Next i

Text1 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

DPU

- 210 -

Text8 = ""

Text9 = ""

Text10 = ""

Text11 = ""

Text12 = ""

End Sub


Unload Form16

Form1.Show

End Sub


Form17.Show

Unload Form16

End Sub


For i = 0 To 25

Text2(i) = ""

Next i

For i = 0 To 12

Text3(i) = ""

Next i

Text1 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text10 = ""

Text11 = ""

Text12 = ""

End Sub

DPU

- 211 -

ค าสงโปรแกรมส ารวจความพงพอใจจากการใชโปรแกรม Private Sub Command1_Click()


score = 5


score = 4


score = 3


score = 2


score = 1

End If

Open "C:\Documents and Settings\User_DPU\WINDOWS\system\data.txt" For Append As #1

Write #1, score

Close #1

End

End Sub







End Sub

DPU

- 212 -

ประวตผวจย

นางสาว นภาภรณ จนทรศพท การศกษา วท.บ.(สถตประยกต) สถาบนเทคโนโลยพระจอมเกลาพระนครเหนอ พบ.ม.(วทยาการประกนภย) สถาบนบณฑตพฒนบรหารศาสตร การท างาน อาจารยประจ ามหาวทยาลยธรกจบณฑตย

DPU

รายงานผลการวิจัย DPUlibdoc.dpu.ac.th › research › 145513.pdf ·...

Documents

Transcript of รายงานผลการวิจัย DPUlibdoc.dpu.ac.th › research › 145513.pdf ·...