[VB6/VB.NET] แจกโค้ดการคำนวณหาอัตราค่าใช้ไฟฟ้าในบ้านเรือนที่อยู่อาศัย แบบขั้นบันได

thongkorn

นี่เป็นโค้ดโปรแกรมที่ คำนวณหาอัตราค่าไฟฟ้าที่ต้องจ่ายให้กับการไฟฟ้าส่วนภูมิภาค ตามใบแจ้งหนี้ในแต่ละเดือนน่ะครับ ไม่ใช่โปรแกรมที่ใช้คำนวณหาพลังงาน จากอุปกรณ์ไฟฟ้าต่างๆที่มีอยู่ในบ้าน หรือคำนวณหา Power Factor หรืออะไรต่อมิอะไรทางไฟฟ้า ซึ่งเป็นการคิดค่าไฟฟ้าแบบขั้นบันได (ดูรายละเอียดประเภทที่ 1 บ้านอยู่อาศัย) โดยคิดจากการใช้หน่วยไฟฟ้าหลักๆ คือ หากไม่เกิน 150 และเกิน 150 หน่วยต่อเดือน แอดมินขอยกตัวอย่างจริงที่บ้านแอดมินก็แล้วกัน ...



วิธีการคิดแบบขั้นบันได ... (ดูภาพตารางประกอบ)

สมมุติว่าใช้ไฟจำนวน 636 หน่วย ซึ่งมากกว่า 400 หน่วย โดยมีค่า FT (ปัจจุบัน) = -0.1160 บาท
ต้องแยกการคำนวณออกเป็น 3 ส่วน คือ
ส่วนที่ไม่เกิน 150 หน่วย (อัตราต่อหน่วย = 3.2484 บาท)
ส่วนที่เกิน 150 หน่วย แต่ไม่เกิน 400 หน่วย หรือ 400 - 150 = 250 หน่วย (อัตราต่อหน่วย = 4.2218 บาท)
ส่วนที่เกิน 400 หน่วยขึ้นไป (อัตราต่อหน่วย = 4.4217 บาท)

(1) 150 หน่วยแรก (150 x 3.2484) = 487.26 บาท ...
(2) 250 หน่วยต่อไป (250 x 4.2218) = 1,055.45 บาท
หน่วยที่เกินจาก 400 หน่วย คือ 636 - 400 = 236 หน่วย
(3) หน่วยที่เหลือ (236 x 4.4217) = 1,043.52 บาท (สังเกตว่าเปลี่ยนตัวคูณด้วย)

(4) ค่า FT (จำนวนหน่วย x FT) หรือ 636 x -0.1160 = -73.78 บาท
(5) ค่าบริการรายเดือน = 38.22 บาท

(6) เอา (1) + (2) + (3) + (4) + (5) รวมเป็นเงิน = 2,550.68 บาท
(7) คิดภาษี 7% = 178.55 บาท
(8) เอา (6) + (7) รวมเป็นเงินที่ต้องชำระ = 2,729.23 บาท

มาดูโค้ดต้นฉบับกันเถอะ (VB.NET) ...

1. Public Class frmCalElectrical
   
2. 
   
3.     Private Sub frmCalElectrical_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
   
4.         Me.Dispose()
   
5.         Application.Exit()
   
6.     End Sub
   
7. 
   
8.     Private Sub frmCalElectrical_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
   
9.         Select Case e.KeyCode
   
10.             Case Keys.F8
    
11.                 Call btnProcess_Click(sender, e)
    
12.             Case Keys.F10
    
13.                 Me.Close()
    
14.         End Select
    
15.     End Sub
    
16. 
    
17.     Private Sub frmCalElectrical_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
18.         Call SetupGridView(Me.DataGridView1)
    
19.         Call SetupGridView(Me.DataGridView2)
    
20.         Call InitData()
    
21.         txtUnit.Text = ""
    
22.     End Sub
    
23. 
    
24.     Private Sub SetupGridView(ByRef DGV As DataGridView)
    
25.         '// Initialize DataGridView Control
    
26.         With DGV
    
27.             .RowHeadersVisible = False
    
28.             .AllowUserToAddRows = False
    
29.             .AllowUserToDeleteRows = False
    
30.             .AllowUserToResizeRows = False
    
31.             .MultiSelect = False
    
32.             .SelectionMode = DataGridViewSelectionMode.CellSelect
    
33.             .Font = New Font("Tahoma", 9)
    
34.             ' Autosize Column
    
35.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
36.             .AutoResizeColumns()
    
37.             '// Even-Odd Color
    
38.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
39.             ' Adjust Header Styles
    
40.             With .ColumnHeadersDefaultCellStyle
    
41.                 .BackColor = Color.Navy
    
42.                 .ForeColor = Color.Black ' Color.White
    
43.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
44.             End With
    
45.         End With
    
46.     End Sub
    
47. 
    
48.     ' / Initialized DataGridView and put the sample data.
    
49.     Private Sub InitData()
    
50.         txtSummary.Text = ""
    
51.         txtMonthFee1.Text = "8.19"
    
52.         txtMonthFee2.Text = "38.22"
    
53.         txtFT.Text = "-0.1160"
    
54.         txtUnit.Text = "0"
    
55.         '//
    
56.         Me.DataGridView1.Columns.Clear()
    
57.         Me.DataGridView2.Columns.Clear()
    
58.         '// Declare columns type.
    
59.         Dim Column1 As New DataGridViewTextBoxColumn()
    
