[過去ﾛｸﾞ]
マイクロスイッチ仕様のマウス 総合スレ (1002ﾚｽ)
マイクロスイッチ仕様のマウス 総合スレ http://mevius.5ch.net/test/read.cgi/hard/1171295410/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
ﾚｽ栞
あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
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 http://mevius.5ch.net/test/read.cgi/hard/1171295410/120
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 http://mevius.5ch.net/test/read.cgi/hard/1171295410/121
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} http://mevius.5ch.net/test/read.cgi/hard/1171295410/122
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}} http://mevius.5ch.net/test/read.cgi/hard/1171295410/123
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}} http://mevius.5ch.net/test/read.cgi/hard/1171295410/124
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欄の数値が 不本意ダブクリ確率の％値になります。 http://mevius.5ch.net/test/read.cgi/hard/1171295410/125
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 http://mevius.5ch.net/test/read.cgi/hard/1171295410/126
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 http://mevius.5ch.net/test/read.cgi/hard/1171295410/127
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版では とれない「戻る/進むボタンの情報」がとれます。 http://mevius.5ch.net/test/read.cgi/hard/1171295410/128
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.110s*