[VB.NET] การเช็คราคาน้ำมันประจำวัน ด้วยบริการเว็บเซอร์วิสของ ปตท.

thongkorn

เนื่องจากแอดมินกำลังรับงานโปรเจคที่เกี่ยวกับปั๊มน้ำมันอยู่ ก็เลยต้องมาหาการอ่านค่าราคาน้ำมันในแต่ละวัน เพื่อที่ผู้ใช้ไม่ต้องมากรอกเอาเอง แอดมินขออธิบายหลักการให้เข้าใจกันง่ายๆ พอเราเรียกใช้ บริการ Web Services ของทาง ปตท. ด้วยการส่งข้อมูลวันที่ออกไป (สามารถเช็คราคาในแต่ละจังหวัดได้ แต่แอดมินขออ้างอิงราคาของทางกรุงเทพฯก่อน) จากนั้นมันจะคืนค่ากลับมาในรูปแบบ XML (eXtensible Markup Language) เราต้องมาทำการแยกแยะข้อมูล (Parser) ออกมาแสดงผลในตารางกริด ... อนึ่ง โค้ดชุดนี้แอดมินเลือกใช้งานด้วยการ Add Service References ซึ่งจะใช้งานได้ง่ายกว่าการใช้ SOAP (Simple Object Access Protocol)

การเชื่อมโยงราคาน้ำมันของทาง ปตท.

การ Add Service References ...


https://www.pttor.com/OilPrice.asmx?wsdl




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

1. Public Class frmOilPricePTT
   
2. 
   
3.     Private Sub frmOilPricePTT_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Call SetupGridView(dgvData)
   
5.         dtpDatePrice.Value = Now()
   
6.     End Sub
   
7. 
   
8.     Private Sub btnGetData_Click(sender As System.Object, e As System.EventArgs) Handles btnGetData.Click
   
9.         Dim SoapClient As New OilPricePTT.OilPriceSoapClient
   
10.         Dim MyDate As DateTime = GetDate(dtpDatePrice.Text)
    
11.         '// Thailand, วันที่, เดือน, ปี
    
12.         RichTextBox1.Text = SoapClient.GetOilPrice( _
    
13.             "TH", _
    
14.             Microsoft.VisualBasic.Left(MyDate, 2), _
    
15.             Microsoft.VisualBasic.Mid(MyDate, 4, 2), _
    
16.             Microsoft.VisualBasic.Right(MyDate, 4))
    
17.         '// Binding Data Source to DataGridView
    
18.         dgvData.DataSource = ParserXML(RichTextBox1.Text)
    
19.     End Sub
    
20. 
    
21.     Function GetDate(ByVal d As DateTime) As String
    
22.         Return d.ToString("dd/MM/yyyy", New System.Globalization.CultureInfo("en-US"))
    
23.     End Function
    
24. 
    
25.     Function ParserXML(ByVal xmlDoc As String) As DataTable
    
26.         Dim dt As New Data.DataTable
    
27.         ' / เพิ่มหลัก (Columns) หรือฟิลด์ จำนวน 3 หลัก
    
28.         With dt
    
29.             .Columns.Add("PriceDate", GetType(String))
    
30.             .Columns.Add("Product", GetType(String))
    
31.             .Columns.Add("Price", GetType(Double))
    
32.         End With
    
33.         '//
    
34.         Dim doc As New XmlDocument()
    
35.         '// โหลดเอกสาร XML
    
36.         doc.LoadXml(xmlDoc)
    
37.         '// จุดเริ่มต้นของ Node
    
38.         Dim nodes As XmlNodeList = doc.DocumentElement.SelectNodes("/PTTOR_DS/FUEL")
    
39.         Dim Price_Date As String = String.Empty, Product As String = "", Price As String = ""
    
40.         For Each node As XmlNode In nodes
    
41.             Price_Date = node.SelectSingleNode("PRICE_DATE").InnerText
    
42.             Product = node.SelectSingleNode("PRODUCT").InnerText
    
43.             '// ข้อมูลบางตัวอาจจะไม่มี Element ที่ชื่อ PRICE
    
44.             If IsNothing(node.Item("PRICE")) Then
    
45.                 Price = "0.00"
    
46.             Else
    
47.                 Price = Format(CDbl(node.SelectSingleNode("PRICE").InnerText), "0.00")
    
48.             End If
    
49.             Select Case Product
    
50.                 '// กรองเอาเฉพาะประเภทที่ต้องการ
    
51.                 Case "Gasoline 95", "Diesel B7", "Gasohol 91", "Gasohol E20", "NGV", "Gasohol 95", "Gasohol E85", "Premium Diesel B7", "Diesel", "Diesel B20"
    
52.                     With dt
    
53.                         .Rows.Add(Price_Date, Product, Price)
    
54.                     End With
    
55.             End Select
    
56.         Next
    
57.         '// Return DataTable
    
58.         Return dt
    
59.     End Function
    
60. 
    
61.     Private Sub SetupGridView(ByRef DGV As DataGridView)
    
62.         With DGV
    
63.             .RowHeadersVisible = True
    
64.             .AllowUserToAddRows = False
    
65.             .AllowUserToDeleteRows = False
    
66.             .AllowUserToResizeRows = False
    
67.             .MultiSelect = False
    
68.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
69.             .ReadOnly = True
    
70.             '// Data rows
    
