2009年2月22日日曜日

月4-698　始めてみたｗ。

　月5-315は右手の小指側が辛いと言う事が分かったので、今度は月4-698にチャレンジし始めましたよ、と。

　素直に2-263をみっちり練習して、さっさと幸せになれば良いのに俺ってばもう！…orz。
投稿者 時刻: 0 件のコメント:

2009年2月8日日曜日

月5-315　TypeWellで練習するためのAHKスクリプト

;######################################################
;##　　　　　　 最初に呼び出される関数　　　　　　　 ##
;######################################################
;無シフト面を出力
;ｕシフト面だったらuShift()の呼び出し
;ｄシフト面だったらdShift()の呼び出し
;ｋシフト面だったらkShift()の呼び出し

Start(FirstKey)
    {
    suspend, on
    ;--★無シフト面を出力★
    if FirstKey = q
        send, ra
    else if FirstKey = w
        send, ru
    else if FirstKey = e
        send, na
    else if FirstKey = r
        send, ko
    else if FirstKey = t
        send, ga
    else if FirstKey = y
        send, re
    else if FirstKey = i
        send, si
    else if FirstKey = o
        send, nn
    else if FirstKey = p
        send, ku
    else if FirstKey = a
        send, to
    else if FirstKey = s
        send, ta
    else if FirstKey = f
        send, ka
    else if FirstKey = g
        send, te
    else if FirstKey = h
        send, ki
    else if FirstKey = j
        send, no
    else if FirstKey = l
        send, u
    else if FirstKey = `;
        send, i
    else if FirstKey = z
        send, ha
    else if FirstKey = x
        send, de
    else if FirstKey = c
        send, ma
    else if FirstKey = v
        send, mo
    else if FirstKey = b
        send, xyo
    else if FirstKey = n
        send, ni
    else if FirstKey = m
        send, su
    ;--★ｕシフト面だったらuShift()の呼び出し★
    else if FirstKey = u
        uShift()
    ;--★ｄシフト面だったらdShift()の呼び出し★
    else if FirstKey = d
        dShift()
    ;--★ｋシフト面だったらkShift()の呼び出し★
    else if FirstKey = k
        kShift()
    suspend, off
    }

;######################################################
;##　　 ユーザーからのキー入力を受け付ける関数　　　 ##
;######################################################
;Lnは入力を受け付ける文字列の長さ
;Tnは入力を受け付ける時間

InputKey()
    {
    input, InputKey, L1 T1, {Esc}
    return InputKey
    }

;######################################################
;##　　　　ｕシフト面の文字列を出力する関数　　　　　##
;######################################################
;ｕシフト面を出力
;もう一度ｕが入力されたら自分自身を呼び出し
;ｕｄシフト面だったらudShift()の呼び出し
;ｕｋシフト面だったらukShift()の呼び出し
;それ以外だったらxtuを出力

uShift()
    {
    suspend, on
    SecondKey := InputKey()
    ;--★ｕシフト面を出力★
    if SecondKey = q
        send, rra
    else if SecondKey = w
        send, rru
    else if SecondKey = e
        send, xtuna
    else if SecondKey = r
        send, kko
    else if SecondKey = t
        send, gga
    else if SecondKey = y
        send, rre
    else if SecondKey = u
        uShift()
    else if SecondKey = i
        send, ssi
    else if SecondKey = o
        send, xtunn
    else if SecondKey = p
        send, kku
    else if SecondKey = a
        send, tto
    else if SecondKey = s
        send, tta
    else if SecondKey = f
        send, kka
    else if SecondKey = g
        send, tte
    else if SecondKey = h
        send, kki
    else if SecondKey = j
        send, xtuno
    else if SecondKey = l
        send, xtuu
    else if SecondKey = `;
        send, xtui
    else if SecondKey = z
        send, hha
    else if SecondKey = x
        send, dde
    else if SecondKey = c
        send, xtuma
    else if SecondKey = v
        send, xtumo
    else if SecondKey = b
        send, xtuxyo
    else if SecondKey = n
        send, xtuni
    else if SecondKey = m
        send, ssu
    else if SecondKey = `,
        send, xtu,
    else if SecondKey = `.
        send, xtu.
    else if SecondKey = /
        send, xtu/
    ;--★ｕｄシフト面だったらudShift()の呼び出し★
    else if SecondKey = d
        udShift()
    ;--★ｕｋシフト面だったらukShift()の呼び出し★
    else if SecondKey = k
        ukShift()
    ;--★それ以外だったらxtuを出力★
    else
        send, xtu
    suspend, off
    }

;######################################################
;##　　　　ｄシフト面の文字列を出力する関数　　　　　##
;######################################################
;ｄシフト面を出力
;もう一度ｄが入力されたら自分自身を呼び出し