60.         Dim Column2 As New DataGridViewTextBoxColumn()
    
61.         '// Add new Columns
    
62.         DataGridView1.Columns.AddRange(New DataGridViewColumn() { _
    
63.                 Column1, Column2 _
    
64.                 })
    
65.         With DataGridView1
    
66.             .Columns(0).Name = "UnitName"
    
67.             .Columns(0).HeaderText = "จำนวนหน่วย"
    
68.             .Columns(0).ReadOnly = True
    
69.             .Columns(1).Name = "UnitPrice"
    
70.             .Columns(1).HeaderText = "ค่าพลังงานไฟฟ้า (บาท/หน่วย)"
    
71.             .Columns(1).ReadOnly = False
    
72.         End With
    
73.         '// DataGridView1
    
74.         Dim row = New String() {"15 หน่วยแรก (หน่วยที่ 0 – 15)", "2.3488"}
    
75.         DataGridView1.Rows.Add(row)
    
76.         row = {"10 หน่วยต่อไป (หน่วยที่ 16 – 25)", "2.9882"}
    
77.         DataGridView1.Rows.Add(row)
    
78.         row = {"10 หน่วยต่อไป (หน่วยที่ 26 – 35)", "3.2405"}
    
79.         DataGridView1.Rows.Add(row)
    
80.         row = {"65 หน่วยต่อไป (หน่วยที่ 36 – 100)", "3.6237"}
    
81.         DataGridView1.Rows.Add(row)
    
82.         row = {"50 หน่วยต่อไป (หน่วยที่ 101 – 150)", "3.7171"}
    
83.         DataGridView1.Rows.Add(row)
    
84.         row = {"250 หน่วยต่อไป (หน่วยที่ 151 – 400)", "4.2218"}
    
85.         DataGridView1.Rows.Add(row)
    
86.         row = {"เกิน 400 หน่วยขึ้นไป (หน่วยที่ 401 เป็นต้นไป)", "4.4217"}
    
87.         DataGridView1.Rows.Add(row)
    
88.         With Me.DataGridView1
    
89.             .Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    
90.             .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    
91.         End With
    
92. 
    
93.         '// DataGridView2
    
94.         '// Declare columns type.
    
95.         Dim Col1 As New DataGridViewTextBoxColumn()
    
96.         Dim Col2 As New DataGridViewTextBoxColumn()
    
97.         '// Add new Columns
    
98.         DataGridView2.Columns.AddRange(New DataGridViewColumn() { _
    
99.                 Col1, Col2 _
    
100.                 })
     
101.         With DataGridView2
     
102.             .Columns(0).Name = "UnitName"
     
103.             .Columns(0).HeaderText = "จำนวนหน่วย"
     
104.             .Columns(0).ReadOnly = True
     
105.             .Columns(1).Name = "UnitPrice"
     
106.             .Columns(1).HeaderText = "ค่าพลังงานไฟฟ้า (บาท/หน่วย)"
     
107.             .Columns(1).ReadOnly = False
     
108.         End With
     
109.         row = {"150 หน่วยแรก         (หน่วยที่ 0 – 150)", "3.2484"}
     
110.         DataGridView2.Rows.Add(row)
     
111.         row = {"250 หน่วยต่อไป (หน่วยที่ 151 – 400)", " 4.2218"}
     
112.         DataGridView2.Rows.Add(row)
     
113.         row = {"เกิน 400 หน่วยขึ้นไป (หน่วยที่ 401 เป็นต้นไป)", "4.4217"}
     
114.         DataGridView2.Rows.Add(row)
     
115.         With Me.DataGridView2
     
116.             .Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
117.             .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
118.         End With
     
119.     End Sub
     
120. 
     
121.     Private Sub btnProcess_Click(sender As System.Object, e As System.EventArgs) Handles btnProcess.Click
     
122.         '// Trap Error
     
123.         If txtFT.Text = "" Then txtFT.Text = "0.00"
     
124.         If txtUnit.Text = "" Then txtUnit.Text = "0"
     
125.         If txtMonthFee1.Text = "" Then txtMonthFee1.Text = "0.00"
     
126.         If txtMonthFee2.Text = "" Then txtMonthFee2.Text = "0.00"
     
127.         '// เช็คค่าว่างในเซลล์
     
128.         For i = 0 To Me.DataGridView1.RowCount - 1
     
129.             If IsNothing(Me.DataGridView1.Rows(i).Cells(1).Value) Then Me.DataGridView1.Rows(i).Cells(1).Value = 0.0
     
130.         Next
     
131.         For i = 0 To Me.DataGridView2.RowCount - 1
     
132.             If IsNothing(Me.DataGridView2.Rows(i).Cells(1).Value) Then Me.DataGridView2.Rows(i).Cells(1).Value = 0.0
     
133.         Next
     
134.         '// CALCULATE
     
135.         Call CalElectrical()
     
136.     End Sub
     
137. 
     
138.     '// คำนวณผล
     
139.     Private Sub CalElectrical()
     
140.         Dim FirstUnit As Double                     ' ไม่เกิน 150 หน่วย (150 หน่วยแรก)
     
141.         Dim SecondUnit As Double              ' มากกว่า 150 หน่วย แต่ไม่เกิน 400 หน่วย (หรือ 400 - 150 = 250 หน่วย)
     
142.         Dim ThirdUnit As Double                   ' มากกว่า 400 หน่วยขึ้นไป
     
