KentaroAOKI

// 初学者のためのゲームプログラミング
// #01 とりあえず動かしてみよう
// ゲームのルール
// - 主人公(MAN("a"))を動かしてブロック(BLOCK(","))をゴール(GOAL("O"))に移動
// - ステージ全てのブロック(BLOCK)をゴール(GOAL)に移動させたら終了

#include <iostream>

// ステージのMAPデータ
const char gStageData[] = "\

KentaroAOKI

KentaroAOKI

#coding: utf-8

import json
import time
import os
import requests
import datetime
import hashlib
import hmac
import base64

KentaroAOKI

KentaroAOKI

SELECT
    System.Timestamp as Time,
    DeviceId,
    CAST(AVG(frompis.Temp) AS float) AS Temp,
    CAST(AVG(frompis.Pressure) AS float) AS Pressure,
    CAST(AVG(frompis.Hum) AS float) AS Hum,
    CAST(AVG(frompis.HiLux) AS float) AS HiLux,
    CAST(AVG(frompis.LowLux) AS float) AS LowLux    
INTO
    powerbi

KentaroAOKI

#coding: utf-8
from azure.servicebus import ServiceBusService
import urllib3
import datetime

#azure service bus
key_name = 'SendRule' # SharedAccessKeyName from Azure portal
key_value = 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' # SharedAccessKey from Azure portal
service_namespace = 'sora-ns'
sbs = ServiceBusService(service_namespace,

KentaroAOKI

#!/bin/sh
wget http://beam.soracom.io:8888/ –O soraenv
. soraenv
echo $SORACOM_IMSI

KentaroAOKI

#coding: utf-8
from azure.servicebus import ServiceBusService
import urllib3
import datetime

#azure service bus
key_name = 'SendRule' # SharedAccessKeyName from Azure portal
key_value = 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' # SharedAccessKey from Azure portal
service_namespace = 'xxxxx-ns'
sbs = ServiceBusService(service_namespace,

KentaroAOKI

<?php
$headers = getallheaders();
echo "SORACOM_IMSI=" . $headers["X-Soracom-Imsi"] . "\n";
?>

KentaroAOKI

Private Sub ExtractResponseBody(Response As String)

    'This procedure parses the response and writes down the result
    On Error GoTo ErrorsHandler
    Dim Results As Variant
    Dim InnerResults As Variant
    Response = Replace(Response, "[[", Chr(9))
    Response = Replace(Response, Chr(34), "")
    Response = Replace(Response, "{", "")
    Response = Replace(Response, "}", "")