dShift()
    {
    suspend, on
    SecondKey := InputKey()
    if SecondKey = q
        send, zo
    else if SecondKey = w
        send, {Space}
    else if SecondKey = e
        send, xo
    else if SecondKey = r
        send, xe
    else if SecondKey = t
        send, di
    else if SecondKey = y
        send, pu
    else if SecondKey = u
        send, pa
    else if SecondKey = i
        send, ge
    else if SecondKey = o
        send, tu
    else if SecondKey = p
        send, -
    else if SecondKey = a
        send, sa
    else if SecondKey = s
        send, so
    else if SecondKey = d
        dShift()
    else if SecondKey = f
        send, ba
    else if SecondKey = g
        send, bo
    else if SecondKey = h
        send, hi
    else if SecondKey = j
        send, xya
    else if SecondKey = k
        send, xyu
    else if SecondKey = l
        send, ti
    else if SecondKey = `;
        send, wo
    else if SecondKey = z
        send, po
    else if SecondKey = x
        send, du
    else if SecondKey = c
        send, xu
    else if SecondKey = v
        send, he
    else if SecondKey = b
        send, pi
    else if SecondKey = n
        send, hu
    else if SecondKey = m
        send, me
    else if SecondKey = `,
        send, gi
    else if SecondKey = `.
        send, mu
    else if SecondKey = /
        send, nu
    suspend, off
    }

;######################################################
;##　　　　ｋシフト面の文字列を出力する関数　　　　　##
;######################################################
;ｋシフト面を出力
;もう一度ｋが入力されたら自分自身を呼び出し

kShift()
    {
    suspend, on
    SecondKey := InputKey()
    if SecondKey = q
        send, ze
    else if SecondKey = w
        send, ne
    else if SecondKey = e
        send, yu
    else if SecondKey = r
        send, bu
    else if SecondKey = t
        send, za
    else if SecondKey = y
        send, vu
    else if SecondKey = u
        send, pe
    else if SecondKey = i
        send, xi
    else if SecondKey = o
        send, wa
    else if SecondKey = p
        send, e
    else if SecondKey = a
        send, do
    else if SecondKey = s
        send, se
    else if SecondKey = d
        send, da
    else if SecondKey = f
        send, a
    else if SecondKey = g
        send, ke
    else if SecondKey = h
        send, be
    else if SecondKey = j
        send, o
    else if SecondKey = k
        kShift()
    else if SecondKey = l
        send, ri
    else if SecondKey = `;
        send, ji
    else if SecondKey = z
        send, ro
    else if SecondKey = x
        send, ho
    else if SecondKey = c
        send, go
    else if SecondKey = v
        send, ya
    else if SecondKey = b
        send, yo
    else if SecondKey = n
        send, bi
    else if SecondKey = m
        send, mi
    else if SecondKey = `,
        send, xa
    else if SecondKey = `.
        send, gu
    else if SecondKey = /
        send, zu
    suspend, off
    }

;######################################################
;##　　　 ｕｄシフト面の文字列を出力する関数　　　　 ##
;######################################################
;ｕｄシフト面を出力
;もう一度ｄが入力されたら自分自身を呼び出し

udShift()
    {
    suspend, on
    ThirdKey := InputKey()
    if ThirdKey = q
        send, zzo
    else if ThirdKey = w
        send, xtu
    else if ThirdKey = e
        send, xtuxo
    else if ThirdKey = r
        send, xtuxe
    else if ThirdKey = t
        send, ddi
    else if ThirdKey = y
        send, ppu
    else if ThirdKey = u
        send, ppa
    else if ThirdKey = i
        send, gge
    else if ThirdKey = o
        send, ttu
    else if ThirdKey = p
        send, xtu-
    else if ThirdKey = a
        send, ssa
    else if ThirdKey = s
        send, sso
    else if ThirdKey = d
        udShift()
    else if ThirdKey = f
        send, bba
    else if ThirdKey = g
        send, bbo
    else if ThirdKey = h
        send, hhi
    else if ThirdKey = j
        send, xtuxya
    else if ThirdKey = k
        send, xtuxyu
    else if ThirdKey = l
        send, tti
    else if ThirdKey = `;
        send, xtuwo
    else if ThirdKey = z
        send, ppo
    else if ThirdKey = x
        send, ddu
    else if ThirdKey = c
        send, xtuxu
    else if ThirdKey = v
        send, hhe
    else if ThirdKey = b
        send, ppi
    else if ThirdKey = n
        send, hhu
    else if ThirdKey = m
        send, xtume
    else if ThirdKey = `,
        send, ggi
    else if ThirdKey = `.
        send, xtumu
    else if ThirdKey = /
        send, xtunu
    suspend, off
    }

;######################################################
;##　　　 ｕｋシフト面の文字列を出力する関数　　　　 ##
;######################################################
;ｕｋシフト面を出力
;もう一度ｋが入力されたら自分自身を呼び出し

ukShift()
    {
    suspend, on
    ThirdKey := InputKey()
    if ThirdKey = q
        send, zze
    else if ThirdKey = w
        send, xtune
    else if ThirdKey = e
        send, xtuyu
    else if ThirdKey = r
        send, bbu
    else if ThirdKey = t
        send, zza
    else if ThirdKey = y
        send, vvu
    else if ThirdKey = u
        send, ppe
    else if ThirdKey = i
        send, xtuxi
    else if ThirdKey = o
        send, xtuwa
    else if ThirdKey = p
        send, xtuxe
    else if ThirdKey = a
        send, ddo
    else if ThirdKey = s
        send, sse
    else if ThirdKey = d
        send, dda
    else if ThirdKey = f
        send, xtuxa
    else if ThirdKey = g
        send, kke
    else if ThirdKey = h
        send, bbe
    else if ThirdKey = j
        send, xtuxo
    else if ThirdKey = k
        ukShift()
    else if ThirdKey = l
        send, rri
    else if ThirdKey = `;
        send, jji
    else if ThirdKey = z
        send, xturo
    else if ThirdKey = x
        send, hho
    else if ThirdKey = c
        send, ggo
    else if ThirdKey = v
        send, xtuya
    else if ThirdKey = b
        send, xtuyo
    else if ThirdKey = n
        send, bbi
    else if ThirdKey = m
        send, xtumi
    else if ThirdKey = `,
        send, xtuxa
    else if ThirdKey = `.
        send, ggu
    else if ThirdKey = /
        send, zzu
    suspend, off
    }

