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@2:b50c974ed0d5, 2012-07-02 (annotated)
- Committer:
- okini3939
- Date:
- Mon Jul 02 16:23:41 2012 +0000
- Revision:
- 2:b50c974ed0d5
- Parent:
- 1:10bd46941b8b
- Child:
- 3:ef5af1e8558d
bugfix;
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 | 1:10bd46941b8b | 14 | volatile int denki_flg = 0; |
okini3939 | 2:b50c974ed0d5 | 15 | volatile int denki_capacity = 0; |
okini3939 | 1:10bd46941b8b | 16 | volatile int denki_usage = 0; |
okini3939 | 1:10bd46941b8b | 17 | volatile int year, month, day, hour, minute; |
okini3939 | 1:10bd46941b8b | 18 | |
okini3939 | 0:2a2f00cbc761 | 19 | |
okini3939 | 0:2a2f00cbc761 | 20 | void callback_denkiyohou (char *buf, int len) { |
okini3939 | 1:10bd46941b8b | 21 | static int n = 0; |
okini3939 | 1:10bd46941b8b | 22 | static char data[100]; |
okini3939 | 0:2a2f00cbc761 | 23 | int i; |
okini3939 | 0:2a2f00cbc761 | 24 | |
okini3939 | 0:2a2f00cbc761 | 25 | for (i = 0; i < len; i ++) { |
okini3939 | 0:2a2f00cbc761 | 26 | if (buf[i] == '\r') continue; |
okini3939 | 0:2a2f00cbc761 | 27 | |
okini3939 | 2:b50c974ed0d5 | 28 | if (denki_flg <= 1) { |
okini3939 | 0:2a2f00cbc761 | 29 | // header |
okini3939 | 0:2a2f00cbc761 | 30 | if (buf[i] == '\n') { |
okini3939 | 1:10bd46941b8b | 31 | n = 0; |
okini3939 | 1:10bd46941b8b | 32 | denki_flg ++; |
okini3939 | 0:2a2f00cbc761 | 33 | } else { |
okini3939 | 1:10bd46941b8b | 34 | denki_flg = 0; |
okini3939 | 0:2a2f00cbc761 | 35 | } |
okini3939 | 2:b50c974ed0d5 | 36 | continue; |
okini3939 | 2:b50c974ed0d5 | 37 | } |
okini3939 | 2:b50c974ed0d5 | 38 | |
okini3939 | 2:b50c974ed0d5 | 39 | // body |
okini3939 | 2:b50c974ed0d5 | 40 | if (buf[i] == '\n') { |
okini3939 | 2:b50c974ed0d5 | 41 | data[n] = 0; |
okini3939 | 2:b50c974ed0d5 | 42 | switch (denki_flg) { |
okini3939 | 2:b50c974ed0d5 | 43 | case 2: |
okini3939 | 2:b50c974ed0d5 | 44 | // update |
okini3939 | 2:b50c974ed0d5 | 45 | break; |
okini3939 | 2:b50c974ed0d5 | 46 | case 4: |
okini3939 | 2:b50c974ed0d5 | 47 | // capacity |
okini3939 | 2:b50c974ed0d5 | 48 | if (data[0] >= '0' && data[0] <= '9') { |
okini3939 | 2:b50c974ed0d5 | 49 | denki_capacity = atoi(data); |
okini3939 | 2:b50c974ed0d5 | 50 | } |
okini3939 | 2:b50c974ed0d5 | 51 | break; |
okini3939 | 2:b50c974ed0d5 | 52 | case 7: |
okini3939 | 2:b50c974ed0d5 | 53 | // yosou1 |
okini3939 | 2:b50c974ed0d5 | 54 | break; |
okini3939 | 2:b50c974ed0d5 | 55 | case 10: |
okini3939 | 2:b50c974ed0d5 | 56 | // yosou2 |
okini3939 | 2:b50c974ed0d5 | 57 | break; |
okini3939 | 2:b50c974ed0d5 | 58 | default: |
okini3939 | 2:b50c974ed0d5 | 59 | // text |
okini3939 | 2:b50c974ed0d5 | 60 | if (data[0] == 'D' && data[1] == 'A') { |
okini3939 | 2:b50c974ed0d5 | 61 | denki_flg = denki_flg < 100 ? 100 : 200; |
okini3939 | 2:b50c974ed0d5 | 62 | } |
okini3939 | 2:b50c974ed0d5 | 63 | break; |
okini3939 | 0:2a2f00cbc761 | 64 | } |
okini3939 | 2:b50c974ed0d5 | 65 | if (denki_flg > 200 && data[i - 1] >= '0' && data[i - 1] <= '9') { |
okini3939 | 2:b50c974ed0d5 | 66 | sscanf(data, "%d/%d/%d,%d:%d,%d", &year, &month, &day, &hour, &minute, &denki_usage); |
okini3939 | 2:b50c974ed0d5 | 67 | } |
okini3939 | 2:b50c974ed0d5 | 68 | n = 0; |
okini3939 | 2:b50c974ed0d5 | 69 | denki_flg ++; |
okini3939 | 2:b50c974ed0d5 | 70 | } else { |
okini3939 | 2:b50c974ed0d5 | 71 | // data |
okini3939 | 2:b50c974ed0d5 | 72 | if (n < sizeof(data) - 1) { |
okini3939 | 0:2a2f00cbc761 | 73 | data[n] = buf[i]; |
okini3939 | 0:2a2f00cbc761 | 74 | n ++; |
okini3939 | 0:2a2f00cbc761 | 75 | } |
okini3939 | 0:2a2f00cbc761 | 76 | } |
okini3939 | 2:b50c974ed0d5 | 77 | |
okini3939 | 0:2a2f00cbc761 | 78 | } |
okini3939 | 0:2a2f00cbc761 | 79 | } |
okini3939 | 0:2a2f00cbc761 | 80 | |
okini3939 | 0:2a2f00cbc761 | 81 | int main() { |
okini3939 | 0:2a2f00cbc761 | 82 | Timer timer; |
okini3939 | 0:2a2f00cbc761 | 83 | int flg = 1, r; |
okini3939 | 2:b50c974ed0d5 | 84 | float denki_percentage = 0; |
okini3939 | 0:2a2f00cbc761 | 85 | |
okini3939 | 0:2a2f00cbc761 | 86 | pc.baud(115200); |
okini3939 | 0:2a2f00cbc761 | 87 | eth.init(); //Use DHCP |
okini3939 | 0:2a2f00cbc761 | 88 | if (eth.connect()) { |
okini3939 | 0:2a2f00cbc761 | 89 | return -1; |
okini3939 | 0:2a2f00cbc761 | 90 | } |
okini3939 | 0:2a2f00cbc761 | 91 | |
okini3939 | 1:10bd46941b8b | 92 | pc.printf("Denki-yohou: %s\r\n", HTTP_HOST); |
okini3939 | 0:2a2f00cbc761 | 93 | |
okini3939 | 0:2a2f00cbc761 | 94 | timer.start(); |
okini3939 | 0:2a2f00cbc761 | 95 | while(1) { |
okini3939 | 0:2a2f00cbc761 | 96 | led1 = 1; |
okini3939 | 0:2a2f00cbc761 | 97 | |
okini3939 | 0:2a2f00cbc761 | 98 | if (flg || timer.read() >= 300) { |
okini3939 | 0:2a2f00cbc761 | 99 | timer.reset(); |
okini3939 | 1:10bd46941b8b | 100 | denki_flg = 0; |
okini3939 | 0:2a2f00cbc761 | 101 | r = httpRequest(METHOD_GET, HTTP_HOST, 80, HTTP_URI, NULL, NULL, &callback_denkiyohou); |
okini3939 | 0:2a2f00cbc761 | 102 | if (r == 0) { |
okini3939 | 2:b50c974ed0d5 | 103 | denki_percentage = (float)denki_usage / (float)denki_capacity * 100.0; |
okini3939 | 0:2a2f00cbc761 | 104 | |
okini3939 | 2:b50c974ed0d5 | 105 | pc.printf("%04d-%02d-%02d %02d:%02d : ", year, month, day, hour, minute); |
okini3939 | 2:b50c974ed0d5 | 106 | pc.printf("%0.1f %%\r\n", denki_percentage); |
okini3939 | 2:b50c974ed0d5 | 107 | |
okini3939 | 2:b50c974ed0d5 | 108 | led2 = denki_percentage >= 70 ? 1 : 0; |
okini3939 | 2:b50c974ed0d5 | 109 | led3 = denki_percentage >= 85 ? 1 : 0; |
okini3939 | 2:b50c974ed0d5 | 110 | led4 = denki_percentage >= 95 ? 1 : 0; |
okini3939 | 1:10bd46941b8b | 111 | } else { |
okini3939 | 1:10bd46941b8b | 112 | pc.printf("http error\r\n"); |
okini3939 | 0:2a2f00cbc761 | 113 | } |
okini3939 | 0:2a2f00cbc761 | 114 | flg = 0; |
okini3939 | 0:2a2f00cbc761 | 115 | } |
okini3939 | 0:2a2f00cbc761 | 116 | |
okini3939 | 0:2a2f00cbc761 | 117 | wait(0.1); |
okini3939 | 0:2a2f00cbc761 | 118 | led1 = 0; |
okini3939 | 0:2a2f00cbc761 | 119 | wait(0.9); |
okini3939 | 0:2a2f00cbc761 | 120 | } |
okini3939 | 0:2a2f00cbc761 | 121 | } |