├── wiring.png
├── code_ESP32
    ├── Wiring.fzz
    ├── Wiring.png
    ├── README.md
    ├── code_ESP32.ino
    ├── SimpleModbusMaster.h
    └── SimpleModbusMaster.cpp
├── register_list
    └── Public PM5350 v1.11.0 Register List.xls
├── LICENSE
├── code_arduino
    ├── code_arduino.ino
    ├── ronnEthernet.h
    ├── ronnModbus.h
    ├── SimpleModbusMaster.h
    └── SimpleModbusMaster.cpp
├── code_php
    ├── insert.php
    ├── css
    │   └── dashboard.css
    ├── process.php
    ├── index.php
    ├── function.php
    └── js
    │   └── bootstrap.min.js
├── README.md
├── code_arduino_video01
    ├── code_arduino_video01.ino
    ├── SimpleModbusMaster.h
    └── SimpleModbusMaster.cpp
└── database
    └── meter.sql


/wiring.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/fahroniganteng/Arduino-Schneider-Power-Logic-PM5350/HEAD/wiring.png


--------------------------------------------------------------------------------
/code_ESP32/Wiring.fzz:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/fahroniganteng/Arduino-Schneider-Power-Logic-PM5350/HEAD/code_ESP32/Wiring.fzz


--------------------------------------------------------------------------------
/code_ESP32/Wiring.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/fahroniganteng/Arduino-Schneider-Power-Logic-PM5350/HEAD/code_ESP32/Wiring.png


--------------------------------------------------------------------------------
/register_list/Public PM5350 v1.11.0 Register List.xls:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/fahroniganteng/Arduino-Schneider-Power-Logic-PM5350/HEAD/register_list/Public PM5350 v1.11.0 Register List.xls


