[VB.NET] โค้ดการคำนวณหาค่า ห.ร.ม. และ ค่า ค.ร.น

thongkorn

การคำนวณหาค่า ห.ร.ม. หรือ GCD (Greatest Common Divisor)
ห.ร.ม. หรือตัวหารร่วมมากของจำนวนเต็มสองจำนวน คือจำนวนเต็มมากที่สุดที่หารทั้งสองจำนวนนั้นได้โดยไม่เหลือเศษ สำหรับโค้ดชุดนี้ในการหาค่า ห.ร.ม. จะใช้วิธีการแบบยุคลิด (Euclidean Algorithm) โดยมีวิธีคิดคือ ให้นำเศษจากการหารในทุกๆครั้ง นำกลับมาเป็นตัวตั้งใหม่อีกรอบ จนกว่าเศษที่ได้จะมีค่าเป็น 0

1.     ' / ฟังก์ชัน GCD (Greatest Common Divisor) ใช้ในการหาตัวหารร่วมมากที่สุดของสองจำนวน a และ b
   
2.     ' / โดยใช้วิธีการแบบยุคลิด (Euclidean Algorithm) โดยมีขั้นตอนการทำงานดังนี้:
   
3.     ' หาค่า GCD ของ a และ b (ด้วยการหารเอาเศษ หรือ Modulus)
   
4.     ' 1.        a = 48, b = 18
   
5.     ' 2.        b ≠ 0
   
6.     '                   temp = 18   (เก็บค่านี้ไว้เพื่อเป็นตัวตั้งในรอบถัดไป)
   
7.     '                   b = 48 Mod 18 (เหลือเศษ 12, b = 12)
   
8.     '                   a = 18 (a = temp)
   
9.     ' 3.        a = 18, b = 12
   
10.     ' 4.        b ≠ 0
    
11.     '                   temp = 12
    
12.     '                   b = 18 Mod 12 (เหลือเศษ 6, b = 6)
    
13.     '                   a = 12 (a = temp)
    
14.     ' 5.        a = 12, b = 6
    
15.     ' 6.        b ≠ 0
    
16.     '                   temp = 6
    
17.     '                   b = 12 Mod 6 (เหลือเศษ 0, b = 0)
    
18.     '                   a = 6 (a = temp)
    
19.     ' 7.        a = 6, b = 0
    
20.     ' 8.        คืนค่า a = 6 เป็น GCD
    
21.     ' / -------------------------------------------------------------------------------------------------
    
22.     '// หา หรม.
    
23.     Function GCD(a As Integer, b As Integer) As Integer
    
24.         While b <> 0    '// ใช้เงื่อนไขจริง ให้ทำซ้ำ ตราบใดที่ b มีค่าไม่ใช่ 0
    
25.             Dim temp As Integer = b
    
26.             b = a Mod b '// ใช้การหารเอาเศษ ผลลัพธ์ที่ได้เก็บไว้ใน b
    
27.             a = temp    '// นำค่าเดิมจาก b ไปเก็บไว้ที่ a เพื่อให้เป็นตัวตั้งต่อไป
    
28.         End While
    
29.         Return a
    
30.     End Function

คัดลอกไปที่คลิปบอร์ด

ค.ร.น. หรือ LCM (Least Common Multiple) ตัวคูณร่วมน้อย มีนิยามว่า คือจำนวนเต็มบวกที่น้อยที่สุดที่หารด้วยแต่ละจำนวนลงตัว โดยมีสูตรว่า
LCM(a, b) = (a x b) \ GCD(a, b)
ดังนั้นเมื่อเราหาค่า ห.ร.ม. ได้ก็จะหาค่า ค.ร.น. ได้อย่างไม่ยาก

1. '/ ฟังก์ชัน LCM (Least Common Multiple) ใช้ในการหาค่าตัวคูณร่วมน้อยที่สุดของสองจำนวน a และ b โดยใช้ผลลัพธ์จากฟังก์ชัน GCD ที่ได้
   
2.     '/ อธิบายการทำงาน
   
3.     '/ 1.        เริ่มต้น: รับค่า a และ b เข้ามาในฟังก์ชัน
   
4.     '/ 2.        คำนวณ LCM: ใช้สูตร LCM(a, b) = (a x b) \ GCD(a, b)
   
5.     '/                  คูณ a และ b เข้าด้วยกัน
   
6.     '/                  หารด้วยค่าที่ได้จากฟังก์ชัน GCD(a, b)
   
7.     '/ 3.        ผลลัพธ์: คืนค่าผลลัพธ์เป็นตัวคูณร่วมน้อยที่สุด (LCM)
   
8. 
   