;================================================
;==　　　　　　　　 キー定義　　　　　　　　　 ==
;================================================

^+q::suspend

#UseHook On

q::Start("q")
w::Start("w")
e::Start("e")
r::Start("r")
t::Start("t")
y::Start("y")
u::Start("u")
i::Start("i")
o::Start("o")
p::Start("p")
a::Start("a")
s::Start("s")
d::Start("d")
f::Start("f")
g::Start("g")
h::Start("h")
j::Start("j")
k::Start("k")
l::Start("l")
vkBB::Start(";")
z::Start("z")
x::Start("x")
c::Start("c")
v::Start("v")
b::Start("b")
n::Start("n")
m::Start("m")

#UseHook Off
投稿者 時刻: 0 件のコメント:
ラベル: ,

月5-315　始めてみた。

　旧JISカナ、大して打てるようになってもいないのに、月5-315の練習を始めてしまいました。どうも次から次へと好奇心のムシが騒いで、一つの配列の練度が上がらなくて困ります。ローマ字入力もすっかり衰えてしまったし…。

　特別なソフトを使わなくともIMEの設定のみで実装可能なのが月5-315の良い所なのですが、使用前の準備として、泥くさーい人間様のトレーニングは欠かせません。
　なので、TypeWellで練習をするために、AutoHotKeyでせっせと月5-315をローマ字に変換するスクリプトを書いてみました。

　TypeWellは、「っ」をxtuで打とうとしても受け付けてくれないので、そこを考慮するのがめんどくさかったですが、一応動くものが出来たので、ひどいソースですが、アップしておきますｗ。
投稿者 時刻: 0 件のコメント:

2009年2月5日木曜日

アンジン

　伊東の温泉宿「アンジン」に泊まって来ました。とても良い宿でした。
　平日の水曜、金曜の二日間、休みをとっての温泉旅行です。
　２月１日の記事で書いたＷ－ＺＥＲＯ３用スタンドを早速活用して、あれこれメモを取って来ました。
　「なんじゃこりゃ？」って内容ですが、旅の記録にメモをそのまま貼り付けます。

--------------------------------
お弁当は寿司がいい
今度温泉に行くときはお香を持って行く
作務衣はさむえと読む
国府津はこうづと読む
本は思ったより少なかった
部屋に置いてある椅子がなかなか座り心地が良かった
部屋に付いている桧の風呂が良かった
ティファールのポットは我が家にも欲しいと思った
モテリーマンキーボードは持ってきて正解だった
糸ようじを持ってくれば良かった
「１００万回生きたねこ」を読んだ
夜中の１時頃に部屋のお風呂に入った
ビールを飲んだ
お湯につかっていると二枚爪になりやすいと思った
宿を出る前にも風呂に入った
温泉饅頭は「あげまん」がおいしかった
みかんが大粒だった
--------------------------------

※モテリーマンキーボードとは、２月１日の記事で一緒に写っている単なる折り畳み式のコンパクトキーボードの事です。これをなぜ「モテリーマンキーボード」と呼ぶようになったのかは謎です…。
投稿者 時刻: 0 件のコメント:

2009年2月1日日曜日

W-ZERO3 スタンド


皿を立てる為のスタンドでW-ZERO3を立ててみました。


ダイソーにて100円で購入。
袋に入っているにもかかわらず埃だらけでした。
まぁ拭けば済むだけの話なのですが。
投稿者 時刻: 0 件のコメント:
登録: 投稿 (Atom)