--------------------------------------------------------------------------------
/code_ESP32/README.md:
--------------------------------------------------------------------------------
 1 | # ESP32-Schneider-Power-Logic-PM5350
 2 | Menampilkan Kwh schneider power logic PM5350 ke web via wifi dengan ESP32 - modbus RTU - RS485
 3 | 
 4 | ## Video
 5 | [![VIDEO01](http://img.youtube.com/vi/93auUo5aZIw/0.jpg)](https://youtu.be/93auUo5aZIw)
 6 | 
 7 | ## wiring
 8 | ![wiring](Wiring.png)
 9 | 
10 | ## Lisensi
11 | Kode saya gratis dibawah lisensi MIT, untuk library pendukung lain mengikuti linsensi masing-masing.
12 | 
13 | ## Dukung saya 
14 | - [Traktir kopi](https://sociabuzz.com/fahroniganteng/tribe)
15 | - [atau Es krim](https://trakteer.id/fahroniganteng/tip) 
16 | 


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 | MIT License
 2 | 
 3 | Copyright (c) 2021 fahroniganteng
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy
 6 | of this software and associated documentation files (the "Software"), to deal
 7 | in the Software without restriction, including without limitation the rights
 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 | 


--------------------------------------------------------------------------------
/code_arduino/code_arduino.ino:
--------------------------------------------------------------------------------
 1 | /*
 2 |  * ARDUINO - PM5350 (MODBUS RTU)
 3 |  * ***********************************************************************************
 4 |  * Code by : fahroni|ganteng
 5 |  * contact me : fahroniganteng@gmail.com
 6 |  * Date : feb 2021
 7 |  * License :  MIT
 8 |  * 
 9 |  */
10 | 
11 | 
12 | 
13 | // FOR DEBUGING ONLY
14 | // ```````````````````````
15 | // NOTE : Pins 0 and 1 also used for modbus communication ==> enable (DEBUG) only when needed
16 | #define DEBUG 0 // set 1 to enable debuging
17 | #if DEBUG
18 |   #define PRINT(s)    { Serial.print(s); }
19 |   #define PRINTLN(s)  { Serial.println(s); }
20 | #else
21 |   #define PRINT(s)
22 |   #define PRINTLN(s)
23 | #endif
24 | 
25 | // fn get size of int array
26 | // ````````````````````````````
27 | #define ARRSIZE(x)   (sizeof(x) / sizeof(x[0]))
28 | 
29 | #include <SPI.h>
30 | #include <Ethernet.h>
31 | #include "ronnModbus.h"
32 | #include "ronnEthernet.h"
33 | 
34 | unsigned long timer;
35 | 
36 | void setup(){
37 |   modbusInit();
38 |   ethernetInit();
39 |   delay(1000);
40 | }
41 | 
42 | void loop(){
43 |   connection_status = modbus_update(packets);
44 |   // Send every 5000ms
45 |   if(millis() - timer >= 5000 || timer > millis()){
46 |     timer = millis();
47 |     modbusData();   // update data modbus convert to float
48 |     sendToServer(); // send to server over HTTP request (POST)
49 |   }
50 | }
51 | 


--------------------------------------------------------------------------------
/code_php/insert.php:
--------------------------------------------------------------------------------
 1 | <?php
 2 | /*
 3 |  * INSERT DATA (to MySQL) - Arduino PM5350
 4 |  * ***********************************************************************************
 5 |  * Code by : fahroni|ganteng
 6 |  * contact me : fahroniganteng@gmail.com
 7 |  * Date : feb 2021
 8 |  * License :  MIT
 9 |  * 
10 |  */
11 |  
12 | include_once "function.php";
13 | 
14 | class insertData extends ronn{
15 | 	function  __construct(){
16 | 		// check basic auth
17 | 		if (!isset($_SERVER['PHP_AUTH_USER'])) {
18 | 			header('WWW-Authenticate: Basic realm="My Realm"');
19 | 			header('HTTP/1.0 401 Unauthorized');
20 | 			$this->retErr('have no access...');
21 | 		}
22 | 		// check user & password
23 | 		else if($_SERVER['PHP_AUTH_USER']!='fahroni' || $_SERVER['PHP_AUTH_PW'] != 'ganteng'){
24 | 			$this->retErr('not registered...');
25 | 		}
26 | 		// start db connection, sorry function name is verification ==> for check request on process.php ^___^
27 | 		else if($this->verification('saveData')){
28 | 			$this->saveData();
29 | 		}
30 | 	}
31 | 	private function saveData() {
32 | 		//check required http request (POST)
33 | 		$this->checkRequiredInput(['id','dt']);
34 | 		
35 | 		// validate data
36 | 		if($this->isJson($this->dt['dt'])){
37 | 			$arrDt = json_decode($this->dt['dt'], true);
38 | 			$query = "CALL `insert_rec`(SYSDATE(),'{$this->dt['id']}'," . implode(',',$arrDt) . ")";
39 | 			$this->db_query($query);
40 | 			$this->retData('success');
41 | 		}
42 | 		else $this->retErr('not registered...');
43 | 	}
44 | 	private function isJson($string) {
45 | 		json_decode($string);
46 | 		return (json_last_error() == JSON_ERROR_NONE);
47 | 	}
48 | }
49 | new insertData();
50 | 
51 | ?>


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # Arduino-Schneider-Power-Logic-PM5350
 2 | 
 3 | Share a project to record the Schneider-Power-Logic-PM5350 data to database (MySql).
 4 | 
 5 | ## Video
 6 | All video in indonesian language.
 7 | #### Video 01 : Communication and wiring
 8 | [![VIDEO01](http://img.youtube.com/vi/SQy2AJfB5v8/0.jpg)](https://youtu.be/SQy2AJfB5v8)
 9 | > code in video01 can be found in folder code_arduino_video01 
10 | > 
11 | #### Video 02 : Application Demo
12 | [![VIDEO01](http://img.youtube.com/vi/AGjSCudvQ30/0.jpg)](https://youtu.be/AGjSCudvQ30)
13 | 
14 | #### Video 03 : Installation guide
15 | [![VIDEO01](http://img.youtube.com/vi/jyJJ7BVtf-0/0.jpg)](https://youtu.be/jyJJ7BVtf-0)
16 | 
17 | #### Video 04 : Menampilkan pembacaan PM5350 ke web via wifi dengan ESP32 
18 | [![VIDEO01](http://img.youtube.com/vi/93auUo5aZIw/0.jpg)](https://youtu.be/93auUo5aZIw)
19 | 
20 | ## Hardware required
21 | - Schneider-Power-Logic-PM5350
22 | - Server (PHP & MySQL)
23 | - Arduino UNO
24 | - Ethernet shield for arduino UNO
25 | - Converter RS484 to UART
26 | 
27 | ## Communication
28 | - Schneider-Power-Logic-PM5350 to arduino using modbus RTU (via RS485)
29 | - Arduino to server using http request (via ethernet cable)
30 | > Check video 01 for detail   
31 | 
32 | ## Wiring
33 | ![wiring](wiring.png)
34 | >  Check video 01 & 02 for detail   
35 | 
36 | 
37 | ## License and credits
38 | My code under MIT license, other libraries follow their own license.
39 | - SimpleModbusMaster.h https://github.com/angeloc/simplemodbusng
40 | - jQuery.js https://jquery.org/license/
41 | - Bootstrap https://getbootstrap.com/
42 | - etc...
43 | 
44 | ## Donation  
45 | Support me  
46 | - [Send me coffee](https://sociabuzz.com/fahroniganteng/tribe)
47 | - [or maybe ice cream](https://trakteer.id/fahroniganteng/tip) 
48 | 


--------------------------------------------------------------------------------
/code_arduino_video01/code_arduino_video01.ino:
--------------------------------------------------------------------------------
 1 | #include "SimpleModbusMaster.h"
 2 | 
 3 | #define connection_error_led 13
 4 | 
 5 | 
 6 | #define baud 19200
 7 | #define timeout 1000
 8 | #define polling 200 // the scan rate
 9 | 
10 | #define retry_count 10 
11 | 
12 | // used to toggle the receive/transmit pin on the driver
13 | #define TxEnablePin 0 
14 | 
15 | enum
16 | {
17 |   PACKET1,
18 |   //PACKET2,
19 |   // leave this last entry
20 |   TOTAL_NO_OF_PACKETS
21 | };
22 | 
23 | // Create an array of Packets for modbus_update()
24 | Packet packets[TOTAL_NO_OF_PACKETS];
25 | 
26 | packetPointer packet1 = &packets[PACKET1];
27 | 
28 | unsigned int volt[2];
29 | 
30 | unsigned long timer;
31 | 
32 | float f_2uint_float(unsigned int uint1, unsigned int uint2) {    // reconstruct the float from 2 unsigned integers
33 | 
34 |   union f_2uint {
35 |     float f;
36 |     uint16_t i[2];
37 |   };
38 | 
39 |   union f_2uint f_number;
40 |   f_number.i[0] = uint1;
41 |   f_number.i[1] = uint2;
42 | 
43 |   return f_number.f;
44 | 
45 | }
46 | 
47 | 
48 | void setup()
49 | {
50 |   // read 3 registers starting at address 0
51 |   packet1->id = 1;
52 |   packet1->function = READ_HOLDING_REGISTERS;
53 |   packet1->address = 3027;
54 |   packet1->no_of_registers = 2;
55 |   packet1->register_array = volt;
56 |   
57 |   modbus_configure(baud, timeout, polling, retry_count, TxEnablePin, packets, TOTAL_NO_OF_PACKETS);
58 |   
59 |   pinMode(connection_error_led, OUTPUT);
60 |   timer = millis();
61 | }
62 | 
63 | 
64 | 
65 | void loop()
66 | {
67 |   unsigned int connection_status = modbus_update(packets);
68 |   
69 |   if (connection_status != TOTAL_NO_OF_PACKETS)
70 |   {
71 |     digitalWrite(connection_error_led, HIGH);
72 |   }
73 |   else
74 |     digitalWrite(connection_error_led, LOW);
75 |   
76 |   long newTimer = millis();
77 |   if(newTimer -  timer >= 5000){
78 |     Serial.println();
79 |     Serial.print("VOLTAGE : ");
80 | //    Serial.println(volt[0]);
81 | //    Serial.print("REGISTER 3028 : ");
82 | //    Serial.println(volt[1]);
83 | 
84 |     Serial.println(f_2uint_float(volt[1],volt[0]));
85 |     timer = newTimer;
86 |   }
87 | 
88 |   
89 | }
90 | 


--------------------------------------------------------------------------------
/code_php/css/dashboard.css:
--------------------------------------------------------------------------------
  1 | body {
  2 |   font-size: .875rem;
  3 | }
  4 | 
  5 | .feather {
  6 |   width: 16px;
  7 |   height: 16px;
  8 |   vertical-align: text-bottom;
  9 | }
 10 | 
 11 | /*
 12 |  * Sidebar
 13 |  */
 14 | 
 15 | .sidebar {
 16 |   position: fixed;
 17 |   top: 0;
 18 |   bottom: 0;
 19 |   left: 0;
 20 |   z-index: 100; /* Behind the navbar */
 21 |   padding: 48px 0 0; /* Height of navbar */
 22 |   box-shadow: inset -1px 0 0 rgba(0, 0, 0, .1);
 23 | }
 24 | 
 25 | @media (max-width: 767.98px) {
 26 |   .sidebar {
 27 |     top: 5rem;
 28 |   }
 29 | }
 30 | 
 31 | .sidebar-sticky {
 32 |   position: relative;
 33 |   top: 0;
 34 |   height: calc(100vh - 48px);
 35 |   padding-top: .5rem;
 36 |   overflow-x: hidden;
 37 |   overflow-y: auto; /* Scrollable contents if viewport is shorter than content. */
 38 | }
 39 | 
 40 | @supports ((position: -webkit-sticky) or (position: sticky)) {
 41 |   .sidebar-sticky {
 42 |     position: -webkit-sticky;
 43 |     position: sticky;
 44 |   }
 45 | }
 46 | 
 47 | .sidebar .nav-link {
 48 |   font-weight: 500;
 49 |   color: #333;
 50 | }
 51 | 
 52 | .sidebar .nav-link .feather {
 53 |   margin-right: 4px;
 54 |   color: #999;
 55 | }
 56 | 
 57 | .sidebar .nav-link.active {
 58 |   color: #007bff;
 59 | }
 60 | 
 61 | .sidebar .nav-link:hover .feather,
 62 | .sidebar .nav-link.active .feather {
 63 |   color: inherit;
 64 | }
 65 | 
 66 | .sidebar-heading {
 67 |   font-size: .75rem;
 68 |   text-transform: uppercase;
 69 | }
 70 | 
 71 | /*
 72 |  * Navbar
 73 |  */
 74 | 
 75 | .navbar-brand {
 76 |   padding-top: .75rem;
 77 |   padding-bottom: .75rem;
 78 |   font-size: 1rem;
 79 |   background-color: rgba(0, 0, 0, .25);
 80 |   box-shadow: inset -1px 0 0 rgba(0, 0, 0, .25);
 81 | }
 82 | 
 83 | .navbar .navbar-toggler {
 84 |   top: .25rem;
 85 |   right: 1rem;
 86 | }
 87 | 
 88 | .navbar .form-control {
 89 |   padding: .75rem 1rem;
 90 |   border-width: 0;
 91 |   border-radius: 0;
 92 | }
 93 | 
 94 | .form-control-dark {
 95 |   color: #fff;
 96 |   background-color: rgba(255, 255, 255, .1);
 97 |   border-color: rgba(255, 255, 255, .1);
 98 | }
 99 | 
100 | .form-control-dark:focus {
101 |   border-color: transparent;
102 |   box-shadow: 0 0 0 3px rgba(255, 255, 255, .25);
103 | }
104 | 


--------------------------------------------------------------------------------
/code_arduino/ronnEthernet.h:
--------------------------------------------------------------------------------
 1 | /*
 2 |  * SEND DATA PM5350 TO SERVER (with ETEHERNET SHIELD)
 3 |  * ***********************************************************************************
 4 |  * Code by : fahroni|ganteng
 5 |  * contact me : fahroniganteng@gmail.com
 6 |  * Date : feb 2021
 7 |  * License :  MIT
 8 |  * 
 9 |  * 
10 |  * NOTE:
11 |  * ```````````````````````````````````````````````````````````````
12 |  * Make sure to change DEVICE_ID, IP and MAC address of each device
13 |  * This code uses static IP, for DHCP check on ethernet/webClient example (in arduino IDE)
14 |  */
15 | 
16 | 
17 | IPAddress ip(10, 7, 35, 101);
18 | IPAddress myDns(192,168,15,15);
19 | IPAddress SERVER(10,7,35,100); // SERVER IP OR DOMAIN ==> check example Ethernet/webClient (Arduino IDE)
20 | String DEVICE_ID   = "METER01";
21 | byte mac[] = { 0xDE, 0xAD, 0xBE, 0xEF, 0xFE, 0xED };
22 | 
23 | 
24 | 
25 | 
26 | EthernetClient client;
27 | 
28 | void ethernetInit(){
29 |   Ethernet.begin(mac, ip, myDns);
30 |   if (Ethernet.linkStatus() == LinkOFF) {
31 |     Serial.println("Ethernet cable is not connected.");
32 |   }
33 |   Serial.print("IP : ");
34 |   Serial.println(Ethernet.localIP());
35 | }
36 | void sendToServer(){
37 |   String POST_DATA = "id="+DEVICE_ID;
38 |   POST_DATA += "&dt=[";
39 |   for(int i=0; i<35; i++){
40 |     POST_DATA +=  String(meterData[i]) + ",";
41 |   }
42 |   POST_DATA[POST_DATA.length() - 1] = ']';
43 |   PRINTLN(POST_DATA);
44 |   PRINT("connecting to ");
45 |   PRINT(SERVER);
46 |   PRINTLN("...");
47 |   if(client.connect(SERVER, 80)) {
48 |     PRINTLN("Connected to server");
49 |     client.println("POST /meter/insert.php HTTP/1.1");
50 |     client.println("Host: 10.7.35.100"); // <== MAKE SURE SET THIS SERVER IP OR DOMAIN WEB
51 |     client.println("Authorization: Basic ZmFocm9uaTpnYW50ZW5n"); //this is basic http auth. (for security) ==> check on PHP code to generate, or you can find online generator on internet.
52 |     client.println("User-Agent: Arduino/1.0");
53 |     client.println("Connection: close");
54 |     client.println("Content-Type: application/x-www-form-urlencoded;");
55 |     client.print("Content-Length: ");
56 |     client.println(POST_DATA.length());
57 |     client.println();
58 |     client.println(POST_DATA);
59 |     
60 |     while(client.connected()) {
61 |       if(client.available()){
62 |         char c = client.read();
63 |         Serial.print(c);
64 |       }
65 |     }
66 |     Serial.println();
67 |     client.stop();
68 |     PRINTLN();
69 |     PRINTLN("disconnected");
70 |     PRINTLN();
71 |   } else {
72 |     Serial.println("\nFail Connect to web server...");
73 |   }
74 | }
75 | 


--------------------------------------------------------------------------------
/code_ESP32/code_ESP32.ino:
--------------------------------------------------------------------------------
  1 | #include "SimpleModbusMaster.h"
  2 | #include <WiFi.h>
  3 | #include <WiFiClient.h>
  4 | #include <WebServer.h>
  5 | #include <ESPmDNS.h>
  6 | 
  7 | 
  8 | /**
  9 |  * CODE RS485
 10 |  * --------------------------------------
 11 |  */
 12 | #define baud 19200
 13 | #define timeout 1000
 14 | #define polling 200 // the scan rate
 15 | #define retry_count 10 
 16 | 
 17 | // used to toggle the receive/transmit pin on the driver
 18 | #define TxEnablePin 0 
 19 | 
 20 | enum
 21 | {
 22 |   PACKET1,
 23 |   //PACKET2,
 24 |   // leave this last entry
 25 |   TOTAL_NO_OF_PACKETS
 26 | };
 27 | 
 28 | // Create an array of Packets for modbus_update()
 29 | Packet packets[TOTAL_NO_OF_PACKETS];
 30 | packetPointer packet1 = &packets[PACKET1];
 31 | unsigned int volt[2];
 32 | unsigned long timer;
 33 | float tegangan = 0;
 34 | float f_2uint_float(unsigned int uint1, unsigned int uint2) {    // reconstruct the float from 2 unsigned integers
 35 |   union f_2uint {
 36 |     float f;
 37 |     uint16_t i[2];
 38 |   };
 39 |   union f_2uint f_number;
 40 |   f_number.i[0] = uint1;
 41 |   f_number.i[1] = uint2;
 42 |   return f_number.f;
 43 | }
 44 | 
 45 | /**
 46 |  * CODE WEB
 47 |  * ---------------------------------
 48 |  */
 49 | 
 50 | const char *ssid = "fahroni";
 51 | const char *password = "ganteng_";
 52 | WebServer server(80);
 53 | 
 54 | void handleRoot() {
 55 |   char temp[400];
 56 |   snprintf(temp, 400,
 57 |     "<html>\
 58 |       <head>\
 59 |         <meta http-equiv='refresh' content='1'/>\
 60 |         <title>ESP32 Demo</title>\
 61 |         <style>\
 62 |           body { background-color: #cccccc; font-family: Arial, Helvetica, Sans-Serif; Color: #000088; }\
 63 |         </style>\
 64 |       </head>\
 65 |       <body>\
 66 |         <h1>Tegangan : %.2f</h1>\
 67 |       </body>\
 68 |     </html>",
 69 |    tegangan);
 70 |   server.send(200, "text/html", temp);
 71 | }
 72 | 
 73 | void setup(){
 74 |   Serial.begin(115200);
 75 |   
 76 |   // CODE RS485
 77 |   //--------------------------------
 78 |   // read 3 registers starting at address 0
 79 |   packet1->id = 1;
 80 |   packet1->function = READ_HOLDING_REGISTERS;
 81 |   packet1->address = 3027;
 82 |   packet1->no_of_registers = 2;
 83 |   packet1->register_array = volt;
 84 |   
 85 |   modbus_configure(baud, timeout, polling, retry_count, TxEnablePin, packets, TOTAL_NO_OF_PACKETS);
 86 |   
 87 |   pinMode(LED_BUILTIN, OUTPUT);
 88 |   timer = millis();
 89 | 
 90 |   // CODE WEB
 91 |   // ------------------------------------------
 92 |   WiFi.mode(WIFI_STA);
 93 |   WiFi.begin(ssid, password);
 94 |   Serial.println("");
 95 | 
 96 |   // Wait for connection
 97 |   while (WiFi.status() != WL_CONNECTED) {
 98 |     delay(500);
 99 |     Serial.print(".");
100 |   }
101 | 
102 |   Serial.println("");
103 |   Serial.print("Connected to ");
104 |   Serial.println(ssid);
105 |   Serial.print("IP address: ");
106 |   Serial.println(WiFi.localIP());
107 | 
108 |   if (MDNS.begin("esp32")) {
109 |     Serial.println("MDNS responder started");
110 |   }
111 | 
112 |   server.on("/", handleRoot);
113 |   server.begin();
114 |   Serial.println("HTTP server started");
115 | }
116 | 
117 | void loop(){
118 |   unsigned int connection_status = modbus_update(packets);
119 |   if (connection_status != TOTAL_NO_OF_PACKETS)
120 |     digitalWrite(LED_BUILTIN, HIGH);
121 |   else
122 |     digitalWrite(LED_BUILTIN, LOW);
123 |     
124 |   long newTimer = millis();
125 |   if(newTimer -  timer >= 1000){
126 |     Serial.println();
127 |     Serial.print("VOLTAGE : ");
128 |     tegangan = f_2uint_float(volt[1],volt[0]);
129 |     Serial.println(tegangan);
130 |     timer = newTimer;
131 |   }
132 | 
133 |   // web handle
134 |   server.handleClient();
135 | }
136 | 


--------------------------------------------------------------------------------
/code_php/process.php:
--------------------------------------------------------------------------------
  1 | <?php
  2 | /*
  3 |  * EXAMPLE DASHBOARD - Arduino PM5350
  4 |  * ***********************************************************************************
  5 |  * Code by : fahroni|ganteng
  6 |  * contact me : fahroniganteng@gmail.com
  7 |  * Date : feb 2021
  8 |  * License :  MIT
  9 |  * 
 10 |  */
 11 |  
 12 |  
 13 | include_once "function.php";
 14 | class process extends ronn{
 15 | 	public function __construct($request){
 16 | 		if($this->verification($request)){
 17 | 			$request = str_replace(' ', '', $request);// remove all space on request
 18 | 			$this->req 	= $request;
 19 | 			$this->$request();
 20 | 		}
 21 |     }
 22 | 	private function generateAuth(){
 23 | 		$this->checkRequiredInput(['User','Password']);
 24 | 		$this->data = '
 25 | 			<div class="mt-2 bg-secondary p-2">
 26 | 				<code class="text-light" style="font-size:14px">
 27 | 				User : '.$this->dt['User'].'<br>
 28 | 				Pass : '.$this->dt['Password'].'<br><br>
 29 | 				CODE : <br>
 30 | 				Authorization: Basic '.base64_encode("{$this->dt['User']}:{$this->dt['Password']}").'
 31 | 				</code>
 32 | 			</div>
 33 | 		';
 34 | 		$this->retData();
 35 | 	}
 36 | 	private function getPage(){
 37 | 		$this->checkRequiredInput(['pageRequest']);
 38 | 		$pageReq = $this->dt['pageRequest'];
 39 | 		switch ($pageReq){
 40 | 			case 'Real Time':
 41 | 				$this->data .= '<h5 id="idForCheckRefresh"><span>Real Time Recording</span><small class="text-secondary"> auto refresh every 5 second</small></h5>';
 42 | 				$this->makeList('view_real_time');
 43 | 				break;
 44 | 			case 'Record avg 15m':
 45 | 				$this->data .= '<h5><span>Average every 15 minutes</span><small class="text-secondary"> only display 100 record max --> lazy create paging page... ^___^</small></h5>';
 46 | 				$this->makeTable('view_15m');
 47 | 				break;
 48 | 			case 'Basic Auth Generator':
 49 | 				$this->data .= '
 50 | 				<form onsubmit="ronn.generateAuth(this);return false;">
 51 | 				  <div class="form-group row">
 52 | 					<label for="User" class="col-sm-2 col-form-label">User</label>
 53 | 					<div class="col-sm-10">
 54 | 						<input type="text" class="form-control" id="User" placeholder="Enter user">
 55 | 					</div>
 56 | 				  </div>
 57 | 				  <div class="form-group row">
 58 | 					<label for="Password" class="col-sm-2 col-form-label">Password</label>
 59 | 					<div class="col-sm-10">
 60 | 						<input type="text" class="form-control" id="Password" placeholder="Secret Password">
 61 | 					</div>
 62 | 				  </div>
 63 | 				  <div class="text-secondary">
 64 | 					This is tool for make http basic authentication in arduino code (security issue).
 65 | 				  </div>
 66 | 				  <div id="authCode"></div>
 67 | 				  <button type="submit" class="btn btn-primary mt-4">GENERATE</button>
 68 | 				</form>
 69 | 				';
 70 | 				break;
 71 | 			case 'About this App':
 72 | 				$this->data = '
 73 | 					<div class="card text-white bg-dark">
 74 | 					  <div class="card-header">About</div>
 75 | 					  <div class="card-body">
 76 | 						<h5 class="card-title">PM5350 Recording</h5>
 77 | 						<p class="card-text">
 78 | 							This is just a sample application for displaying PM5350 recordings.<br>
 79 | 							You need arduino to get data from PM5350 with modbus RTU protocol.<br>
 80 | 							For detail, check out my repo on github or my youtube channel.
 81 | 						</p>
 82 | 						<ul class="list-group list-group-flush">
 83 | 							<li class="list-group-item text-white bg-dark py-1">Code by : fahroni|ganteng</li>
 84 | 							<li class="list-group-item text-white bg-dark py-1">Contact me : fahroniganteng@gmail.com</li>
 85 | 							<li class="list-group-item text-white bg-dark py-1">Date : Feb 2021</li>
 86 | 							<li class="list-group-item text-white bg-dark py-1">License : MIT</li>
 87 | 						</ul>
 88 | 						<a href="https://www.youtube.com/channel/UCC5ulau9sAq7zcJ9rsAXWYQ" class="btn btn-danger float-right mt-5 mx-1" target="_blank">YouTube Channel</a>
 89 | 						<a href="https://github.com/fahroniganteng" class="btn btn-primary float-right mt-5 mx-1" target="_blank">Fork me on GitHub</a>
 90 | 					  </div>
 91 | 					</div>
 92 | 				';
 93 | 				break;
 94 | 			default :
 95 | 				$this->data .= 'Yeah, page not found...';
 96 | 				break;
 97 | 		}
 98 | 		$this->retData();
 99 | 	}
100 | }
101 | 
102 | $request=isset($_POST['id'])?$_POST['id']:"UNKNOWN_REQUEST_________________________________________";
103 | new process($request);
104 | ?>


--------------------------------------------------------------------------------
/code_arduino/ronnModbus.h:
--------------------------------------------------------------------------------
  1 | /*
  2 |  * GET DATA FROM PM5350 (MODBUS RTU)
  3 |  * ***********************************************************************************
  4 |  * Code by : fahroni|ganteng
  5 |  * contact me : fahroniganteng@gmail.com
  6 |  * Date : feb 2021
  7 |  * License :  MIT
  8 |  * 
  9 |  */
 10 | 
 11 | 
 12 | #include "Arduino.h"
 13 | #include "SimpleModbusMaster.h"
 14 | 
 15 | 
 16 | // NOTE 
 17 | // `````````````````````````````````````````````````````````````````````````````````````
 18 | // To change serial config (data bit, parity, & stop bit) go to "SimpleModbusMaster.cpp" on line 355 
 19 | // arduino default config : SERIAL_8N1
 20 | // PM5350 default config : SERIAL_8E1
 21 | // ref : https://www.arduino.cc/reference/en/language/functions/communication/serial/begin/
 22 | 
 23 | #define baud 19200
 24 | #define timeout 1000
 25 | #define polling 200 // the scan rate
 26 | 
 27 | 
 28 | #define retry_count 10 
 29 | #define TxEnablePin 0 // pin 0 & pin 1 are reserved for RX/TX. To disable set _TxEnablePin < 2 
 30 | 
 31 | unsigned int connection_status;
 32 | 
 33 | 
 34 | 
 35 | // PACKET MAPPING
 36 | // ``````````````````````````````
 37 | // Check on register list of PM5350 :
 38 | // https://www.se.com/id/en/download/document/Public+PM5350+v1.11.0+Register+List/
 39 | unsigned int data1[12]; // current       ==> 2999 - 3010
 40 | unsigned int data2[18]; // voltage       ==> 3019 - 3036
 41 | unsigned int data3[24]; // power         ==> 3053 - 3076
 42 | unsigned int data4[16]; // Power Factor  ==> 3077 - 3092
 43 | unsigned int data5[2];  // frequancy     ==> 3109 - 3110
 44 | 
 45 | enum{
 46 |   PACKET1,
 47 |   PACKET2,
 48 |   PACKET3,
 49 |   PACKET4,
 50 |   PACKET5,
 51 |   TOTAL_NO_OF_PACKETS // leave this last entry
 52 | };
 53 | 
 54 | Packet packets[TOTAL_NO_OF_PACKETS];
 55 | packetPointer packet1 = &packets[PACKET1];
 56 | packetPointer packet2 = &packets[PACKET2];
 57 | packetPointer packet3 = &packets[PACKET3];
 58 | packetPointer packet4 = &packets[PACKET4];
 59 | packetPointer packet5 = &packets[PACKET5];
 60 | 
 61 | 
 62 | 
 63 | // MODBUS INIT
 64 | // `````````````````````````````````````````
 65 | void modbusInit(){
 66 |   packet1->id = 1;
 67 |   packet1->function = READ_HOLDING_REGISTERS;
 68 |   packet1->address = 2999;
 69 |   packet1->no_of_registers = ARRSIZE(data1);
 70 |   packet1->register_array = data1;
 71 | 
 72 |   packet2->id = 1;
 73 |   packet2->function = READ_HOLDING_REGISTERS;
 74 |   packet2->address = 3019;
 75 |   packet2->no_of_registers = ARRSIZE(data2);
 76 |   packet2->register_array = data2;
 77 | 
 78 |   packet3->id = 1;
 79 |   packet3->function = READ_HOLDING_REGISTERS;
 80 |   packet3->address = 3053;
 81 |   packet3->no_of_registers = ARRSIZE(data3);
 82 |   packet3->register_array = data3;
 83 | 
 84 |   packet4->id = 1;
 85 |   packet4->function = READ_HOLDING_REGISTERS;
 86 |   packet4->address = 3077;
 87 |   packet4->no_of_registers = ARRSIZE(data4);
 88 |   packet4->register_array = data4;
 89 | 
 90 |   packet5->id = 1;
 91 |   packet5->function = READ_HOLDING_REGISTERS;
 92 |   packet5->address = 3109;
 93 |   packet5->no_of_registers = ARRSIZE(data5);
 94 |   packet5->register_array = data5;
 95 |   
 96 |   modbus_configure(baud, timeout, polling, retry_count, TxEnablePin, packets, TOTAL_NO_OF_PACKETS);  
 97 | }
 98 | 
 99 | 
100 | 
101 | 
102 | // CONVERT DATA MODBUS TO FLOAT 
103 | // ```````````````````````````````
104 | union f_2uint { // CONVERT REGISTER TO FLOAT ==> I got this function from : https://industruino.com/blog/our-news-1/post/modbus-tips-for-industruino-26#blog_content
105 |   float f;
106 |   uint16_t i[2];
107 | };
108 | union f_2uint f_number;
109 | 
110 | float meterData[35]; // converted registers (float) will be stored here and send to server with http request
111 | unsigned int meterIndex;
112 | 
113 | void convertData(Packet* pc, unsigned int dt[]){
114 |   for(unsigned int i=0;i<pc->no_of_registers;i++){
115 |     //RINTLN(String(pc->address+i)+" : "+String(data2[i]));
116 |     if(pc->address + i == 3034)continue; // 3034 not use ==> check on PM5350 register list
117 |     if((pc->address + i) % 2 == 0){ //Get even register ==> all register on list usage even
118 |       f_number.i[0] = dt[i];
119 |       f_number.i[1] = dt[i-1];
120 |       meterData[meterIndex] = isnan(f_number.f)?0:f_number.f;
121 |       PRINTLN(String(pc->address+i)+" : "+String(meterData[meterIndex]));
122 |       meterIndex++;
123 |     }
124 |   }
125 | }
126 | void modbusData(){
127 |   //if (connection_status != TOTAL_NO_OF_PACKETS)
128 |     //Serial.println("\nModbus packet not valid...");
129 |    
130 |   PRINTLN("\nREGISTER DATA :");
131 |   meterIndex = 0;
132 |   convertData(packet1,data1);
133 |   convertData(packet2,data2);
134 |   convertData(packet3,data3);
135 |   convertData(packet4,data4);
136 |   convertData(packet5,data5);
137 | }
138 | 


--------------------------------------------------------------------------------
/code_php/index.php:
--------------------------------------------------------------------------------
  1 | <?php
  2 | /*
  3 |  * EXAMPLE DASHBOARD - Arduino PM5350
  4 |  * ***********************************************************************************
  5 |  * Code by : fahroni|ganteng
  6 |  * contact me : fahroniganteng@gmail.com
  7 |  * Date : feb 2021
  8 |  * License :  MIT
  9 |  * 
 10 |  */
 11 | ?>
 12 | 
 13 | <!doctype html>
 14 | <html lang="en">
 15 |   <head>
 16 |     <meta charset="utf-8">
 17 |     <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
 18 |     <title>Arduino - PM5350</title>
 19 |     <link rel="stylesheet" href="css/bootstrap.min.css">
 20 |     <style>
 21 |       .bd-placeholder-img {
 22 |         font-size: 1.125rem;
 23 |         text-anchor: middle;
 24 |         -webkit-user-select: none;
 25 |         -moz-user-select: none;
 26 |         -ms-user-select: none;
 27 |         user-select: none;
 28 |       }
 29 | 
 30 |       @media (min-width: 768px) {
 31 |         .bd-placeholder-img-lg {
 32 |           font-size: 3.5rem;
 33 |         }
 34 |       }
 35 |     </style>
 36 |     <link href="css/dashboard.css" rel="stylesheet">
 37 |   </head>
 38 |   <body>
 39 | 	<nav class="navbar navbar-dark sticky-top bg-dark flex-md-nowrap p-0 shadow">
 40 | 		<a class="navbar-brand col-md-3 col-lg-2 mr-0 px-3" href="#">Arduino - PM5350</a>
 41 | 		<button class="navbar-toggler position-absolute d-md-none collapsed" type="button" data-toggle="collapse" data-target="#sidebarMenu" aria-controls="sidebarMenu" aria-expanded="false" aria-label="Toggle navigation">
 42 | 			<span class="navbar-toggler-icon"></span>
 43 | 		</button>
 44 | 		<ul class="navbar-nav px-3">
 45 | 			<li class="nav-item text-nowrap">
 46 | 				<a class="nav-link" href="#">this is a sample app for displaying recording</a>
 47 | 			</li>
 48 | 		</ul>
 49 | 	</nav>
 50 | 
 51 | <div class="container-fluid">
 52 |   <div class="row">
 53 |     <nav id="sidebarMenu" class="col-md-3 col-lg-2 d-md-block bg-light sidebar collapse">
 54 |       <div class="sidebar-sticky pt-3">
 55 |         <ul class="nav flex-column">
 56 |           <li class="nav-item">
 57 |             <a class="nav-link active" href="#">Real Time</a>
 58 |           </li>
 59 |           <li class="nav-item">
 60 |             <a class="nav-link" href="#">Record avg 15m</a>
 61 |           </li>
 62 |         </ul>
 63 | 
 64 |         <h6 class="sidebar-heading d-flex justify-content-between align-items-center px-3 mt-4 mb-1 text-muted">
 65 |           <span>Tool</span>
 66 |         </h6>
 67 |         <ul class="nav flex-column mb-2">
 68 |           <li class="nav-item">
 69 |             <a class="nav-link" href="#">Basic Auth Generator</a>
 70 |           </li>
 71 |         </ul>
 72 | 		
 73 | 		<h6 class="sidebar-heading d-flex justify-content-between align-items-center px-3 mt-4 mb-1 text-muted">
 74 |           <span>INFO</span>
 75 |         </h6>
 76 |         <ul class="nav flex-column mb-2">
 77 |           <li class="nav-item">
 78 |             <a class="nav-link" href="#">About this App</a>
 79 |           </li>
 80 |         </ul>
 81 | 		
 82 |       </div>
 83 |     </nav>
 84 | 
 85 |     <main role="main" class="col-md-9 ml-sm-auto col-lg-10 px-md-4">
 86 |       <div class="d-flex justify-content-between flex-wrap flex-md-nowrap align-items-center pt-3 pb-2 mb-3 border-bottom">
 87 |         <h2 class="mb-0">Loading...</h2>
 88 |       </div>
 89 | 	  <div id="content" class="overflow-auto">Plz wait, load html data...</div>
 90 |     </main>
 91 |   </div>
 92 | </div>
 93 | <script src="js/jquery.min.js"></script>
 94 | <script src="js/bootstrap.min.js"></script>
 95 | <script>
 96 | 	var timerRefresh;
 97 | 	var ronn = {
 98 | 		init : ()=>{
 99 | 			$(document).on('click','.sidebar-sticky li>a',function() {
100 | 				$(this).closest('nav').find('li>a').removeClass('active');
101 | 				$(this).addClass('active');
102 | 				let req = $(this).text();//request
103 | 				ronn.getPage(req,false);
104 | 				return false;
105 | 			});
106 | 			$('.sidebar-sticky li>a.active').trigger('click');
107 | 		},
108 | 		getPage : (req,update)=>{
109 | 			clearTimeout(timerRefresh);
110 | 			if(!update){
111 | 				$('main h2').html(req);
112 | 				$('#content').html('Loading...');
113 | 			}
114 | 			$.ajax({  
115 | 				type    : "POST",  
116 | 				url     : "process.php",
117 | 				data    : {
118 | 					id			: 'getPage',
119 | 					pageRequest	: req
120 | 				}
121 | 			}).done(function(dt){
122 | 				$('#content').html(dt);
123 | 				if($('#idForCheckRefresh').length)// page 'Real Time' active
124 | 					timerRefresh = setTimeout(function(){ronn.getPage(req,true)},5000);
125 | 			}).fail(function(msg){
126 | 				$('#content').html('Failed to get content...');
127 | 				alert(msg.status+"\n"+msg.statusText);
128 | 				if($('#idForCheckRefresh').length)// page 'Real Time' active
129 | 					timerRefresh = setTimeout(function(){ronn.getPage(req,true)},5000);
130 | 			});
131 | 		},
132 | 		generateAuth : (self)=>{
133 | 			$('#authCode').html('Loading...');
134 | 			$(self).find('button').attr('disabled','disabled');
135 | 			let postData = { id : 'generateAuth'};
136 | 			$(self).find(".form-control").each(function(){
137 | 				postData[$(this).attr('id')] = $(this).val();
138 | 			});
139 | 			$.ajax({  
140 | 				type    : "POST",  
141 | 				url     : "process.php",
142 | 				data    : postData
143 | 			}).done(function(dt){
144 | 				$('#authCode').html(dt);
145 | 				$(self).find('button').removeAttr('disabled');
146 | 			}).fail(function(msg){
147 | 				$('#authCode').html('Failed to get content...');
148 | 				alert(msg.status+"\n"+msg.statusText);
149 | 				$(self).find('button').removeAttr('disabled');
150 | 			});
151 | 		},
152 | 	};
153 | 	$(function() {
154 | 		ronn.init();
155 | 	});
156 | </script>
157 | </body>
158 | </html>
159 | 
160 | 
161 | 
162 | 
163 | 
164 | 
165 | 
166 | 
167 | 


--------------------------------------------------------------------------------
/code_arduino/SimpleModbusMaster.h:
--------------------------------------------------------------------------------
  1 | #ifndef SIMPLE_MODBUS_MASTER_H
  2 | #define SIMPLE_MODBUS_MASTER_H
  3 | 
  4 | /* 
  5 | 	 SimpleModbusMaster allows you to communicate
  6 | 	 to any slave using the Modbus RTU protocol.
  7 | 	
  8 | 	 To communicate with a slave you need to create a 
  9 |    packet that will contain all the information
 10 |    required to communicate to the slave. There are 
 11 |    numerous counters for easy diagnostic.
 12 |    These are variables already implemented in a 
 13 |    packet. You can set and clear these variables
 14 |    as needed.
 15 |    
 16 |    There are general modbus information counters:
 17 |    requests - contains the total requests to a slave
 18 |    successful_requests - contains the total successful requests
 19 |    total_errors - contains the total errors as a sum
 20 |    timeout - contains the total time out errors
 21 |    incorrect_id_returned - contains the total incorrect id returned errors
 22 |    incorrect_function_returned - contains the total incorrect function returned errors
 23 |    incorrect_bytes_returned - contains the total incorrect bytes returned errors
 24 |    checksum_failed - contains the total checksum failed errors
 25 |    buffer_errors - contains the total buffer errors
 26 |   
 27 |    And there are modbus specific exception counters:
 28 |    illegal_function - contains the total illegal_function errors
 29 |    illegal_data_address - contains the total illegal_data_address errors
 30 |    illegal_data_value - contains the total illegal_data_value errors
 31 | 	 misc_exceptions - contains the total miscellaneous returned exceptions 
 32 | 	
 33 |    And finally there is variable called "connection" that 
 34 |    at any given moment contains the current connection 
 35 |    status of the packet. If true then the connection is 
 36 |    active. If false then communication will be stopped
 37 |    on this packet untill the programmer sets the connections
 38 |    variable to true explicitly. The reason for this is 
 39 |    because of the time out involved in modbus communication.
 40 |    EACH faulty slave that's not communicating will slow down
 41 |    communication on the line with the time out value. E.g.
 42 |    Using a time out of 1500ms, if you have 10 slaves and 9 of them
 43 |    stops communicating the latency burden placed on communication
 44 |    will be 1500ms * 9 = 13,5 seconds!!!!
 45 |    
 46 |    In addition to this when all the packets are scanned and 
 47 |    all of them have a false connection a value is returned
 48 |    from modbus_port() to inform you something is wrong with 
 49 |    the port. This is most likely to happen when there is 
 50 |    something physically wrong with the RS485 line. 
 51 |    This is only for information. You have to explicitly set 
 52 |    each packets connection attribute to false. 
 53 |    Packets scanning and communication will automatically
 54 |    revert to normal.
 55 |    
 56 |    All the error checking, updating and communication multitasking
 57 |    takes place in the background!
 58 |   
 59 |    In general to communicate with to a slave using modbus
 60 |    RTU you will request information using the specific
 61 |    slave id, the function request, the starting address
 62 |    and lastly the number of registers to request.
 63 |    Function 3 & 16 are supported. In addition to
 64 |    this broadcasting (id = 0) is supported for function 16.
 65 |    Constants are provided for:
 66 |    Function 3 -  READ_HOLDING_REGISTERS 
 67 |    Function 16 - PRESET_MULTIPLE_REGISTERS 
 68 | 	 
 69 | 	 Note:  
 70 |    The Arduino serial ring buffer is 128 bytes or 64 registers.
 71 |    Most of the time you will connect the arduino to a master via serial
 72 |    using a MAX485 or similar.
 73 |  
 74 |    In a function 3 request the master will attempt to read from your
 75 |    slave and since 5 bytes is already used for ID, FUNCTION, NO OF BYTES
 76 |    and two BYTES CRC the master can only request 122 bytes or 61 registers.
 77 |  
 78 |    In a function 16 request the master will attempt to write to your 
 79 |    slave and since a 9 bytes is already used for ID, FUNCTION, ADDRESS, 
 80 |    NO OF REGISTERS, NO OF BYTES and two BYTES CRC the master can only write
 81 |    118 bytes or 59 registers.
 82 |  
 83 |    Using the FTDI USB to Serial converter the maximum bytes you can send is limited 
 84 |    to its internal buffer which is 60 bytes or 30 unsigned int registers. 
 85 |  
 86 |    Thus:
 87 |  
 88 |    In a function 3 request the master will attempt to read from your
 89 |    slave and since 5 bytes is already used for ID, FUNCTION, NO OF BYTES
 90 |    and two BYTES CRC the master can only request 54 bytes or 27 registers.
 91 |  
 92 |    In a function 16 request the master will attempt to write to your 
 93 |    slave and since a 9 bytes is already used for ID, FUNCTION, ADDRESS, 
 94 |    NO OF REGISTERS, NO OF BYTES and two BYTES CRC the master can only write
 95 |    50 bytes or 25 registers.
 96 |  
 97 |    Since it is assumed that you will mostly use the Arduino to connect to a 
 98 |    master without using a USB to Serial converter the internal buffer is set
 99 |    the same as the Arduino Serial ring buffer which is 128 bytes.
100 | */
101 | 
102 | #include "Arduino.h"
103 | 
104 | #define READ_HOLDING_REGISTERS 3
105 | #define	PRESET_MULTIPLE_REGISTERS 16
106 | 
107 | typedef struct
108 | {
109 |   // specific packet info
110 |   unsigned char id;
111 |   unsigned char function;
112 |   unsigned int address;
113 |   unsigned int no_of_registers; 
114 |   unsigned int* register_array;
115 |   
116 |   // modbus information counters
117 |   unsigned int requests;
118 |   unsigned int successful_requests;
119 |   unsigned long total_errors;
120 |   unsigned int retries;
121 |   unsigned int timeout;
122 |   unsigned int incorrect_id_returned;
123 |   unsigned int incorrect_function_returned;
124 |   unsigned int incorrect_bytes_returned;
125 |   unsigned int checksum_failed;
126 |   unsigned int buffer_errors;
127 |   
128 |   // modbus specific exception counters
129 |   unsigned int illegal_function;
130 |   unsigned int illegal_data_address;
131 |   unsigned int illegal_data_value;
132 | 	unsigned char misc_exceptions;
133 | 	
134 |   // connection status of packet
135 |   unsigned char connection; 
136 |   
137 | }Packet;
138 | 
139 | typedef Packet* packetPointer;
140 | 
141 | // function definitions
142 | unsigned int modbus_update(Packet* packets);
143 | void modbus_configure(long baud, unsigned int _timeout, unsigned int _polling, 
144 | 											unsigned char _retry_count, unsigned char _TxEnablePin,
145 | 											Packet* packets, unsigned int _total_no_of_packets);
146 | 
147 | #endif


--------------------------------------------------------------------------------
/code_ESP32/SimpleModbusMaster.h:
--------------------------------------------------------------------------------
  1 | #ifndef SIMPLE_MODBUS_MASTER_H
  2 | #define SIMPLE_MODBUS_MASTER_H
  3 | 
  4 | /* 
  5 | 	 SimpleModbusMaster allows you to communicate
  6 | 	 to any slave using the Modbus RTU protocol.
  7 | 	
  8 | 	 To communicate with a slave you need to create a 
  9 |    packet that will contain all the information
 10 |    required to communicate to the slave. There are 
 11 |    numerous counters for easy diagnostic.
 12 |    These are variables already implemented in a 
 13 |    packet. You can set and clear these variables
 14 |    as needed.
 15 |    
 16 |    There are general modbus information counters:
 17 |    requests - contains the total requests to a slave
 18 |    successful_requests - contains the total successful requests
 19 |    total_errors - contains the total errors as a sum
 20 |    timeout - contains the total time out errors
 21 |    incorrect_id_returned - contains the total incorrect id returned errors
 22 |    incorrect_function_returned - contains the total incorrect function returned errors
 23 |    incorrect_bytes_returned - contains the total incorrect bytes returned errors
 24 |    checksum_failed - contains the total checksum failed errors
 25 |    buffer_errors - contains the total buffer errors
 26 |   
 27 |    And there are modbus specific exception counters:
 28 |    illegal_function - contains the total illegal_function errors
 29 |    illegal_data_address - contains the total illegal_data_address errors
 30 |    illegal_data_value - contains the total illegal_data_value errors
 31 | 	 misc_exceptions - contains the total miscellaneous returned exceptions 
 32 | 	
 33 |    And finally there is variable called "connection" that 
 34 |    at any given moment contains the current connection 
 35 |    status of the packet. If true then the connection is 
 36 |    active. If false then communication will be stopped
 37 |    on this packet untill the programmer sets the connections
 38 |    variable to true explicitly. The reason for this is 
 39 |    because of the time out involved in modbus communication.
 40 |    EACH faulty slave that's not communicating will slow down
 41 |    communication on the line with the time out value. E.g.
 42 |    Using a time out of 1500ms, if you have 10 slaves and 9 of them
 43 |    stops communicating the latency burden placed on communication
 44 |    will be 1500ms * 9 = 13,5 seconds!!!!
 45 |    
 46 |    In addition to this when all the packets are scanned and 
 47 |    all of them have a false connection a value is returned
 48 |    from modbus_port() to inform you something is wrong with 
 49 |    the port. This is most likely to happen when there is 
 50 |    something physically wrong with the RS485 line. 
 51 |    This is only for information. You have to explicitly set 
 52 |    each packets connection attribute to false. 
 53 |    Packets scanning and communication will automatically
 54 |    revert to normal.
 55 |    
 56 |    All the error checking, updating and communication multitasking
 57 |    takes place in the background!
 58 |   
 59 |    In general to communicate with to a slave using modbus
 60 |    RTU you will request information using the specific
 61 |    slave id, the function request, the starting address
 62 |    and lastly the number of registers to request.
 63 |    Function 3 & 16 are supported. In addition to
 64 |    this broadcasting (id = 0) is supported for function 16.
 65 |    Constants are provided for:
 66 |    Function 3 -  READ_HOLDING_REGISTERS 
 67 |    Function 16 - PRESET_MULTIPLE_REGISTERS 
 68 | 	 
 69 | 	 Note:  
 70 |    The Arduino serial ring buffer is 128 bytes or 64 registers.
 71 |    Most of the time you will connect the arduino to a master via serial
 72 |    using a MAX485 or similar.
 73 |  
 74 |    In a function 3 request the master will attempt to read from your
 75 |    slave and since 5 bytes is already used for ID, FUNCTION, NO OF BYTES
 76 |    and two BYTES CRC the master can only request 122 bytes or 61 registers.
 77 |  
 78 |    In a function 16 request the master will attempt to write to your 
 79 |    slave and since a 9 bytes is already used for ID, FUNCTION, ADDRESS, 
 80 |    NO OF REGISTERS, NO OF BYTES and two BYTES CRC the master can only write
 81 |    118 bytes or 59 registers.
 82 |  
 83 |    Using the FTDI USB to Serial converter the maximum bytes you can send is limited 
 84 |    to its internal buffer which is 60 bytes or 30 unsigned int registers. 
 85 |  
 86 |    Thus:
 87 |  
 88 |    In a function 3 request the master will attempt to read from your
 89 |    slave and since 5 bytes is already used for ID, FUNCTION, NO OF BYTES
 90 |    and two BYTES CRC the master can only request 54 bytes or 27 registers.
 91 |  
 92 |    In a function 16 request the master will attempt to write to your 
 93 |    slave and since a 9 bytes is already used for ID, FUNCTION, ADDRESS, 
 94 |    NO OF REGISTERS, NO OF BYTES and two BYTES CRC the master can only write
 95 |    50 bytes or 25 registers.
 96 |  
 97 |    Since it is assumed that you will mostly use the Arduino to connect to a 
 98 |    master without using a USB to Serial converter the internal buffer is set
 99 |    the same as the Arduino Serial ring buffer which is 128 bytes.
100 | */
101 | 
102 | #include "Arduino.h"
103 | 
104 | #define READ_HOLDING_REGISTERS 3
105 | #define	PRESET_MULTIPLE_REGISTERS 16
106 | 
107 | typedef struct
108 | {
109 |   // specific packet info
110 |   unsigned char id;
111 |   unsigned char function;
112 |   unsigned int address;
113 |   unsigned int no_of_registers; 
114 |   unsigned int* register_array;
115 |   
116 |   // modbus information counters
117 |   unsigned int requests;
118 |   unsigned int successful_requests;
119 |   unsigned long total_errors;
120 |   unsigned int retries;
121 |   unsigned int timeout;
122 |   unsigned int incorrect_id_returned;
123 |   unsigned int incorrect_function_returned;
124 |   unsigned int incorrect_bytes_returned;
125 |   unsigned int checksum_failed;
126 |   unsigned int buffer_errors;
127 |   
128 |   // modbus specific exception counters
129 |   unsigned int illegal_function;
130 |   unsigned int illegal_data_address;
131 |   unsigned int illegal_data_value;
132 | 	unsigned char misc_exceptions;
133 | 	
134 |   // connection status of packet
135 |   unsigned char connection; 
136 |   
137 | }Packet;
138 | 
139 | typedef Packet* packetPointer;
140 | 
141 | // function definitions
142 | unsigned int modbus_update(Packet* packets);
143 | void modbus_configure(long baud, unsigned int _timeout, unsigned int _polling, 
144 | 											unsigned char _retry_count, unsigned char _TxEnablePin,
145 | 											Packet* packets, unsigned int _total_no_of_packets);
146 | 
147 | #endif
148 | 


--------------------------------------------------------------------------------
/code_arduino_video01/SimpleModbusMaster.h:
--------------------------------------------------------------------------------
  1 | #ifndef SIMPLE_MODBUS_MASTER_H
  2 | #define SIMPLE_MODBUS_MASTER_H
  3 | 
  4 | /* 
  5 | 	 SimpleModbusMaster allows you to communicate
  6 | 	 to any slave using the Modbus RTU protocol.
  7 | 	
  8 | 	 To communicate with a slave you need to create a 
  9 |    packet that will contain all the information
 10 |    required to communicate to the slave. There are 
 11 |    numerous counters for easy diagnostic.
 12 |    These are variables already implemented in a 
 13 |    packet. You can set and clear these variables
 14 |    as needed.
 15 |    
 16 |    There are general modbus information counters:
 17 |    requests - contains the total requests to a slave
 18 |    successful_requests - contains the total successful requests
 19 |    total_errors - contains the total errors as a sum
 20 |    timeout - contains the total time out errors
 21 |    incorrect_id_returned - contains the total incorrect id returned errors
 22 |    incorrect_function_returned - contains the total incorrect function returned errors
 23 |    incorrect_bytes_returned - contains the total incorrect bytes returned errors
 24 |    checksum_failed - contains the total checksum failed errors
 25 |    buffer_errors - contains the total buffer errors
 26 |   
 27 |    And there are modbus specific exception counters:
 28 |    illegal_function - contains the total illegal_function errors
 29 |    illegal_data_address - contains the total illegal_data_address errors
 30 |    illegal_data_value - contains the total illegal_data_value errors
 31 | 	 misc_exceptions - contains the total miscellaneous returned exceptions 
 32 | 	
 33 |    And finally there is variable called "connection" that 
 34 |    at any given moment contains the current connection 
 35 |    status of the packet. If true then the connection is 
 36 |    active. If false then communication will be stopped
 37 |    on this packet untill the programmer sets the connections
 38 |    variable to true explicitly. The reason for this is 
 39 |    because of the time out involved in modbus communication.
 40 |    EACH faulty slave that's not communicating will slow down
 41 |    communication on the line with the time out value. E.g.
 42 |    Using a time out of 1500ms, if you have 10 slaves and 9 of them
 43 |    stops communicating the latency burden placed on communication
 44 |    will be 1500ms * 9 = 13,5 seconds!!!!
 45 |    
 46 |    In addition to this when all the packets are scanned and 
 47 |    all of them have a false connection a value is returned
 48 |    from modbus_port() to inform you something is wrong with 
 49 |    the port. This is most likely to happen when there is 
 50 |    something physically wrong with the RS485 line. 
 51 |    This is only for information. You have to explicitly set 
 52 |    each packets connection attribute to false. 
 53 |    Packets scanning and communication will automatically
 54 |    revert to normal.
 55 |    
 56 |    All the error checking, updating and communication multitasking
 57 |    takes place in the background!
 58 |   
 59 |    In general to communicate with to a slave using modbus
 60 |    RTU you will request information using the specific
 61 |    slave id, the function request, the starting address
 62 |    and lastly the number of registers to request.
 63 |    Function 3 & 16 are supported. In addition to
 64 |    this broadcasting (id = 0) is supported for function 16.
 65 |    Constants are provided for:
 66 |    Function 3 -  READ_HOLDING_REGISTERS 
 67 |    Function 16 - PRESET_MULTIPLE_REGISTERS 
 68 | 	 
 69 | 	 Note:  
 70 |    The Arduino serial ring buffer is 128 bytes or 64 registers.
 71 |    Most of the time you will connect the arduino to a master via serial
 72 |    using a MAX485 or similar.
 73 |  
 74 |    In a function 3 request the master will attempt to read from your
 75 |    slave and since 5 bytes is already used for ID, FUNCTION, NO OF BYTES
 76 |    and two BYTES CRC the master can only request 122 bytes or 61 registers.
 77 |  
 78 |    In a function 16 request the master will attempt to write to your 
 79 |    slave and since a 9 bytes is already used for ID, FUNCTION, ADDRESS, 
 80 |    NO OF REGISTERS, NO OF BYTES and two BYTES CRC the master can only write
 81 |    118 bytes or 59 registers.
 82 |  
 83 |    Using the FTDI USB to Serial converter the maximum bytes you can send is limited 
 84 |    to its internal buffer which is 60 bytes or 30 unsigned int registers. 
 85 |  
 86 |    Thus:
 87 |  
 88 |    In a function 3 request the master will attempt to read from your
 89 |    slave and since 5 bytes is already used for ID, FUNCTION, NO OF BYTES
 90 |    and two BYTES CRC the master can only request 54 bytes or 27 registers.
 91 |  
 92 |    In a function 16 request the master will attempt to write to your 
 93 |    slave and since a 9 bytes is already used for ID, FUNCTION, ADDRESS, 
 94 |    NO OF REGISTERS, NO OF BYTES and two BYTES CRC the master can only write
 95 |    50 bytes or 25 registers.
 96 |  
 97 |    Since it is assumed that you will mostly use the Arduino to connect to a 
 98 |    master without using a USB to Serial converter the internal buffer is set
 99 |    the same as the Arduino Serial ring buffer which is 128 bytes.
100 | */
101 | 
102 | #include "Arduino.h"
103 | 
104 | #define READ_HOLDING_REGISTERS 3
105 | #define	PRESET_MULTIPLE_REGISTERS 16
106 | 
107 | typedef struct
108 | {
109 |   // specific packet info
110 |   unsigned char id;
111 |   unsigned char function;
112 |   unsigned int address;
113 |   unsigned int no_of_registers; 
114 |   unsigned int* register_array;
115 |   
116 |   // modbus information counters
117 |   unsigned int requests;
118 |   unsigned int successful_requests;
119 |   unsigned long total_errors;
120 |   unsigned int retries;
121 |   unsigned int timeout;
122 |   unsigned int incorrect_id_returned;
123 |   unsigned int incorrect_function_returned;
124 |   unsigned int incorrect_bytes_returned;
125 |   unsigned int checksum_failed;
126 |   unsigned int buffer_errors;
127 |   
128 |   // modbus specific exception counters
129 |   unsigned int illegal_function;
130 |   unsigned int illegal_data_address;
131 |   unsigned int illegal_data_value;
132 | 	unsigned char misc_exceptions;
133 | 	
134 |   // connection status of packet
135 |   unsigned char connection; 
136 |   
137 | }Packet;
138 | 
139 | typedef Packet* packetPointer;
140 | 
141 | // function definitions
142 | unsigned int modbus_update(Packet* packets);
143 | void modbus_configure(long baud, unsigned int _timeout, unsigned int _polling, 
144 | 											unsigned char _retry_count, unsigned char _TxEnablePin,
145 | 											Packet* packets, unsigned int _total_no_of_packets);
146 | 
147 | #endif


--------------------------------------------------------------------------------
/code_php/function.php:
--------------------------------------------------------------------------------
  1 | <?php
  2 | /*
  3 |  * DATABASE CONNECTION
  4 |  * ***********************************************************************************
  5 |  * Code by : fahroni|ganteng
  6 |  * contact me : fahroniganteng@gmail.com
  7 |  * Date : feb 2021
  8 |  * License :  MIT
  9 |  * 
 10 |  */
 11 | const DB_HOST 	= 'localhost';  
 12 | const DB_USER 	= 'root';  
 13 | const DB_PASS 	= '';  
 14 | const DB_NAME	= 'meter';
 15 | 
 16 | class db extends mysqli {
 17 | 	protected $res;
 18 |     function __construct() {
 19 |         mysqli_report(MYSQLI_REPORT_OFF); // turn of error reporting
 20 |         @parent::__construct(DB_HOST,DB_USER,DB_PASS,DB_NAME);
 21 |         if(mysqli_connect_errno())
 22 |             throw new exception(mysqli_connect_error(), mysqli_connect_errno());
 23 |     }
 24 |     function runQry($query) {
 25 |         if(!$this->real_query($query))
 26 |             throw new exception( $this->error, $this->errno );
 27 |         $this->res = new mysqli_result($this);
 28 | 		return $this->res;
 29 |     }
 30 | 	function getAll($resultType){
 31 | 		$ret	= $this->res->fetch_all($resultType);
 32 | 		if(!$ret)
 33 | 			throw new exception($this->error, $this->errno);
 34 | 		else
 35 | 			return $ret;
 36 | 	}
 37 | 	function escStr($str){
 38 | 		$ret	= $this->real_escape_string($str);
 39 | 		if(!$ret)
 40 | 			throw new exception($this->error, $this->errno);
 41 | 		else
 42 | 			return $ret;
 43 | 	}
 44 | 	function numRow(){
 45 | 		$ret	= $this->res->num_rows;
 46 | 		if($ret>=0)return $ret;
 47 | 		else throw new exception($this->error, $this->errno);
 48 | 	}
 49 | }
 50 | 
 51 | 
 52 | /* 
 53 |  * for test connection only
 54 |  * ***************************************************************
 55 | $db = new db;
 56 | try {
 57 | 	$result = $db->query("select * from pengaturan");
 58 | 	while( $row = $result->fetch_assoc() ){ 
 59 | 		printf("%s (%s) <br>", $row['nama'], $row['deskripsi']); 
 60 | 	} 
 61 | } catch (Exception $e) {
 62 | 	echo "ERROR : " . $e->getMessage();
 63 | 	exit;
 64 | }
 65 | */
 66 | 
 67 | /* 
 68 |  * for debuging only
 69 |  * ***************************************************************
 70 |  */
 71 | function dd($dt){//dump data --> for debuging only......
 72 | 	echo "<pre>".print_r($dt,1)."</pre>";
 73 | 	exit;
 74 | }
 75 | 
 76 | 
 77 | /* 
 78 |  * simple class for handle http request
 79 |  * ***************************************************************
 80 |  */
 81 | class ronn{
 82 | 	protected $data		= NULL;//feedback data
 83 | 	function retData($html=false){ //return
 84 | 		echo $html?$html:$this->data;
 85 | 		exit;
 86 | 	}
 87 | 	function retErr($err){
 88 | 		echo "ERROR!!!<br>".$err;
 89 | 		exit;
 90 | 	}
 91 | 	function verification($id){
 92 | 		if(method_exists($this,$id)){// request exist ?
 93 | 			$this->id	= $id;
 94 | 			$this->dt	= isset($_POST)?$_POST:"";// data
 95 | 			$this->db_open();
 96 | 			return true; //gak perlu callback
 97 |         }
 98 |         else{
 99 | 			$this->retErr("Request not exist...");
100 | 		}
101 | 	}
102 | 	function checkRequiredInput($arr,$ret=false){//array data, return?
103 | 		$dt = true;
104 | 		$input = $this->dt;
105 | 		if(is_array($input)){
106 | 			foreach($arr as $v){
107 | 				if(!array_key_exists($v,$input)){ // required post data not found
108 | 					$dt = $v;
109 | 					break;
110 | 				}
111 | 				else if(strlen(trim($input[$v]))<1){ // post data length = 0
112 | 					$dt = $v;
113 | 					break;
114 | 				}
115 | 				else{
116 | 					$_trim = trim($input[$v]);
117 | 					$this->dt[$v]	= $_trim=='0'?0:$this->db_escStr($_trim);// zero error on mysql_real_escape_string
118 | 				}
119 | 			}
120 | 			
121 | 			if($ret)return $dt;
122 | 			else if($dt!==true) $this->retErr("Required data : ". $dt);
123 | 		}
124 | 		else $this->retErr("Not valid data...");
125 | 	}
126 | 	
127 | 	// 'try' style for handle mysql....
128 | 	function db_open(){
129 | 		try{
130 | 			$this->db	= new db();
131 | 		}catch (Exception $e) {
132 | 			$this->retErr("Cannot connect DB : ".$e->getMessage());
133 | 		}
134 | 	}
135 | 	function db_query($qry){
136 | 		try {
137 | 			$this->db->runQry($qry);
138 | 		} catch (Exception $e) {
139 | 			$this->retErr("Error Query : ".$e->getMessage());
140 | 		}
141 | 	}
142 | 	function db_getAll($resultType=MYSQLI_ASSOC){//Default is assoc, other ==> MYSQLI_ASSOC,MYSQLI_NUM,MYSQLI_BOTH
143 | 		try {
144 | 			return $this->db->getAll($resultType);
145 | 		} catch (Exception $e) {
146 | 			$this->retErr("Error get all record db : ".$e->getMessage());
147 | 		}
148 | 	}
149 | 	function db_escStr($str){
150 | 		try {
151 | 			return $this->db->escStr($str);
152 | 		} catch (Exception $e) {
153 | 			$this->retErr("ERROR ESC String : ".$e->getMessage());
154 | 		}
155 | 	}
156 | 	function db_count(){
157 | 		try {
158 | 			$count = $this->db->numRow();
159 | 		} catch (Exception $e) {
160 | 			$this->retErr("Error count db : ".$e->getMessage());
161 | 		}
162 | 		return $count>0?$count:0;
163 | 	}
164 | 	
165 | 	// Generate Table
166 | 	function makeTable($dbTableName){
167 | 		$dbName = DB_NAME;
168 | 		
169 | 		// Get table header
170 | 		$query	= "SELECT * FROM information_schema.columns WHERE table_name = '$dbTableName' AND table_schema = '{$dbName}'";
171 | 		$this->db_query($query);
172 | 		$this->data	.= '<table class="table table-sm table-striped">';
173 | 		$this->data	.= '<thead class="thead-dark"><tr>';
174 | 		$this->data	.= '<th>#</th>';
175 | 		$countColumn = 0;
176 | 		foreach($this->db_getAll() as $r){
177 | 			$headerName	 	= str_replace('_',' ',$r['COLUMN_NAME']);
178 | 			$this->data	.= "<th>{$headerName}</th>";
179 | 			$countColumn++;
180 | 		}
181 | 		$this->data	.= '</tr></thead>';
182 | 		
183 | 		// Get table body
184 | 		$this->data	.= '<tbody>';
185 | 		$query	= "SELECT * FROM `{$dbName}`.`{$dbTableName}`";
186 | 		// $this->retErr($query);
187 | 		$this->db_query($query);
188 | 		if($this->db_count()>0){
189 | 			$i = 1;
190 | 			$data = $this->db_getAll();
191 | 			foreach($data as $r) {  // ROW
192 | 				$this->data	.=	"<tr>";
193 | 				$this->data	.=	"<td>{$i}</td>";
194 | 				foreach($r as $val) // COLUMN
195 | 					$this->data	.=	"<td>{$val}</td>";
196 | 				$this->data	.=	"</tr>";
197 | 				$i++;
198 | 			}
199 | 		}
200 | 		else {
201 | 			$data		= false;
202 | 			$this->data	.=	"<tr>";
203 | 			$this->data	.=	"<td colspan='". ($countColumn + 1) ."' style='text-align:center;font-weight:bold'>no data...</td>";
204 | 			$this->data	.=	"</tr>";
205 | 		}
206 | 		$this->data	.= '</tbody>';
207 | 		$this->data	.= '</table>';
208 | 	}
209 | 	
210 | 	// Generate List
211 | 	function makeList($dbTableName){
212 | 		$dbName = DB_NAME;
213 | 		$query	= "SELECT * FROM `{$dbName}`.`{$dbTableName}`";
214 | 		// $this->retErr($query);
215 | 		$this->db_query($query);
216 | 		if($this->db_count()>0){
217 | 			$i = 1;
218 | 			$data = $this->db_getAll();
219 | 			foreach($data as $r) {  // ROW
220 | 				$this->data	.=	'<div class="card bg-info mb-2">';
221 | 				$this->data	.=	'<div class="card-header text-white">'.$i.'. '.$r['Device_ID'].'</div>';
222 | 				$this->data	.=	'<div class="card-body bg-light">';
223 | 				$this->data	.=	'<dl>';
224 | 				foreach($r as $key=>$val){ // COLUMN
225 | 					if($key!='Device_ID'){
226 | 						$title	 	= str_replace('_',' ',$key);
227 | 						$this->data	.=	'
228 | 							<div class="row border-bottom">
229 | 								<dt class="col-sm-4 my-0 pt-1">'.$title.'</dt>
230 | 								<dd class="col-sm-8 my-0 pt-1">'.$val.'</dd>
231 | 							</div>
232 | 						';
233 | 					}
234 | 				}
235 | 				$this->data	.=	"</dl></div></div>";
236 | 				$i++;
237 | 			}
238 | 		}
239 | 		else {
240 | 			$data		= false;
241 | 			$this->data	.=	"No data..";
242 | 		}
243 | 		$this->data	.= '</tbody>';
244 | 		$this->data	.= '</table>';
245 | 	}
246 | }
247 | 
248 | 
249 | ?>


--------------------------------------------------------------------------------
/database/meter.sql:
--------------------------------------------------------------------------------
  1 | -- --------------------------------------------------------
  2 | -- Host:                         127.0.0.1
  3 | -- Versi server:                 10.1.22-MariaDB - mariadb.org binary distribution
  4 | -- OS Server:                    Win32
  5 | -- HeidiSQL Versi:               9.5.0.5196
  6 | -- --------------------------------------------------------
  7 | 
  8 | /*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
  9 | /*!40101 SET NAMES utf8 */;
 10 | /*!50503 SET NAMES utf8mb4 */;
 11 | /*!40014 SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0 */;
 12 | /*!40101 SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='NO_AUTO_VALUE_ON_ZERO' */;
 13 | 
 14 | 
 15 | -- Membuang struktur basisdata untuk meter
 16 | CREATE DATABASE IF NOT EXISTS `meter` /*!40100 DEFAULT CHARACTER SET utf8 */;
 17 | USE `meter`;
 18 | 
 19 | -- membuang struktur untuk procedure meter.insert_rec
 20 | DELIMITER //
 21 | CREATE DEFINER=`root`@`localhost` PROCEDURE `insert_rec`(
 22 | 	IN `dt` DATETIME,
 23 | 	IN `id` VARCHAR(50),
 24 | 	IN `val01` FLOAT(11,4),
 25 | 	IN `val02` FLOAT(11,4),
 26 | 	IN `val03` FLOAT(11,4),
 27 | 	IN `val04` FLOAT(11,4),
 28 | 	IN `val05` FLOAT(11,4),
 29 | 	IN `val06` FLOAT(11,4),
 30 | 	IN `val07` FLOAT(11,4),
 31 | 	IN `val08` FLOAT(11,4),
 32 | 	IN `val09` FLOAT(11,4),
 33 | 	IN `val10` FLOAT(11,4),
 34 | 	IN `val11` FLOAT(11,4),
 35 | 	IN `val12` FLOAT(11,4),
 36 | 	IN `val13` FLOAT(11,4),
 37 | 	IN `val14` FLOAT(11,4),
 38 | 	IN `val15` FLOAT(11,4),
 39 | 	IN `val16` FLOAT(11,4),
 40 | 	IN `val17` FLOAT(11,4),
 41 | 	IN `val18` FLOAT(11,4),
 42 | 	IN `val19` FLOAT(11,4),
 43 | 	IN `val20` FLOAT(11,4),
 44 | 	IN `val21` FLOAT(11,4),
 45 | 	IN `val22` FLOAT(11,4),
 46 | 	IN `val23` FLOAT(11,4),
 47 | 	IN `val24` FLOAT(11,4),
 48 | 	IN `val25` FLOAT(11,4),
 49 | 	IN `val26` FLOAT(11,4),
 50 | 	IN `val27` FLOAT(11,4),
 51 | 	IN `val28` FLOAT(11,4),
 52 | 	IN `val29` FLOAT(11,4),
 53 | 	IN `val30` FLOAT(11,4),
 54 | 	IN `val31` FLOAT(11,4),
 55 | 	IN `val32` FLOAT(11,4),
 56 | 	IN `val33` FLOAT(11,4),
 57 | 	IN `val34` FLOAT(11,4),
 58 | 	IN `val35` FLOAT(11,4)
 59 | 
 60 | )
 61 | BEGIN
 62 | 	/*
 63 | 	 * INSERT RAW DATA & AVERAGE EVERY 15 MINUTE
 64 | 	 * **************************************************
 65 | 	 */
 66 | 	 
 67 | 	-- every 15 menit --> avg data
 68 | 	IF CONVERT(DATE_FORMAT(dt, "%i"),UNSIGNED)%15 = 0 THEN
 69 | 		
 70 | 		SELECT COUNT(0) INTO @dtExist
 71 | 		FROM rec_15m a
 72 | 		WHERE 
 73 | 			DATE_FORMAT(a.Date_Time, "%Y%m%d %H:%i") = DATE_FORMAT(dt, "%Y%m%d %H:%i")
 74 | 			AND a.Device_ID = id
 75 | 		;
 76 | 		
 77 | 		-- if avg data not exist
 78 | 		IF @dtExist = 0 THEN
 79 | 			-- insert avg data into recording 15 menit (rec_15m)
 80 | 			INSERT INTO rec_15m
 81 | 			SELECT 
 82 | 				-- MAX(DATE_FORMAT(a.Date_Time, "%Y-%m-%d %H:%i:00")),
 83 | 				DATE_FORMAT(dt, "%Y-%m-%d %H:%i:00"),
 84 | 				a.Device_ID,
 85 | 				AVG(a.`Current_A`),
 86 | 				AVG(a.`Current_B`),
 87 | 				AVG(a.`Current_C`),
 88 | 				AVG(a.`Current_N`),
 89 | 				AVG(a.`Current_G`),
 90 | 				AVG(a.`Current_Avg`),
 91 | 				AVG(a.`Voltage_A-B`),
 92 | 				AVG(a.`Voltage_B-C`),
 93 | 				AVG(a.`Voltage_C-A`),
 94 | 				AVG(a.`Voltage_L-L_Avg`),
 95 | 				AVG(a.`Voltage_A-N`),
 96 | 				AVG(a.`Voltage_B-N`),
 97 | 				AVG(a.`Voltage_C-N`),
 98 | 				AVG(a.`Voltage_L-N_Avg`),
 99 | 				AVG(a.`Active_Power_A`),
100 | 				AVG(a.`Active_Power_B`),
101 | 				AVG(a.`Active_Power_C`),
102 | 				AVG(a.`Active_Power_Total`),
103 | 				AVG(a.`Reactive_Power_A`),
104 | 				AVG(a.`Reactive_Power_B`),
105 | 				AVG(a.`Reactive_Power_C`),
106 | 				AVG(a.`Reactive_Power_Total`),
107 | 				AVG(a.`Apparent_Power_A`),
108 | 				AVG(a.`Apparent_Power_B`),
109 | 				AVG(a.`Apparent_Power_C`),
110 | 				AVG(a.`Apparent_Power_Total`),
111 | 				AVG(a.`Power_Factor_A`),
112 | 				AVG(a.`Power_Factor_B`),
113 | 				AVG(a.`Power_Factor_C`),
114 | 				AVG(a.`Power_Factor_Total`),
115 | 				AVG(a.`Displacement_Power_Factor_A`),
116 | 				AVG(a.`Displacement_Power_Factor_B`),
117 | 				AVG(a.`Displacement_Power_Factor_C`),
118 | 				AVG(a.`Displacement_Power_Factor_Total`),
119 | 				AVG(a.`Frequency`)
120 | 			FROM 
121 | 				rec_raw a
122 | 			WHERE
123 | 				a.Device_ID = id
124 | 				AND a.Date_Time > SYSDATE() - INTERVAL 30 MINUTE -- calculate (AVG) maximal in 30 minutes (2x cycle)
125 | 			GROUP BY
126 | 				2;
127 | 			
128 | 			
129 | 			-- del raw data (after save avg in 15 minutes)
130 | 			DELETE FROM rec_raw WHERE Device_ID = id; 
131 | 			
132 | 			-- del rec_15m data after 1 year (only save 1 year)
133 | 			DELETE FROM rec_15m WHERE Date_Time <= SYSDATE() - INTERVAL 1 YEAR; 
134 | 
135 | 		END IF;
136 | 	END IF;
137 | 	
138 | 	-- insert raw data recording (rec_raw)
139 | 	-- put at last --> so there is always 1 record left
140 | 	INSERT IGNORE INTO rec_raw
141 | 	VALUES(dt,id,val01,val02,val03,val04,val05,val06,val07,val08,val09,val10,val11,val12,val13,val14,val15,val16,val17,val18,val19,val20,val21,val22,val23,val24,val25,val26,val27,val28,val29,val30,val31,val32,val33,val34,val35);
142 | 	
143 | 	
144 | END//
145 | DELIMITER ;
146 | 
147 | -- membuang struktur untuk table meter.rec_15m
148 | CREATE TABLE IF NOT EXISTS `rec_15m` (
149 |   `Date_Time` datetime NOT NULL,
150 |   `Device_ID` varchar(50) NOT NULL,
151 |   `Current_A` float(11,2) DEFAULT '0.00',
152 |   `Current_B` float(11,2) DEFAULT '0.00',
153 |   `Current_C` float(11,2) DEFAULT '0.00',
154 |   `Current_N` float(11,2) DEFAULT '0.00',
155 |   `Current_G` float(11,2) DEFAULT '0.00',
156 |   `Current_Avg` float(11,2) DEFAULT '0.00',
157 |   `Voltage_A-B` float(11,2) DEFAULT '0.00',
158 |   `Voltage_B-C` float(11,2) DEFAULT '0.00',
159 |   `Voltage_C-A` float(11,2) DEFAULT '0.00',
160 |   `Voltage_L-L_Avg` float(11,2) DEFAULT '0.00',
161 |   `Voltage_A-N` float(11,2) DEFAULT '0.00',
162 |   `Voltage_B-N` float(11,2) DEFAULT '0.00',
163 |   `Voltage_C-N` float(11,2) DEFAULT '0.00',
164 |   `Voltage_L-N_Avg` float(11,2) DEFAULT '0.00',
165 |   `Active_Power_A` float(11,2) DEFAULT '0.00',
166 |   `Active_Power_B` float(11,2) DEFAULT '0.00',
167 |   `Active_Power_C` float(11,2) DEFAULT '0.00',
168 |   `Active_Power_Total` float(11,2) DEFAULT '0.00',
169 |   `Reactive_Power_A` float(11,2) DEFAULT '0.00',
170 |   `Reactive_Power_B` float(11,2) DEFAULT '0.00',
171 |   `Reactive_Power_C` float(11,2) DEFAULT '0.00',
172 |   `Reactive_Power_Total` float(11,2) DEFAULT '0.00',
173 |   `Apparent_Power_A` float(11,2) DEFAULT '0.00',
174 |   `Apparent_Power_B` float(11,2) DEFAULT '0.00',
175 |   `Apparent_Power_C` float(11,2) DEFAULT '0.00',
176 |   `Apparent_Power_Total` float(11,2) DEFAULT '0.00',
177 |   `Power_Factor_A` float(11,2) DEFAULT '0.00',
178 |   `Power_Factor_B` float(11,2) DEFAULT '0.00',
179 |   `Power_Factor_C` float(11,2) DEFAULT '0.00',
180 |   `Power_Factor_Total` float(11,2) DEFAULT '0.00',
181 |   `Displacement_Power_Factor_A` float(11,2) DEFAULT '0.00',
182 |   `Displacement_Power_Factor_B` float(11,2) DEFAULT '0.00',
183 |   `Displacement_Power_Factor_C` float(11,2) DEFAULT '0.00',
184 |   `Displacement_Power_Factor_Total` float(11,2) DEFAULT '0.00',
185 |   `Frequency` float(11,2) DEFAULT '0.00',
186 |   PRIMARY KEY (`Date_Time`,`Device_ID`)
187 | ) ENGINE=MyISAM DEFAULT CHARSET=utf8;
188 | 
189 | 
190 | -- membuang struktur untuk table meter.rec_raw
191 | CREATE TABLE IF NOT EXISTS `rec_raw` (
192 |   `Date_Time` datetime NOT NULL,
193 |   `Device_ID` varchar(50) NOT NULL,
194 |   `Current_A` float(11,2) DEFAULT '0.00',
195 |   `Current_B` float(11,2) DEFAULT '0.00',
196 |   `Current_C` float(11,2) DEFAULT '0.00',
197 |   `Current_N` float(11,2) DEFAULT '0.00',
198 |   `Current_G` float(11,2) DEFAULT '0.00',
199 |   `Current_Avg` float(11,2) DEFAULT '0.00',
200 |   `Voltage_A-B` float(11,2) DEFAULT '0.00',
201 |   `Voltage_B-C` float(11,2) DEFAULT '0.00',
202 |   `Voltage_C-A` float(11,2) DEFAULT '0.00',
203 |   `Voltage_L-L_Avg` float(11,2) DEFAULT '0.00',
204 |   `Voltage_A-N` float(11,2) DEFAULT '0.00',
205 |   `Voltage_B-N` float(11,2) DEFAULT '0.00',
206 |   `Voltage_C-N` float(11,2) DEFAULT '0.00',
207 |   `Voltage_L-N_Avg` float(11,2) DEFAULT '0.00',
208 |   `Active_Power_A` float(11,2) DEFAULT '0.00',
209 |   `Active_Power_B` float(11,2) DEFAULT '0.00',
210 |   `Active_Power_C` float(11,2) DEFAULT '0.00',
211 |   `Active_Power_Total` float(11,2) DEFAULT '0.00',
212 |   `Reactive_Power_A` float(11,2) DEFAULT '0.00',
213 |   `Reactive_Power_B` float(11,2) DEFAULT '0.00',
214 |   `Reactive_Power_C` float(11,2) DEFAULT '0.00',
215 |   `Reactive_Power_Total` float(11,2) DEFAULT '0.00',
216 |   `Apparent_Power_A` float(11,2) DEFAULT '0.00',
217 |   `Apparent_Power_B` float(11,2) DEFAULT '0.00',
218 |   `Apparent_Power_C` float(11,2) DEFAULT '0.00',
219 |   `Apparent_Power_Total` float(11,2) DEFAULT '0.00',
220 |   `Power_Factor_A` float(11,2) DEFAULT '0.00',
221 |   `Power_Factor_B` float(11,2) DEFAULT '0.00',
222 |   `Power_Factor_C` float(11,2) DEFAULT '0.00',
223 |   `Power_Factor_Total` float(11,2) DEFAULT '0.00',
224 |   `Displacement_Power_Factor_A` float(11,2) DEFAULT '0.00',
225 |   `Displacement_Power_Factor_B` float(11,2) DEFAULT '0.00',
226 |   `Displacement_Power_Factor_C` float(11,2) DEFAULT '0.00',
227 |   `Displacement_Power_Factor_Total` float(11,2) DEFAULT '0.00',
228 |   `Frequency` float(11,2) DEFAULT '0.00',
229 |   PRIMARY KEY (`Date_Time`,`Device_ID`)
230 | ) ENGINE=MyISAM DEFAULT CHARSET=utf8;
231 | 
232 | 
233 | CREATE ALGORITHM=UNDEFINED DEFINER=`root`@`localhost` SQL SECURITY DEFINER VIEW `view_15m` AS select * from  `rec_15m` order by Date_Time desc limit 100 ;
234 | 
235 | CREATE ALGORITHM=UNDEFINED DEFINER=`root`@`localhost` SQL SECURITY DEFINER VIEW `view_real_time` AS select 
236 |     max(`a`.`Date_Time`) AS `Date_Time`,
237 |     `a`.`Device_ID` AS `Device_ID`,
238 |     `a`.`Current_A` AS `Current_A`,
239 |     `a`.`Current_B` AS `Current_B`,
240 |     `a`.`Current_C` AS `Current_C`,
241 |     `a`.`Current_N` AS `Current_N`,
242 |     `a`.`Current_G` AS `Current_G`,
243 |     `a`.`Current_Avg` AS `Current_Avg`,
244 |     `a`.`Voltage_A-B` AS `Voltage_A-B`,
245 |     `a`.`Voltage_B-C` AS `Voltage_B-C`,
246 |     `a`.`Voltage_C-A` AS `Voltage_C-A`,
247 |     `a`.`Voltage_L-L_Avg` AS `Voltage_L-L_Avg`,
248 |     `a`.`Voltage_A-N` AS `Voltage_A-N`,
249 |     `a`.`Voltage_B-N` AS `Voltage_B-N`,
250 |     `a`.`Voltage_C-N` AS `Voltage_C-N`,
251 |     `a`.`Voltage_L-N_Avg` AS `Voltage_L-N_Avg`,
252 |     `a`.`Active_Power_A` AS `Active_Power_A`,
253 |     `a`.`Active_Power_B` AS `Active_Power_B`,
254 |     `a`.`Active_Power_C` AS `Active_Power_C`,
255 |     `a`.`Active_Power_Total` AS `Active_Power_Total`,
256 |     `a`.`Reactive_Power_A` AS `Reactive_Power_A`,
257 |     `a`.`Reactive_Power_B` AS `Reactive_Power_B`,
258 |     `a`.`Reactive_Power_C` AS `Reactive_Power_C`,
259 |     `a`.`Reactive_Power_Total` AS `Reactive_Power_Total`,
260 |     `a`.`Apparent_Power_A` AS `Apparent_Power_A`,
261 |     `a`.`Apparent_Power_B` AS `Apparent_Power_B`,
262 |     `a`.`Apparent_Power_C` AS `Apparent_Power_C`,
263 |     `a`.`Apparent_Power_Total` AS `Apparent_Power_Total`,
264 |     `a`.`Power_Factor_A` AS `Power_Factor_A`,
265 |     `a`.`Power_Factor_B` AS `Power_Factor_B`,
266 |     `a`.`Power_Factor_C` AS `Power_Factor_C`,
267 |     `a`.`Power_Factor_Total` AS `Power_Factor_Total`,
268 |     `a`.`Displacement_Power_Factor_A` AS `Displacement_Power_Factor_A`,
269 |     `a`.`Displacement_Power_Factor_B` AS `Displacement_Power_Factor_B`,
270 |     `a`.`Displacement_Power_Factor_C` AS `Displacement_Power_Factor_C`,
271 |     `a`.`Displacement_Power_Factor_Total` AS `Displacement_Power_Factor_Total`,
272 |     `a`.`Frequency` AS `Frequency` 
273 |   from 
274 |     `rec_raw` `a`
275 | group by 2 ;
276 | 
277 | /*!40101 SET SQL_MODE=IFNULL(@OLD_SQL_MODE, '') */;
278 | /*!40014 SET FOREIGN_KEY_CHECKS=IF(@OLD_FOREIGN_KEY_CHECKS IS NULL, 1, @OLD_FOREIGN_KEY_CHECKS) */;
279 | /*!40101 SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT */;
280 | 


--------------------------------------------------------------------------------
/code_arduino/SimpleModbusMaster.cpp:
--------------------------------------------------------------------------------
  1 | #include "SimpleModbusMaster.h"
  2 | 
  3 | #define BUFFER_SIZE 128
  4 | 
  5 | // modbus specific exceptions
  6 | #define ILLEGAL_FUNCTION 1
  7 | #define ILLEGAL_DATA_ADDRESS 2
  8 | #define ILLEGAL_DATA_VALUE 3
  9 | 
 10 | unsigned char transmission_ready_Flag;
 11 | unsigned char messageOkFlag, messageErrFlag;
 12 | unsigned char retry_count;
 13 | unsigned char TxEnablePin;
 14 | // frame[] is used to recieve and transmit packages. 
 15 | // The maximum number of bytes in a modbus packet is 256 bytes
 16 | // This is limited to the serial buffer of 128 bytes
 17 | unsigned char frame[BUFFER_SIZE]; 
 18 | unsigned int timeout, polling;
 19 | unsigned int T1_5; // inter character time out in microseconds
 20 | unsigned int T3_5; // frame delay in microseconds
 21 | unsigned long previousTimeout, previousPolling;
 22 | unsigned int total_no_of_packets;
 23 | Packet* packet; // current packet
 24 | 
 25 | // function definitions
 26 | void constructPacket();
 27 | void checkResponse();
 28 | void check_F3_data(unsigned char buffer);
 29 | void check_F16_data();
 30 | unsigned char getData();
 31 | void check_packet_status();
 32 | unsigned int calculateCRC(unsigned char bufferSize);
 33 | void sendPacket(unsigned char bufferSize);
 34 | 
 35 | 
 36 | unsigned int modbus_update(Packet* packets) 
 37 | {
 38 | 	// Initialize the connection_status variable to the
 39 | 	// total_no_of_packets. This value cannot be used as 
 40 | 	// an index (and normally you won't). Returning this 
 41 | 	// value to the main skecth informs the user that the 
 42 | 	// previously scanned packet has no connection error.
 43 | 	
 44 | 	unsigned int connection_status = total_no_of_packets;
 45 | 
 46 |   if (transmission_ready_Flag) 
 47 | 	{
 48 | 	
 49 | 		static unsigned int packet_index;	
 50 | 	
 51 | 		unsigned int failed_connections = 0;
 52 | 	
 53 | 		unsigned char current_connection;
 54 | 	
 55 | 		do
 56 | 		{		
 57 | 		
 58 | 			if (packet_index == total_no_of_packets) // wrap around to the beginning
 59 | 				packet_index = 0;
 60 | 		
 61 | 			// proceed to the next packet
 62 | 			packet = &packets[packet_index];
 63 | 		
 64 | 			// get the current connection status
 65 | 			current_connection = packet->connection;
 66 | 		
 67 | 			if (!current_connection)
 68 | 			{
 69 | 				connection_status = packet_index;
 70 | 			
 71 | 				// If all the connection attributes are false return
 72 | 				// immediately to the main sketch
 73 | 				if (++failed_connections == total_no_of_packets)
 74 | 					return connection_status;
 75 | 			}
 76 | 		
 77 | 			packet_index++;
 78 | 			
 79 | 		}while (!current_connection); // while a packet has no connection get the next one
 80 | 		
 81 | 		constructPacket();
 82 | 	}
 83 |     
 84 | 	checkResponse();
 85 | 	
 86 |   check_packet_status();	
 87 | 	
 88 | 	return connection_status; 
 89 | }
 90 |   
 91 | void constructPacket()
 92 | {	 
 93 | 	transmission_ready_Flag = 0; // disable the next transmission
 94 | 	
 95 |   packet->requests++;
 96 |   frame[0] = packet->id;
 97 |   frame[1] = packet->function;
 98 |   frame[2] = packet->address >> 8; // address Hi
 99 |   frame[3] = packet->address & 0xFF; // address Lo
100 |   frame[4] = packet->no_of_registers >> 8; // no_of_registers Hi
101 |   frame[5] = packet->no_of_registers & 0xFF; // no_of_registers Lo
102 |         
103 |   unsigned int crc16;
104 | 	
105 |   // construct the frame according to the modbus function  
106 |   if (packet->function == PRESET_MULTIPLE_REGISTERS) 
107 |   {
108 |     unsigned char no_of_bytes = packet->no_of_registers * 2;
109 |     unsigned char frameSize = 9 + no_of_bytes; // first 7 bytes of the array + 2 bytes CRC+ noOfBytes
110 |     frame[6] = no_of_bytes; // number of bytes
111 |     unsigned char index = 7; // user data starts at index 7
112 |     unsigned int temp;
113 | 		unsigned char no_of_registers = packet->no_of_registers;
114 |     for (unsigned char i = 0; i < no_of_registers; i++)
115 |     {
116 |       temp = packet->register_array[i]; // get the data
117 |       frame[index] = temp >> 8;
118 |       index++;
119 |       frame[index] = temp & 0xFF;
120 |       index++;
121 |     }
122 |     crc16 = calculateCRC(frameSize - 2);	
123 |     frame[frameSize - 2] = crc16 >> 8; // split crc into 2 bytes
124 |     frame[frameSize - 1] = crc16 & 0xFF;
125 |     sendPacket(frameSize);
126 |          
127 |     if (packet->id == 0) // check broadcast id 
128 |     {
129 | 			messageOkFlag = 1; // message successful, there will be no response on a broadcast
130 | 			previousPolling = millis(); // start the polling delay
131 | 		}
132 |   }
133 | 	else // READ_HOLDING_REGISTERS is assumed
134 | 	{
135 | 		crc16 = calculateCRC(6); // the first 6 bytes of the frame is used in the CRC calculation
136 |     frame[6] = crc16 >> 8; // crc Lo
137 |     frame[7] = crc16 & 0xFF; // crc Hi
138 |     sendPacket(8); // a request with function 3, 4 & 6 is always 8 bytes in size 
139 | 	}
140 | }
141 |   
142 | void checkResponse()
143 | {
144 | 	if (!messageOkFlag && !messageErrFlag) // check for response
145 |   {
146 |     unsigned char buffer = getData();
147 |        
148 |     if (buffer > 0) // if there's something in the buffer continue
149 |     {
150 |       if (frame[0] == packet->id) // check id returned
151 |       {
152 | 				// to indicate an exception response a slave will 'OR' 
153 |         // the requested function with 0x80 
154 | 				if ((frame[1] & 0x80) == 0x80) // exctract 0x80
155 | 				{
156 | 					// the third byte in the exception response packet is the actual exception
157 | 					switch (frame[2])
158 | 					{
159 | 						case ILLEGAL_FUNCTION: packet->illegal_function++; break;
160 | 						case ILLEGAL_DATA_ADDRESS: packet->illegal_data_address++; break;
161 | 						case ILLEGAL_DATA_VALUE: packet->illegal_data_value++; break;
162 | 						default: packet->misc_exceptions++;
163 | 					}
164 | 					messageErrFlag = 1; // set an error
165 | 					previousPolling = millis(); // start the polling delay
166 | 				}
167 | 				else // the response is valid
168 | 				{
169 | 					if (frame[1] == packet->function) // check function number returned
170 | 					{
171 | 						// receive the frame according to the modbus function
172 | 						if (packet->function == PRESET_MULTIPLE_REGISTERS) 
173 | 							check_F16_data();
174 | 						else // READ_HOLDING_REGISTERS is assumed
175 | 							check_F3_data(buffer);
176 | 					}
177 | 					else // incorrect function number returned
178 | 					{
179 | 						packet->incorrect_function_returned++; 
180 | 						messageErrFlag = 1; // set an error
181 | 						previousPolling = millis(); // start the polling delay
182 | 					} 
183 | 				} // check exception response
184 | 			} 
185 | 			else // incorrect id returned
186 | 			{
187 | 				packet->incorrect_id_returned++; 
188 | 				messageErrFlag = 1; // set an error
189 | 				previousPolling = millis(); // start the polling delay
190 | 			}
191 | 		} // check buffer
192 | 	} // check message booleans
193 | }
194 | 
195 | // checks the time out and polling delay and if a message has been recieved succesfully 
196 | void check_packet_status()
197 | {
198 |   unsigned char pollingFinished = (millis() - previousPolling) > polling;
199 | 
200 |   if (messageOkFlag && pollingFinished) // if a valid message was recieved and the polling delay has expired clear the flag
201 |   {
202 |     messageOkFlag = 0;
203 |     packet->successful_requests++; // transaction sent successfully
204 |     packet->retries = 0; // if a request was successful reset the retry counter
205 |     transmission_ready_Flag = 1; 
206 |   }  
207 | 	
208 |   // if an error message was recieved and the polling delay has expired clear the flag
209 |   if (messageErrFlag && pollingFinished) 
210 |   {
211 |     messageErrFlag = 0; // clear error flag 
212 |     packet->retries++;
213 |     transmission_ready_Flag = 1;
214 |   } 
215 |  	
216 |   // if the timeout delay has past clear the slot number for next request
217 |   if (!transmission_ready_Flag && ((millis() - previousTimeout) > timeout)) 
218 |   {
219 |     packet->timeout++;
220 |     packet->retries++;
221 |     transmission_ready_Flag = 1; 
222 |   }
223 |     
224 |   // if the number of retries have reached the max number of retries 
225 |   // allowable, stop requesting the specific packet
226 |   if (packet->retries == retry_count)
227 | 	{
228 |     packet->connection = 0;
229 | 		packet->retries = 0;
230 | 	}
231 | 		
232 | 	if (transmission_ready_Flag)
233 | 	{
234 | 		// update the total_errors atribute of the 
235 | 		// packet before requesting a new one
236 | 		packet->total_errors = packet->timeout + 
237 | 													 packet->incorrect_id_returned +
238 | 													 packet->incorrect_function_returned +
239 | 													 packet->incorrect_bytes_returned +
240 | 													 packet->checksum_failed +
241 | 													 packet->buffer_errors +
242 | 													 packet->illegal_function +
243 | 													 packet->illegal_data_address +
244 | 													 packet->illegal_data_value;
245 | 	}
246 | }
247 | 
248 | void check_F3_data(unsigned char buffer)
249 | {
250 | 	unsigned char no_of_registers = packet->no_of_registers;
251 |   unsigned char no_of_bytes = no_of_registers * 2;
252 |   if (frame[2] == no_of_bytes) // check number of bytes returned
253 |   {
254 |     // combine the crc Low & High bytes
255 |     unsigned int recieved_crc = ((frame[buffer - 2] << 8) | frame[buffer - 1]); 
256 |     unsigned int calculated_crc = calculateCRC(buffer - 2);
257 | 				
258 |     if (calculated_crc == recieved_crc) // verify checksum
259 |     {
260 |       unsigned char index = 3;
261 | 			for (unsigned char i = 0; i < no_of_registers; i++)
262 |       {
263 |         // start at the 4th element in the recieveFrame and combine the Lo byte 
264 | 				packet->register_array[i] = (frame[index] << 8) | frame[index + 1]; 
265 |         index += 2;
266 |       }
267 |       messageOkFlag = 1; // message successful
268 |     }
269 |     else // checksum failed
270 |     {
271 |       packet->checksum_failed++; 
272 |       messageErrFlag = 1; // set an error
273 |     }
274 |       
275 |     // start the polling delay for messageOkFlag & messageErrFlag
276 |     previousPolling = millis(); 
277 |   }
278 |   else // incorrect number of bytes returned  
279 |   {
280 |     packet->incorrect_bytes_returned++; 
281 |     messageErrFlag = 1; // set an error
282 |     previousPolling = millis(); // start the polling delay
283 |   }	                     
284 | }
285 |   
286 | void check_F16_data()
287 | {
288 |   unsigned int recieved_address = ((frame[2] << 8) | frame[3]);
289 |   unsigned int recieved_registers = ((frame[4] << 8) | frame[5]); 
290 |   unsigned int recieved_crc = ((frame[6] << 8) | frame[7]); // combine the crc Low & High bytes
291 |   unsigned int calculated_crc = calculateCRC(6); // only the first 6 bytes are used for crc calculation
292 |   
293 |   // check the whole packet		
294 |   if (recieved_address == packet->address && 
295 |       recieved_registers == packet->no_of_registers && 
296 |       recieved_crc == calculated_crc)
297 |       messageOkFlag = 1; // message successful
298 |   else
299 |   {
300 |     packet->checksum_failed++; 
301 |     messageErrFlag = 1;
302 |   }
303 | 						
304 |   // start the polling delay for messageOkFlag & messageErrFlag
305 |   previousPolling = millis();
306 | }
307 | 
308 | // get the serial data from the buffer
309 | unsigned char getData()
310 | {
311 |   unsigned char buffer = 0;
312 | 	unsigned char overflowFlag = 0;
313 | 		
314 |   while (Serial.available())
315 |   {
316 | 		// The maximum number of bytes is limited to the serial buffer size of 128 bytes
317 | 		// If more bytes is received than the BUFFER_SIZE the overflow flag will be set and the 
318 | 		// serial buffer will be red untill all the data is cleared from the receive buffer,
319 | 		// while the slave is still responding.
320 | 		if (overflowFlag) 
321 | 			Serial.read();
322 | 		else
323 | 		{
324 | 			if (buffer == BUFFER_SIZE)
325 | 				overflowFlag = 1;
326 | 				
327 | 			frame[buffer] = Serial.read();
328 | 			buffer++;
329 | 		}
330 |       
331 |     delayMicroseconds(T1_5); // inter character time out
332 |   }
333 | 	
334 |   // The minimum buffer size from a slave can be an exception response of 5 bytes 
335 |   // If the buffer was partialy filled clear the buffer.
336 | 	// The maximum number of bytes in a modbus packet is 256 bytes.
337 | 	// The serial buffer limits this to 128 bytes.
338 |   // If the buffer overflows than clear the buffer and set
339 |   // a packet error.
340 |   if ((buffer > 0 && buffer < 5) || overflowFlag)
341 |   {
342 |     buffer = 0;
343 |     packet->buffer_errors++; 
344 |     messageErrFlag = 1; // set an error
345 |     previousPolling = millis(); // start the polling delay 
346 |   }
347 | 	
348 |   return buffer;
349 | }
350 | 
351 | void modbus_configure(long baud, unsigned int _timeout, unsigned int _polling, 
352 | 										unsigned char _retry_count, unsigned char _TxEnablePin, 
353 | 										Packet* _packet, unsigned int _total_no_of_packets)
354 | {
355 |   Serial.begin(baud,SERIAL_8E1);
356 |   
357 |   if (_TxEnablePin > 1) 
358 |   { // pin 0 & pin 1 are reserved for RX/TX. To disable set _TxEnablePin < 2
359 |     TxEnablePin = _TxEnablePin; 
360 |     pinMode(TxEnablePin, OUTPUT);
361 |     digitalWrite(TxEnablePin, LOW);
362 |   }
363 | 	
364 | 	// Modbus states that a baud rate higher than 19200 must use a fixed 750 us 
365 |   // for inter character time out and 1.75 ms for a frame delay.
366 |   // For baud rates below 19200 the timeing is more critical and has to be calculated.
367 |   // E.g. 9600 baud in a 10 bit packet is 960 characters per second
368 |   // In milliseconds this will be 960characters per 1000ms. So for 1 character
369 |   // 1000ms/960characters is 1.04167ms per character and finaly modbus states an
370 |   // intercharacter must be 1.5T or 1.5 times longer than a normal character and thus
371 |   // 1.5T = 1.04167ms * 1.5 = 1.5625ms. A frame delay is 3.5T.
372 | 	
373 | 	if (baud > 19200)
374 | 	{
375 | 		T1_5 = 750; 
376 | 		T3_5 = 1750; 
377 | 	}
378 | 	else 
379 | 	{
380 | 		T1_5 = 15000000/baud; // 1T * 1.5 = T1.5
381 | 		T3_5 = 35000000/baud; // 1T * 3.5 = T3.5
382 | 	}
383 | 	
384 | 	// initialize connection status of each packet
385 | 	for (unsigned char i = 0; i < _total_no_of_packets; i++)
386 | 	{
387 | 		_packet->connection = 1;
388 | 		_packet++;
389 | 	}
390 | 	
391 | 	// initialize
392 | 	transmission_ready_Flag = 1;
393 | 	messageOkFlag = 0; 
394 |   messageErrFlag = 0;
395 |   timeout = _timeout;
396 |   polling = _polling;
397 | 	retry_count = _retry_count;
398 | 	TxEnablePin = _TxEnablePin;
399 | 	total_no_of_packets = _total_no_of_packets;
400 |   previousTimeout = 0; 
401 |   previousPolling = 0; 
402 | } 
403 | 
404 | unsigned int calculateCRC(unsigned char bufferSize) 
405 | {
406 |   unsigned int temp, temp2, flag;
407 |   temp = 0xFFFF;
408 |   for (unsigned char i = 0; i < bufferSize; i++)
409 |   {
410 |     temp = temp ^ frame[i];
411 |     for (unsigned char j = 1; j <= 8; j++)
412 |     {
413 |       flag = temp & 0x0001;
414 |       temp >>= 1;
415 |       if (flag)
416 |         temp ^= 0xA001;
417 |     }
418 |   }
419 |   // Reverse byte order. 
420 |   temp2 = temp >> 8;
421 |   temp = (temp << 8) | temp2;
422 |   temp &= 0xFFFF;
423 |   return temp; // the returned value is already swopped - crcLo byte is first & crcHi byte is last
424 | }
425 | 
426 | void sendPacket(unsigned char bufferSize)
427 | {
428 | 	if (TxEnablePin > 1)
429 | 		digitalWrite(TxEnablePin, HIGH);
430 | 		
431 | 	for (unsigned char i = 0; i < bufferSize; i++)
432 | 		Serial.write(frame[i]);
433 | 		
434 | 	Serial.flush();
435 | 	
436 | 	// allow a frame delay to indicate end of transmission
437 | 	delayMicroseconds(T3_5); 
438 | 	
439 | 	if (TxEnablePin > 1)
440 | 		digitalWrite(TxEnablePin, LOW);
441 | 		
442 | 	previousTimeout = millis(); // initialize timeout delay	
443 | }
444 | 


--------------------------------------------------------------------------------
/code_ESP32/SimpleModbusMaster.cpp:
--------------------------------------------------------------------------------
  1 | #include "SimpleModbusMaster.h"
  2 | 
  3 | #define BUFFER_SIZE 128
  4 | 
  5 | // modbus specific exceptions
  6 | #define ILLEGAL_FUNCTION 1
  7 | #define ILLEGAL_DATA_ADDRESS 2
  8 | #define ILLEGAL_DATA_VALUE 3
  9 | 
 10 | unsigned char transmission_ready_Flag;
 11 | unsigned char messageOkFlag, messageErrFlag;
 12 | unsigned char retry_count;
 13 | unsigned char TxEnablePin;
 14 | // frame[] is used to recieve and transmit packages. 
 15 | // The maximum number of bytes in a modbus packet is 256 bytes
 16 | // This is limited to the serial buffer of 128 bytes
 17 | unsigned char frame[BUFFER_SIZE]; 
 18 | unsigned int timeout, polling;
 19 | unsigned int T1_5; // inter character time out in microseconds
 20 | unsigned int T3_5; // frame delay in microseconds
 21 | unsigned long previousTimeout, previousPolling;
 22 | unsigned int total_no_of_packets;
 23 | Packet* packet; // current packet
 24 | 
 25 | // function definitions
 26 | void constructPacket();
 27 | void checkResponse();
 28 | void check_F3_data(unsigned char buffer);
 29 | void check_F16_data();
 30 | unsigned char getData();
 31 | void check_packet_status();
 32 | unsigned int calculateCRC(unsigned char bufferSize);
 33 | void sendPacket(unsigned char bufferSize);
 34 | 
 35 | 
 36 | unsigned int modbus_update(Packet* packets) 
 37 | {
 38 | 	// Initialize the connection_status variable to the
 39 | 	// total_no_of_packets. This value cannot be used as 
 40 | 	// an index (and normally you won't). Returning this 
 41 | 	// value to the main skecth informs the user that the 
 42 | 	// previously scanned packet has no connection error.
 43 | 	
 44 | 	unsigned int connection_status = total_no_of_packets;
 45 | 
 46 |   if (transmission_ready_Flag) 
 47 | 	{
 48 | 	
 49 | 		static unsigned int packet_index;	
 50 | 	
 51 | 		unsigned int failed_connections = 0;
 52 | 	
 53 | 		unsigned char current_connection;
 54 | 	
 55 | 		do
 56 | 		{		
 57 | 		
 58 | 			if (packet_index == total_no_of_packets) // wrap around to the beginning
 59 | 				packet_index = 0;
 60 | 		
 61 | 			// proceed to the next packet
 62 | 			packet = &packets[packet_index];
 63 | 		
 64 | 			// get the current connection status
 65 | 			current_connection = packet->connection;
 66 | 		
 67 | 			if (!current_connection)
 68 | 			{
 69 | 				connection_status = packet_index;
 70 | 			
 71 | 				// If all the connection attributes are false return
 72 | 				// immediately to the main sketch
 73 | 				if (++failed_connections == total_no_of_packets)
 74 | 					return connection_status;
 75 | 			}
 76 | 		
 77 | 			packet_index++;
 78 | 			
 79 | 		}while (!current_connection); // while a packet has no connection get the next one
 80 | 		
 81 | 		constructPacket();
 82 | 	}
 83 |     
 84 | 	checkResponse();
 85 | 	
 86 |   check_packet_status();	
 87 | 	
 88 | 	return connection_status; 
 89 | }
 90 |   
 91 | void constructPacket()
 92 | {	 
 93 | 	transmission_ready_Flag = 0; // disable the next transmission
 94 | 	
 95 |   packet->requests++;
 96 |   frame[0] = packet->id;
 97 |   frame[1] = packet->function;
 98 |   frame[2] = packet->address >> 8; // address Hi
 99 |   frame[3] = packet->address & 0xFF; // address Lo
100 |   frame[4] = packet->no_of_registers >> 8; // no_of_registers Hi
101 |   frame[5] = packet->no_of_registers & 0xFF; // no_of_registers Lo
102 |         
103 |   unsigned int crc16;
104 | 	
105 |   // construct the frame according to the modbus function  
106 |   if (packet->function == PRESET_MULTIPLE_REGISTERS) 
107 |   {
108 |     unsigned char no_of_bytes = packet->no_of_registers * 2;
109 |     unsigned char frameSize = 9 + no_of_bytes; // first 7 bytes of the array + 2 bytes CRC+ noOfBytes
110 |     frame[6] = no_of_bytes; // number of bytes
111 |     unsigned char index = 7; // user data starts at index 7
112 |     unsigned int temp;
113 | 		unsigned char no_of_registers = packet->no_of_registers;
114 |     for (unsigned char i = 0; i < no_of_registers; i++)
115 |     {
116 |       temp = packet->register_array[i]; // get the data
117 |       frame[index] = temp >> 8;
118 |       index++;
119 |       frame[index] = temp & 0xFF;
120 |       index++;
121 |     }
122 |     crc16 = calculateCRC(frameSize - 2);	
123 |     frame[frameSize - 2] = crc16 >> 8; // split crc into 2 bytes
124 |     frame[frameSize - 1] = crc16 & 0xFF;
125 |     sendPacket(frameSize);
126 |          
127 |     if (packet->id == 0) // check broadcast id 
128 |     {
129 | 			messageOkFlag = 1; // message successful, there will be no response on a broadcast
130 | 			previousPolling = millis(); // start the polling delay
131 | 		}
132 |   }
133 | 	else // READ_HOLDING_REGISTERS is assumed
134 | 	{
135 | 		crc16 = calculateCRC(6); // the first 6 bytes of the frame is used in the CRC calculation
136 |     frame[6] = crc16 >> 8; // crc Lo
137 |     frame[7] = crc16 & 0xFF; // crc Hi
138 |     sendPacket(8); // a request with function 3, 4 & 6 is always 8 bytes in size 
139 | 	}
140 | }
141 |   
142 | void checkResponse()
143 | {
144 | 	if (!messageOkFlag && !messageErrFlag) // check for response
145 |   {
146 |     unsigned char buffer = getData();
147 |        
148 |     if (buffer > 0) // if there's something in the buffer continue
149 |     {
150 |       if (frame[0] == packet->id) // check id returned
151 |       {
152 | 				// to indicate an exception response a slave will 'OR' 
153 |         // the requested function with 0x80 
154 | 				if ((frame[1] & 0x80) == 0x80) // exctract 0x80
155 | 				{
156 | 					// the third byte in the exception response packet is the actual exception
157 | 					switch (frame[2])
158 | 					{
159 | 						case ILLEGAL_FUNCTION: packet->illegal_function++; break;
160 | 						case ILLEGAL_DATA_ADDRESS: packet->illegal_data_address++; break;
161 | 						case ILLEGAL_DATA_VALUE: packet->illegal_data_value++; break;
162 | 						default: packet->misc_exceptions++;
163 | 					}
164 | 					messageErrFlag = 1; // set an error
165 | 					previousPolling = millis(); // start the polling delay
166 | 				}
167 | 				else // the response is valid
168 | 				{
169 | 					if (frame[1] == packet->function) // check function number returned
170 | 					{
171 | 						// receive the frame according to the modbus function
172 | 						if (packet->function == PRESET_MULTIPLE_REGISTERS) 
173 | 							check_F16_data();
174 | 						else // READ_HOLDING_REGISTERS is assumed
175 | 							check_F3_data(buffer);
176 | 					}
177 | 					else // incorrect function number returned
178 | 					{
179 | 						packet->incorrect_function_returned++; 
180 | 						messageErrFlag = 1; // set an error
181 | 						previousPolling = millis(); // start the polling delay
182 | 					} 
183 | 				} // check exception response
184 | 			} 
185 | 			else // incorrect id returned
186 | 			{
187 | 				packet->incorrect_id_returned++; 
188 | 				messageErrFlag = 1; // set an error
189 | 				previousPolling = millis(); // start the polling delay
190 | 			}
191 | 		} // check buffer
192 | 	} // check message booleans
193 | }
194 | 
195 | // checks the time out and polling delay and if a message has been recieved succesfully 
196 | void check_packet_status()
197 | {
198 |   unsigned char pollingFinished = (millis() - previousPolling) > polling;
199 | 
200 |   if (messageOkFlag && pollingFinished) // if a valid message was recieved and the polling delay has expired clear the flag
201 |   {
202 |     messageOkFlag = 0;
203 |     packet->successful_requests++; // transaction sent successfully
204 |     packet->retries = 0; // if a request was successful reset the retry counter
205 |     transmission_ready_Flag = 1; 
206 |   }  
207 | 	
208 |   // if an error message was recieved and the polling delay has expired clear the flag
209 |   if (messageErrFlag && pollingFinished) 
210 |   {
211 |     messageErrFlag = 0; // clear error flag 
212 |     packet->retries++;
213 |     transmission_ready_Flag = 1;
214 |   } 
215 |  	
216 |   // if the timeout delay has past clear the slot number for next request
217 |   if (!transmission_ready_Flag && ((millis() - previousTimeout) > timeout)) 
218 |   {
219 |     packet->timeout++;
220 |     packet->retries++;
221 |     transmission_ready_Flag = 1; 
222 |   }
223 |     
224 |   // if the number of retries have reached the max number of retries 
225 |   // allowable, stop requesting the specific packet
226 |   if (packet->retries == retry_count)
227 | 	{
228 |     packet->connection = 0;
229 | 		packet->retries = 0;
230 | 	}
231 | 		
232 | 	if (transmission_ready_Flag)
233 | 	{
234 | 		// update the total_errors atribute of the 
235 | 		// packet before requesting a new one
236 | 		packet->total_errors = packet->timeout + 
237 | 													 packet->incorrect_id_returned +
238 | 													 packet->incorrect_function_returned +
239 | 													 packet->incorrect_bytes_returned +
240 | 													 packet->checksum_failed +
241 | 													 packet->buffer_errors +
242 | 													 packet->illegal_function +
243 | 													 packet->illegal_data_address +
244 | 													 packet->illegal_data_value;
245 | 	}
246 | }
247 | 
248 | void check_F3_data(unsigned char buffer)
249 | {
250 | 	unsigned char no_of_registers = packet->no_of_registers;
251 |   unsigned char no_of_bytes = no_of_registers * 2;
252 |   if (frame[2] == no_of_bytes) // check number of bytes returned
253 |   {
254 |     // combine the crc Low & High bytes
255 |     unsigned int recieved_crc = ((frame[buffer - 2] << 8) | frame[buffer - 1]); 
256 |     unsigned int calculated_crc = calculateCRC(buffer - 2);
257 | 				
258 |     if (calculated_crc == recieved_crc) // verify checksum
259 |     {
260 |       unsigned char index = 3;
261 | 			for (unsigned char i = 0; i < no_of_registers; i++)
262 |       {
263 |         // start at the 4th element in the recieveFrame and combine the Lo byte 
264 | 				packet->register_array[i] = (frame[index] << 8) | frame[index + 1]; 
265 |         index += 2;
266 |       }
267 |       messageOkFlag = 1; // message successful
268 |     }
269 |     else // checksum failed
270 |     {
271 |       packet->checksum_failed++; 
272 |       messageErrFlag = 1; // set an error
273 |     }
274 |       
275 |     // start the polling delay for messageOkFlag & messageErrFlag
276 |     previousPolling = millis(); 
277 |   }
278 |   else // incorrect number of bytes returned  
279 |   {
280 |     packet->incorrect_bytes_returned++; 
281 |     messageErrFlag = 1; // set an error
282 |     previousPolling = millis(); // start the polling delay
283 |   }	                     
284 | }
285 |   
286 | void check_F16_data()
287 | {
288 |   unsigned int recieved_address = ((frame[2] << 8) | frame[3]);
289 |   unsigned int recieved_registers = ((frame[4] << 8) | frame[5]); 
290 |   unsigned int recieved_crc = ((frame[6] << 8) | frame[7]); // combine the crc Low & High bytes
291 |   unsigned int calculated_crc = calculateCRC(6); // only the first 6 bytes are used for crc calculation
292 |   
293 |   // check the whole packet		
294 |   if (recieved_address == packet->address && 
295 |       recieved_registers == packet->no_of_registers && 
296 |       recieved_crc == calculated_crc)
297 |       messageOkFlag = 1; // message successful
298 |   else
299 |   {
300 |     packet->checksum_failed++; 
301 |     messageErrFlag = 1;
302 |   }
303 | 						
304 |   // start the polling delay for messageOkFlag & messageErrFlag
305 |   previousPolling = millis();
306 | }
307 | 
308 | // get the serial data from the buffer
309 | unsigned char getData()
310 | {
311 |   unsigned char buffer = 0;
312 | 	unsigned char overflowFlag = 0;
313 | 		
314 |   while (Serial2.available())
315 |   {
316 | 		// The maximum number of bytes is limited to the serial buffer size of 128 bytes
317 | 		// If more bytes is received than the BUFFER_SIZE the overflow flag will be set and the 
318 | 		// serial buffer will be red untill all the data is cleared from the receive buffer,
319 | 		// while the slave is still responding.
320 | 		if (overflowFlag) 
321 | 			Serial2.read();
322 | 		else
323 | 		{
324 | 			if (buffer == BUFFER_SIZE)
325 | 				overflowFlag = 1;
326 | 				
327 | 			frame[buffer] = Serial2.read();
328 | 			buffer++;
329 | 		}
330 |       
331 |     delayMicroseconds(T1_5); // inter character time out
332 |   }
333 | 	
334 |   // The minimum buffer size from a slave can be an exception response of 5 bytes 
335 |   // If the buffer was partialy filled clear the buffer.
336 | 	// The maximum number of bytes in a modbus packet is 256 bytes.
337 | 	// The serial buffer limits this to 128 bytes.
338 |   // If the buffer overflows than clear the buffer and set
339 |   // a packet error.
340 |   if ((buffer > 0 && buffer < 5) || overflowFlag)
341 |   {
342 |     buffer = 0;
343 |     packet->buffer_errors++; 
344 |     messageErrFlag = 1; // set an error
345 |     previousPolling = millis(); // start the polling delay 
346 |   }
347 | 	
348 |   return buffer;
349 | }
350 | 
351 | void modbus_configure(long baud, unsigned int _timeout, unsigned int _polling, 
352 | 										unsigned char _retry_count, unsigned char _TxEnablePin, 
353 | 										Packet* _packet, unsigned int _total_no_of_packets)
354 | {
355 |   Serial2.begin(baud,SERIAL_8E1);
356 |   
357 |   if (_TxEnablePin > 1) 
358 |   { // pin 0 & pin 1 are reserved for RX/TX. To disable set _TxEnablePin < 2
359 |     TxEnablePin = _TxEnablePin; 
360 |     pinMode(TxEnablePin, OUTPUT);
361 |     digitalWrite(TxEnablePin, LOW);
362 |   }
363 | 	
364 | 	// Modbus states that a baud rate higher than 19200 must use a fixed 750 us 
365 |   // for inter character time out and 1.75 ms for a frame delay.
366 |   // For baud rates below 19200 the timeing is more critical and has to be calculated.
367 |   // E.g. 9600 baud in a 10 bit packet is 960 characters per second
368 |   // In milliseconds this will be 960characters per 1000ms. So for 1 character
369 |   // 1000ms/960characters is 1.04167ms per character and finaly modbus states an
370 |   // intercharacter must be 1.5T or 1.5 times longer than a normal character and thus
371 |   // 1.5T = 1.04167ms * 1.5 = 1.5625ms. A frame delay is 3.5T.
372 | 	
373 | 	if (baud > 19200)
374 | 	{
375 | 		T1_5 = 750; 
376 | 		T3_5 = 1750; 
377 | 	}
378 | 	else 
379 | 	{
380 | 		T1_5 = 15000000/baud; // 1T * 1.5 = T1.5
381 | 		T3_5 = 35000000/baud; // 1T * 3.5 = T3.5
382 | 	}
383 | 	
384 | 	// initialize connection status of each packet
385 | 	for (unsigned char i = 0; i < _total_no_of_packets; i++)
386 | 	{
387 | 		_packet->connection = 1;
388 | 		_packet++;
389 | 	}
390 | 	
391 | 	// initialize
392 | 	transmission_ready_Flag = 1;
393 | 	messageOkFlag = 0; 
394 |   messageErrFlag = 0;
395 |   timeout = _timeout;
396 |   polling = _polling;
397 | 	retry_count = _retry_count;
398 | 	TxEnablePin = _TxEnablePin;
399 | 	total_no_of_packets = _total_no_of_packets;
400 |   previousTimeout = 0; 
401 |   previousPolling = 0; 
402 | } 
403 | 
404 | unsigned int calculateCRC(unsigned char bufferSize) 
405 | {
406 |   unsigned int temp, temp2, flag;
407 |   temp = 0xFFFF;
408 |   for (unsigned char i = 0; i < bufferSize; i++)
409 |   {
410 |     temp = temp ^ frame[i];
411 |     for (unsigned char j = 1; j <= 8; j++)
412 |     {
413 |       flag = temp & 0x0001;
414 |       temp >>= 1;
415 |       if (flag)
416 |         temp ^= 0xA001;
417 |     }
418 |   }
419 |   // Reverse byte order. 
420 |   temp2 = temp >> 8;
421 |   temp = (temp << 8) | temp2;
422 |   temp &= 0xFFFF;
423 |   return temp; // the returned value is already swopped - crcLo byte is first & crcHi byte is last
424 | }
425 | 
426 | void sendPacket(unsigned char bufferSize)
427 | {
428 | 	if (TxEnablePin > 1)
429 | 		digitalWrite(TxEnablePin, HIGH);
430 | 		
431 | 	for (unsigned char i = 0; i < bufferSize; i++)
432 | 		Serial2.write(frame[i]);
433 | 		
434 | 	Serial2.flush();
435 | 	
436 | 	// allow a frame delay to indicate end of transmission
437 | 	delayMicroseconds(T3_5); 
438 | 	
439 | 	if (TxEnablePin > 1)
440 | 		digitalWrite(TxEnablePin, LOW);
441 | 		
442 | 	previousTimeout = millis(); // initialize timeout delay	
443 | }
444 | 


--------------------------------------------------------------------------------
/code_arduino_video01/SimpleModbusMaster.cpp:
--------------------------------------------------------------------------------
  1 | #include "SimpleModbusMaster.h"
  2 | 
  3 | #define BUFFER_SIZE 128
  4 | 
  5 | // modbus specific exceptions
  6 | #define ILLEGAL_FUNCTION 1
  7 | #define ILLEGAL_DATA_ADDRESS 2
  8 | #define ILLEGAL_DATA_VALUE 3
  9 | 
 10 | unsigned char transmission_ready_Flag;
 11 | unsigned char messageOkFlag, messageErrFlag;
 12 | unsigned char retry_count;
 13 | unsigned char TxEnablePin;
 14 | // frame[] is used to recieve and transmit packages. 
 15 | // The maximum number of bytes in a modbus packet is 256 bytes
 16 | // This is limited to the serial buffer of 128 bytes
 17 | unsigned char frame[BUFFER_SIZE]; 
 18 | unsigned int timeout, polling;
 19 | unsigned int T1_5; // inter character time out in microseconds
 20 | unsigned int T3_5; // frame delay in microseconds
 21 | unsigned long previousTimeout, previousPolling;
 22 | unsigned int total_no_of_packets;
 23 | Packet* packet; // current packet
 24 | 
 25 | // function definitions
 26 | void constructPacket();
 27 | void checkResponse();
 28 | void check_F3_data(unsigned char buffer);
 29 | void check_F16_data();
 30 | unsigned char getData();
 31 | void check_packet_status();
 32 | unsigned int calculateCRC(unsigned char bufferSize);
 33 | void sendPacket(unsigned char bufferSize);
 34 | 
 35 | 
 36 | unsigned int modbus_update(Packet* packets) 
 37 | {
 38 | 	// Initialize the connection_status variable to the
 39 | 	// total_no_of_packets. This value cannot be used as 
 40 | 	// an index (and normally you won't). Returning this 
 41 | 	// value to the main skecth informs the user that the 
 42 | 	// previously scanned packet has no connection error.
 43 | 	
 44 | 	unsigned int connection_status = total_no_of_packets;
 45 | 
 46 |   if (transmission_ready_Flag) 
 47 | 	{
 48 | 	
 49 | 		static unsigned int packet_index;	
 50 | 	
 51 | 		unsigned int failed_connections = 0;
 52 | 	
 53 | 		unsigned char current_connection;
 54 | 	
 55 | 		do
 56 | 		{		
 57 | 		
 58 | 			if (packet_index == total_no_of_packets) // wrap around to the beginning
 59 | 				packet_index = 0;
 60 | 		
 61 | 			// proceed to the next packet
 62 | 			packet = &packets[packet_index];
 63 | 		
 64 | 			// get the current connection status
 65 | 			current_connection = packet->connection;
 66 | 		
 67 | 			if (!current_connection)
 68 | 			{
 69 | 				connection_status = packet_index;
 70 | 			
 71 | 				// If all the connection attributes are false return
 72 | 				// immediately to the main sketch
 73 | 				if (++failed_connections == total_no_of_packets)
 74 | 					return connection_status;
 75 | 			}
 76 | 		
 77 | 			packet_index++;
 78 | 			
 79 | 		}while (!current_connection); // while a packet has no connection get the next one
 80 | 		
 81 | 		constructPacket();
 82 | 	}
 83 |     
 84 | 	checkResponse();
 85 | 	
 86 |   check_packet_status();	
 87 | 	
 88 | 	return connection_status; 
 89 | }
 90 |   
 91 | void constructPacket()
 92 | {	 
 93 | 	transmission_ready_Flag = 0; // disable the next transmission
 94 | 	
 95 |   packet->requests++;
 96 |   frame[0] = packet->id;
 97 |   frame[1] = packet->function;
 98 |   frame[2] = packet->address >> 8; // address Hi
 99 |   frame[3] = packet->address & 0xFF; // address Lo
100 |   frame[4] = packet->no_of_registers >> 8; // no_of_registers Hi
101 |   frame[5] = packet->no_of_registers & 0xFF; // no_of_registers Lo
102 |         
103 |   unsigned int crc16;
104 | 	
105 |   // construct the frame according to the modbus function  
106 |   if (packet->function == PRESET_MULTIPLE_REGISTERS) 
107 |   {
108 |     unsigned char no_of_bytes = packet->no_of_registers * 2;
109 |     unsigned char frameSize = 9 + no_of_bytes; // first 7 bytes of the array + 2 bytes CRC+ noOfBytes
110 |     frame[6] = no_of_bytes; // number of bytes
111 |     unsigned char index = 7; // user data starts at index 7
112 |     unsigned int temp;
113 | 		unsigned char no_of_registers = packet->no_of_registers;
114 |     for (unsigned char i = 0; i < no_of_registers; i++)
115 |     {
116 |       temp = packet->register_array[i]; // get the data
117 |       frame[index] = temp >> 8;
118 |       index++;
119 |       frame[index] = temp & 0xFF;
120 |       index++;
121 |     }
122 |     crc16 = calculateCRC(frameSize - 2);	
123 |     frame[frameSize - 2] = crc16 >> 8; // split crc into 2 bytes
124 |     frame[frameSize - 1] = crc16 & 0xFF;
125 |     sendPacket(frameSize);
126 |          
127 |     if (packet->id == 0) // check broadcast id 
128 |     {
129 | 			messageOkFlag = 1; // message successful, there will be no response on a broadcast
130 | 			previousPolling = millis(); // start the polling delay
131 | 		}
132 |   }
133 | 	else // READ_HOLDING_REGISTERS is assumed
134 | 	{
135 | 		crc16 = calculateCRC(6); // the first 6 bytes of the frame is used in the CRC calculation
136 |     frame[6] = crc16 >> 8; // crc Lo
137 |     frame[7] = crc16 & 0xFF; // crc Hi
138 |     sendPacket(8); // a request with function 3, 4 & 6 is always 8 bytes in size 
139 | 	}
140 | }
141 |   
142 | void checkResponse()
143 | {
144 | 	if (!messageOkFlag && !messageErrFlag) // check for response
145 |   {
146 |     unsigned char buffer = getData();
147 |        
148 |     if (buffer > 0) // if there's something in the buffer continue
149 |     {
150 |       if (frame[0] == packet->id) // check id returned
151 |       {
152 | 				// to indicate an exception response a slave will 'OR' 
153 |         // the requested function with 0x80 
154 | 				if ((frame[1] & 0x80) == 0x80) // exctract 0x80
155 | 				{
156 | 					// the third byte in the exception response packet is the actual exception
157 | 					switch (frame[2])
158 | 					{
159 | 						case ILLEGAL_FUNCTION: packet->illegal_function++; break;
160 | 						case ILLEGAL_DATA_ADDRESS: packet->illegal_data_address++; break;
161 | 						case ILLEGAL_DATA_VALUE: packet->illegal_data_value++; break;
162 | 						default: packet->misc_exceptions++;
163 | 					}
164 | 					messageErrFlag = 1; // set an error
165 | 					previousPolling = millis(); // start the polling delay
166 | 				}
167 | 				else // the response is valid
168 | 				{
169 | 					if (frame[1] == packet->function) // check function number returned
170 | 					{
171 | 						// receive the frame according to the modbus function
172 | 						if (packet->function == PRESET_MULTIPLE_REGISTERS) 
173 | 							check_F16_data();
174 | 						else // READ_HOLDING_REGISTERS is assumed
175 | 							check_F3_data(buffer);
176 | 					}
177 | 					else // incorrect function number returned
178 | 					{
179 | 						packet->incorrect_function_returned++; 
180 | 						messageErrFlag = 1; // set an error
181 | 						previousPolling = millis(); // start the polling delay
182 | 					} 
183 | 				} // check exception response
184 | 			} 
185 | 			else // incorrect id returned
186 | 			{
187 | 				packet->incorrect_id_returned++; 
188 | 				messageErrFlag = 1; // set an error
189 | 				previousPolling = millis(); // start the polling delay
190 | 			}
191 | 		} // check buffer
192 | 	} // check message booleans
193 | }
194 | 
195 | // checks the time out and polling delay and if a message has been recieved succesfully 
196 | void check_packet_status()
197 | {
198 |   unsigned char pollingFinished = (millis() - previousPolling) > polling;
199 | 
200 |   if (messageOkFlag && pollingFinished) // if a valid message was recieved and the polling delay has expired clear the flag
201 |   {
202 |     messageOkFlag = 0;
203 |     packet->successful_requests++; // transaction sent successfully
204 |     packet->retries = 0; // if a request was successful reset the retry counter
205 |     transmission_ready_Flag = 1; 
206 |   }  
207 | 	
208 |   // if an error message was recieved and the polling delay has expired clear the flag
209 |   if (messageErrFlag && pollingFinished) 
210 |   {
211 |     messageErrFlag = 0; // clear error flag 
212 |     packet->retries++;
213 |     transmission_ready_Flag = 1;
214 |   } 
215 |  	
216 |   // if the timeout delay has past clear the slot number for next request
217 |   if (!transmission_ready_Flag && ((millis() - previousTimeout) > timeout)) 
218 |   {
219 |     packet->timeout++;
220 |     packet->retries++;
221 |     transmission_ready_Flag = 1; 
222 |   }
223 |     
224 |   // if the number of retries have reached the max number of retries 
225 |   // allowable, stop requesting the specific packet
226 |   if (packet->retries == retry_count)
227 | 	{
228 |     packet->connection = 0;
229 | 		packet->retries = 0;
230 | 	}
231 | 		
232 | 	if (transmission_ready_Flag)
233 | 	{
234 | 		// update the total_errors atribute of the 
235 | 		// packet before requesting a new one
236 | 		packet->total_errors = packet->timeout + 
237 | 													 packet->incorrect_id_returned +
238 | 													 packet->incorrect_function_returned +
239 | 													 packet->incorrect_bytes_returned +
240 | 													 packet->checksum_failed +
241 | 													 packet->buffer_errors +
242 | 													 packet->illegal_function +
243 | 													 packet->illegal_data_address +
244 | 													 packet->illegal_data_value;
245 | 	}
246 | }
247 | 
248 | void check_F3_data(unsigned char buffer)
249 | {
250 | 	unsigned char no_of_registers = packet->no_of_registers;
251 |   unsigned char no_of_bytes = no_of_registers * 2;
252 |   if (frame[2] == no_of_bytes) // check number of bytes returned
253 |   {
254 |     // combine the crc Low & High bytes
255 |     unsigned int recieved_crc = ((frame[buffer - 2] << 8) | frame[buffer - 1]); 
256 |     unsigned int calculated_crc = calculateCRC(buffer - 2);
257 | 				
258 |     if (calculated_crc == recieved_crc) // verify checksum
259 |     {
260 |       unsigned char index = 3;
261 | 			for (unsigned char i = 0; i < no_of_registers; i++)
262 |       {
263 |         // start at the 4th element in the recieveFrame and combine the Lo byte 
264 | 				packet->register_array[i] = (frame[index] << 8) | frame[index + 1]; 
265 |         index += 2;
266 |       }
267 |       messageOkFlag = 1; // message successful
268 |     }
269 |     else // checksum failed
270 |     {
271 |       packet->checksum_failed++; 
272 |       messageErrFlag = 1; // set an error
273 |     }
274 |       
275 |     // start the polling delay for messageOkFlag & messageErrFlag
276 |     previousPolling = millis(); 
277 |   }
278 |   else // incorrect number of bytes returned  
279 |   {
280 |     packet->incorrect_bytes_returned++; 
281 |     messageErrFlag = 1; // set an error
282 |     previousPolling = millis(); // start the polling delay
283 |   }	                     
284 | }
285 |   
286 | void check_F16_data()
287 | {
288 |   unsigned int recieved_address = ((frame[2] << 8) | frame[3]);
289 |   unsigned int recieved_registers = ((frame[4] << 8) | frame[5]); 
290 |   unsigned int recieved_crc = ((frame[6] << 8) | frame[7]); // combine the crc Low & High bytes
291 |   unsigned int calculated_crc = calculateCRC(6); // only the first 6 bytes are used for crc calculation
292 |   
293 |   // check the whole packet		
294 |   if (recieved_address == packet->address && 
295 |       recieved_registers == packet->no_of_registers && 
296 |       recieved_crc == calculated_crc)
297 |       messageOkFlag = 1; // message successful
298 |   else
299 |   {
300 |     packet->checksum_failed++; 
301 |     messageErrFlag = 1;
302 |   }
303 | 						
304 |   // start the polling delay for messageOkFlag & messageErrFlag
305 |   previousPolling = millis();
306 | }
307 | 
308 | // get the serial data from the buffer
309 | unsigned char getData()
310 | {
311 |   unsigned char buffer = 0;
312 | 	unsigned char overflowFlag = 0;
313 | 		
314 |   while (Serial.available())
315 |   {
316 | 		// The maximum number of bytes is limited to the serial buffer size of 128 bytes
317 | 		// If more bytes is received than the BUFFER_SIZE the overflow flag will be set and the 
318 | 		// serial buffer will be red untill all the data is cleared from the receive buffer,
319 | 		// while the slave is still responding.
320 | 		if (overflowFlag) 
321 | 			Serial.read();
322 | 		else
323 | 		{
324 | 			if (buffer == BUFFER_SIZE)
325 | 				overflowFlag = 1;
326 | 				
327 | 			frame[buffer] = Serial.read();
328 | 			buffer++;
329 | 		}
330 |       
331 |     delayMicroseconds(T1_5); // inter character time out
332 |   }
333 | 	
334 |   // The minimum buffer size from a slave can be an exception response of 5 bytes 
335 |   // If the buffer was partialy filled clear the buffer.
336 | 	// The maximum number of bytes in a modbus packet is 256 bytes.
337 | 	// The serial buffer limits this to 128 bytes.
338 |   // If the buffer overflows than clear the buffer and set
339 |   // a packet error.
340 |   if ((buffer > 0 && buffer < 5) || overflowFlag)
341 |   {
342 |     buffer = 0;
343 |     packet->buffer_errors++; 
344 |     messageErrFlag = 1; // set an error
345 |     previousPolling = millis(); // start the polling delay 
346 |   }
347 | 	
348 |   return buffer;
349 | }
350 | 
351 | void modbus_configure(long baud, unsigned int _timeout, unsigned int _polling, 
352 | 										unsigned char _retry_count, unsigned char _TxEnablePin, 
353 | 										Packet* _packet, unsigned int _total_no_of_packets)
354 | {
355 |   Serial.begin(baud,SERIAL_8E1);
356 |   
357 |   if (_TxEnablePin > 1) 
358 |   { // pin 0 & pin 1 are reserved for RX/TX. To disable set _TxEnablePin < 2
359 |     TxEnablePin = _TxEnablePin; 
360 |     pinMode(TxEnablePin, OUTPUT);
361 |     digitalWrite(TxEnablePin, LOW);
362 |   }
363 | 	
364 | 	// Modbus states that a baud rate higher than 19200 must use a fixed 750 us 
365 |   // for inter character time out and 1.75 ms for a frame delay.
366 |   // For baud rates below 19200 the timeing is more critical and has to be calculated.
367 |   // E.g. 9600 baud in a 10 bit packet is 960 characters per second
368 |   // In milliseconds this will be 960characters per 1000ms. So for 1 character
369 |   // 1000ms/960characters is 1.04167ms per character and finaly modbus states an
370 |   // intercharacter must be 1.5T or 1.5 times longer than a normal character and thus
371 |   // 1.5T = 1.04167ms * 1.5 = 1.5625ms. A frame delay is 3.5T.
372 | 	
373 | 	if (baud > 19200)
374 | 	{
375 | 		T1_5 = 750; 
376 | 		T3_5 = 1750; 
377 | 	}
378 | 	else 
379 | 	{
380 | 		T1_5 = 15000000/baud; // 1T * 1.5 = T1.5
381 | 		T3_5 = 35000000/baud; // 1T * 3.5 = T3.5
382 | 	}
383 | 	
384 | 	// initialize connection status of each packet
385 | 	for (unsigned char i = 0; i < _total_no_of_packets; i++)
386 | 	{
387 | 		_packet->connection = 1;
388 | 		_packet++;
389 | 	}
390 | 	
391 | 	// initialize
392 | 	transmission_ready_Flag = 1;
393 | 	messageOkFlag = 0; 
394 |   messageErrFlag = 0;
395 |   timeout = _timeout;
396 |   polling = _polling;
397 | 	retry_count = _retry_count;
398 | 	TxEnablePin = _TxEnablePin;
399 | 	total_no_of_packets = _total_no_of_packets;
400 |   previousTimeout = 0; 
401 |   previousPolling = 0; 
402 | } 
403 | 
404 | unsigned int calculateCRC(unsigned char bufferSize) 
405 | {
406 |   unsigned int temp, temp2, flag;
407 |   temp = 0xFFFF;
408 |   for (unsigned char i = 0; i < bufferSize; i++)
409 |   {
410 |     temp = temp ^ frame[i];
411 |     for (unsigned char j = 1; j <= 8; j++)
412 |     {
413 |       flag = temp & 0x0001;
414 |       temp >>= 1;
415 |       if (flag)
416 |         temp ^= 0xA001;
417 |     }
418 |   }
419 |   // Reverse byte order. 
420 |   temp2 = temp >> 8;
421 |   temp = (temp << 8) | temp2;
422 |   temp &= 0xFFFF;
423 |   return temp; // the returned value is already swopped - crcLo byte is first & crcHi byte is last
424 | }
425 | 
426 | void sendPacket(unsigned char bufferSize)
427 | {
428 | 	if (TxEnablePin > 1)
429 | 		digitalWrite(TxEnablePin, HIGH);
430 | 		
431 | 	for (unsigned char i = 0; i < bufferSize; i++)
432 | 		Serial.write(frame[i]);
433 | 		
434 | 	Serial.flush();
435 | 	
436 | 	// allow a frame delay to indicate end of transmission
437 | 	delayMicroseconds(T3_5); 
438 | 	
439 | 	if (TxEnablePin > 1)
440 | 		digitalWrite(TxEnablePin, LOW);
441 | 		
442 | 	previousTimeout = millis(); // initialize timeout delay	
443 | }
444 | 


--------------------------------------------------------------------------------
/code_php/js/bootstrap.min.js:
--------------------------------------------------------------------------------
1 | /*!
2 |   * Bootstrap v4.0.0 (https://getbootstrap.com)
3 |   * Copyright 2011-2018 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)
4 |   * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)
5 |   */
6 | !function(t,e){"object"==typeof exports&&"undefined"!=typeof module?e(exports,require("jquery"),require("popper.js")):"function"==typeof define&&define.amd?define(["exports","jquery","popper.js"],e):e(t.bootstrap={},t.jQuery,t.Popper)}(this,function(t,e,n){"use strict";function i(t,e){for(var n=0;n<e.length;n++){var i=e[n];i.enumerable=i.enumerable||!1,i.configurable=!0,"value"in i&&(i.writable=!0),Object.defineProperty(t,i.key,i)}}function s(t,e,n){return e&&i(t.prototype,e),n&&i(t,n),t}function r(){return(r=Object.assign||function(t){for(var e=1;e<arguments.length;e++){var n=arguments[e];for(var i in n)Object.prototype.hasOwnProperty.call(n,i)&&(t[i]=n[i])}return t}).apply(this,arguments)}e=e&&e.hasOwnProperty("default")?e.default:e,n=n&&n.hasOwnProperty("default")?n.default:n;var o,a,l,h,c,u,f,d,_,g,p,m,v,E,T,y,C,I,A,b,D,S,w,N,O,k,P=function(t){var e=!1;function n(e){var n=this,s=!1;return t(this).one(i.TRANSITION_END,function(){s=!0}),setTimeout(function(){s||i.triggerTransitionEnd(n)},e),this}var i={TRANSITION_END:"bsTransitionEnd",getUID:function(t){do{t+=~~(1e6*Math.random())}while(document.getElementById(t));return t},getSelectorFromElement:function(e){var n,i=e.getAttribute("data-target");i&&"#"!==i||(i=e.getAttribute("href")||""),"#"===i.charAt(0)&&(n=i,i=n="function"==typeof t.escapeSelector?t.escapeSelector(n).substr(1):n.replace(/(:|\.|\[|\]|,|=|@)/g,"\\$1"));try{return t(document).find(i).length>0?i:null}catch(t){return null}},reflow:function(t){return t.offsetHeight},triggerTransitionEnd:function(n){t(n).trigger(e.end)},supportsTransitionEnd:function(){return Boolean(e)},isElement:function(t){return(t[0]||t).nodeType},typeCheckConfig:function(t,e,n){for(var s in n)if(Object.prototype.hasOwnProperty.call(n,s)){var r=n[s],o=e[s],a=o&&i.isElement(o)?"element":(l=o,{}.toString.call(l).match(/\s([a-zA-Z]+)/)[1].toLowerCase());if(!new RegExp(r).test(a))throw new Error(t.toUpperCase()+': Option "'+s+'" provided type "'+a+'" but expected type "'+r+'".')}var l}};return e=("undefined"==typeof window||!window.QUnit)&&{end:"transitionend"},t.fn.emulateTransitionEnd=n,i.supportsTransitionEnd()&&(t.event.special[i.TRANSITION_END]={bindType:e.end,delegateType:e.end,handle:function(e){if(t(e.target).is(this))return e.handleObj.handler.apply(this,arguments)}}),i}(e),L=(a="alert",h="."+(l="bs.alert"),c=(o=e).fn[a],u={CLOSE:"close"+h,CLOSED:"closed"+h,CLICK_DATA_API:"click"+h+".data-api"},f="alert",d="fade",_="show",g=function(){function t(t){this._element=t}var e=t.prototype;return e.close=function(t){t=t||this._element;var e=this._getRootElement(t);this._triggerCloseEvent(e).isDefaultPrevented()||this._removeElement(e)},e.dispose=function(){o.removeData(this._element,l),this._element=null},e._getRootElement=function(t){var e=P.getSelectorFromElement(t),n=!1;return e&&(n=o(e)[0]),n||(n=o(t).closest("."+f)[0]),n},e._triggerCloseEvent=function(t){var e=o.Event(u.CLOSE);return o(t).trigger(e),e},e._removeElement=function(t){var e=this;o(t).removeClass(_),P.supportsTransitionEnd()&&o(t).hasClass(d)?o(t).one(P.TRANSITION_END,function(n){return e._destroyElement(t,n)}).emulateTransitionEnd(150):this._destroyElement(t)},e._destroyElement=function(t){o(t).detach().trigger(u.CLOSED).remove()},t._jQueryInterface=function(e){return this.each(function(){var n=o(this),i=n.data(l);i||(i=new t(this),n.data(l,i)),"close"===e&&i[e](this)})},t._handleDismiss=function(t){return function(e){e&&e.preventDefault(),t.close(this)}},s(t,null,[{key:"VERSION",get:function(){return"4.0.0"}}]),t}(),o(document).on(u.CLICK_DATA_API,'[data-dismiss="alert"]',g._handleDismiss(new g)),o.fn[a]=g._jQueryInterface,o.fn[a].Constructor=g,o.fn[a].noConflict=function(){return o.fn[a]=c,g._jQueryInterface},g),R=(m="button",E="."+(v="bs.button"),T=".data-api",y=(p=e).fn[m],C="active",I="btn",A="focus",b='[data-toggle^="button"]',D='[data-toggle="buttons"]',S="input",w=".active",N=".btn",O={CLICK_DATA_API:"click"+E+T,FOCUS_BLUR_DATA_API:"focus"+E+T+" blur"+E+T},k=function(){function t(t){this._element=t}var e=t.prototype;return e.toggle=function(){var t=!0,e=!0,n=p(this._element).closest(D)[0];if(n){var i=p(this._element).find(S)[0];if(i){if("radio"===i.type)if(i.checked&&p(this._element).hasClass(C))t=!1;else{var s=p(n).find(w)[0];s&&p(s).removeClass(C)}if(t){if(i.hasAttribute("disabled")||n.hasAttribute("disabled")||i.classList.contains("disabled")||n.classList.contains("disabled"))return;i.checked=!p(this._element).hasClass(C),p(i).trigger("change")}i.focus(),e=!1}}e&&this._element.setAttribute("aria-pressed",!p(this._element).hasClass(C)),t&&p(this._element).toggleClass(C)},e.dispose=function(){p.removeData(this._element,v),this._element=null},t._jQueryInterface=function(e){return this.each(function(){var n=p(this).data(v);n||(n=new t(this),p(this).data(v,n)),"toggle"===e&&n[e]()})},s(t,null,[{key:"VERSION",get:function(){return"4.0.0"}}]),t}(),p(document).on(O.CLICK_DATA_API,b,function(t){t.preventDefault();var e=t.target;p(e).hasClass(I)||(e=p(e).closest(N)),k._jQueryInterface.call(p(e),"toggle")}).on(O.FOCUS_BLUR_DATA_API,b,function(t){var e=p(t.target).closest(N)[0];p(e).toggleClass(A,/^focus(in)?$/.test(t.type))}),p.fn[m]=k._jQueryInterface,p.fn[m].Constructor=k,p.fn[m].noConflict=function(){return p.fn[m]=y,k._jQueryInterface},k),j=function(t){var e="carousel",n="bs.carousel",i="."+n,o=t.fn[e],a={interval:5e3,keyboard:!0,slide:!1,pause:"hover",wrap:!0},l={interval:"(number|boolean)",keyboard:"boolean",slide:"(boolean|string)",pause:"(string|boolean)",wrap:"boolean"},h="next",c="prev",u="left",f="right",d={SLIDE:"slide"+i,SLID:"slid"+i,KEYDOWN:"keydown"+i,MOUSEENTER:"mouseenter"+i,MOUSELEAVE:"mouseleave"+i,TOUCHEND:"touchend"+i,LOAD_DATA_API:"load"+i+".data-api",CLICK_DATA_API:"click"+i+".data-api"},_="carousel",g="active",p="slide",m="carousel-item-right",v="carousel-item-left",E="carousel-item-next",T="carousel-item-prev",y={ACTIVE:".active",ACTIVE_ITEM:".active.carousel-item",ITEM:".carousel-item",NEXT_PREV:".carousel-item-next, .carousel-item-prev",INDICATORS:".carousel-indicators",DATA_SLIDE:"[data-slide], [data-slide-to]",DATA_RIDE:'[data-ride="carousel"]'},C=function(){function o(e,n){this._items=null,this._interval=null,this._activeElement=null,this._isPaused=!1,this._isSliding=!1,this.touchTimeout=null,this._config=this._getConfig(n),this._element=t(e)[0],this._indicatorsElement=t(this._element).find(y.INDICATORS)[0],this._addEventListeners()}var C=o.prototype;return C.next=function(){this._isSliding||this._slide(h)},C.nextWhenVisible=function(){!document.hidden&&t(this._element).is(":visible")&&"hidden"!==t(this._element).css("visibility")&&this.next()},C.prev=function(){this._isSliding||this._slide(c)},C.pause=function(e){e||(this._isPaused=!0),t(this._element).find(y.NEXT_PREV)[0]&&P.supportsTransitionEnd()&&(P.triggerTransitionEnd(this._element),this.cycle(!0)),clearInterval(this._interval),this._interval=null},C.cycle=function(t){t||(this._isPaused=!1),this._interval&&(clearInterval(this._interval),this._interval=null),this._config.interval&&!this._isPaused&&(this._interval=setInterval((document.visibilityState?this.nextWhenVisible:this.next).bind(this),this._config.interval))},C.to=function(e){var n=this;this._activeElement=t(this._element).find(y.ACTIVE_ITEM)[0];var i=this._getItemIndex(this._activeElement);if(!(e>this._items.length-1||e<0))if(this._isSliding)t(this._element).one(d.SLID,function(){return n.to(e)});else{if(i===e)return this.pause(),void this.cycle();var s=e>i?h:c;this._slide(s,this._items[e])}},C.dispose=function(){t(this._element).off(i),t.removeData(this._element,n),this._items=null,this._config=null,this._element=null,this._interval=null,this._isPaused=null,this._isSliding=null,this._activeElement=null,this._indicatorsElement=null},C._getConfig=function(t){return t=r({},a,t),P.typeCheckConfig(e,t,l),t},C._addEventListeners=function(){var e=this;this._config.keyboard&&t(this._element).on(d.KEYDOWN,function(t){return e._keydown(t)}),"hover"===this._config.pause&&(t(this._element).on(d.MOUSEENTER,function(t){return e.pause(t)}).on(d.MOUSELEAVE,function(t){return e.cycle(t)}),"ontouchstart"in document.documentElement&&t(this._element).on(d.TOUCHEND,function(){e.pause(),e.touchTimeout&&clearTimeout(e.touchTimeout),e.touchTimeout=setTimeout(function(t){return e.cycle(t)},500+e._config.interval)}))},C._keydown=function(t){if(!/input|textarea/i.test(t.target.tagName))switch(t.which){case 37:t.preventDefault(),this.prev();break;case 39:t.preventDefault(),this.next()}},C._getItemIndex=function(e){return this._items=t.makeArray(t(e).parent().find(y.ITEM)),this._items.indexOf(e)},C._getItemByDirection=function(t,e){var n=t===h,i=t===c,s=this._getItemIndex(e),r=this._items.length-1;if((i&&0===s||n&&s===r)&&!this._config.wrap)return e;var o=(s+(t===c?-1:1))%this._items.length;return-1===o?this._items[this._items.length-1]:this._items[o]},C._triggerSlideEvent=function(e,n){var i=this._getItemIndex(e),s=this._getItemIndex(t(this._element).find(y.ACTIVE_ITEM)[0]),r=t.Event(d.SLIDE,{relatedTarget:e,direction:n,from:s,to:i});return t(this._element).trigger(r),r},C._setActiveIndicatorElement=function(e){if(this._indicatorsElement){t(this._indicatorsElement).find(y.ACTIVE).removeClass(g);var n=this._indicatorsElement.children[this._getItemIndex(e)];n&&t(n).addClass(g)}},C._slide=function(e,n){var i,s,r,o=this,a=t(this._element).find(y.ACTIVE_ITEM)[0],l=this._getItemIndex(a),c=n||a&&this._getItemByDirection(e,a),_=this._getItemIndex(c),C=Boolean(this._interval);if(e===h?(i=v,s=E,r=u):(i=m,s=T,r=f),c&&t(c).hasClass(g))this._isSliding=!1;else if(!this._triggerSlideEvent(c,r).isDefaultPrevented()&&a&&c){this._isSliding=!0,C&&this.pause(),this._setActiveIndicatorElement(c);var I=t.Event(d.SLID,{relatedTarget:c,direction:r,from:l,to:_});P.supportsTransitionEnd()&&t(this._element).hasClass(p)?(t(c).addClass(s),P.reflow(c),t(a).addClass(i),t(c).addClass(i),t(a).one(P.TRANSITION_END,function(){t(c).removeClass(i+" "+s).addClass(g),t(a).removeClass(g+" "+s+" "+i),o._isSliding=!1,setTimeout(function(){return t(o._element).trigger(I)},0)}).emulateTransitionEnd(600)):(t(a).removeClass(g),t(c).addClass(g),this._isSliding=!1,t(this._element).trigger(I)),C&&this.cycle()}},o._jQueryInterface=function(e){return this.each(function(){var i=t(this).data(n),s=r({},a,t(this).data());"object"==typeof e&&(s=r({},s,e));var l="string"==typeof e?e:s.slide;if(i||(i=new o(this,s),t(this).data(n,i)),"number"==typeof e)i.to(e);else if("string"==typeof l){if("undefined"==typeof i[l])throw new TypeError('No method named "'+l+'"');i[l]()}else s.interval&&(i.pause(),i.cycle())})},o._dataApiClickHandler=function(e){var i=P.getSelectorFromElement(this);if(i){var s=t(i)[0];if(s&&t(s).hasClass(_)){var a=r({},t(s).data(),t(this).data()),l=this.getAttribute("data-slide-to");l&&(a.interval=!1),o._jQueryInterface.call(t(s),a),l&&t(s).data(n).to(l),e.preventDefault()}}},s(o,null,[{key:"VERSION",get:function(){return"4.0.0"}},{key:"Default",get:function(){return a}}]),o}();return t(document).on(d.CLICK_DATA_API,y.DATA_SLIDE,C._dataApiClickHandler),t(window).on(d.LOAD_DATA_API,function(){t(y.DATA_RIDE).each(function(){var e=t(this);C._jQueryInterface.call(e,e.data())})}),t.fn[e]=C._jQueryInterface,t.fn[e].Constructor=C,t.fn[e].noConflict=function(){return t.fn[e]=o,C._jQueryInterface},C}(e),H=function(t){var e="collapse",n="bs.collapse",i="."+n,o=t.fn[e],a={toggle:!0,parent:""},l={toggle:"boolean",parent:"(string|element)"},h={SHOW:"show"+i,SHOWN:"shown"+i,HIDE:"hide"+i,HIDDEN:"hidden"+i,CLICK_DATA_API:"click"+i+".data-api"},c="show",u="collapse",f="collapsing",d="collapsed",_="width",g="height",p={ACTIVES:".show, .collapsing",DATA_TOGGLE:'[data-toggle="collapse"]'},m=function(){function i(e,n){this._isTransitioning=!1,this._element=e,this._config=this._getConfig(n),this._triggerArray=t.makeArray(t('[data-toggle="collapse"][href="#'+e.id+'"],[data-toggle="collapse"][data-target="#'+e.id+'"]'));for(var i=t(p.DATA_TOGGLE),s=0;s<i.length;s++){var r=i[s],o=P.getSelectorFromElement(r);null!==o&&t(o).filter(e).length>0&&(this._selector=o,this._triggerArray.push(r))}this._parent=this._config.parent?this._getParent():null,this._config.parent||this._addAriaAndCollapsedClass(this._element,this._triggerArray),this._config.toggle&&this.toggle()}var o=i.prototype;return o.toggle=function(){t(this._element).hasClass(c)?this.hide():this.show()},o.show=function(){var e,s,r=this;if(!this._isTransitioning&&!t(this._element).hasClass(c)&&(this._parent&&0===(e=t.makeArray(t(this._parent).find(p.ACTIVES).filter('[data-parent="'+this._config.parent+'"]'))).length&&(e=null),!(e&&(s=t(e).not(this._selector).data(n))&&s._isTransitioning))){var o=t.Event(h.SHOW);if(t(this._element).trigger(o),!o.isDefaultPrevented()){e&&(i._jQueryInterface.call(t(e).not(this._selector),"hide"),s||t(e).data(n,null));var a=this._getDimension();t(this._element).removeClass(u).addClass(f),this._element.style[a]=0,this._triggerArray.length>0&&t(this._triggerArray).removeClass(d).attr("aria-expanded",!0),this.setTransitioning(!0);var l=function(){t(r._element).removeClass(f).addClass(u).addClass(c),r._element.style[a]="",r.setTransitioning(!1),t(r._element).trigger(h.SHOWN)};if(P.supportsTransitionEnd()){var _="scroll"+(a[0].toUpperCase()+a.slice(1));t(this._element).one(P.TRANSITION_END,l).emulateTransitionEnd(600),this._element.style[a]=this._element[_]+"px"}else l()}}},o.hide=function(){var e=this;if(!this._isTransitioning&&t(this._element).hasClass(c)){var n=t.Event(h.HIDE);if(t(this._element).trigger(n),!n.isDefaultPrevented()){var i=this._getDimension();if(this._element.style[i]=this._element.getBoundingClientRect()[i]+"px",P.reflow(this._element),t(this._element).addClass(f).removeClass(u).removeClass(c),this._triggerArray.length>0)for(var s=0;s<this._triggerArray.length;s++){var r=this._triggerArray[s],o=P.getSelectorFromElement(r);if(null!==o)t(o).hasClass(c)||t(r).addClass(d).attr("aria-expanded",!1)}this.setTransitioning(!0);var a=function(){e.setTransitioning(!1),t(e._element).removeClass(f).addClass(u).trigger(h.HIDDEN)};this._element.style[i]="",P.supportsTransitionEnd()?t(this._element).one(P.TRANSITION_END,a).emulateTransitionEnd(600):a()}}},o.setTransitioning=function(t){this._isTransitioning=t},o.dispose=function(){t.removeData(this._element,n),this._config=null,this._parent=null,this._element=null,this._triggerArray=null,this._isTransitioning=null},o._getConfig=function(t){return(t=r({},a,t)).toggle=Boolean(t.toggle),P.typeCheckConfig(e,t,l),t},o._getDimension=function(){return t(this._element).hasClass(_)?_:g},o._getParent=function(){var e=this,n=null;P.isElement(this._config.parent)?(n=this._config.parent,"undefined"!=typeof this._config.parent.jquery&&(n=this._config.parent[0])):n=t(this._config.parent)[0];var s='[data-toggle="collapse"][data-parent="'+this._config.parent+'"]';return t(n).find(s).each(function(t,n){e._addAriaAndCollapsedClass(i._getTargetFromElement(n),[n])}),n},o._addAriaAndCollapsedClass=function(e,n){if(e){var i=t(e).hasClass(c);n.length>0&&t(n).toggleClass(d,!i).attr("aria-expanded",i)}},i._getTargetFromElement=function(e){var n=P.getSelectorFromElement(e);return n?t(n)[0]:null},i._jQueryInterface=function(e){return this.each(function(){var s=t(this),o=s.data(n),l=r({},a,s.data(),"object"==typeof e&&e);if(!o&&l.toggle&&/show|hide/.test(e)&&(l.toggle=!1),o||(o=new i(this,l),s.data(n,o)),"string"==typeof e){if("undefined"==typeof o[e])throw new TypeError('No method named "'+e+'"');o[e]()}})},s(i,null,[{key:"VERSION",get:function(){return"4.0.0"}},{key:"Default",get:function(){return a}}]),i}();return t(document).on(h.CLICK_DATA_API,p.DATA_TOGGLE,function(e){"A"===e.currentTarget.tagName&&e.preventDefault();var i=t(this),s=P.getSelectorFromElement(this);t(s).each(function(){var e=t(this),s=e.data(n)?"toggle":i.data();m._jQueryInterface.call(e,s)})}),t.fn[e]=m._jQueryInterface,t.fn[e].Constructor=m,t.fn[e].noConflict=function(){return t.fn[e]=o,m._jQueryInterface},m}(e),W=function(t){var e="dropdown",i="bs.dropdown",o="."+i,a=".data-api",l=t.fn[e],h=new RegExp("38|40|27"),c={HIDE:"hide"+o,HIDDEN:"hidden"+o,SHOW:"show"+o,SHOWN:"shown"+o,CLICK:"click"+o,CLICK_DATA_API:"click"+o+a,KEYDOWN_DATA_API:"keydown"+o+a,KEYUP_DATA_API:"keyup"+o+a},u="disabled",f="show",d="dropup",_="dropright",g="dropleft",p="dropdown-menu-right",m="dropdown-menu-left",v="position-static",E='[data-toggle="dropdown"]',T=".dropdown form",y=".dropdown-menu",C=".navbar-nav",I=".dropdown-menu .dropdown-item:not(.disabled)",A="top-start",b="top-end",D="bottom-start",S="bottom-end",w="right-start",N="left-start",O={offset:0,flip:!0,boundary:"scrollParent"},k={offset:"(number|string|function)",flip:"boolean",boundary:"(string|element)"},L=function(){function a(t,e){this._element=t,this._popper=null,this._config=this._getConfig(e),this._menu=this._getMenuElement(),this._inNavbar=this._detectNavbar(),this._addEventListeners()}var l=a.prototype;return l.toggle=function(){if(!this._element.disabled&&!t(this._element).hasClass(u)){var e=a._getParentFromElement(this._element),i=t(this._menu).hasClass(f);if(a._clearMenus(),!i){var s={relatedTarget:this._element},r=t.Event(c.SHOW,s);if(t(e).trigger(r),!r.isDefaultPrevented()){if(!this._inNavbar){if("undefined"==typeof n)throw new TypeError("Bootstrap dropdown require Popper.js (https://popper.js.org)");var o=this._element;t(e).hasClass(d)&&(t(this._menu).hasClass(m)||t(this._menu).hasClass(p))&&(o=e),"scrollParent"!==this._config.boundary&&t(e).addClass(v),this._popper=new n(o,this._menu,this._getPopperConfig())}"ontouchstart"in document.documentElement&&0===t(e).closest(C).length&&t("body").children().on("mouseover",null,t.noop),this._element.focus(),this._element.setAttribute("aria-expanded",!0),t(this._menu).toggleClass(f),t(e).toggleClass(f).trigger(t.Event(c.SHOWN,s))}}}},l.dispose=function(){t.removeData(this._element,i),t(this._element).off(o),this._element=null,this._menu=null,null!==this._popper&&(this._popper.destroy(),this._popper=null)},l.update=function(){this._inNavbar=this._detectNavbar(),null!==this._popper&&this._popper.scheduleUpdate()},l._addEventListeners=function(){var e=this;t(this._element).on(c.CLICK,function(t){t.preventDefault(),t.stopPropagation(),e.toggle()})},l._getConfig=function(n){return n=r({},this.constructor.Default,t(this._element).data(),n),P.typeCheckConfig(e,n,this.constructor.DefaultType),n},l._getMenuElement=function(){if(!this._menu){var e=a._getParentFromElement(this._element);this._menu=t(e).find(y)[0]}return this._menu},l._getPlacement=function(){var e=t(this._element).parent(),n=D;return e.hasClass(d)?(n=A,t(this._menu).hasClass(p)&&(n=b)):e.hasClass(_)?n=w:e.hasClass(g)?n=N:t(this._menu).hasClass(p)&&(n=S),n},l._detectNavbar=function(){return t(this._element).closest(".navbar").length>0},l._getPopperConfig=function(){var t=this,e={};return"function"==typeof this._config.offset?e.fn=function(e){return e.offsets=r({},e.offsets,t._config.offset(e.offsets)||{}),e}:e.offset=this._config.offset,{placement:this._getPlacement(),modifiers:{offset:e,flip:{enabled:this._config.flip},preventOverflow:{boundariesElement:this._config.boundary}}}},a._jQueryInterface=function(e){return this.each(function(){var n=t(this).data(i);if(n||(n=new a(this,"object"==typeof e?e:null),t(this).data(i,n)),"string"==typeof e){if("undefined"==typeof n[e])throw new TypeError('No method named "'+e+'"');n[e]()}})},a._clearMenus=function(e){if(!e||3!==e.which&&("keyup"!==e.type||9===e.which))for(var n=t.makeArray(t(E)),s=0;s<n.length;s++){var r=a._getParentFromElement(n[s]),o=t(n[s]).data(i),l={relatedTarget:n[s]};if(o){var h=o._menu;if(t(r).hasClass(f)&&!(e&&("click"===e.type&&/input|textarea/i.test(e.target.tagName)||"keyup"===e.type&&9===e.which)&&t.contains(r,e.target))){var u=t.Event(c.HIDE,l);t(r).trigger(u),u.isDefaultPrevented()||("ontouchstart"in document.documentElement&&t("body").children().off("mouseover",null,t.noop),n[s].setAttribute("aria-expanded","false"),t(h).removeClass(f),t(r).removeClass(f).trigger(t.Event(c.HIDDEN,l)))}}}},a._getParentFromElement=function(e){var n,i=P.getSelectorFromElement(e);return i&&(n=t(i)[0]),n||e.parentNode},a._dataApiKeydownHandler=function(e){if((/input|textarea/i.test(e.target.tagName)?!(32===e.which||27!==e.which&&(40!==e.which&&38!==e.which||t(e.target).closest(y).length)):h.test(e.which))&&(e.preventDefault(),e.stopPropagation(),!this.disabled&&!t(this).hasClass(u))){var n=a._getParentFromElement(this),i=t(n).hasClass(f);if((i||27===e.which&&32===e.which)&&(!i||27!==e.which&&32!==e.which)){var s=t(n).find(I).get();if(0!==s.length){var r=s.indexOf(e.target);38===e.which&&r>0&&r--,40===e.which&&r<s.length-1&&r++,r<0&&(r=0),s[r].focus()}}else{if(27===e.which){var o=t(n).find(E)[0];t(o).trigger("focus")}t(this).trigger("click")}}},s(a,null,[{key:"VERSION",get:function(){return"4.0.0"}},{key:"Default",get:function(){return O}},{key:"DefaultType",get:function(){return k}}]),a}();return t(document).on(c.KEYDOWN_DATA_API,E,L._dataApiKeydownHandler).on(c.KEYDOWN_DATA_API,y,L._dataApiKeydownHandler).on(c.CLICK_DATA_API+" "+c.KEYUP_DATA_API,L._clearMenus).on(c.CLICK_DATA_API,E,function(e){e.preventDefault(),e.stopPropagation(),L._jQueryInterface.call(t(this),"toggle")}).on(c.CLICK_DATA_API,T,function(t){t.stopPropagation()}),t.fn[e]=L._jQueryInterface,t.fn[e].Constructor=L,t.fn[e].noConflict=function(){return t.fn[e]=l,L._jQueryInterface},L}(e),M=function(t){var e="modal",n="bs.modal",i="."+n,o=t.fn.modal,a={backdrop:!0,keyboard:!0,focus:!0,show:!0},l={backdrop:"(boolean|string)",keyboard:"boolean",focus:"boolean",show:"boolean"},h={HIDE:"hide"+i,HIDDEN:"hidden"+i,SHOW:"show"+i,SHOWN:"shown"+i,FOCUSIN:"focusin"+i,RESIZE:"resize"+i,CLICK_DISMISS:"click.dismiss"+i,KEYDOWN_DISMISS:"keydown.dismiss"+i,MOUSEUP_DISMISS:"mouseup.dismiss"+i,MOUSEDOWN_DISMISS:"mousedown.dismiss"+i,CLICK_DATA_API:"click"+i+".data-api"},c="modal-scrollbar-measure",u="modal-backdrop",f="modal-open",d="fade",_="show",g={DIALOG:".modal-dialog",DATA_TOGGLE:'[data-toggle="modal"]',DATA_DISMISS:'[data-dismiss="modal"]',FIXED_CONTENT:".fixed-top, .fixed-bottom, .is-fixed, .sticky-top",STICKY_CONTENT:".sticky-top",NAVBAR_TOGGLER:".navbar-toggler"},p=function(){function o(e,n){this._config=this._getConfig(n),this._element=e,this._dialog=t(e).find(g.DIALOG)[0],this._backdrop=null,this._isShown=!1,this._isBodyOverflowing=!1,this._ignoreBackdropClick=!1,this._originalBodyPadding=0,this._scrollbarWidth=0}var p=o.prototype;return p.toggle=function(t){return this._isShown?this.hide():this.show(t)},p.show=function(e){var n=this;if(!this._isTransitioning&&!this._isShown){P.supportsTransitionEnd()&&t(this._element).hasClass(d)&&(this._isTransitioning=!0);var i=t.Event(h.SHOW,{relatedTarget:e});t(this._element).trigger(i),this._isShown||i.isDefaultPrevented()||(this._isShown=!0,this._checkScrollbar(),this._setScrollbar(),this._adjustDialog(),t(document.body).addClass(f),this._setEscapeEvent(),this._setResizeEvent(),t(this._element).on(h.CLICK_DISMISS,g.DATA_DISMISS,function(t){return n.hide(t)}),t(this._dialog).on(h.MOUSEDOWN_DISMISS,function(){t(n._element).one(h.MOUSEUP_DISMISS,function(e){t(e.target).is(n._element)&&(n._ignoreBackdropClick=!0)})}),this._showBackdrop(function(){return n._showElement(e)}))}},p.hide=function(e){var n=this;if(e&&e.preventDefault(),!this._isTransitioning&&this._isShown){var i=t.Event(h.HIDE);if(t(this._element).trigger(i),this._isShown&&!i.isDefaultPrevented()){this._isShown=!1;var s=P.supportsTransitionEnd()&&t(this._element).hasClass(d);s&&(this._isTransitioning=!0),this._setEscapeEvent(),this._setResizeEvent(),t(document).off(h.FOCUSIN),t(this._element).removeClass(_),t(this._element).off(h.CLICK_DISMISS),t(this._dialog).off(h.MOUSEDOWN_DISMISS),s?t(this._element).one(P.TRANSITION_END,function(t){return n._hideModal(t)}).emulateTransitionEnd(300):this._hideModal()}}},p.dispose=function(){t.removeData(this._element,n),t(window,document,this._element,this._backdrop).off(i),this._config=null,this._element=null,this._dialog=null,this._backdrop=null,this._isShown=null,this._isBodyOverflowing=null,this._ignoreBackdropClick=null,this._scrollbarWidth=null},p.handleUpdate=function(){this._adjustDialog()},p._getConfig=function(t){return t=r({},a,t),P.typeCheckConfig(e,t,l),t},p._showElement=function(e){var n=this,i=P.supportsTransitionEnd()&&t(this._element).hasClass(d);this._element.parentNode&&this._element.parentNode.nodeType===Node.ELEMENT_NODE||document.body.appendChild(this._element),this._element.style.display="block",this._element.removeAttribute("aria-hidden"),this._element.scrollTop=0,i&&P.reflow(this._element),t(this._element).addClass(_),this._config.focus&&this._enforceFocus();var s=t.Event(h.SHOWN,{relatedTarget:e}),r=function(){n._config.focus&&n._element.focus(),n._isTransitioning=!1,t(n._element).trigger(s)};i?t(this._dialog).one(P.TRANSITION_END,r).emulateTransitionEnd(300):r()},p._enforceFocus=function(){var e=this;t(document).off(h.FOCUSIN).on(h.FOCUSIN,function(n){document!==n.target&&e._element!==n.target&&0===t(e._element).has(n.target).length&&e._element.focus()})},p._setEscapeEvent=function(){var e=this;this._isShown&&this._config.keyboard?t(this._element).on(h.KEYDOWN_DISMISS,function(t){27===t.which&&(t.preventDefault(),e.hide())}):this._isShown||t(this._element).off(h.KEYDOWN_DISMISS)},p._setResizeEvent=function(){var e=this;this._isShown?t(window).on(h.RESIZE,function(t){return e.handleUpdate(t)}):t(window).off(h.RESIZE)},p._hideModal=function(){var e=this;this._element.style.display="none",this._element.setAttribute("aria-hidden",!0),this._isTransitioning=!1,this._showBackdrop(function(){t(document.body).removeClass(f),e._resetAdjustments(),e._resetScrollbar(),t(e._element).trigger(h.HIDDEN)})},p._removeBackdrop=function(){this._backdrop&&(t(this._backdrop).remove(),this._backdrop=null)},p._showBackdrop=function(e){var n=this,i=t(this._element).hasClass(d)?d:"";if(this._isShown&&this._config.backdrop){var s=P.supportsTransitionEnd()&&i;if(this._backdrop=document.createElement("div"),this._backdrop.className=u,i&&t(this._backdrop).addClass(i),t(this._backdrop).appendTo(document.body),t(this._element).on(h.CLICK_DISMISS,function(t){n._ignoreBackdropClick?n._ignoreBackdropClick=!1:t.target===t.currentTarget&&("static"===n._config.backdrop?n._element.focus():n.hide())}),s&&P.reflow(this._backdrop),t(this._backdrop).addClass(_),!e)return;if(!s)return void e();t(this._backdrop).one(P.TRANSITION_END,e).emulateTransitionEnd(150)}else if(!this._isShown&&this._backdrop){t(this._backdrop).removeClass(_);var r=function(){n._removeBackdrop(),e&&e()};P.supportsTransitionEnd()&&t(this._element).hasClass(d)?t(this._backdrop).one(P.TRANSITION_END,r).emulateTransitionEnd(150):r()}else e&&e()},p._adjustDialog=function(){var t=this._element.scrollHeight>document.documentElement.clientHeight;!this._isBodyOverflowing&&t&&(this._element.style.paddingLeft=this._scrollbarWidth+"px"),this._isBodyOverflowing&&!t&&(this._element.style.paddingRight=this._scrollbarWidth+"px")},p._resetAdjustments=function(){this._element.style.paddingLeft="",this._element.style.paddingRight=""},p._checkScrollbar=function(){var t=document.body.getBoundingClientRect();this._isBodyOverflowing=t.left+t.right<window.innerWidth,this._scrollbarWidth=this._getScrollbarWidth()},p._setScrollbar=function(){var e=this;if(this._isBodyOverflowing){t(g.FIXED_CONTENT).each(function(n,i){var s=t(i)[0].style.paddingRight,r=t(i).css("padding-right");t(i).data("padding-right",s).css("padding-right",parseFloat(r)+e._scrollbarWidth+"px")}),t(g.STICKY_CONTENT).each(function(n,i){var s=t(i)[0].style.marginRight,r=t(i).css("margin-right");t(i).data("margin-right",s).css("margin-right",parseFloat(r)-e._scrollbarWidth+"px")}),t(g.NAVBAR_TOGGLER).each(function(n,i){var s=t(i)[0].style.marginRight,r=t(i).css("margin-right");t(i).data("margin-right",s).css("margin-right",parseFloat(r)+e._scrollbarWidth+"px")});var n=document.body.style.paddingRight,i=t("body").css("padding-right");t("body").data("padding-right",n).css("padding-right",parseFloat(i)+this._scrollbarWidth+"px")}},p._resetScrollbar=function(){t(g.FIXED_CONTENT).each(function(e,n){var i=t(n).data("padding-right");"undefined"!=typeof i&&t(n).css("padding-right",i).removeData("padding-right")}),t(g.STICKY_CONTENT+", "+g.NAVBAR_TOGGLER).each(function(e,n){var i=t(n).data("margin-right");"undefined"!=typeof i&&t(n).css("margin-right",i).removeData("margin-right")});var e=t("body").data("padding-right");"undefined"!=typeof e&&t("body").css("padding-right",e).removeData("padding-right")},p._getScrollbarWidth=function(){var t=document.createElement("div");t.className=c,document.body.appendChild(t);var e=t.getBoundingClientRect().width-t.clientWidth;return document.body.removeChild(t),e},o._jQueryInterface=function(e,i){return this.each(function(){var s=t(this).data(n),a=r({},o.Default,t(this).data(),"object"==typeof e&&e);if(s||(s=new o(this,a),t(this).data(n,s)),"string"==typeof e){if("undefined"==typeof s[e])throw new TypeError('No method named "'+e+'"');s[e](i)}else a.show&&s.show(i)})},s(o,null,[{key:"VERSION",get:function(){return"4.0.0"}},{key:"Default",get:function(){return a}}]),o}();return t(document).on(h.CLICK_DATA_API,g.DATA_TOGGLE,function(e){var i,s=this,o=P.getSelectorFromElement(this);o&&(i=t(o)[0]);var a=t(i).data(n)?"toggle":r({},t(i).data(),t(this).data());"A"!==this.tagName&&"AREA"!==this.tagName||e.preventDefault();var l=t(i).one(h.SHOW,function(e){e.isDefaultPrevented()||l.one(h.HIDDEN,function(){t(s).is(":visible")&&s.focus()})});p._jQueryInterface.call(t(i),a,this)}),t.fn.modal=p._jQueryInterface,t.fn.modal.Constructor=p,t.fn.modal.noConflict=function(){return t.fn.modal=o,p._jQueryInterface},p}(e),U=function(t){var e="tooltip",i="bs.tooltip",o="."+i,a=t.fn[e],l=new RegExp("(^|\\s)bs-tooltip\\S+","g"),h={animation:"boolean",template:"string",title:"(string|element|function)",trigger:"string",delay:"(number|object)",html:"boolean",selector:"(string|boolean)",placement:"(string|function)",offset:"(number|string)",container:"(string|element|boolean)",fallbackPlacement:"(string|array)",boundary:"(string|element)"},c={AUTO:"auto",TOP:"top",RIGHT:"right",BOTTOM:"bottom",LEFT:"left"},u={animation:!0,template:'<div class="tooltip" role="tooltip"><div class="arrow"></div><div class="tooltip-inner"></div></div>',trigger:"hover focus",title:"",delay:0,html:!1,selector:!1,placement:"top",offset:0,container:!1,fallbackPlacement:"flip",boundary:"scrollParent"},f="show",d="out",_={HIDE:"hide"+o,HIDDEN:"hidden"+o,SHOW:"show"+o,SHOWN:"shown"+o,INSERTED:"inserted"+o,CLICK:"click"+o,FOCUSIN:"focusin"+o,FOCUSOUT:"focusout"+o,MOUSEENTER:"mouseenter"+o,MOUSELEAVE:"mouseleave"+o},g="fade",p="show",m=".tooltip-inner",v=".arrow",E="hover",T="focus",y="click",C="manual",I=function(){function a(t,e){if("undefined"==typeof n)throw new TypeError("Bootstrap tooltips require Popper.js (https://popper.js.org)");this._isEnabled=!0,this._timeout=0,this._hoverState="",this._activeTrigger={},this._popper=null,this.element=t,this.config=this._getConfig(e),this.tip=null,this._setListeners()}var I=a.prototype;return I.enable=function(){this._isEnabled=!0},I.disable=function(){this._isEnabled=!1},I.toggleEnabled=function(){this._isEnabled=!this._isEnabled},I.toggle=function(e){if(this._isEnabled)if(e){var n=this.constructor.DATA_KEY,i=t(e.currentTarget).data(n);i||(i=new this.constructor(e.currentTarget,this._getDelegateConfig()),t(e.currentTarget).data(n,i)),i._activeTrigger.click=!i._activeTrigger.click,i._isWithActiveTrigger()?i._enter(null,i):i._leave(null,i)}else{if(t(this.getTipElement()).hasClass(p))return void this._leave(null,this);this._enter(null,this)}},I.dispose=function(){clearTimeout(this._timeout),t.removeData(this.element,this.constructor.DATA_KEY),t(this.element).off(this.constructor.EVENT_KEY),t(this.element).closest(".modal").off("hide.bs.modal"),this.tip&&t(this.tip).remove(),this._isEnabled=null,this._timeout=null,this._hoverState=null,this._activeTrigger=null,null!==this._popper&&this._popper.destroy(),this._popper=null,this.element=null,this.config=null,this.tip=null},I.show=function(){var e=this;if("none"===t(this.element).css("display"))throw new Error("Please use show on visible elements");var i=t.Event(this.constructor.Event.SHOW);if(this.isWithContent()&&this._isEnabled){t(this.element).trigger(i);var s=t.contains(this.element.ownerDocument.documentElement,this.element);if(i.isDefaultPrevented()||!s)return;var r=this.getTipElement(),o=P.getUID(this.constructor.NAME);r.setAttribute("id",o),this.element.setAttribute("aria-describedby",o),this.setContent(),this.config.animation&&t(r).addClass(g);var l="function"==typeof this.config.placement?this.config.placement.call(this,r,this.element):this.config.placement,h=this._getAttachment(l);this.addAttachmentClass(h);var c=!1===this.config.container?document.body:t(this.config.container);t(r).data(this.constructor.DATA_KEY,this),t.contains(this.element.ownerDocument.documentElement,this.tip)||t(r).appendTo(c),t(this.element).trigger(this.constructor.Event.INSERTED),this._popper=new n(this.element,r,{placement:h,modifiers:{offset:{offset:this.config.offset},flip:{behavior:this.config.fallbackPlacement},arrow:{element:v},preventOverflow:{boundariesElement:this.config.boundary}},onCreate:function(t){t.originalPlacement!==t.placement&&e._handlePopperPlacementChange(t)},onUpdate:function(t){e._handlePopperPlacementChange(t)}}),t(r).addClass(p),"ontouchstart"in document.documentElement&&t("body").children().on("mouseover",null,t.noop);var u=function(){e.config.animation&&e._fixTransition();var n=e._hoverState;e._hoverState=null,t(e.element).trigger(e.constructor.Event.SHOWN),n===d&&e._leave(null,e)};P.supportsTransitionEnd()&&t(this.tip).hasClass(g)?t(this.tip).one(P.TRANSITION_END,u).emulateTransitionEnd(a._TRANSITION_DURATION):u()}},I.hide=function(e){var n=this,i=this.getTipElement(),s=t.Event(this.constructor.Event.HIDE),r=function(){n._hoverState!==f&&i.parentNode&&i.parentNode.removeChild(i),n._cleanTipClass(),n.element.removeAttribute("aria-describedby"),t(n.element).trigger(n.constructor.Event.HIDDEN),null!==n._popper&&n._popper.destroy(),e&&e()};t(this.element).trigger(s),s.isDefaultPrevented()||(t(i).removeClass(p),"ontouchstart"in document.documentElement&&t("body").children().off("mouseover",null,t.noop),this._activeTrigger[y]=!1,this._activeTrigger[T]=!1,this._activeTrigger[E]=!1,P.supportsTransitionEnd()&&t(this.tip).hasClass(g)?t(i).one(P.TRANSITION_END,r).emulateTransitionEnd(150):r(),this._hoverState="")},I.update=function(){null!==this._popper&&this._popper.scheduleUpdate()},I.isWithContent=function(){return Boolean(this.getTitle())},I.addAttachmentClass=function(e){t(this.getTipElement()).addClass("bs-tooltip-"+e)},I.getTipElement=function(){return this.tip=this.tip||t(this.config.template)[0],this.tip},I.setContent=function(){var e=t(this.getTipElement());this.setElementContent(e.find(m),this.getTitle()),e.removeClass(g+" "+p)},I.setElementContent=function(e,n){var i=this.config.html;"object"==typeof n&&(n.nodeType||n.jquery)?i?t(n).parent().is(e)||e.empty().append(n):e.text(t(n).text()):e[i?"html":"text"](n)},I.getTitle=function(){var t=this.element.getAttribute("data-original-title");return t||(t="function"==typeof this.config.title?this.config.title.call(this.element):this.config.title),t},I._getAttachment=function(t){return c[t.toUpperCase()]},I._setListeners=function(){var e=this;this.config.trigger.split(" ").forEach(function(n){if("click"===n)t(e.element).on(e.constructor.Event.CLICK,e.config.selector,function(t){return e.toggle(t)});else if(n!==C){var i=n===E?e.constructor.Event.MOUSEENTER:e.constructor.Event.FOCUSIN,s=n===E?e.constructor.Event.MOUSELEAVE:e.constructor.Event.FOCUSOUT;t(e.element).on(i,e.config.selector,function(t){return e._enter(t)}).on(s,e.config.selector,function(t){return e._leave(t)})}t(e.element).closest(".modal").on("hide.bs.modal",function(){return e.hide()})}),this.config.selector?this.config=r({},this.config,{trigger:"manual",selector:""}):this._fixTitle()},I._fixTitle=function(){var t=typeof this.element.getAttribute("data-original-title");(this.element.getAttribute("title")||"string"!==t)&&(this.element.setAttribute("data-original-title",this.element.getAttribute("title")||""),this.element.setAttribute("title",""))},I._enter=function(e,n){var i=this.constructor.DATA_KEY;(n=n||t(e.currentTarget).data(i))||(n=new this.constructor(e.currentTarget,this._getDelegateConfig()),t(e.currentTarget).data(i,n)),e&&(n._activeTrigger["focusin"===e.type?T:E]=!0),t(n.getTipElement()).hasClass(p)||n._hoverState===f?n._hoverState=f:(clearTimeout(n._timeout),n._hoverState=f,n.config.delay&&n.config.delay.show?n._timeout=setTimeout(function(){n._hoverState===f&&n.show()},n.config.delay.show):n.show())},I._leave=function(e,n){var i=this.constructor.DATA_KEY;(n=n||t(e.currentTarget).data(i))||(n=new this.constructor(e.currentTarget,this._getDelegateConfig()),t(e.currentTarget).data(i,n)),e&&(n._activeTrigger["focusout"===e.type?T:E]=!1),n._isWithActiveTrigger()||(clearTimeout(n._timeout),n._hoverState=d,n.config.delay&&n.config.delay.hide?n._timeout=setTimeout(function(){n._hoverState===d&&n.hide()},n.config.delay.hide):n.hide())},I._isWithActiveTrigger=function(){for(var t in this._activeTrigger)if(this._activeTrigger[t])return!0;return!1},I._getConfig=function(n){return"number"==typeof(n=r({},this.constructor.Default,t(this.element).data(),n)).delay&&(n.delay={show:n.delay,hide:n.delay}),"number"==typeof n.title&&(n.title=n.title.toString()),"number"==typeof n.content&&(n.content=n.content.toString()),P.typeCheckConfig(e,n,this.constructor.DefaultType),n},I._getDelegateConfig=function(){var t={};if(this.config)for(var e in this.config)this.constructor.Default[e]!==this.config[e]&&(t[e]=this.config[e]);return t},I._cleanTipClass=function(){var e=t(this.getTipElement()),n=e.attr("class").match(l);null!==n&&n.length>0&&e.removeClass(n.join(""))},I._handlePopperPlacementChange=function(t){this._cleanTipClass(),this.addAttachmentClass(this._getAttachment(t.placement))},I._fixTransition=function(){var e=this.getTipElement(),n=this.config.animation;null===e.getAttribute("x-placement")&&(t(e).removeClass(g),this.config.animation=!1,this.hide(),this.show(),this.config.animation=n)},a._jQueryInterface=function(e){return this.each(function(){var n=t(this).data(i),s="object"==typeof e&&e;if((n||!/dispose|hide/.test(e))&&(n||(n=new a(this,s),t(this).data(i,n)),"string"==typeof e)){if("undefined"==typeof n[e])throw new TypeError('No method named "'+e+'"');n[e]()}})},s(a,null,[{key:"VERSION",get:function(){return"4.0.0"}},{key:"Default",get:function(){return u}},{key:"NAME",get:function(){return e}},{key:"DATA_KEY",get:function(){return i}},{key:"Event",get:function(){return _}},{key:"EVENT_KEY",get:function(){return o}},{key:"DefaultType",get:function(){return h}}]),a}();return t.fn[e]=I._jQueryInterface,t.fn[e].Constructor=I,t.fn[e].noConflict=function(){return t.fn[e]=a,I._jQueryInterface},I}(e),x=function(t){var e="popover",n="bs.popover",i="."+n,o=t.fn[e],a=new RegExp("(^|\\s)bs-popover\\S+","g"),l=r({},U.Default,{placement:"right",trigger:"click",content:"",template:'<div class="popover" role="tooltip"><div class="arrow"></div><h3 class="popover-header"></h3><div class="popover-body"></div></div>'}),h=r({},U.DefaultType,{content:"(string|element|function)"}),c="fade",u="show",f=".popover-header",d=".popover-body",_={HIDE:"hide"+i,HIDDEN:"hidden"+i,SHOW:"show"+i,SHOWN:"shown"+i,INSERTED:"inserted"+i,CLICK:"click"+i,FOCUSIN:"focusin"+i,FOCUSOUT:"focusout"+i,MOUSEENTER:"mouseenter"+i,MOUSELEAVE:"mouseleave"+i},g=function(r){var o,g;function p(){return r.apply(this,arguments)||this}g=r,(o=p).prototype=Object.create(g.prototype),o.prototype.constructor=o,o.__proto__=g;var m=p.prototype;return m.isWithContent=function(){return this.getTitle()||this._getContent()},m.addAttachmentClass=function(e){t(this.getTipElement()).addClass("bs-popover-"+e)},m.getTipElement=function(){return this.tip=this.tip||t(this.config.template)[0],this.tip},m.setContent=function(){var e=t(this.getTipElement());this.setElementContent(e.find(f),this.getTitle());var n=this._getContent();"function"==typeof n&&(n=n.call(this.element)),this.setElementContent(e.find(d),n),e.removeClass(c+" "+u)},m._getContent=function(){return this.element.getAttribute("data-content")||this.config.content},m._cleanTipClass=function(){var e=t(this.getTipElement()),n=e.attr("class").match(a);null!==n&&n.length>0&&e.removeClass(n.join(""))},p._jQueryInterface=function(e){return this.each(function(){var i=t(this).data(n),s="object"==typeof e?e:null;if((i||!/destroy|hide/.test(e))&&(i||(i=new p(this,s),t(this).data(n,i)),"string"==typeof e)){if("undefined"==typeof i[e])throw new TypeError('No method named "'+e+'"');i[e]()}})},s(p,null,[{key:"VERSION",get:function(){return"4.0.0"}},{key:"Default",get:function(){return l}},{key:"NAME",get:function(){return e}},{key:"DATA_KEY",get:function(){return n}},{key:"Event",get:function(){return _}},{key:"EVENT_KEY",get:function(){return i}},{key:"DefaultType",get:function(){return h}}]),p}(U);return t.fn[e]=g._jQueryInterface,t.fn[e].Constructor=g,t.fn[e].noConflict=function(){return t.fn[e]=o,g._jQueryInterface},g}(e),K=function(t){var e="scrollspy",n="bs.scrollspy",i="."+n,o=t.fn[e],a={offset:10,method:"auto",target:""},l={offset:"number",method:"string",target:"(string|element)"},h={ACTIVATE:"activate"+i,SCROLL:"scroll"+i,LOAD_DATA_API:"load"+i+".data-api"},c="dropdown-item",u="active",f={DATA_SPY:'[data-spy="scroll"]',ACTIVE:".active",NAV_LIST_GROUP:".nav, .list-group",NAV_LINKS:".nav-link",NAV_ITEMS:".nav-item",LIST_ITEMS:".list-group-item",DROPDOWN:".dropdown",DROPDOWN_ITEMS:".dropdown-item",DROPDOWN_TOGGLE:".dropdown-toggle"},d="offset",_="position",g=function(){function o(e,n){var i=this;this._element=e,this._scrollElement="BODY"===e.tagName?window:e,this._config=this._getConfig(n),this._selector=this._config.target+" "+f.NAV_LINKS+","+this._config.target+" "+f.LIST_ITEMS+","+this._config.target+" "+f.DROPDOWN_ITEMS,this._offsets=[],this._targets=[],this._activeTarget=null,this._scrollHeight=0,t(this._scrollElement).on(h.SCROLL,function(t){return i._process(t)}),this.refresh(),this._process()}var g=o.prototype;return g.refresh=function(){var e=this,n=this._scrollElement===this._scrollElement.window?d:_,i="auto"===this._config.method?n:this._config.method,s=i===_?this._getScrollTop():0;this._offsets=[],this._targets=[],this._scrollHeight=this._getScrollHeight(),t.makeArray(t(this._selector)).map(function(e){var n,r=P.getSelectorFromElement(e);if(r&&(n=t(r)[0]),n){var o=n.getBoundingClientRect();if(o.width||o.height)return[t(n)[i]().top+s,r]}return null}).filter(function(t){return t}).sort(function(t,e){return t[0]-e[0]}).forEach(function(t){e._offsets.push(t[0]),e._targets.push(t[1])})},g.dispose=function(){t.removeData(this._element,n),t(this._scrollElement).off(i),this._element=null,this._scrollElement=null,this._config=null,this._selector=null,this._offsets=null,this._targets=null,this._activeTarget=null,this._scrollHeight=null},g._getConfig=function(n){if("string"!=typeof(n=r({},a,n)).target){var i=t(n.target).attr("id");i||(i=P.getUID(e),t(n.target).attr("id",i)),n.target="#"+i}return P.typeCheckConfig(e,n,l),n},g._getScrollTop=function(){return this._scrollElement===window?this._scrollElement.pageYOffset:this._scrollElement.scrollTop},g._getScrollHeight=function(){return this._scrollElement.scrollHeight||Math.max(document.body.scrollHeight,document.documentElement.scrollHeight)},g._getOffsetHeight=function(){return this._scrollElement===window?window.innerHeight:this._scrollElement.getBoundingClientRect().height},g._process=function(){var t=this._getScrollTop()+this._config.offset,e=this._getScrollHeight(),n=this._config.offset+e-this._getOffsetHeight();if(this._scrollHeight!==e&&this.refresh(),t>=n){var i=this._targets[this._targets.length-1];this._activeTarget!==i&&this._activate(i)}else{if(this._activeTarget&&t<this._offsets[0]&&this._offsets[0]>0)return this._activeTarget=null,void this._clear();for(var s=this._offsets.length;s--;){this._activeTarget!==this._targets[s]&&t>=this._offsets[s]&&("undefined"==typeof this._offsets[s+1]||t<this._offsets[s+1])&&this._activate(this._targets[s])}}},g._activate=function(e){this._activeTarget=e,this._clear();var n=this._selector.split(",");n=n.map(function(t){return t+'[data-target="'+e+'"],'+t+'[href="'+e+'"]'});var i=t(n.join(","));i.hasClass(c)?(i.closest(f.DROPDOWN).find(f.DROPDOWN_TOGGLE).addClass(u),i.addClass(u)):(i.addClass(u),i.parents(f.NAV_LIST_GROUP).prev(f.NAV_LINKS+", "+f.LIST_ITEMS).addClass(u),i.parents(f.NAV_LIST_GROUP).prev(f.NAV_ITEMS).children(f.NAV_LINKS).addClass(u)),t(this._scrollElement).trigger(h.ACTIVATE,{relatedTarget:e})},g._clear=function(){t(this._selector).filter(f.ACTIVE).removeClass(u)},o._jQueryInterface=function(e){return this.each(function(){var i=t(this).data(n);if(i||(i=new o(this,"object"==typeof e&&e),t(this).data(n,i)),"string"==typeof e){if("undefined"==typeof i[e])throw new TypeError('No method named "'+e+'"');i[e]()}})},s(o,null,[{key:"VERSION",get:function(){return"4.0.0"}},{key:"Default",get:function(){return a}}]),o}();return t(window).on(h.LOAD_DATA_API,function(){for(var e=t.makeArray(t(f.DATA_SPY)),n=e.length;n--;){var i=t(e[n]);g._jQueryInterface.call(i,i.data())}}),t.fn[e]=g._jQueryInterface,t.fn[e].Constructor=g,t.fn[e].noConflict=function(){return t.fn[e]=o,g._jQueryInterface},g}(e),V=function(t){var e="bs.tab",n="."+e,i=t.fn.tab,r={HIDE:"hide"+n,HIDDEN:"hidden"+n,SHOW:"show"+n,SHOWN:"shown"+n,CLICK_DATA_API:"click.bs.tab.data-api"},o="dropdown-menu",a="active",l="disabled",h="fade",c="show",u=".dropdown",f=".nav, .list-group",d=".active",_="> li > .active",g='[data-toggle="tab"], [data-toggle="pill"], [data-toggle="list"]',p=".dropdown-toggle",m="> .dropdown-menu .active",v=function(){function n(t){this._element=t}var i=n.prototype;return i.show=function(){var e=this;if(!(this._element.parentNode&&this._element.parentNode.nodeType===Node.ELEMENT_NODE&&t(this._element).hasClass(a)||t(this._element).hasClass(l))){var n,i,s=t(this._element).closest(f)[0],o=P.getSelectorFromElement(this._element);if(s){var h="UL"===s.nodeName?_:d;i=(i=t.makeArray(t(s).find(h)))[i.length-1]}var c=t.Event(r.HIDE,{relatedTarget:this._element}),u=t.Event(r.SHOW,{relatedTarget:i});if(i&&t(i).trigger(c),t(this._element).trigger(u),!u.isDefaultPrevented()&&!c.isDefaultPrevented()){o&&(n=t(o)[0]),this._activate(this._element,s);var g=function(){var n=t.Event(r.HIDDEN,{relatedTarget:e._element}),s=t.Event(r.SHOWN,{relatedTarget:i});t(i).trigger(n),t(e._element).trigger(s)};n?this._activate(n,n.parentNode,g):g()}}},i.dispose=function(){t.removeData(this._element,e),this._element=null},i._activate=function(e,n,i){var s=this,r=("UL"===n.nodeName?t(n).find(_):t(n).children(d))[0],o=i&&P.supportsTransitionEnd()&&r&&t(r).hasClass(h),a=function(){return s._transitionComplete(e,r,i)};r&&o?t(r).one(P.TRANSITION_END,a).emulateTransitionEnd(150):a()},i._transitionComplete=function(e,n,i){if(n){t(n).removeClass(c+" "+a);var s=t(n.parentNode).find(m)[0];s&&t(s).removeClass(a),"tab"===n.getAttribute("role")&&n.setAttribute("aria-selected",!1)}if(t(e).addClass(a),"tab"===e.getAttribute("role")&&e.setAttribute("aria-selected",!0),P.reflow(e),t(e).addClass(c),e.parentNode&&t(e.parentNode).hasClass(o)){var r=t(e).closest(u)[0];r&&t(r).find(p).addClass(a),e.setAttribute("aria-expanded",!0)}i&&i()},n._jQueryInterface=function(i){return this.each(function(){var s=t(this),r=s.data(e);if(r||(r=new n(this),s.data(e,r)),"string"==typeof i){if("undefined"==typeof r[i])throw new TypeError('No method named "'+i+'"');r[i]()}})},s(n,null,[{key:"VERSION",get:function(){return"4.0.0"}}]),n}();return t(document).on(r.CLICK_DATA_API,g,function(e){e.preventDefault(),v._jQueryInterface.call(t(this),"show")}),t.fn.tab=v._jQueryInterface,t.fn.tab.Constructor=v,t.fn.tab.noConflict=function(){return t.fn.tab=i,v._jQueryInterface},v}(e);!function(t){if("undefined"==typeof t)throw new TypeError("Bootstrap's JavaScript requires jQuery. jQuery must be included before Bootstrap's JavaScript.");var e=t.fn.jquery.split(" ")[0].split(".");if(e[0]<2&&e[1]<9||1===e[0]&&9===e[1]&&e[2]<1||e[0]>=4)throw new Error("Bootstrap's JavaScript requires at least jQuery v1.9.1 but less than v4.0.0")}(e),t.Util=P,t.Alert=L,t.Button=R,t.Carousel=j,t.Collapse=H,t.Dropdown=W,t.Modal=M,t.Popover=x,t.Scrollspy=K,t.Tab=V,t.Tooltip=U,Object.defineProperty(t,"__esModule",{value:!0})});
7 | //# sourceMappingURL=bootstrap.min.js.map


--------------------------------------------------------------------------------