HSPでアナログ時計を作る

-
1.概要

別記事で「HSPで万年カレンダを作る」を 公開していますが、今回もプログラミングの題材としては定番である「アナログ時計」をHSPスクリプト言語で作ります。 HSP言語について、興味のある人は公式サイトで確認して見て下さい。 今回紹介する時計は、何か特別な機能があるものではなく、ただ単に時計用の文字盤画像に針がついて時を刻むだけのものです。


2.ソースコード

プログラミングで時計を作る場合は、デジタル時計とアナログ時計の二種類があります。デジタル時計は、テキスト数字のものと数字画像を利用した ものがあります。

まずは、時計を作るための基本となるデジタル(テキスト)時計を参考として紹介します。

ソースコードは、下記の通りですが実際に実用的なものとして筆者が利用しています。そのため、コードがやや長めとなっています。 前半部分は、画面の移動、終了処理をするためのポップアップメニューの表示、タイマー処理、二重起動防止のために必要なWindowsAPIの定義部分で、 時計として必要な部分は、85行目から111行目までと、画面をマウスの左クリックで移動するための処理としての、133行目から149行目までです。 もうひとつのポイントとしては、タイマー割り込み処理で、マウスの左ボタンクリックで画面移動時でも時計が止まらないようにする処理部分です。 アナログ時計も時計の描画部分を除けば処理ルーチンは、ほぼ同じです。 あと、画面の移動位置を保存して起動時に反映させるためにSQLiteを使っています。終了は、マウスを右クリックするとポップアップメニューで終了できます。

strtokei.hsp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
  ;****************************************************************************
  ;*
  ;*    文字列型のデジタル時計 (strtokei.hsp) Ver1.0
  ;*
  ;****************************************************************************
  
  #include "sqlele.hsp"
 
  ;***** 実行ファイル自動作成 ****
  #packopt type 0
  #packopt name "strtokei"
  #packopt runtime "hsprt"
  #packopt manifest "app.manifest"
  #packopt icon "script.ico"
  #packopt hide 1
 
  #uselib  "user32.dll"
  #func GetWindowRect "GetWindowRect" int,int
  #func GetSystemMetrics "GetSystemMetrics" int
  #func MoveWindow "MoveWindow" int,int,int,int,int,int
  #func CreatePopupMenu "CreatePopupMenu"
  #func AppendMenu "AppendMenuA" sptr,sptr,sptr,sptr
  #func TrackPopupMenu "TrackPopupMenu" sptr,sptr,sptr,sptr,sptr,sptr,sptr
  #func DestroyMenu "DestroyMenu" sptr
  #func global SetWindowLong "SetWindowLongA" int , int , int
  #cfunc global GetWindowLong "GetWindowLongA" int , int
  #func SetTimer  "SetTimer"  int, int, int, int
  #func KillTimer "KillTimer" int, int 
 
  #define WM_TIMER  0x0113
  #define ID_TIMER  1
 
  #define global GWL_STYLE  0xFFFFFFF0
  #define global WS_SYSMENU 0x00080000
  #define global WS_MAXIMIZEBOX 0x00010000
  #define global WS_MINIMIZEBOX 0x00020000
   
  #enum IDM_ITEM1 = 1
   
  #define SM_CXSCREEN          $00000000
  #define SM_CYSCREEN          $00000001
  #define obj_wmnclbtndown sendmsg hwnd,$00A1,2,0
 
  #module
  #uselib "kernel32.dll"
  #cfunc  CreateMutex "CreateMutexA" int,int,sptr
  #cfunc  GetLastError "GetLastError"
 
  ;***** 二重起動防止 *****
  #deffunc wexapend str prm1
  strname=prm1
  ;***** 名前の文字列が省略された場合 *****
  if strlen(strname)==0 : strname="HSP340ONIWND"  ;Default String
  ret=CreateMutex(0,1,strname)
  ;二重起動か？
  if GetLastError()==0    : return 0  ;同じジョブが起動していない
  if GetLastError()==183  : return 1  ;既に起動している
  return -1
  #global
 
  ;***** 起動ディレクトリ取得 *****
  sdim Startdir,512
  if hspstat&1=0 { Startdir=dir_exe+"¥¥" : chdir dir_exe
  } else {
    Startdir=dir_cur+"¥¥"
  }
  chdir Startdir
 
  ;***** データベース存在確認 *****
  exist Startdir+"setting¥¥strtokei.ini"
  if strsize ==-1 {
    dialog "データベースファイルが見つかりません。",0 : end
  }
  await
  wexapend "strtokei" : if stat : end
   
  ;***** データベースオープン *****
  sql_open Startdir+"setting¥¥strtokei.ini"
  ;***** 画面表示位置設定 *****
  sql_q "SELECT * FROM TValu WHERE ID = "+1
  xpos=sql_i("wxpos") : ypos=sql_i("wypos")
  if (xpos<0 or xpos>ginfo_dispx) : xpos=0
  if (ypos<0 or ypos>ginfo_dispy) : ypos=0
   
  bgscr 0,300,80,,xpos,ypos
  SetWindowLong hwnd,GWL_STYLE,$B0000|GetWindowLong(hwnd,GWL_STYLE)
  color 0,180,200 : boxf
  title "デジタル時計" : font "メイリオ",50,1
  gsel 0,1
  CreatePopupMenu
  hMenu.1 = stat
  AppendMenu hMenu.1, 0, IDM_ITEM1, "終了"
  onexit *owari
  oncmd  gosub *OnTimer, WM_TIMER
  onclick gosub *move
  SetTimer hwnd, ID_TIMER, 500, 0
    stop
     
