【지진 정보 전달】 나 우선이 훌륭하다고 생각하는 건

※캘린더가 비어 있었기 때문에 쇼보이입니다만 썼습니다

0. 처음에

저는 엔지니어가 아닌 단지 도실로트입니다.

도시로우트이므로 API 밖의 사람이 됩니다.

도시로우트이므로 프로그래밍 능력은 낮습니다.

도시로우트이므로 간단하게 이용할 수 있어, 사용법도 간단한 API를 좋아합니다.

모처럼 API를 이용한 프로그램을 만들면 오래 사용하고 싶습니다.

이 기사에서는 국산에서 매우 길게 API를 제공되고 있어 등록 불필요하고 사용법도 간단한 지진 정보 전달 API를 소개합니다. (아시겠지만…(^_^;))

1. 【지진 정보 전달】

그 밖에도 지진 정보를 전달하고 있는 API는 있다고 생각합니다만 5년 이상 계속하고 있는 훌륭한 사이트입니다.

【지진 정보 전달】나무 - PC에서 모바일까지 지원하는 실시간 지진 정보 서비스
h tp : / / n m없이. jp/

검색한 한에서는 2013년 2월에 다음의 넷 기사에서도 소개되고 있었습니다.

Bing Maps에 지진의 진원지를 표시하는 프로그램 만들기
h tps : // 테키 t. 이. jp/s와 ry/2013/02/20/3971

API 엔드포인트:
h tp // 아피. 음 m없이. jp/히 s와 ry. xml

API 엔드포인트를 보시면 알 수 있듯이 최근의 지진 정보가 시계열로 늘어선 다음 항목을 포함한 XML이 반환됩니다.

항목: 지진정보 URL, 발생일, 위도, 경도, 지역명, 진도, 규모

2. 샘플

도시로우트답게 세계 제일 간단한 언어 BASIC!로 샘플을 올려 둡니다.

BASIC!은 Android에서 움직이는 BASIC 인터프리터입니다. 자세한 내용은 다음을 참조하십시오.

Android에서 BASIC 사용 (BASIC 프로그래밍)
htps : // 이 m / 가시 c와 물건 / ms / 25bcb21에 c69c00에 9 아 d23

내가 BASIC! 프로그램으로 만든 화면은 다음과 같습니다.



안드로이드 스마트 폰이나 태블릿에서 볼 수 있으므로 매우 편리합니다.

3. 샘플 프로그램 코드

BASIC! 프로그램의 코드의 API 취득 부분이 이하입니다.

jisgin.bas

REM 地震情報取得

! API呼出
console.title "地震情報取得中…"
graburl eqwk$,"http://api.nmzu.jp/history.xml"

! 改行で取得したデータを分割
split eqa$[],eqwk$,"\n"
array.length leqa,eqa$[]        

! 行ごとの処理
outall$=""
for i=1 to leqa
   msx$="地震情報処理中… ( "+str$(int(i/leqa*100))+" %)"
   console.title msx$

! URLを抽出
   if IS_IN("<url>",eqa$[i])>0 then
     equrl$=replace$(eqa$[i],"<url>","")
     equrl$=replace$(equrl$,"</url>","")
     equrl$=replace$(equrl$,"\t","")
   endif

! 発生日時を抽出
   if IS_IN("<detection_date>",eqa$[i])>0 then
     eqdat$=replace$(eqa$[i],"<detection_date>","")
     eqdat$=replace$(eqdat$,"</detection_date>","")
     eqdat$=replace$(eqdat$,"\t","")
   endif

! 緯度経度を抽出
   if IS_IN("<latitude>",eqa$[i])>0 then
     eqlat$=replace$(eqa$[i],"<latitude>","")
     eqlat$=replace$(eqlat$,"</latitude>","")
     eqlat$=replace$(eqlat$,"\t","")
   endif

   if IS_IN("<longitude>",eqa$[i])>0 then
     eqlon$=replace$(eqa$[i],"<longitude>","")
     eqlon$=replace$(eqlon$,"</longitude>","")
     eqlon$=replace$(eqlon$,"\t","")
   endif

! 地域名を抽出
   if IS_IN("<name>",eqa$[i])>0 then
     eqnam$=replace$(eqa$[i],"<name>","")
     eqnam$=replace$(eqnam$,"</name>","")
     eqnam$=replace$(eqnam$,"\t","")
   endif

! 震度を抽出
   if IS_IN("<intensity_no>",eqa$[i])>0 then
     eqint$=replace$(eqa$[i],"<intensity_no>","")
     eqint$=replace$(eqint$,"</intensity_no>","")
     eqint$=replace$(eqint$,"\t","")
   endif

! マグニチュードを抽出
   if IS_IN("<magnitude>",eqa$[i])>0 then
     eqmag$=replace$(eqa$[i],"<magnitude>","")
     eqmag$=replace$(eqmag$,"</magnitude>","")
     eqmag$=replace$(eqmag$,"\t","")
   endif

! 1件分まとめ
   if IS_IN("</entry>",eqa$[i])>0 then
     outall$=outall$+"発生日時:"+eqdat$+","
     outall$=outall$+"地域:"+eqnam$+","
     outall$=outall$+"震度:"+eqint$+","
     outall$=outall$+"url:"+equrl$+","
     outall$=outall$+"緯度:"+eqlat$+","
     outall$=outall$+"経度:"+eqlon$+","
     outall$=outall$+"マグニチュード:"+eqmag$+"\n"
   endif

next i

array.delete eqa$[]

매우 간단하다고 생각합니다.

4. 요약

지진 정보와 같은 재해계의 API는 언제 발생하는지 모르기 때문에 정보 제공의 연속성이 중요하다고 생각합니다.

「나 우선」씨는 그 의미로 훌륭하게 앞으로도 계속해 주실 수 있으면 좋겠다고 생각하고 있습니다.

그 이상