| Wed Mar 2 01:40:05 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/01/001.html) |
| Thu Mar 3 10:47:57 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/02/001.html) |
| Thu Mar 3 23:07:22 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/03/001.html) |
| Sun Mar 6 03:36:28 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/05/001.html) |
| Sun Mar 6 05:07:23 2011 |
|
|
|
|
|
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/05/002.html) |
| Fri Mar 11 18:39:20 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/11/001.html) |
| Fri Mar 11 21:42:14 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/11/002.html) |
| Sat Mar 12 06:11:54 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/12/001.html) |
| Sat Mar 12 08:21:47 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/12/002.html) |
| Sat Mar 12 11:56:19 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/12/003.html) |
| Sat Mar 12 22:23:06 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/12/004.html) |
| Sun Mar 13 22:27:32 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/13/001.html) |
| Mon Mar 14 01:03:55 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/14/001.html) |
| Wed Mar 23 21:14:07 2011 |
|
|
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/19/001.html) |
| Tue Mar 22 23:03:14 2011 |
#!/usr/bin/perl package GM; use strict; use Win32::API; sub new { my $self = {}; $self = bless $self; $self->{FindUSB} = new Win32::API( "gmlib", '_FindUSB@4', "P", "P" ); return undef unless ($self->{FindUSB}); $self->{GetCountTime} = new Win32::API( 'gmlib', '_GetCountTime@12', "PPP", "N" ); $self->{Clear} = new Win32::API( 'gmlib', '_Clear@4', "P", "N" ); $self->{GetVers} = new Win32::API( 'gmlib', '_GetVers@4', "P", "P" ); $self; } sub get_device { my $self = shift; my $no = shift; $self->{DeviceName} = $self->{FindUSB}->Call(pack('N', $no)); } sub get_count { my $self = shift; my ($count, $second) = ( "\0" x 8, "\0" x 8); $self->{GetCountTime}->Call( $self->{DeviceName}, $count, $second ); $self->{count} = unpack 'I', $count; $self->{second} = unpack 'I', $second; ($self->{count}, $self->{second}); } sub get_version { my $self = shift; $self->{GetVers}->Call( $self->{DeviceName} ); } sub clear { my $self = shift; $self->{Clear}->Call($self->{DeviceName}); $self; } package main; use strict; use Win32::API; my $gm = new GM; die "DLL: load error.\n" unless ($gm); die "GM: device not found.\n" unless($gm->get_device(0)); printf "%s: count => %d time => %dsec.\n", scalar localtime, ($gm->get_count()); $gm->clear() if ($ARGV[0]); print "OK\n";
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/22/001.html) |
| Wed Mar 23 18:16:37 2011 |
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/23/001.html) |
| Sat Apr 23 11:15:21 2011 |
|
|
|
|
|
|
|
|
|
| コメントを書く |
| (http://ryuchi.bsddiary.org/diary/index.html/2011/03/29/001.html) |
このページは、りゅうち が編集・掲示しています。 メール等は ryuchi [ @ ] ryuchi.org までお願いします (ISO-2022-JP で plain text形式) この日記のトップは http://ryuchi.bsddiary.org/diary/です。
|
旧形式 1:
旧形式 2:
|