*OnTimer
    color 0,180,200 : boxf 9,15,290,70
    hour=strf("%02d",gettime(4))  ;時
    min =strf("%02d",gettime(5))  ;分
    sec =strf("%02d",gettime(6))  ;秒
    redraw 0
      color 255,255,255
      pos 30,6  : mes ""+hour+":"+min+":"+sec
      hour=0 : min=0 : sec=0
    redraw 1,5,15,290,80
    await 50
    redraw 0,5,15,290,80 ;画面ちらつき防止対策
  return
 
*owari
  await
  KillTimer hwnd, ID_TIMER
  ;***** 終了処理 (DB CLOSE) *****
  wx=str(ginfo_wx1) ; 現在の画面左上 X 座標取得
  wy=str(ginfo_wy1) ; 現在の画面左上 y 座標取得
  ;***** 終了位置をDBへ保存 *****
  sql_q "UPDATE TValu SET wxpos=" + prm_text(wx) + ", wypos=" + prm_text(wy)+ " WHERE ID="+1
  sql_close
  end
 
*move
  ;***** マウスの右クリックボタンで終了 *****
  if wparam==2 {
  ;***** ポップアップメニュー表示 *****
    TrackPopupMenu hMenu.1, $100, ginfo(0), ginfo(1), 0, hwnd, 0
    if stat = 0 : return
    if stat = 1 : goto *owari
    return
  }
  ;***** マウスの左クリックボタンで移動 *****
  if wparam == 1 {
    obj_wmnclbtndown
    ;***** 画面終端位置の取得と制御 *****
    dim rc,4
    GetWindowRect hwnd,varptr(rc)
    w = rc(2)-rc(0)
    h = rc(3)-rc(1)
    GetSystemMetrics SM_CXSCREEN : CSX=stat
    GetSystemMetrics SM_CYSCREEN : CSY=stat
    if rc(0)<0 : rc(0)=0
    if rc(1)<0 : rc(1)=0
    if rc(2)>CSX : rc(0)=CSX-w
    if rc(3)>CSY : rc(1)=CSY-h-30
    MoveWindow hwnd,rc(0),rc(1),w,h,1
    }
  return
