Kansai Electric Power usage meter (Denki-yohou)
Dependencies: mbed mbed-rtos EthernetInterface
関西電力 でんき予報メーター
関電のでんき予報のリアルタイム値(使用電力状況データ CSV )をもとに、mbedのLEDを点灯させます。
そのほかの情報はこちらへ: http://mbed.org/users/okini3939/notebook/denki-yohou/
Import programdenki-yohou_b
Kansai Electric Power usage meter (Denki-yohou)
- LED1 動作中表示
- LED2 70%以上
- LED3 85%以上
- LED4 95%以上
新しい Ethernet Interface ライブラリと、独自の Tiny HTTP クライアント ライブラリを使っています。
CSVの解析処理をはしょって改行を頼りにしているので、CSVファイルの構造が変わるとうまく動かなくなります。
東電でも同様に使えると思います。
main.cpp@0:2a2f00cbc761, 2012-07-02 (annotated)
- Committer:
- okini3939
- Date:
- Mon Jul 02 05:54:16 2012 +0000
- Revision:
- 0:2a2f00cbc761
- Child:
- 1:10bd46941b8b
Kansai Electric Power usage meter (Denki-yohou)
;
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
okini3939 | 0:2a2f00cbc761 | 1 | #include "mbed.h" |
okini3939 | 0:2a2f00cbc761 | 2 | #include "EthernetInterface.h" |
okini3939 | 0:2a2f00cbc761 | 3 | #include "TinyHTTP_b.h" |
okini3939 | 0:2a2f00cbc761 | 4 | |
okini3939 | 0:2a2f00cbc761 | 5 | // Kansai Electric Power |
okini3939 | 0:2a2f00cbc761 | 6 | #define HTTP_HOST "www.kepco.co.jp" |
okini3939 | 0:2a2f00cbc761 | 7 | #define HTTP_URI "/yamasou/juyo1_kansai.csv" |
okini3939 | 0:2a2f00cbc761 | 8 | |
okini3939 | 0:2a2f00cbc761 | 9 | Serial pc(USBTX, USBRX); |
okini3939 | 0:2a2f00cbc761 | 10 | EthernetInterface eth; |
okini3939 | 0:2a2f00cbc761 | 11 | |
okini3939 | 0:2a2f00cbc761 | 12 | DigitalOut led1(LED1), led2(LED2), led3(LED3), led4(LED4); |
okini3939 | 0:2a2f00cbc761 | 13 | |
okini3939 | 0:2a2f00cbc761 | 14 | int denki_usage = 0; |
okini3939 | 0:2a2f00cbc761 | 15 | struct tm denki_update; |
okini3939 | 0:2a2f00cbc761 | 16 | int year, month, day, hour, minute; |
okini3939 | 0:2a2f00cbc761 | 17 | |
okini3939 | 0:2a2f00cbc761 | 18 | void callback_denkiyohou (char *buf, int len) { |
okini3939 | 0:2a2f00cbc761 | 19 | static int flg = 0, n = 0; |
okini3939 | 0:2a2f00cbc761 | 20 | static char data[200]; |
okini3939 | 0:2a2f00cbc761 | 21 | int i; |
okini3939 | 0:2a2f00cbc761 | 22 | |
okini3939 | 0:2a2f00cbc761 | 23 | for (i = 0; i < len; i ++) { |
okini3939 | 0:2a2f00cbc761 | 24 | if (buf[i] == '\r') continue; |
okini3939 | 0:2a2f00cbc761 | 25 | |
okini3939 | 0:2a2f00cbc761 | 26 | switch (flg) { |
okini3939 | 0:2a2f00cbc761 | 27 | case 0: |
okini3939 | 0:2a2f00cbc761 | 28 | // header |
okini3939 | 0:2a2f00cbc761 | 29 | if (buf[i] == '\n') { |
okini3939 | 0:2a2f00cbc761 | 30 | flg ++; |
okini3939 | 0:2a2f00cbc761 | 31 | } |
okini3939 | 0:2a2f00cbc761 | 32 | break; |
okini3939 | 0:2a2f00cbc761 | 33 | case 1: |
okini3939 | 0:2a2f00cbc761 | 34 | // end of header |
okini3939 | 0:2a2f00cbc761 | 35 | if (buf[i] == '\n') { |
okini3939 | 0:2a2f00cbc761 | 36 | flg ++; |
okini3939 | 0:2a2f00cbc761 | 37 | } else { |
okini3939 | 0:2a2f00cbc761 | 38 | flg = 0; |
okini3939 | 0:2a2f00cbc761 | 39 | } |
okini3939 | 0:2a2f00cbc761 | 40 | break; |
okini3939 | 0:2a2f00cbc761 | 41 | case 2: |
okini3939 | 0:2a2f00cbc761 | 42 | // update |
okini3939 | 0:2a2f00cbc761 | 43 | if (buf[i] == '\n') { |
okini3939 | 0:2a2f00cbc761 | 44 | data[n] = 0; |
okini3939 | 0:2a2f00cbc761 | 45 | sscanf(data, "%d/%d/%d %d:%d", &year, &month, &day, &hour, &minute); |
okini3939 | 0:2a2f00cbc761 | 46 | n = 0; |
okini3939 | 0:2a2f00cbc761 | 47 | flg ++; |
okini3939 | 0:2a2f00cbc761 | 48 | } else { |
okini3939 | 0:2a2f00cbc761 | 49 | data[n] = buf[i]; |
okini3939 | 0:2a2f00cbc761 | 50 | n ++; |
okini3939 | 0:2a2f00cbc761 | 51 | } |
okini3939 | 0:2a2f00cbc761 | 52 | break; |
okini3939 | 0:2a2f00cbc761 | 53 | case 4: |
okini3939 | 0:2a2f00cbc761 | 54 | // peak |
okini3939 | 0:2a2f00cbc761 | 55 | if (buf[i] == '\n') { |
okini3939 | 0:2a2f00cbc761 | 56 | n = 0; |
okini3939 | 0:2a2f00cbc761 | 57 | flg ++; |
okini3939 | 0:2a2f00cbc761 | 58 | } else { |
okini3939 | 0:2a2f00cbc761 | 59 | data[n] = buf[i]; |
okini3939 | 0:2a2f00cbc761 | 60 | n ++; |
okini3939 | 0:2a2f00cbc761 | 61 | } |
okini3939 | 0:2a2f00cbc761 | 62 | break; |
okini3939 | 0:2a2f00cbc761 | 63 | case 7: |
okini3939 | 0:2a2f00cbc761 | 64 | // yosou |
okini3939 | 0:2a2f00cbc761 | 65 | if (buf[i] == '\n') { |
okini3939 | 0:2a2f00cbc761 | 66 | n = 0; |
okini3939 | 0:2a2f00cbc761 | 67 | flg ++; |
okini3939 | 0:2a2f00cbc761 | 68 | } else { |
okini3939 | 0:2a2f00cbc761 | 69 | data[n] = buf[i]; |
okini3939 | 0:2a2f00cbc761 | 70 | n ++; |
okini3939 | 0:2a2f00cbc761 | 71 | } |
okini3939 | 0:2a2f00cbc761 | 72 | break; |
okini3939 | 0:2a2f00cbc761 | 73 | case 10: |
okini3939 | 0:2a2f00cbc761 | 74 | // usage |
okini3939 | 0:2a2f00cbc761 | 75 | if (buf[i] == '\n') { |
okini3939 | 0:2a2f00cbc761 | 76 | data[n] = 0; |
okini3939 | 0:2a2f00cbc761 | 77 | if (data[0] >= '0' && data[0] <= '9') { |
okini3939 | 0:2a2f00cbc761 | 78 | denki_usage = atoi(data); |
okini3939 | 0:2a2f00cbc761 | 79 | } |
okini3939 | 0:2a2f00cbc761 | 80 | n = 0; |
okini3939 | 0:2a2f00cbc761 | 81 | flg ++; |
okini3939 | 0:2a2f00cbc761 | 82 | } else { |
okini3939 | 0:2a2f00cbc761 | 83 | data[n] = buf[i]; |
okini3939 | 0:2a2f00cbc761 | 84 | n ++; |
okini3939 | 0:2a2f00cbc761 | 85 | } |
okini3939 | 0:2a2f00cbc761 | 86 | break; |
okini3939 | 0:2a2f00cbc761 | 87 | default: |
okini3939 | 0:2a2f00cbc761 | 88 | // text |
okini3939 | 0:2a2f00cbc761 | 89 | if (buf[i] == '\n') { |
okini3939 | 0:2a2f00cbc761 | 90 | flg ++; |
okini3939 | 0:2a2f00cbc761 | 91 | } |
okini3939 | 0:2a2f00cbc761 | 92 | break; |
okini3939 | 0:2a2f00cbc761 | 93 | } |
okini3939 | 0:2a2f00cbc761 | 94 | } |
okini3939 | 0:2a2f00cbc761 | 95 | } |
okini3939 | 0:2a2f00cbc761 | 96 | |
okini3939 | 0:2a2f00cbc761 | 97 | int main() { |
okini3939 | 0:2a2f00cbc761 | 98 | Timer timer; |
okini3939 | 0:2a2f00cbc761 | 99 | int flg = 1, r; |
okini3939 | 0:2a2f00cbc761 | 100 | |
okini3939 | 0:2a2f00cbc761 | 101 | pc.baud(115200); |
okini3939 | 0:2a2f00cbc761 | 102 | eth.init(); //Use DHCP |
okini3939 | 0:2a2f00cbc761 | 103 | if (eth.connect()) { |
okini3939 | 0:2a2f00cbc761 | 104 | return -1; |
okini3939 | 0:2a2f00cbc761 | 105 | } |
okini3939 | 0:2a2f00cbc761 | 106 | |
okini3939 | 0:2a2f00cbc761 | 107 | pc.printf("Denki-yohou %s\r\n", HTTP_HOST); |
okini3939 | 0:2a2f00cbc761 | 108 | |
okini3939 | 0:2a2f00cbc761 | 109 | timer.start(); |
okini3939 | 0:2a2f00cbc761 | 110 | while(1) { |
okini3939 | 0:2a2f00cbc761 | 111 | led1 = 1; |
okini3939 | 0:2a2f00cbc761 | 112 | |
okini3939 | 0:2a2f00cbc761 | 113 | if (flg || timer.read() >= 300) { |
okini3939 | 0:2a2f00cbc761 | 114 | timer.reset(); |
okini3939 | 0:2a2f00cbc761 | 115 | r = httpRequest(METHOD_GET, HTTP_HOST, 80, HTTP_URI, NULL, NULL, &callback_denkiyohou); |
okini3939 | 0:2a2f00cbc761 | 116 | if (r == 0) { |
okini3939 | 0:2a2f00cbc761 | 117 | pc.printf("%04d-%02d-%02d %02d:%02d : ", year, month, day, hour, minute); |
okini3939 | 0:2a2f00cbc761 | 118 | pc.printf("%d %%\r\n", denki_usage); |
okini3939 | 0:2a2f00cbc761 | 119 | |
okini3939 | 0:2a2f00cbc761 | 120 | led2 = denki_usage >= 70 ? 1 : 0; |
okini3939 | 0:2a2f00cbc761 | 121 | led3 = denki_usage >= 85 ? 1 : 0; |
okini3939 | 0:2a2f00cbc761 | 122 | led4 = denki_usage >= 95 ? 1 : 0; |
okini3939 | 0:2a2f00cbc761 | 123 | } |
okini3939 | 0:2a2f00cbc761 | 124 | flg = 0; |
okini3939 | 0:2a2f00cbc761 | 125 | } |
okini3939 | 0:2a2f00cbc761 | 126 | |
okini3939 | 0:2a2f00cbc761 | 127 | wait(0.1); |
okini3939 | 0:2a2f00cbc761 | 128 | led1 = 0; |
okini3939 | 0:2a2f00cbc761 | 129 | wait(0.9); |
okini3939 | 0:2a2f00cbc761 | 130 | } |
okini3939 | 0:2a2f00cbc761 | 131 | } |