PIECE開発者ブログ

今和歌山にいます。
何度か来てるけどまだ1度も和歌山ラーメンを食べていないので行ってきた。
井出商店。和歌山ラーメンでは大御所だと思われる。
ホテルからも近く、場所はすぐわかったんだけど着いてみてびっくりした。
二郎なみに並んでる…
並んでまで食べるのもアレなのでスルーした。
Coco壱うめぇ。

土日にでかいよさこいのお祭りがあるみたいでどこもホテルが満室だ。
しょうがないから帰ることも視野に入れていたんだけど宿を見つけてくれた。
そして着いたところがここだー。

ザ・民宿といった感じです。
冷蔵庫はないし個人の風呂トイレもないけど畳の匂いに癒されました。
風呂は広かったしね。
しかし14型のブラウン管で見る地デジは小さい…
昨日までは東急インに泊まってたけどそっちもテレビはブラウン管だった。
ここら辺はその辺のサービスがまだまだ進んでなさそうです。

ふと気づいたんだけどテロップが完全地デジ対応になってますね。
アナログが生きてた頃はテロップもアナログの画面サイズに最適化されてたのが今は地デジに最適化。
これ東北のアナログが生きてる地域なんかはテロップ切れちゃわない?

和歌山出張。
コンビニに寄りたかったので歩いてホテルまで行くことにした。
イーモバイルを持ってきていたのでグーグルマップを使ってみることに。

WIFIなのにかなり正確な位置情報に驚いた。充分使える。
でも何気遠かった…

WordPressはデフォルトで使ってるとスマートフォンで見た場合に見にくい。スマートフォンに最適化するには2,3方法があるみたいなので試してみた。
まずはGeneric jQuery Mobile Themeというテーマを使用する方法。

見た目はCOOLなんだけどPCで見ると画面が真っ白になってしまった。
使えない。
次にWPtouchというプラグインを使用する方法。

PCで見た場合は既存のテーマそのままに、モバイル端末で見るとそれ用に表示が最適化された。
これで行くことにする。

AppStoreでBasic!っていうiOS上でBASICプログラムが開発できるアプリを発見。
本来iPhoneアプリをiOS上で動かすにはApple Developer Programに参加して年会費を払ってAppStoreで公開してインストールという結構敷居が高い工程が必要。
だから自分しか使わないようなちょっとしたアプリなんかを持ち歩きたいということがやりにくい。
このアプリを使えばBASIC言語で実現可能なことはほぼそのまま実現できる。(グラフィック関係は難しいかも…)
iOSの特別な機能としてタッチイベントや傾き検知のイベントなんかもあるので楽しい。
今回はフットサルのチーム分けで毎回紙にアミダ書いてってのがめんどくさいのでチーム分けアプリを作ってみた。

最初に参加人数と何チームを作るか入力したら、参加者が次々タッチしていくとランダムでチームが決定されるというもの。
何気に使えそう。
以下コード

LOCKORIENTATION
BCOLOR 255, 255, 255
TCOLOR 0, 0, 0
COLOR 0, 0, 0

10 INPUT "How many people?", people

IF people = 0 THEN
   GOTO 10
END IF

targetpeople$ = "Total people = " + STR$(people)
TEXTFONT "Marker Felt", 22
DRAWTEXT targetpeople$, 0, 320

IF people > 26 THEN
   mes$ = "26"
ELSE
   mes$ = STR$(people)
END IF

20 INPUT "How many teams? [2 - " + mes$ + "]", teams

IF teams > people OR teams > 26 THEN
   GOTO 20
END IF

targetteams$ = "Target teams = " + STR$(teams)
DRAWTEXT targetteams$, 0, 340

members = INT(people / teams)
left = MOD(people, teams)

DIM team(teams)

FOR i = 1 TO teams
   team(i) = members
NEXT i

IF left > 0 THEN
   FOR i = 1 TO left
      30 tmp = INT(RND * teams) + 1

      IF team(tmp) > members THEN
         GOTO 30
      END IF

      team(tmp) = team(tmp) + 1
   NEXT i
END IF

CLS tty
PRINT "Starting."

TEXTFONT "Trebuchet", 10

DIM t$(26)

FOR i = 1 TO 26
   READ t$(i)
NEXT i

RECT 50, 150, 267, 200, 1

x = 275
y = 0

FOR i = 1 TO people
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT " No " + STR$(i) + ". Touch Here."

   loop:
   IF Touch = 1 THEN
      IF TouchX > 50 AND TouchX < 267 AND TouchY > 150 AND TouchY < 200 THEN
         PLAY 1, "C5,16"
         GOTO 40
      END IF
   END IF
   GOTO loop

   40 tmp = INT(RND * teams) + 1

   IF team(tmp) = 0 THEN
      GOTO 40
   END IF

   team(tmp) = team(tmp) - 1

   CLS tty

   PRINT "No " + STR$(i) + ". Your team is " + t$(tmp) + "."

   DRAWTEXT "No " + STR$(i) + " = " + t$(tmp), x, y * 10

   y = y + 1

   IF MOD(i, 36) = 0 THEN
      x = x - 50
      y = 0
   END IF
NEXT i

TEXTFONT "Marker Felt", 22
DRAWTEXT "Have fun!", 115, 165

DATA "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"

ターンアラウンド伝票をWebで出力する案件があって久しぶりにiReportを触った。
TA伝票は受注数と納品数に差異が生じた(欠品が発生した)場合、受注数に取り消し線を引いて実際の納品数をその上に表示するというのが決まりらしい。
iReport上で値に応じて取り消し線を引いたり出来るのか不明だったけど、可能だったのでメモ。

・対象コントロールのフォント-スタイルテキストを有効にする。
・フィールド表現に以下のように書く。

$V{TOTAL_NOHINSU}.intValue() == $V{TOTAL_JUTYUSU}.intValue() ?
$V{TOTAL_JUTYUSU}.toString() :
"<style isStrikeThrough =\"true\">" + $V{TOTAL_JUTYUSU} + "</style>"

太字や斜体もできますね。
2重取り消し線じゃなきゃダメとか言われたら無理。

そこ灰皿なんですけど…