143.         Dim SumElectricCost As Double     ' (1) ผลรวมของค่าไฟฟ้ามาตรฐาน
     
144.         Dim SumFT As Double                       ' (2). ค่า FT คูณจำนวนหน่วย
     
145.         Dim Vat As Double                               ' (3). เอา 1 + 2 แล้วหาค่าภาษี 7%
     
146.         Dim TotalAmount As Double            ' (4)  เอา 1 + 2 + 3 คืออัตราค่าไฟฟ้าทั้งหมด
     
147. 
     
148.         ' คิดแบบขั้นบันไดกรณีใช้พลังงานไฟฟ้าไม่เกิน 150 หน่วย/เดือน
     
149.         Dim intStep As Double
     
150.         Select Case Val(txtUnit.Text)
     
151.             Case 1 To 15 : intStep = Me.DataGridView1.Rows(0).Cells(1).Value
     
152.             Case 16 To 25 : intStep = Me.DataGridView1.Rows(1).Cells(1).Value
     
153.             Case 26 To 35 : intStep = Me.DataGridView1.Rows(2).Cells(1).Value
     
154.             Case 36 To 100 : intStep = Me.DataGridView1.Rows(3).Cells(1).Value
     
155.             Case 101 To 150 : intStep = Me.DataGridView1.Rows(4).Cells(1).Value
     
156.             Case 151 To 400 : intStep = Me.DataGridView1.Rows(5).Cells(1).Value
     
157.             Case Else : intStep = Me.DataGridView1.Rows(6).Cells(1).Value
     
158.         End Select
     
159. 
     
160.         ' / ---------------------------------------------------------------
     
161.         ' กรณีแรกใช้ไฟฟ้าระหว่าง 0 - 150 หน่วย
     
162.         If Val(txtUnit.Text) <= 150 Then
     
163.             FirstUnit = Val(txtUnit.Text) * intStep
     
164.             ' บวกค่าบริการด้วย (สงสัยว่ามันบริการอะไร ...)
     
165.             SumElectricCost = FirstUnit + Val(txtMonthFee1.Text) 'FeePaid
     
166.             SumFT = Val(txtUnit.Text) * Val(txtFT.Text)
     
167.             Vat = ((SumElectricCost + SumFT) * 7) / 100
     
168.             TotalAmount = SumElectricCost + SumFT + Vat
     
169.             txtSummary.Text = _
     
170.                 "==================" & vbCrLf & _
     
171.                 "รวมจำนวนเงิน" & vbTab & " = " & Format(SumElectricCost, "#,##0.00") & vbCrLf & _
     
172.                 "ค่า FT" & vbTab & vbTab & " = " & Format(SumFT, "#,##0.00") & vbCrLf & _
     
173.                 "==================" & vbCrLf & _
     
174.                 "รวมเงินค่าไฟฟ้า" & vbTab & " = " & Format(SumElectricCost + SumFT, "#,##0.00") & vbCrLf & _
     
175.                 "ภาษีมูลค่าเพิ่ม" & vbTab & " = " & Format(Vat, "#,##0.00") & vbCrLf & vbCrLf & _
     
176.                 "รวมเงินที่ต้องชำระ: " & vbTab & " = " & Format(TotalAmount, "#,##0.00") & " บาท."
     
177. 
     
178.             '// -------------------------------------------------------------------------------
     
179.             '//  ใช้ไฟฟ้าระหว่าง 151 - 400 หน่วย (หรือ 400 - 150 = 250 หน่วย)
     
180.         ElseIf (Val(txtUnit.Text) > 150) And (Val(txtUnit.Text) <= 400) Then
     
181.             FirstUnit = 150 * Me.DataGridView2.Rows(0).Cells(1).Value
     
182.             SecondUnit = 250 * Me.DataGridView2.Rows(1).Cells(1).Value
     
183.             SumElectricCost = Format(FirstUnit + SecondUnit, "#,##0.00")
     
184.             SumFT = Val(txtUnit.Text) * Val(txtFT.Text)
     
185.             Vat = ((SumElectricCost + SumFT) * 7) / 100
     
186.             TotalAmount = SumElectricCost + SumFT + Vat
     
187.             '//
     
188.             txtSummary.Text = _
     
189.                 "150 หน่วยแรก" & vbTab & " = " & Format(FirstUnit, "#,##0.00") & vbCrLf & _
     
190.                 "250 หน่วยต่อไป" & vbTab & " = " & Format(SecondUnit, "#,##0.00") & vbCrLf & _
     
191.                 "==================" & vbCrLf & _
     
192.                 "รวมจำนวนเงิน" & vbTab & " = " & Format(SumElectricCost, "#,##0.00") & vbCrLf & _
     
193.                 "ค่า FT" & vbTab & vbTab & " = " & Format(SumFT, "#,##0.00") & vbCrLf & _
     
194.                 "==================" & vbCrLf & _
     
195.                 "รวมเงินค่าไฟฟ้า" & vbTab & " = " & Format(SumElectricCost + SumFT, "#,##0.00") & vbCrLf & _
     
196.                 "ภาษีมูลค่าเพิ่ม" & vbTab & " = " & Format(Vat, "#,##0.00") & vbCrLf & vbCrLf & _
     
197.                 "รวมเงินที่ต้องชำระ: " & vbTab & " = " & Format(TotalAmount, "#,##0.00") & " บาท."
     
198. 
     
199.             ' / ---------------------------------------------------------------
     