次は、今回のテーマであるアナログ時計です。ソースコードは、デジタル時計とほぼ同じです。メイン部分は、 146行目から182行目までです。時計用の文字盤画像サイズは、200px×200pxとして作成しています。このサイズがウィンドウ画面となります。 文字盤画像を変更したい場合は、129行目と130行目に文字盤サイズと画像の読み込み部分がありますので、画像ファイル名等を変更して下さい。 文字盤画像を複数枚準備して、好きなものに変更できるように改造すれば、もう少し見栄えがするもになると思います。 また、応用として、文字盤画像の代わりにマスコットなどの画像に差し換えてメインの時計処理部分などを変更すれば、デスクトップマスコットの ようなものも作成できると思います。尚、アナログ時計の終了は、マウスを右クリックするとポップアップメニューで終了できます。

agclock.hsp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
  ;****************************************************************************
  ;*
  ;*   アナログ時計 (agclock.hsp) Ver1.0
  ;*
  ;*    ＜処理の概要＞
  ;*    本プログラムは、デスクトップアクセサリとしてのアナログ時計である。
  ;*    文字盤に画像を利用して、透明ウィンドウで作成している。
  ;*
  ;*    参考サイト : HSP プログラミング入門 - アナログ時計
  ;*    アナログ時計 Ver 1.0 H.I. at Meikai
  ;*    ※アナログ時計の基本部分は、下記サイト様のサンプルを流用させて
  ;*      頂きましたが、サイトは閉鎖されていて見られません。
  ;*      有用なサンプルの公開に感謝致します。
  ;*    http://www.geocities.co.jp/SiliconValley-Cupertino/7774/HSPlesson/index.html
  ;*
  ;****************************************************************************
   
  #include "sqlele.hsp"
   
  #packopt type 0
  #packopt name "agclock"
  #packopt runtime "hsprt"
  #packopt manifest "app.manifest"
  #packopt icon "sample.ico"
  #packopt hide 1
  #pack "mojiban.png"
 
  #uselib "user32.dll"
  #func  SetWindowLong "SetWindowLongA" int,int,int
  #cfunc GetWindowLong "GetWindowLongA" int,int,int
  #func  SetLayeredWindowAttributes "SetLayeredWindowAttributes" int,int,int,int
  #func  GetWindowRect "GetWindowRect" int,int
  #func  GetSystemMetrics "GetSystemMetrics" int
  #func  MoveWindow "MoveWindow" int,int,int,int,int,int
  #func  CreatePopupMenu "CreatePopupMenu"
  #func  AppendMenu "AppendMenuA" sptr,sptr,sptr,sptr
  #func  TrackPopupMenu "TrackPopupMenu" sptr,sptr,sptr,sptr,sptr,sptr,sptr
  #func  DestroyMenu "DestroyMenu" sptr
 
  #const LWA_COLORKEY     1             ; 透明色を指定
  #const LWA_ALPHA        2             ; アルファー値を指定
  #const GWL_EXSTYLE    -20             ; 拡張ウィンドウスタイル
  #const WS_EX_LAYERED  $00080000       ; 透明なウィンドウ属性
   
  #define global GWL_STYLE    0xFFFFFFF0
  #define global WS_SYSMENU   0x00080000
  #define global WS_MAXIMIZEBOX 0x00010000
  #define global WS_MINIMIZEBOX 0x00020000
   
  #enum IDM_ITEM1 = 1
   
  #define SM_CXSCREEN   $00000000
  #define SM_CYSCREEN   $00000001
  #define obj_wmnclbtndown sendmsg hwnd,$00A1,2,0
 
  #module
  #uselib "kernel32.dll"
  #cfunc  CreateMutex "CreateMutexA" int,int,sptr
  #cfunc  GetLastError "GetLastError"
 
  ;***** 二重起動防止 *****
  #deffunc wexapend str prm1
  strname=prm1
  ;***** 名前の文字列が省略された場合 *****
  if strlen(strname)==0 : strname="HSP340ONIWND"  ;Default String
  ret=CreateMutex(0,1,strname)
  ;二重起動か？
  if GetLastError()==0    : return 0  ;同じジョブが起動していない
  if GetLastError()==183  : return 1  ;既に起動している
  return -1
  #global
 
  ;***** 線(line)の太さを変更 *****
  #define pLine(%1=0, %2=0, %3=ginfo_cx, %4=ginfo_cy, %5=1) _pLine %1, %2, %3, %4, %5
  #module
    #uselib "gdi32.dll"
    #func CreatePen "CreatePen" int, int, int
    #func SelectObject "SelectObject" int,int
    #func Polyline "Polyline" int, var, int
    #func DeleteObject "DeleteObject" int
    #define ctype RGB(%1,%2,%3)   ((%3*65536)+(%2*256)+%1)
 
    #deffunc _pLine int _ex, int _ey, int _sx, int _sy, int _size
      CreatePen 0, _size, RGB(ginfo_r, ginfo_g, ginfo_b)
      hPen = stat
      if( stat == 0 ){
        dialog "ペン設定に失敗しました。"
        return 1
      }
      dim p, 4
      p = _ex, _ey, _sx, _sy
      SelectObject hdc, hPen
      hOldPen = stat
      Polyline hdc, p, 2
      if( stat == 0 ){
        dialog "描画に失敗しました。"
        return 1
      }
      DeleteObject hPen
      SelectObject hdc, hOldPen
      pos _ex, _ey
    return 0
  #global
 
  ;***** 起動ディレクトリ取得 *****
  sdim Startdir,512
  if hspstat&1=0 { Startdir=dir_exe+"¥¥" : chdir dir_exe
  } else {
    Startdir=dir_cur+"¥¥"
  }
  chdir Startdir
 
  ;***** データベース存在確認 *****
  exist Startdir+"setting¥¥agclock.ini"
  if strsize ==-1 {
    dialog "データベースファイルが見つかりません。",0 : end
  }
  await
  wexapend "agclock" : if stat : end
   
  ;***** データベースオープン *****
  sql_open Startdir+"setting¥¥agclock.ini"
  ;***** 画面表示位置設定 *****
  sql_q "SELECT * FROM TValu WHERE ID = "+1
  xpos=sql_i("wxpos") : ypos=sql_i("wypos")
  if (xpos<0 or xpos>ginfo_dispx) : xpos=0
  if (ypos<0 or ypos>ginfo_dispy) : ypos=0
 
  W=200 : H=200
  buffer 2,W,H,0 : picload "mojiban.png",0
  bgscr 0,W,H,,xpos,ypos
  ;***** 透明ウィンドウを作成 *****
  SetWindowLong hWnd,-20,GetWindowLong(hwnd,-20)|$80000
  ;***** 最小化できるようにスタイル変更 *****
  SetWindowLong hwnd,GWL_STYLE,$B0000|GetWindowLong(hwnd,GWL_STYLE)
  SetLayeredWindowAttributes hwnd,$010101,$FF,1
  color$01,$01,$01:boxf
  syscolor 1 : boxf : title "アナログ時計"
  gsel 0,1
  CreatePopupMenu
  hMenu.1 = stat
  AppendMenu hMenu.1, 0, IDM_ITEM1, "終了"
  onexit *owari
  onclick gosub *move
   
  ;***** 時計本体の描画 *****
  pi    = 3.141592653
  dsita = 2.0*pi/60.0
  xc=W/2
  yc=H/2
  rx=100
  ry=100
 
  repeat
    ;***** 文字盤画像コピー *****
    pos 0, 0 : gmode 2 : gcopy 2,0,0,200,200
    color 255,255,255
    circle xc-8,yc-8,xc+8,yc+8,1
    ;***** 分針 *****
    min=gettime(5)
    nmind=double(min)
    x=xc+double(rx-15)*sin(nmind*dsita)
    y=yc-double(ry-15)*cos(nmind*dsita)
    redraw 0:_pLine xc,yc,x,y,3 : redraw 1
    ;***** 時針 *****
    hour=gettime(4)
    nhourd=double(hour)+nmind/60
    x=xc+double(rx-40)*sin(nhourd*dsita*5.0)
    y=yc-double(ry-40)*cos(nhourd*dsita*5.0)
    redraw 0:_pLine xc,yc,x,y,6 : redraw 1
    ;***** 秒針 *****
    sec=gettime(6)
    nsecd=double(sec)
    x=xc+double(rx-5)*sin(nsecd*dsita)
    y=yc-double(ry-5)*cos(nsecd*dsita)
    line xc,yc,x,y
    redraw 1 : wait 50 : redraw 0
    ;***** 時計盤の内部を塗りつぶす *****
    syscolor 1
    circle xc-rx,yc-ry,xc+rx,yc+ry,1
  loop
  stop
  