71.             .Font = New Font("Tahoma", 10)
    
72.             .RowTemplate.MinimumHeight = 27
    
73.             .RowTemplate.Height = 27
    
74.             '// Column Header
    
75.             .ColumnHeadersHeight = 30
    
76.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
77.             '// Autosize Column
    
78.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
79.             '// Even-Odd Color
    
80.             .AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen
    
81.             .DefaultCellStyle.SelectionForeColor = Color.White
    
82.             '// Header
    
83.             With .ColumnHeadersDefaultCellStyle
    
84.                 .BackColor = Color.Navy
    
85.                 .ForeColor = Color.White
    
86.                 .Font = New Font(DGV.Font, FontStyle.Bold)
    
87.             End With
    
88.         End With
    
89.     End Sub
    
90. 
    
91.     Private Sub RichTextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress
    
92.         '// ล็อคการกดคีย์
    
93.         e.Handled = True
    
94.     End Sub
    
95. End Class

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

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

thongkorn

เพิ่มเติมกรณีที่ต้องการเช็คราคาในแต่ละจังหวัด แอดมินยกตัวอย่าง "เมืองขอนแก่น" ... โดยเริ่มต้นการอ่านจาก <FUEL_PROVINCIAL> ...

1. <FUEL_PROVINCIAL>
   
2.     <LOCATION>เมืองขอนแก่น</LOCATION>
   
3.     <PRICE_DATE>10/16/2020 5:00:00 AM</PRICE_DATE>
   
4.     <PRODUCT>Gasoline 95</PRODUCT>
   
5.     <PRICE>29.4</PRICE>
   
6.   </FUEL_PROVINCIAL>

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

1.     Private Sub btnGetData_Click(sender As System.Object, e As System.EventArgs) Handles btnGetData.Click
   
2.         Dim SoapClient As New OilPricePTT.OilPriceSoapClient
   
3.         Dim MyDate As DateTime = GetDate(dtpDatePrice.Text)
   
4. 
   
5.         '// Thailand, วันที่, เดือน, ปี
   
6.         'RichTextBox1.Text = SoapClient.GetOilPrice( _
   
7.         '    "TH", _
   
8.         '    Microsoft.VisualBasic.Left(MyDate, 2), _
   
9.         '    Microsoft.VisualBasic.Mid(MyDate, 4, 2), _
   
10.         '    Microsoft.VisualBasic.Right(MyDate, 4))
    
11.         '// Binding Data Source to DataGridView
    
12. 
    
13.         RichTextBox1.Text = SoapClient.GetOilPriceProvincial( _
    
14.             "TH", _
    
15.             Microsoft.VisualBasic.Left(MyDate, 2), _
    
16.             Microsoft.VisualBasic.Mid(MyDate, 4, 2), _
    
17.             Microsoft.VisualBasic.Right(MyDate, 4), _
    
18.             "ขอนแก่น")
    
19.         dgvData.DataSource = ParserXMLProvince(RichTextBox1.Text)
    
20.         With dgvData.Columns(2)
    
21.             .DefaultCellStyle.Format = "0.00"
    
22.         End With
    
23.     End Sub
    
24. 
    
25.     Function ParserXMLProvince(ByVal xmlDoc As String) As DataTable
    
26.         Dim dt As New Data.DataTable
    
27.         ' / เพิ่มหลัก (Columns) หรือฟิลด์ จำนวน 3 หลัก
    
28.         With dt
    
29.             .Columns.Add("PriceDate", GetType(String))
    
30.             .Columns.Add("Product", GetType(String))
    
31.             .Columns.Add("Price", GetType(Double))
    
32.         End With
    
33.         '//
    
34.         Dim doc As New XmlDocument()
    
35.         '// โหลดเอกสาร XML
    
36.         doc.LoadXml(xmlDoc)
    
37.         '// จุดเริ่มต้นของ Node
    
38.         Dim nodes As XmlNodeList = doc.GetElementsByTagName("FUEL_PROVINCIAL")
    
39.         Dim Price_Date As String = String.Empty, Product As String = "", Price As String = ""
    
40.         For Each node As XmlNode In nodes
    
41.             If node("LOCATION").InnerText = "เมืองขอนแก่น" Then
    
42.                 Price_Date = node("PRICE_DATE").InnerText
    
43.                 Product = node("PRODUCT").InnerText
    
44.                 '// ข้อมูลบางตัวอาจจะไม่มี Element ที่ชื่อ PRICE
    
45.                 If IsNothing(node("PRICE")) Then
    
46.                     Price = "0.00"
    
47.                 Else
    
48.                     Price = Format(CDbl(node("PRICE").InnerText), "0.00")
    
49.                 End If
    
50.                 Select Case Product
    
51.                     '// กรองเอาเฉพาะประเภทที่ต้องการ
    
52.                     Case "Gasoline 95", "Diesel B7", "Gasohol 91", "Gasohol E20", "NGV", "Gasohol 95", "Gasohol E85", "Premium Diesel B7", "Diesel", "Diesel B20"
    
53.                         With dt
    
54.                             .Rows.Add(Price_Date, Product, Price)
    
55.                         End With
    
56.                 End Select
    
57.             End If
    
58.         Next
    
59.         '// Return DataTable
    
60.         Return dt
    
61.     End Function

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

Dhongpob

ขอบคุณครับ