200.             ' ใช้ไฟฟ้าตั้งแต่ 401 หน่วยขึ้นไป
     
201.         ElseIf (Val(txtUnit.Text) > 400) Then
     
202.             FirstUnit = Format(150 * Me.DataGridView2.Rows(0).Cells(1).Value, "#,##0.0000")
     
203.             SecondUnit = Format(250 * Me.DataGridView2.Rows(1).Cells(1).Value, "#,##0.0000")
     
204.             ThirdUnit = Format((Val(txtUnit.Text) - 400) * Me.DataGridView2.Rows(2).Cells(1).Value, "#,##0.0000")
     
205.             'SumElectricCost = FirstUnit + SecondUnit + ThirdUnit + 38.22 'FeePaid
     
206.             SumElectricCost = Format(FirstUnit + SecondUnit + ThirdUnit, "#,##0.0000")         'FeePaid
     
207.             SumFT = Format(Val(txtUnit.Text) * Val(txtFT.Text), "#,##0.0000")
     
208.             Vat = Format(((SumElectricCost + SumFT + Val(txtMonthFee2.Text)) * 7) / 100, "#,##0.0000")
     
209.             TotalAmount = Format(SumElectricCost + SumFT + Vat + Val(txtMonthFee2.Text), "#,##0.0000")
     
210.             '//
     
211.             txtSummary.Text = _
     
212.                 "150 หน่วยแรก" & vbTab & " = " & Format(FirstUnit, "#,##0.00") & vbCrLf & _
     
213.                 "250 หน่วยต่อไป" & vbTab & " = " & Format(SecondUnit, "#,##0.00") & vbCrLf & _
     
214.                 (Val(txtUnit.Text) - 400) & " หน่วยที่เหลือ" & vbTab & " = " & Format(ThirdUnit, "#,##0.00") & vbCrLf & _
     
215.                 "==================" & vbCrLf & _
     
216.                 "รวมจำนวนเงิน" & vbTab & " = " & Format(SumElectricCost, "#,##0.00") & vbCrLf & _
     
217.                 "ค่าบริการ" & vbTab & vbTab & " = " & Format(Val(txtMonthFee2.Text), "#,##0.00") & vbCrLf & _
     
218.                 "ค่า FT" & vbTab & vbTab & " = " & Format(SumFT, "#,##0.00") & vbCrLf & _
     
219.                 "==================" & vbCrLf & _
     
220.                 "รวมเงินค่าไฟฟ้า" & vbTab & " = " & Format(SumElectricCost + SumFT + Val(txtMonthFee2.Text), "#,##0.00") & vbCrLf & _
     
221.                 "ภาษีมูลค่าเพิ่ม" & vbTab & " = " & Format(Vat, "#,##0.00") & vbCrLf & vbCrLf & _
     
222.                 "รวมเงินที่ต้องชำระ: " & vbTab & " = " & Format(TotalAmount, "#,##0.00") & " บาท."
     
223.         End If
     
224.     End Sub
     
225. 
     
226.     ' / ---------------------------------------------------------------
     
227.     ' / หากมีการแก้ไขในเซลล์ของตารางกริด เมื่อสิ้นสุดการแก้ไขให้เช็คค่าในหลัก Index = 1 (เก็บค่าอัตราราคา)
     
228.     Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
     
229.         Select Case DataGridView1.Columns(DataGridView1.CurrentCell.ColumnIndex).Index
     
230.             Case 1
     
231.                 If IsNothing(Me.DataGridView1.Rows(e.RowIndex).Cells(1).Value) Then Me.DataGridView1.Rows(e.RowIndex).Cells(1).Value = 0.0
     
232.         End Select
     
233.     End Sub
     
234. 
     
235.     Private Sub DataGridView2_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellEndEdit
     
236.         Select Case DataGridView2.Columns(DataGridView2.CurrentCell.ColumnIndex).Index
     
237.             Case 1
     
238.                 If IsNothing(Me.DataGridView2.Rows(e.RowIndex).Cells(1).Value) Then Me.DataGridView2.Rows(e.RowIndex).Cells(1).Value = 0.0
     
239.         End Select
     
240.     End Sub
     
241.     ' / ---------------------------------------------------------------
     
242. 
     
243.     ' / ---------------------------------------------------------------
     
244.     ' / ขณะทำการแก้ไขข้อมูลในเซลล์ ตรวจสอบคีย์ที่กดลงไป
     