*owari
  await
  ;***** 終了処理 (DB CLOSE) *****
  wx=str(ginfo_wx1) ; 現在の画面左上 X 座標取得
  wy=str(ginfo_wy1) ; 現在の画面左上 y 座標取得
  ;***** 終了位置をDBへ保存 *****
  sql_q "UPDATE TValu SET wxpos=" + prm_text(wx) + ", wypos=" + prm_text(wy)+ " WHERE ID="+1
  sql_close
  end
 
*move
  ;***** マウスの右クリックボタンで終了 *****
  if wparam==2 {
  ;***** ポップアップメニュー表示 *****
    TrackPopupMenu hMenu.1, $100, ginfo(0), ginfo(1), 0, hwnd, 0
    if stat = 0 : return
    if stat = 1 : goto *owari
    return
  }
  ;***** マウスの左クリックボタンで移動 *****
  if wparam == 1 {
    obj_wmnclbtndown
    ;***** 画面終端位置の取得と制御 *****
    dim rc,4
    GetWindowRect hwnd,varptr(rc)
    w = rc(2)-rc(0)
    h = rc(3)-rc(1)
    GetSystemMetrics SM_CXSCREEN : CSX=stat
    GetSystemMetrics SM_CYSCREEN : CSY=stat
    if rc(0)<0 : rc(0)=0
    if rc(1)<0 : rc(1)=0
    if rc(2)>CSX : rc(0)=CSX-w
    if rc(3)>CSY : rc(1)=CSY-h-30
    MoveWindow hwnd,rc(0),rc(1),w,h,1
    }
  return

