緊急地震速報発表検出を表示

ソース

プログラム

//　ver 0.4.1 β版 
//  ver 0.5  エラーが表示される不具合の修正
# APIのURLを設定する（緊急地震速報・警報 code=554）
URL1は「https://api.p2pquake.net/v2/history?codes=554&limit=1」

# ----------------------------------------
# 1. 緊急地震速報（警報）の取得と処理
# ----------------------------------------
URL1にAJAX送信。
データ1はそれをJSONデコード。
件数1はデータ1の要素数。

結果1は「【緊急地震速報 (警報)】」

もし, 件数1 ＞ 0ならば
    要素1はデータ1[0]
    元時刻は要素1["time"]
    時刻リストは元時刻を「 」で区切る
    発生日付は時刻リスト[0]
    発生時間は時刻リスト[1]
    時間リストは発生時間を「:」で区切る
    時は時間リスト[0]
    分は時間リスト[1]
    生秒は時間リスト[2]
    秒リストは生秒を「.」で区切る
    秒は秒リスト[0]
    日本語時間情報は「」＆時＆「時」＆分＆「分」＆秒＆「秒」
    
    結果1は結果1＆改行＆「発表日付: 」＆発生日付
    結果1は結果1＆改行＆「発表時間: 」＆日本語時間情報
    
    # 震源地や詳細情報の取得
    もし, 要素1["earthquake"]が存在ならば
        震源情報は要素1["earthquake"]
        もし, 震源情報["hypocenter"]が存在ならば
            震源地は震源情報["hypocenter"]["name"]
            マグニチュードは震源情報["hypocenter"]["magnitude"]
            深さは震源情報["hypocenter"]["depth"]
            
            結果1は結果1＆改行＆「震源地: 」＆震源地
            結果1は結果1＆改行＆「規模 (M): 」＆マグニチュード
            結果1は結果1＆改行＆「深さ: 約」＆深さ＆「km」
        ここまで
    ここまで
    
    # 強い揺れが予測される地域 (areas) の解析
    もし, 要素1["areas"]が存在ならば
        エリア配列は要素1["areas"]
        エリア数はエリア配列の要素数
        
        もし, エリア数 ＞ 0ならば
            結果1は結果1＆改行＆「警報対象地域数: 」＆エリア数＆「地域」
            表示数はエリア数
            もし, 表示数 ＞ 5ならば、表示数は5
            結果1は結果1＆改行＆「--- 主な対象地域 ---」
            Ｉを0から(表示数 - 1)まで繰り返す
                エリア要素はエリア配列[Ｉ]
                地域名はエリア要素["name"]
                予想最大震度はエリア要素["to_scale"]
                結果1は結果1＆改行＆「・」＆地域名＆「 (予想最大震度: 」＆予想最大震度＆「)」
            ここまで
        違えば
            結果1は結果1＆改行＆「対象地域の詳細情報はありません。」
        ここまで
    違えば
        結果1は結果1＆改行＆「対象地域の詳細情報はありません。」
    ここまで
違えば
    結果1は結果1＆改行＆「現在、緊急地震速報(警報)はありません。」
ここまで

# 結果を表示
結果1を表示。

作品について

作品情報

作品を編集

Aris 作

ライセンス: MIT（改変可/表示）
形式: wnako
タグ: -
利用バージョン: 3.7.20
アクセス数(累計): 99
アクセス数(今月): 45
更新日時: 2026/07/27 10:05 編集: 2026/07/29 11:47

作品公開情報

交流

緊急地震速報 発表検出を表示

プログラム

作品情報

コメント

緊急地震速報発表検出を表示