- マイクロスイッチ仕様のマウス 総合スレ
120 ：不明なデバイスさん[sage]：2016/07/14(木) 19:54:20.67 ID:huExdvtu - # meinterv.tcl - mouse button event interval viewer 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
frame .f1
menubutton .f1.mb -text
|
- マイクロスイッチ仕様のマウス 総合スレ
121 ：不明なデバイスさん[sage]：2016/07/14(木) 20:10:40.91 ID:huExdvtu - # meinterv.tcl - mouse button event interval viewer 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
frame .f1
menubutton .f1.mb -text "File" -menu .f1.mb.m
menu .f1.mb.m
.f1.mb.m add command -label "Save as..." -command saveas
.f1.mb.m add command -label "Clear" -command clearlb
.f1.mb.m add command -label "Quit" -command exit
proc chopen {} {open [tk_getSaveFile -filetypes {{"CSV Files" {.csv}}}] "w"}
proc joinlb {} {join [.f2.lb get 0 end] "\n"}
proc saveas {} {set ch [chopen]; puts $ch [joinlb]; close $ch}
proc clearlb {} {.f2.lb delete 1 end; set t0 [tm]; set t1 $t0}
pack .f1.mb -side left
frame .f2
scrollbar .f2.sb -command ".f2.lb yview"
listbox .f2.lb -width 32 -height 16 -yscroll ".f2.sb set"
pack .f2.lb .f2.sb -side left -fill y
|
- マイクロスイッチ仕様のマウス 総合スレ
122 ：不明なデバイスさん[sage]：2016/07/14(木) 20:11:49.55 ID:huExdvtu - label .l -text "click here" -height 4 -relief sunken
pack .f1 -fill x
pack .l -fill both -expand 1
pack .f2 -fill x
.f2.lb insert end "time/ms, interval/ms, button, action"
proc tm {} {clock clicks -milliseconds}
set t0 [tm]; set t1 $t0
proc addlb3 {d1 d s} {.f2.lb insert end "$d1, $d, $s"; .f2.lb yview end}
proc addlb2 {s t1 t} {global t0; addlb3 [expr $t1 - $t0] [expr $t - $t1] $s}
proc addlb1 {b a t1} {set t [tm]; addlb2 "$b, $a" $t1 $t; return $t}
proc addlb {b a} {global t1; set t1 [addlb1 $b $a $t1]}
proc bindl2 {b a} {bind .l <Button$a-$b> "addlb $b $a"}
proc bindl1 {b} {foreach {a} {Press Release} {bindl2 $b $a}}
foreach {b} {1 2 3 4 5} {bindl1 $b}
|
- マイクロスイッチ仕様のマウス 総合スレ
123 ：不明なデバイスさん[sage]：2016/07/14(木) 20:16:47.33 ID:huExdvtu - # mecount.tcl - mouse button event counter 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
frame .f1
menubutton .f1.mb -text "File" -menu .f1.mb.m
menu .f1.mb.m
.f1.mb.m add command -label "Save as..." -command saveas
.f1.mb.m add command -label "Clear" -command cleartv
.f1.mb.m add command -label "Quit" -command exit
proc chopen {} {open [tk_getSaveFile -filetypes {{"CSV Files" {.csv}}}] "w"}
proc joinlb {} {join [.lb get 0 end] "\n"}
proc saveas {} {set ch [chopen]; puts $ch [tvcsv]; close $ch}
pack .f1.mb -side left
label .l -text "click here" -height 4 -relief sunken
proc cols {} {return {ButtonID Total Double Triple Quadruple}}
proc col {ic} {lindex [cols] $ic}
ttk::treeview .tv -columns [cols] -height 5 -show headings
pack .f1 -fill x
pack .l -fill both -expand 1
pack .tv -fill x
foreach {ic} [cols] {.tv heading $ic -text $ic; .tv column $ic -width 64}
proc n4 {} {return {1 2 3 4}}
proc n5 {} {return {1 2 3 4 5}}
foreach {b} [n5] {.tv insert {} end -id $b -values [list $b 0 0 0 0]}
proc cleartv1 {b} {foreach {ic} [n4] {.tv set $b [col $ic] 0}}
proc cleartv {} {foreach {b} [n5] {cleartv1 $b}}
|
- マイクロスイッチ仕様のマウス 総合スレ
124 ：不明なデバイスさん[sage]：2016/07/14(木) 20:17:49.11 ID:huExdvtu - proc tvval {b} {join [dict values [.tv set $b]] ", "}
proc tvcsv0 {} {join [lmap b [n5] {tvval $b}] "\n"}
proc tvcsv {} {join [list [join [cols] ", "] [tvcsv0]] "\n"}
proc mult {i} {lindex {Button Double Triple Quadruple} [expr $i-1]}
set multPrev 0
proc setP {m} {global multPrev; set multPrev $m}
proc mP {} {global multPrev; return $multPrev}
proc tvAdd {ic b n} {set v [.tv set $b $ic]; .tv set $b $ic [expr $v+$n]}
proc p1 {b} {tvAdd Total $b 1; setP 1}
proc p2 {b} {tvAdd Double $b 1; setP 2}
proc p3 {b} {if {[mP]!=3} {tvAdd Triple $b 1; tvAdd Double $b -1}; setP 3}
proc p4 {b} {if {[mP]!=4} {tvAdd Quadruple $b 1; tvAdd Triple $b -1}; setP 4}
proc bindl {b m} {bind .l <[mult $m]-$b> "eval p$m $b"}
foreach {b} [n5] {foreach {m} [n4] {bindl $b $m}}
|
- マイクロスイッチ仕様のマウス 総合スレ
125 ：不明なデバイスさん[sage]：2016/07/14(木) 20:24:08.38 ID:huExdvtu - ごめんなさい、>>120は無視してください
>>121-122はロジクールマウススレ177匹目476の「マウスのクリックイベントの
時間間隔をみるツール」の機能強化版です。ホイールクリックにも対応しました。
ログをセーブできるようになりました。
使用するには、例えばmeinterv.tclという名前のファイルに>>121-122を
くっつけたものを保存し、
- WindowsではActiveTclをインストールしてエクスプローラからダブルクリック。
- X11環境ではTcl/Tkインストール後ターミナルから `wish meinterv.tcl` を実行。
ボタンIDはLinuxでは
1:左ボタン, 2:ホイールクリック, 3:右ボタン, 4: ホイール昇転, 5:ホイール降転
です。Windows+ActiveTcl環境とMacOSではホイール回転は非対応です。
またMacOSでは2と3が入れ替わるようです。
>>123-124は不本意ダブクリの確率をはかるツールです。
mecount.tclという名前のファイルにくっつけ保存して上記同様の手順で起動した後、
クリック受付領域にカーソルを合わせて不良ボタンと正常ボタンを交互に
シングルクリックしてください。Totalが100に達した時のDouble欄の数値が
不本意ダブクリ確率の％値になります。
|
- マイクロスイッチ仕様のマウス 総合スレ
126 ：不明なデバイスさん[sage]：2016/07/14(木) 20:43:17.65 ID:huExdvtu - # meinterv.ps1 - mouse button event interval viewer 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
$sf = "System.Windows.Forms"
Add-Type -AssemblyName $sf
$f0 = New-Object $sf'.form'
function ct {Get-Date -UFormat %s}
$i = 0; $t0 = ct; $t1 = $t0
function w ($b) {
$Global:i++; $t = ct; $d = $t-$t1; $Global:t1 = $t
Write-Host "$i, $($t-$t0), $d, $b"}
$f0.add_Load({
Write-Host "idEvent, time/sec, interval/sec, button"})
$f0.add_MouseDown({w $_.Button})
$f0.add_MouseUp({w $_.Button})
$f0.ShowDialog() |Out-Null
|
- マイクロスイッチ仕様のマウス 総合スレ
127 ：不明なデバイスさん[sage]：2016/07/14(木) 20:47:08.71 ID:huExdvtu - # mecount.ps1 - mouse button event counter 2016-07-14
# echo.2ch.net/test/read.cgi/hard/1171295410
$sf = "System.Windows.Forms"
Add-Type -AssemblyName $sf
$f0 = New-Object $sf'.form'
$b = 'Left Middle Right XButton1 XButton2'.Split()
$c = @{}; $b |%{$c.Add($_, 0)}; $d = $c.Clone()
function w {
Write-Host (@("ClickType")+$b -join ", ")
Write-Host (l 'Total' $c)
Write-Host (l 'Double' $d)}
function l ($str, $arr) {return $str+', '+($arr[$b] -join ', ')}
$f0.add_Click({$Global:c[$_.Button.ToString()]++; w})
$f0.add_DoubleClick({$Global:d[$_.Button.ToString()]++; w})
$f0.ShowDialog() |Out-Null
|
- マイクロスイッチ仕様のマウス 総合スレ
128 ：不明なデバイスさん[sage]：2016/07/14(木) 20:54:36.91 ID:huExdvtu - >>126は>>121-122(マウスイベント時間間隔表示)のPowerShell用簡易版です。
>>127は>>123-124(不本意ダブクリ確率調査)のPowerShell用簡易版です。
Windows環境しかなくて、ディスク残容量が足りない、アプリインストールが
禁止されている等でActiveTclが使えない人はこちらを試してください。
PowerShell起動後にコマンドプロンプトにスクリプト(3行目以降)をコピペし、
その後現れる空白の窓をクリックしてください。
PowerShell版はホイール回転の情報がとれませんが、かわりにTcl/Tk版では
とれない「戻る/進むボタンの情報」がとれます。
|