HSP言語は、長年愛用して利用していますが、最新のバージョンなどに目を通していないので新しい機能アップした命令など は利用していません。昔からある命令での記述しかできません。進化し過ぎてだんだん、取り残されつつあります。

5.ダウンロード

提供するソースコードのライセンスは、CC0 (クレジット表示不要、改変可、商用可) とします。自由に利用して頂いてかまいません。 アナログ時計(agclock.exe)は下記からダウンロードして下さい。 そのまま実行形式(exe)ファイルが作成されるように画像やsampleアイコンなども同梱しています。

ダウンロード

コメント

コメントを投稿

このブログの人気の投稿

Excelアドインで日本語形態素解析

-
イメージ
1.概要 日本語形態素解析とは、文法的な情報の注記の無い自然言語のテキストデータ（文）から、対象言語の文法や、辞書と呼ばれる単語の品詞等の情報に基づき、 形態素（Morpheme, おおまかにいえば、言語で意味を持つ最小単位）の列に分割し、それぞれの形態素の品詞等を判別する作業です。（出典:Wikipedia） 形態素解析エンジンとしては、Mecabが有名です。筆者もPythonにインストールして、テキストマイニングに利用しています。しかし、会社などで利用したい 場合は、このような環境を個人的な利用目的で構築するにしても、セキュリティ上の問題などでIT管理者などから利用許可が下りない場合があります。 今回は、普段から利用しているExcelのアドインでテキストマイニングをして見たいと思います。特別なサーバーなどへのインストールなしで、 個人PCにアドインのインストール許可さえもらえれば誰でも簡単にテキストマイニング(ワードクラウド)分析をすることができます。 2.利用方法 (1)Excelのアドインである「E2D3」を追加します。「挿入」→「アドインを入手」をクリックし      「データ分析」を選択して、「E2D3」を探します。見つかったら、「追加」をクリックしま      す。これで、「E2D3」が利用できるようになります。 (2)分析するデータ(テキスト文書)を準備します。 (3)下記サイトの日本語形態素解析サービス(無料ツール)を利用して、文書を解析し品詞毎に分解、      統計データとして出力します。 日本語形態素解析サービス(無料ツール) URL : https://opendata-web.site/tool/parse/ ※ブックマーク等に登録しておくと良いでしょう。 (4)分析するデータ(テキスト文書)をテキストボックスに貼付け、解析ボタンをクリックします。 (5)解析結果が日本語形態素と統計の2種類画面出力されるので、統計の表をコピペして、Excelの      空きシートに一時的に貼り付けます。 (...