9.     '/ ตัวอย่าง
   
10.     '/ หาค่า LCM ของ 48 และ 18
    
11.     '/ 1.        หา GCD: จากตัวอย่างข้างต้น GCD(48, 18) = 6
    
12.     '/ 2.        คำนวณ LCM:
    
13.     '/                  LCM(48, 18) = 48 x 18 \ 6 = 144
    
14.     '/ 3.        คืนค่า LCM = 144
    
15.     ' / -------------------------------------------------------------------------------------------------
    
16.     '// หา ครน.
    
17.     Function LCM(a As Integer, b As Integer) As Integer
    
18.         Return (a * b) \ GCD(a, b)  '// ใช้การหารตัดเศษ เพราะต้องการคำตอบเป็นเลขจำนวนเต็ม
    
19.     End Function

คัดลอกไปที่คลิปบอร์ด

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Public Class frmGcdLcmNumber
   
2. 
   
3.     Private Sub frmGcdLcmNumber_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Call btnGenerate_Click(sender, e)
   
5.     End Sub
   
6. 
   
7.     ' / -------------------------------------------------------------------------------------------------
   
8.     ' / ฟังก์ชัน GCD (Greatest Common Divisor) ใช้ในการหาตัวหารร่วมมากที่สุดของสองจำนวน a และ b
   
9.     ' / โดยใช้วิธีการแบบยุคลิด (Euclidean Algorithm) โดยมีขั้นตอนการทำงานดังนี้:
   
10.     ' หาค่า GCD ของ a และ b (ด้วยการหารเอาเศษ หรือ Modulus)
    
11.     ' 1.        a = 48, b = 18
    
12.     ' 2.        b ≠ 0
    
13.     '                   temp = 18   (เก็บค่านี้ไว้เพื่อเป็นตัวตั้งในรอบถัดไป)
    
14.     '                   b = 48 Mod 18 (เหลือเศษ 12, b = 12)
    
15.     '                   a = 18 (a = temp)
    
16.     ' 3.        a = 18, b = 12
    
17.     ' 4.        b ≠ 0
    
18.     '                   temp = 12
    
19.     '                   b = 18 Mod 12 (เหลือเศษ 6, b = 6)
    
20.     '                   a = 12 (a = temp)
    
21.     ' 5.        a = 12, b = 6
    
22.     ' 6.        b ≠ 0
    
23.     '                   temp = 6
    
24.     '                   b = 12 Mod 6 (เหลือเศษ 0, b = 0)
    
25.     '                   a = 6 (a = temp)
    
26.     ' 7.        a = 6, b = 0
    
27.     ' 8.        คืนค่า a = 6 เป็น GCD
    
28.     ' / -------------------------------------------------------------------------------------------------
    
29.     '// หา หรม.
    
30.     Function GCD(a As Integer, b As Integer) As Integer
    
31.         While b <> 0    '// ใช้เงื่อนไขจริง ให้ทำซ้ำ ตราบใดที่ b มีค่าไม่ใช่ 0
    
32.             Dim temp As Integer = b
    
33.             b = a Mod b '// ใช้การหารเอาเศษ ผลลัพธ์ที่ได้เก็บไว้ใน b
    
34.             a = temp    '// นำค่าเดิมจาก b ไปเก็บไว้ที่ a เพื่อให้เป็นตัวตั้งต่อไป
    
35.         End While
    
36.         Return a
    
37.     End Function
    
38. 
    
39.     ' / -------------------------------------------------------------------------------------------------
    
40.     '/ ฟังก์ชัน LCM (Least Common Multiple) ใช้ในการหาค่าตัวคูณร่วมน้อยที่สุดของสองจำนวน a และ b โดยใช้ผลลัพธ์จากฟังก์ชัน GCD ที่ได้
    
41.     '/ อธิบายการทำงาน
    
42.     '/ 1.        เริ่มต้น: รับค่า a และ b เข้ามาในฟังก์ชัน
    
43.     '/ 2.        คำนวณ LCM: ใช้สูตร LCM(a, b) = (a x b) \ GCD(a, b)
    
44.     '/                  คูณ a และ b เข้าด้วยกัน
    
45.     '/                  หารด้วยค่าที่ได้จากฟังก์ชัน GCD(a, b)
    
46.     '/ 3.        ผลลัพธ์: คืนค่าผลลัพธ์เป็นตัวคูณร่วมน้อยที่สุด (LCM)
    
47. 
    
48.     '/ ตัวอย่าง
    
49.     '/ หาค่า LCM ของ 48 และ 18
    
50.     '/ 1.        หา GCD: จากตัวอย่างข้างต้น GCD(48, 18) = 6
    