245.     Private Sub DataGridView1_EditingControlShowing(sender As Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
     
246.         Select Case DataGridView1.Columns(DataGridView1.CurrentCell.ColumnIndex).Index
     
247.             '// ColumeIndex 1 is double.
     
248.             Case 1
     
249.                 '// Force to validate value at ValidKeyPress Event.
     
250.                 RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
251.                 AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
252.         End Select
     
253.     End Sub
     
254. 
     
255.     Private Sub DataGridView2_EditingControlShowing(sender As Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView2.EditingControlShowing
     
256.         Select Case DataGridView1.Columns(DataGridView1.CurrentCell.ColumnIndex).Index
     
257.             '// ColumeIndex 1 is double.
     
258.             Case 1
     
259.                 '// Force to validate value at ValidKeyPress Event.
     
260.                 RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
261.                 AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
262.         End Select
     
263.     End Sub
     
264.     ' / ---------------------------------------------------------------
     
265. 
     
266.     ' / ---------------------------------------------------------------
     
267.     ' / เช็คการกดคีย์ที่อยู่ในเซลล์ของตารางกริด ให้รับค่าตัวเลขแบบทศนิยมได้เท่านั้น
     
268.     Private Sub ValidKeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs)
     
269.         Dim tb As TextBox = sender
     
270.         Select Case DataGridView1.CurrentCell.ColumnIndex
     
271.             Case 1  '// Double
     
272.                 Select Case e.KeyChar
     
273.                     Case "0" To "9"
     
274.                         '// Allowed "."
     
275.                     Case "."
     
276.                         '// But it can present "." only one.
     
277.                         If InStr(tb.Text, ".") Then e.Handled = True
     
278. 
     
279.                     Case ChrW(Keys.Back)
     
280.                     Case Else
     
281.                         e.Handled = True
     
282.                 End Select
     
283.         End Select
     
284.     End Sub
     
285. 
     
286.     Private Sub txtMonthFee1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMonthFee1.KeyPress
     
287.         Dim KeyAscii As Short = Asc(e.KeyChar)
     
288.         If KeyAscii = 13 Then
     
289.             e.Handled = True
     
290.             SendKeys.Send("{TAB}")
     
291.         Else
     
292.             ' ตรวจสอบการ Return ค่ากลับว่า True หรือ False
     
293.             e.Handled = CheckCurrency(KeyAscii, txtMonthFee1.Text)
     
294.         End If
     
295.     End Sub
     
296. 
     
297.     Private Sub txtMonthFee2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMonthFee2.KeyPress
     
298.         Dim KeyAscii As Short = Asc(e.KeyChar)
     
299.         If KeyAscii = 13 Then
     
300.             e.Handled = True
     
301.             SendKeys.Send("{TAB}")
     
302.         Else
     
303.             ' ตรวจสอบการ Return ค่ากลับว่า True หรือ False
     
304.             e.Handled = CheckCurrency(KeyAscii, txtMonthFee2.Text)
     
305.         End If
     
306.     End Sub
     
307. 
     
308.     Private Sub txtUnit_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtUnit.KeyPress
     
309.         Dim KeyAscii As Short = Asc(e.KeyChar)
     
310.         If KeyAscii = 13 Then
     
311.             e.Handled = True
     
312.             Call btnProcess_Click(sender, e)
     
313.         Else
     
314.             ' ตรวจสอบการ Return ค่ากลับว่า True หรือ False
     
315.             e.Handled = CheckDigitOnly(KeyAscii)
     
316.         End If
     
317.     End Sub
     
318. 
     
319.     Private Sub txtFT_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFT.KeyPress
     
320.         Dim KeyAscii As Short = Asc(e.KeyChar)
     
321.         If KeyAscii = 13 Then
     
322.             e.Handled = True
     
323.             Call btnProcess_Click(sender, e)
     
324.         Else
     
325.             ' ตรวจสอบการ Return ค่ากลับว่า True หรือ False
     
326.             e.Handled = CheckCurrency(KeyAscii, txtFT.Text)
     
327.         End If
     
328.     End Sub
     
329. 
     
330.     Private Sub btnReset_Click(sender As System.Object, e As System.EventArgs) Handles btnReset.Click
     
331.         Call InitData()
     
332.     End Sub
     
333. 
     
334.     Private Sub txtSummary_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtSummary.KeyDown
     
335.         e.SuppressKeyPress = True
     
336.     End Sub
     
337. 
     
338.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
339.         Me.Close()
     
340.     End Sub
     
341. 
     
342.     Private Sub ToolStripStatusLabel3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel3.Click
     
343.         Process.Start("http://www.g2gnet.com/webboard")
     
344.     End Sub
     
345. 
     
346.     Private Sub ToolStripStatusLabel2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripStatusLabel2.Click
     
347.         Process.Start("https://www.facebook.com/g2gnet")
     
348.     End Sub
     
349. 
     
350. #Region "FUNCTION"
     
351.     ' / --------------------------------------------------------------------------------
     
352.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
     
353.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
     
354.         Select Case index
     
355.             Case 48 To 57 ' เลข 0 - 9
     
356.                 CheckDigitOnly = False
     
357.             Case 8, 13 ' Backspace = 8, Enter = 13
     
358.                 CheckDigitOnly = False
     
359.             Case Else
     
360.                 CheckDigitOnly = True
     
361.         End Select
     
362.     End Function
     
363. 
     
364.     ' / --------------------------------------------------------------------------------
     
365.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขและทศนิยมได้ตัวเดียวเท่านั้น
     
366.     Function CheckCurrency(index As Integer, tmpStr As String) As Boolean
     
367.         CheckCurrency = False
     
368.         Select Case index
     
369.             Case 48 To 57 ' เลข 0 - 9
     
370.                 ' Allowed "."
     
371.             Case 46
     
372.                 ' can present "." only one
     
373.                 If InStr(tmpStr, ".") Then CheckCurrency = True
     
374. 
     
375.             Case 8, 13 ' Backspace = 8, Enter = 13
     
376.             Case Else
     
377.                 CheckCurrency = True
     
378.         End Select
     
379.     End Function
     
380. #End Region
     
381. 
     
382. End Class

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

มาดูโค้ดต้นฉบับ (VB6) ...

1. Option Explicit
   
2. 
   
3. ' อัตราค่าบริการ (กินเปล่า) ... ประเภท 11 บ้านที่อยู่อาศัย และเป็นประเภท 1.2
   
4. ' คือใช้พลังงานไฟฟ้าเกิน 150 หน่วยต่อเดือน
   
5. Const FeePaid As Double = 38.22 '/ ยังไม่ได้รวม Vat
   
6. ' คือ 40.9 บาท เป็นค่าบริการถอดมิเตอร์ (ล่วงหน้า) ... ส่วน 107 บาท เป็นบริการใส่กลับคืน (ตามหลัง) ... 55555+ คิดได้ไงเนี่ย ....
   
7. 
   
8. ' อัตราค่าไฟฟ้าที่ใช้งานเกิน 150 หน่วยขึ้นไป โดยคิดแบบขั้นบันได
   
9. Const Unit150 As Double = 3.2484           '/ 150 หน่วยแรก
   
10. Const Unit250 As Double = 4.2218    '/ 250 - 400
    
11. Const Unit400 As Double = 4.4217         '/ เกิน 400 หน่วย
    
12. 
    
13. Private Sub cmdCalElectric_Click()
    
14.     Dim FirstUnit As Double                     ' ไม่เกิน 150 หน่วย (150 หน่วยแรก)
    
15.     Dim SecondUnit As Double              ' มากกว่า 150 หน่วย แต่ไม่เกิน 400 หน่วย (หรือ 400 - 150 = 250 หน่วย)
    
16.     Dim ThirdUnit As Double                   ' มากกว่า 400 หน่วยขึ้นไป
    
17.     Dim SumElectricCost As Double     ' (1) ผลรวมของค่าไฟฟ้ามาตรฐาน
    
18.     Dim SumFT As Double                       ' (2). ค่า FT คูณจำนวนหน่วย
    
19.     Dim Vat As Double                               ' (3). เอา 1 + 2 แล้วหาค่าภาษี 7%
    
20.     Dim TotalAmount As Double            ' (4)  เอา 1 + 2 + 3 คืออัตราค่าไฟฟ้าทั้งหมด
    
21.    
    
22.     If txtUnit.Text = 0 Or IsNull(txtUnit.Text) Then Exit Sub
    
23.    
    
24.     If txtFT.Text = "" Or IsNull(txtFT.Text) Then txtFT.Text = "0"
    
25.     txtSummary.Text = ""
    
26.    
    
27.     ' คิดแบบขั้นบันไดกรณีใช้พลังงานไฟฟ้าไม่เกิน 150 หน่วย/เดือน
    
28.     Dim intStep As Double
    
29.     Select Case Val(txtUnit.Text)
    
30.         Case 1 To 15: intStep = 2.3488
    
31.         Case 16 To 25: intStep = 2.9882
    
32.         Case 26 To 35: intStep = 3.2405
    
33.         Case 36 To 100: intStep = 3.6237
    
34.         Case 101 To 150: intStep = 3.7171
    
35.         Case 151 To 400: intStep = 4.2218
    
36.         Case Else: intStep = 4.4217
    
37.     End Select
    
38.    
    
39.     ' กรณีแรกใช้ไฟฟ้าระหว่าง 0 - 150 หน่วย
    
40.     If Val(txtUnit.Text) <= 150 Then
    
41.         FirstUnit = Val(txtUnit.Text) * intStep
    
42.         ' บวกค่าบริการด้วย (สงสัยว่ามันบริการอะไร ...)
    
43.         SumElectricCost = FirstUnit + 8.19 'FeePaid
    
44.         SumFT = Val(txtUnit.Text) * Val(txtFT.Text)
    
45.         Vat = ((SumElectricCost + SumFT) * 7) / 100
    
46.         TotalAmount = SumElectricCost + SumFT + Vat
    
47.         txtSummary.Text = _
    
48.             "==================" & vbCrLf & _
    
49.             "รวมจำนวนเงิน =    " & Format(SumElectricCost, "#,##0.00") & vbCrLf & _
    
50.             "ค่า FT =               " & Format(SumFT, "#,##0.00") & vbCrLf & _
    
51.             "==================" & vbCrLf & _
    
52.             "รวมเงินค่าไฟฟ้า =  " & Format(SumElectricCost + SumFT, "#,##0.00") & vbCrLf & _
    
53.             "ภาษีมูลค่าเพิ่ม =     " & Format(Vat, "#,##0.00") & vbCrLf & vbCrLf & _
    
54.             "รวมเงินที่ต้องชำระ: " & Format(TotalAmount, "#,##0.00") & " บาท."
    
55.    
    
56.    
    
57.     '// -------------------------------------------------------------------------------
    
58.     '//  ใช้ไฟฟ้าระหว่าง 151 - 400 หน่วย (หรือ 400 - 150 = 250 หน่วย)
    
59.     ElseIf (Val(txtUnit.Text) > 150) And (Val(txtUnit.Text) <= 400) Then
    
60.         FirstUnit = 150 * Unit150
    
61.         SecondUnit = 250 * Unit250
    
62.         SumElectricCost = Format(FirstUnit + SecondUnit, "#,##0.00")
    
63.         SumFT = Val(txtUnit.Text) * Val(txtFT.Text)
    
64.         Vat = ((SumElectricCost + SumFT) * 7) / 100
    
65.         TotalAmount = SumElectricCost + SumFT + Vat
    
66.         '//
    
67.         txtSummary.Text = _
    
68.             "150 หน่วยแรก =  " & Format(FirstUnit, "#,##0.00") & vbCrLf & _
    
69.             "250 หน่วยต่อไป = " & Format(SecondUnit, "#,##0.00") & vbCrLf & _
    
70.             "==================" & vbCrLf & _
    
71.             "รวมจำนวนเงิน =    " & Format(SumElectricCost, "#,##0.00") & vbCrLf & _
    
72.             "ค่า FT =               " & Format(SumFT, "#,##0.00") & vbCrLf & _
    
73.             "==================" & vbCrLf & _
    
74.             "รวมเงินค่าไฟฟ้า =  " & Format(SumElectricCost + SumFT, "#,##0.00") & vbCrLf & _
    
75.             "ภาษีมูลค่าเพิ่ม =     " & Format(Vat, "#,##0.00") & vbCrLf & vbCrLf & _
    
76.             "รวมเงินที่ต้องชำระ: " & Format(TotalAmount, "#,##0.00") & " บาท."
    
77.    
    
78.     ' ใช้ไฟฟ้าตั้งแต่ 401 หน่วยขึ้นไป
    
79.     ElseIf (Val(txtUnit.Text) > 400) Then
    
80.         FirstUnit = Format(150 * Unit150, "#,##0.0000")
    
81.         SecondUnit = Format(250 * Unit250, "#,##0.0000")
    
82.         ThirdUnit = Format((Val(txtUnit.Text) - 400) * Unit400, "#,##0.0000")
    
83.         'SumElectricCost = FirstUnit + SecondUnit + ThirdUnit + 38.22 'FeePaid
    
84.         SumElectricCost = Format(FirstUnit + SecondUnit + ThirdUnit, "#,##0.0000")         'FeePaid
    
85.         SumFT = Format(Val(txtUnit.Text) * Val(txtFT.Text), "#,##0.0000")
    
86.         Vat = Format(((SumElectricCost + SumFT + 38.22) * 7) / 100, "#,##0.0000")
    
87.         TotalAmount = Format(SumElectricCost + SumFT + Vat + 38.22, "#,##0.0000")
    
88.         '//
    
89.         txtSummary.Text = _
    
90.             "150 หน่วยแรก = " & Format(FirstUnit, "#,##0.00") & vbCrLf & _
    
91.             "250 หน่วยต่อไป = " & Format(SecondUnit, "#,##0.00") & vbCrLf & _
    
92.             (Val(txtUnit.Text) - 400) & " หน่วยที่เหลือ = " & Format(ThirdUnit, "#,##0.00") & vbCrLf & _
    
93.             "==================" & vbCrLf & _
    
94.             "รวมจำนวนเงิน = " & Format(SumElectricCost, "#,##0.00") & vbCrLf & _
    
95.             "ค่าบริการ =            " & Format(38.22, "#,##0.00") & vbCrLf & _
    
96.             "ค่า FT =              " & Format(SumFT, "#,##0.00") & vbCrLf & _
    
97.             "==================" & vbCrLf & _
    
98.             "รวมเงินค่าไฟฟ้า =  " & Format(SumElectricCost + SumFT + 38.22, "#,##0.00") & vbCrLf & _
    
99.             "ภาษีมูลค่าเพิ่ม =       " & Format(Vat, "#,##0.00") & vbCrLf & vbCrLf & _
    
100.             "รวมเงินที่ต้องชำระ: " & Format(TotalAmount, "#,##0.00") & " บาท."
     
101.     End If
     
102.    
     
103.     ' =========== แถม ===========
     
104.     ' กรณีของการใช้ Select Case ...
     
105.     'Select Case Val(txtUnit.Text)
     
106.     '    Case 0 To 150
     
107.     '        MsgBox "0 - 150 (หรือ 150 หน่วยแรก)"
     
108.     '    Case 151 To 400
     
109.     '        MsgBox "151 - 400 (หรือ 250 หน่วย)"
     
110.     '    Case Else
     
111.     '        MsgBox "401หน่วย ขึ้นไป"
     
112.     'End Select
     
113.     ' ==========================
     
114.    
     
115.     Call HLText(txtUnit)
     
116. End Sub
     
117. 
     
118. ' จะใช้ตัวนี้ได้ก็ต่อเมื่อตั้งค่าคุณสมบัติของฟอร์ม KeyPreview = True ก่อนด้วยครับ
     
119. ' หมายความว่าเราสามารถใช้ปุ่มฟังค์ชั่นต่างๆของฟอร์มได้ ...
     
120. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     
121.     Select Case KeyCode
     
122.         ' กดปุ่มฟังค์ชั่น F8
     
123.         Case vbKeyF8
     
124.             Call cmdCalElectric_Click
     
125.             
     
126.         ' กดปุ่มฟังค์ชั่น F10
     
127.         Case vbKeyF10
     
128.             End
     
129.     End Select
     
130. End Sub
     
131. 
     
132. Private Sub Form_Load()
     
133.    
     
134.     Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
     
135.     ' ตั้งค่าตัวเลขทั้งสมมุติและใช้งานจริง
     
136.     txtUnit.Text = "636"
     
137.     txtFT.Text = "-0.1160"
     
138.     txtSummary.Text = ""
     
139.    
     
140. End Sub
     
141. 
     
142. Private Sub txtFT_GotFocus()
     
143.     ' ฟังค์ชั่นนี้อยู่ใน modFunction เพื่อเลือกข้อมูลใน Text Box ทั้งหมด
     
144.     Call HLText(txtFT)
     
145. End Sub
     
146. 
     
147. Private Sub cmdExit_Click()
     
148.     Set frmCalElectrical = Nothing
     
149.     End
     
150. End Sub
     
151. 
     
152. Private Sub txtFT_KeyDown(KeyCode As Integer, Shift As Integer)
     
153.     If KeyCode = vbKeyDown Then Sendkeys "{TAB}"
     
154.     If KeyCode = vbKeyUp Then Sendkeys "+{TAB}"
     
155. End Sub
     
156. 
     
157. Private Sub txtFT_KeyPress(KeyAscii As Integer)
     
158.     If KeyAscii = vbKeyReturn Then
     
159.         KeyAscii = 0
     
160.         Call cmdCalElectric_Click
     
161.     Else
     
162.         '/ ฟังค์ชั่นนี้อยู่ใน modFunction เพื่อตรวจสอบการกดคีย์ 0 - 9 และ จุดทศนิยม
     
163.         KeyAscii = CheckCurrency(KeyAscii, txtFT)
     
164.     End If
     
165. End Sub
     
166. 
     
167. Private Sub txtUnit_KeyPress(KeyAscii As Integer)
     
168.     ' กดปุ่ม Enter ส่งรหัส ASCII =13
     
169.     If KeyAscii = vbKeyReturn Then
     
170.         KeyAscii = 0
     
171.         Call cmdCalElectric_Click
     
172.     Else
     
173.         ' ฟังค์ชั่นนี้อยู่ใน modFunction เพื่อตรวจสอบการกดคีย์ 0 - 9 เท่านั้น
     
174.         KeyAscii = CheckDigitOnly(KeyAscii)
     
175.     End If
     
176. End Sub
     
177. 
     
178. Private Sub txtUnit_GotFocus()
     
179.     Call HLText(txtUnit)
     
180. End Sub
     
181. 
     
182. Private Sub txtUnit_KeyDown(KeyCode As Integer, Shift As Integer)
     
183.     If KeyCode = vbKeyDown Then Sendkeys "{TAB}"
     
184.     If KeyCode = vbKeyUp Then Sendkeys "+{TAB}"
     
185. End Sub
     
186. 
     
187. Private Sub txtPowerCost_KeyDown(KeyCode As Integer, Shift As Integer)
     
188.     If KeyCode = vbKeyDown Then Sendkeys "{TAB}"
     
189.     If KeyCode = vbKeyUp Then Sendkeys "+{TAB}"
     
190. End Sub
     
191. 
     
192. Private Sub txtPowerCost_KeyPress(KeyAscii As Integer)
     
193.     If KeyAscii = vbKeyReturn Then
     
194.         KeyAscii = 0
     
195.         Sendkeys "{TAB}"
     
196.     End If
     
197. End Sub
     
198. 
     
199. Private Sub cmdCalElectric_KeyDown(KeyCode As Integer, Shift As Integer)
     
200.     If KeyCode = vbKeyDown Then Sendkeys "{TAB}"
     
201.     If KeyCode = vbKeyUp Then Sendkeys "+{TAB}"
     
202. End Sub

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

ส่วนโมดูลใน VB6 จะประกอบด้วยฟังค์ชั่นในการกดคีย์ ...

1. Option Explicit
   
2. 
   
3. ' ทำไฮไลท์สำหรับ Text Box
   
4. Public Sub HLText(ByRef sText)
   
5.     On Error Resume Next
   
6.     With sText
   
7.         .SelStart = 0
   
8.         .SelLength = Len(sText.Text)
   
9.     End With
   
10. End Sub
    
11. 
    
12. ' ตรวจสอบค่าใน Text Box ให้รับเฉพาะตัวเลขเท่านั้น
    
13. Function CheckDigitOnly(Index As Integer) As Integer
    
14.     Select Case Index
    
15.         Case 48 To 57
    
16.             CheckDigitOnly = Index
    
17.         Case 8
    
18.             ' Back Space
    
19.         Case 13
    
20.             ' Enter
    
21.         
    
22.         Case Else
    
23.             Index = 0
    
24.     End Select
    
25.     CheckDigitOnly = Index
    
26. End Function
    
27. 
    
28. ' ตรวจสอบค่าใน Text Box ให้รับเฉพาะตัวเลข และ จุดทศนิยมเท่านั้น
    
29. Function CheckCurrency(Index As Integer, Ctrl As TextBox) As Integer
    
30.     Select Case Index
    
31.         Case 48 To 57
    
32.             ' 0 - 9 and Return index = KeyAscii
    
33.         Case 8
    
34.             ' Back Space and Return index = KeyAscii
    
35.         Case 13
    
36.             ' Enter and Return index = KeyAscii
    
37.         Case 46 ' รหัส Ascii Code  ของเครื่องหมายจุดครับพี่น้อง
    
38.             If InStr(Ctrl, ".") Then Index = 0 ' ใช้ฟังค์ชั่น InStr (In String) เพื่อหาเครื่องหมายจุดใน TextBox
    
39.         Case Else
    
40.             Index = 0
    
41.     End Select
    
42.     CheckCurrency = Index ' Return ค่ากลับตามที่ได้ตรวจสอบ
    
43. End Function
    
44. 
    
45. '/  แก้ปัญหาฟังค์ชั่น SendKeys ใน Windows 8 64 บิต
    
46. Public Sub Sendkeys(Text As String, Optional Wait As Boolean = False)
    
47.     Dim WshShell As Object
    
48.     Set WshShell = CreateObject("Wscript.shell")
    
49.     WshShell.Sendkeys Text, Wait
    
50.     Set WshShell = Nothing
    
51. End Sub

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

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