階層構造JSONファイルの作成

-
イメージ
1.はじめに 仕事や趣味でいろいろなデータを扱いますが、プログラミングで扱うデータ形式も多種多様でデータベース、テキスト、csv、xml、json形式など 思い付くだけで数十種類でてきます。データの見える化 (可視化) をやりたくて階層構造のJSON形式のファイルを扱う必要性があり、 元データ収集・編集 ⇒ Excelでデータ作成 ⇒ CSV出力 ⇒ 階層構造のJSONファイルへ変換出力と言ったステップでJSONファイルを作成して見ましたので紹介致します。 2.階層構造CSVtoJSONコンバータ 最初は、テキストエディタで手作業でJSONファイルを作成しょうと試みましたが、{}の対応付けや[,などの挿入漏れなど ミスすることが多くてデータを読み込むとエラーで動かないことの連続でした。何とか効率良く元データより階層構造の JSON形式のファイルを作成することができないものかとネット検索しても意図したものを見つけ出すことが出来ませんでした。 そこで今回、試行錯誤してExcel VBAで作成した 「階層構造CSVtoJSONコンバータ」 によるデータ作成手順をまとめて見ました。 階層構造のJSONファイルとは、 親、子、孫、曾孫・・・といった 階層構造のデータ形式のァイル です。 2-1.データの収集について まずは、目的とすべき元となるデータを収集しなければなりません。データの入手や収集手段はいろいろあると思いますが、 1回限りでのみ利用する場合や不定期、日次、週次、月次など継続的に利用する場合に応じて効率良い方法を選択する必要があります。 企業では自社内の各種システムにて収集や加工・編集などができるツール類もあると思いますが、個人ではなかなか揃えられません。 尚、今回は小規模なデータを扱うことを前提としているので効率的なデータの収集方法などについては別の機会にでも考えていきたいと 思います。ここでは、 「階層構造CSVtoJSONコンバータ」 の説明のためのテストデータを利用しての手順について説明します。 2-2.作成手順 (1)元データの準備 (テスト用に鳥類目録データの一部を利用) (2)Excelで元データを利用して、階層構造のデータ表を作成する。     ※【お願い】ファイルの終端判定のため、A列の末...

キーボードのキーコードの一覧表

-
イメージ
1.概要 HSPやExcel VBAなどを利用していて、キーボードのキー定数が知りたい場合があります。その都度、ネットで調べているのが手間なので、 一覧表にして見ました。このキーコードは、 Win32API の keybd_event 関数等を利用して送信することができるコードです。 プログラム上からキーコードを送信する場合は、誤操作防止のため十分なウェイトを入れるなりの工夫が必要です。 2.キーボードのキーコード一覧表 キーボードのキーコード一覧表です。全部で127個あります。 キーボードのキーコード一覧表 No. 記号定数名 値 ( HEX ) 値 ( DEC ) 意味 ( 該当するキー ) 1  VK_LBUTTON $01 01 2  VK_RBUTTON $02 02 3  VK_CANCEL $03 03  Cancel（[Ctrl]+[Break]) 4  VK_MBUTTON $04 04 5  VK_BACK $08 08  [BackSpace] 6  VK_TAB $09 09  [Tab] 7  VK_CLEAR $0C 12 8  VK_RETURN $0D 13  [Enter] 9  VK_SHIFT $10 16  [Shift] 10  VK_CONTROL $11 17  [Ctrl] 11  VK_MENU $12 18  [Alt] 12  VK_PAUSE $13 19  [Pause] 13  VK_CAPITAL $14 20  [CapsLock] 14  VK_ESCAPE $1B 27  [Esc] 15  VK_SPACE $20 32  [スペースキー] 16  VK_PRIOR $2...