51.     '/ 2.        คำนวณ LCM:
    
52.     '/                  LCM(48, 18) = 48 x 18 \ 6 = 144
    
53.     '/ 3.        คืนค่า LCM = 144
    
54.     ' / -------------------------------------------------------------------------------------------------
    
55.     '// หา ครน.
    
56.     Function LCM(a As Integer, b As Integer) As Integer
    
57.         Return (a * b) \ GCD(a, b)  '// ใช้การหารตัดเศษ เพราะต้องการคำตอบเป็นเลขจำนวนเต็ม
    
58.     End Function
    
59. 
    
60.     Private Sub btnProceed_Click(sender As System.Object, e As System.EventArgs) Handles btnProceed.Click
    
61.         '// Validate the input values.
    
62.         If txtNum1.Text = "" Or txtNum1.Text = "0" Or txtNum1.Text.Length = 0 Then txtNum1.Text = "1"
    
63.         If txtNum2.Text = "" Or txtNum2.Text = "0" Or txtNum2.Text.Length = 0 Then txtNum2.Text = "1"
    
64.         '// ส่งค่า a และ b ไป
    
65.         Dim gcdNum As Integer = GCD(Val(txtNum1.Text), Val(txtNum2.Text))
    
66.         Dim lcmNum As Integer = LCM(Val(txtNum1.Text), Val(txtNum2.Text))
    
67.         '//
    
68.         txtGCD.Text = gcdNum
    
69.         txtLCM.Text = lcmNum
    
70.         '//
    
71.         txtNum1.Focus()
    
72.         txtNum1.SelectAll() '// Highlight the text in txtNum1
    
73.     End Sub
    
74. 
    
75.     Private Sub btnGenerate_Click(sender As System.Object, e As System.EventArgs) Handles btnGenerate.Click
    
76.         Dim rnd As New Random()
    
77.         Dim randomNumber1 As Integer = rnd.Next(1, 100)
    
78.         Dim randomNumber2 As Integer = RandomEvenNumber(rnd)    '// สุ่มตัวเลขให้เป็นเลขคู่เท่านั้น
    
79.         txtNum1.Text = randomNumber1
    
80.         txtNum2.Text = randomNumber2
    
81.     End Sub
    
82. 
    
83.     ' / -------------------------------------------------------------------------------------------------
    
84.     ' / ต้องการสุ่มค่าออกมาให้เป็นเลขคู่เท่านั้น
    
85.     Private Function RandomEvenNumber(rnd As Random) As Integer
    
86.         Dim randomNumber As Integer = rnd.Next(1, 51) '// Generates a number between 1 and 50.
    
87.         Return randomNumber * 2 '// Multiply by 2 to get an even number between 2 and 100.
    
88.     End Function
    
89. 
    
90.     Private Sub txtNum1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtNum1.KeyDown
    
91.         If e.KeyCode = Keys.Enter Then
    
92.             e.SuppressKeyPress = True '// Prevent the beep sound on Enter key press.
    
93.             txtNum2.Focus()
    
94.             txtNum2.SelectAll() '// Highlight the text in txtNum2.
    
95.         End If
    
96.     End Sub
    
97. 
    
98.     Private Sub txtNum1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtNum1.KeyPress
    
99.         If Asc(e.KeyChar) = 13 Then
    
100.             e.Handled = True
     
101.             SendKeys.Send("{TAB}")
     
102.         Else
     
103.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
     
104.         End If
     
105.     End Sub
     
106. 
     
107.     Private Sub txtNum2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtNum2.KeyPress
     
108.         If Asc(e.KeyChar) = 13 Then
     
109.             e.Handled = True
     
110.             Call btnProceed_Click(sender, e)
     
111.         Else
     
112.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
     
113.         End If
     
114.     End Sub
     
115. 
     
116.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
117.         Me.Close()
     
118.     End Sub
     
119. 
     
120.     Private Sub frmGcdLcmNumber_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
121.         Me.Dispose()
     
122.         GC.SuppressFinalize(Me)
     
123.         End
     
124.     End Sub
     
125. 
     
126. #Region "FUNCTION"
     
127.     ' / --------------------------------------------------------------------------------
     
128.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
     
129.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
     
130.         Select Case index
     
131.             Case 48 To 57 ' เลข 0 - 9
     
132.                 CheckDigitOnly = False
     
133.             Case 8, 13 ' Backspace = 8, Enter = 13
     
134.                 CheckDigitOnly = False
     
135.             Case Else
     
136.                 CheckDigitOnly = True
     
137.         End Select
     
138.     End Function
     
139. #End Region
     
140. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...