ふれまにっ

久しぶりに夜間リーグの結果です
ファイル 265-1.pdf

一つ負けちゃいました、これ以上落ちないように頑張らないと。

風邪をひいたらしく、ここの所、頭痛と下痢に悩まされています、しんどい　ふ=3

検索キーワードワンキングですが、ちょっとcgiと格闘して同じキーワードをまとめるようにしてみました。

半角と全角（例えばＡＡＡとAAA）を半角に統一
カタカナは全角に統一
大文字と小文字(AAAとaaa)を大文字に統一

Jcode.pmのtr で変換しているんですが、変換元の文字列だけじゃなくて、キーワードもEUCにする必要があるんですね。
それを忘れてて、直接trに'Ａ-Ｚ'なんて書いてたら、中途半端に変換するもんだから、訳が判らなかったんですが、全てをEUCにするとうまく行きました。

体育館の仮予約が出来ましたので、告知を行います。

最終回　福野オープンミックス大会感謝祭＆ふれまにっ杯

日時：１２月２７日（土）　AM9:00～（予定）
場所：南砺市福野体育館　アリーナ
会費：１組（１，０００円）（予定）

長年福野フレッシュテニス同好会を支えて頂いた皆様への恩返しの意味を含めて、上記予定で行いたいと思います。

まだ、体育館を仮予約しただけですので、本当に出来るかどうかは判りませんが、とりあえず今考えている内容を掲載します。

募集は１１月ごろから、ネット告知・募集を行う予定です。（ネット募集のみです）
申し込みはミックスペアで申し込み、希望される方はハンドル名や独自の名前（ペンネームのようなもの）にて申し込みも可能とします。（申し込み書には本名と連絡先を必ず記載のこと）
ホームページへの結果掲載も、このハンドルネームにて掲載、当日の写真は掲載しない方向です。
募集範囲は、世界と言ったら大げさですが、ミックスペアと言う以外の制限はありません、どなたでも参加出来ます。

また、この大会はtatsuruが個人で行うものとなります、大会が開催される場合は、手伝って頂けるスタッフも募集させて頂きます。

日程的に年末のきびしい時期ですので、大会として成り立つかどうかが不安なのと、体育館の仮予約から予約に変更しなければいけないので、仮にどれくらいの方が参加可能かを調査させて頂きたいと思います。

参加可能又は希望される方がいらっしゃいましたら、このログにレスをお願いします。
匿名で構いません、もし他の方にも聞いて頂けるのであれば、参加予定人数も書いて頂ければ助かります。
メールアドレスをご存知の方は、そちらへメールを頂いても構いません。

よろしくお願い致します。

やっと、イベントニュースに付けた、今日・明日の表示がうまく稼動しました。

グリニッジ標準時間とローカルタイムの時間差（９時間）をすっかり忘れていました。

基本的なことを忘れてしまって、取得時間がすっかりローカルタイムだと勘違いしていたんですね、困った俺っ

届いたラケットを切断して中を見てみると・・・・・

思いと違う～っ(T T)

アルミカーボンだって書いてあったじゃ～ん、カーボンってシャフトの部分の真ん中に１本あるだけなの～っ

間違いじゃ無いけどさ～、普通アルミカーボンって言ったらさ、アルミパイプの中か外にカーボンが張ってあるはずじゃん、グスン・グスン。

負けないもん、負けないもん

感のいい方ならもう気が付いてらっしゃるかと、アルミにカーボンを巻きつけたものなら、アルミを溶解してカーボン部分だけを残そうと思ったんです。（強度が足りなければ、発砲ウレタンとかね）
ラケットじゃ無い製品は、結構こういったものが多いんで、ソフトテニスのラケットもそうかななんて安易に思っちゃったんですね、調べもせずに。

今年はこんなことばっかりだな～、今このラケットをどうしてやろうか思案中・・・・フッフッフッフッ(= =)

でも、何気にOLVERは現在エースラケットになっちゃってるけどね。

CGIをいじくっています。

色々と細かいところを直したり、追加したりと

何だかそのうちに、アクセスログからサーチエンジンから訪問された方の、キーワードを取り出せないかなんて思って、勢いでつくちゃいました。

それがそうしたの？って声が聞こえてきそうですが、CGIのお勉強ってことで

てすとえりあでしばらくは色んな実験をして遊んでみます。

人柱ラケットが到着しました

今から暇を見て、改造していこうかと思っています。

しゃいんさんとは別のアプローチによる軽量化なんですが、下手するとラケット自体が消滅するかも知れません。

ま・そん時は仕方が無いと諦めましょう。

また、報告します。

今回は外見より性能で選ぼうと、悩んで悩んだ末、購入したラケットです。
OLIVER HAWK-1 105

ヨークがあるスカッシュラケットで、フレーム重量が105gと言う軽さに勢いで購入しました。

ヨークがあるか、１フレームの方がラケットらしいですもんね～

さて、購入していきなり測ったものです。

147gと思ったより重いです。

グリップテープを外しました。

135gとなりました。

ストリングを外しました。

125gう～ん微妙です・・・・

実際には、重量よりバランスなんですがちょっと他のこともあって、この時点で一旦テンションが下がってしまいました。

切断して判ったことなんですが、まずこのラケットは現行のものではないことから幾つかの作りが古いのです、今のラケットの技術から見ると雑っぽいと言ったほうがいいでしょうか。

まず気が付くのは、この頃のカーボンと現在のカーボン違いです。
最近のカーボンラケットは、以前のものよりさらに高温・高圧でカーボン繊維を焼き固めるため、切断していると繊維と言うより鋳物のような感じです。（ナノコードと言うらしいですね）
一見鋳物ですが、しっかりとカーボン繊維なんです、それだけ密度が高いと言うわけです。（燃やして見ると判りますよ、繊維が何重にも巻かれているのが・・・が！環境のためにやめましょう）
しかし、このラケットは切断すると、繊維状の粉が出ます、また切断面にも繊維状のバリが・・・・手に刺さりました、痛いと言うよりかゆくなりました。

もうひとつが、ラケット製造の違いです。
今のラケットは外見だけではなく、肉厚を一定にするために、ラケットの中も均一に成型するようにしています。
このラケットの場合は、多分金型にプリプレグの筒を入れ、空気圧によって膨らまして成型したのでしょうが、グリップ付近の１本になっている所の内部の太さが、左右違っていました。
外見は、金型で決まりますので、外見から判断することは出来ません。
調べて見ると数年前までみんなこんな感じだったみたいですね。

さあ、次回は下がったテンションを上げて、なんとか使えるように考えて見ます。

今回はOPTIONの設定です。

VBAにて印刷を行う場合の、プリンタを設定するシートです、大会支援の時も使っていました。

なぜこれが必要かと言うと、印刷するシート毎にプリンタを変えたいからなんですね～。
今回は、掲示と賞状ぐらいにしか使っていないんですが、大会支援の時は、決勝トーナメントの対戦相手が決まり次第、対戦表の自動印刷と掲示用の仮想プリンタへ出力していたんで、プリンタを自動で切り替える必要があったんです。
まあ、これは私のこだわりと言えばそれまでなんですけど、大会支援を作ってるときに、予選は印刷、決勝は手書きなんてレベルの合わないことをしたくなかったんでね、VBAを使わなくても難しくはないんですが、入力軽減ですよ、何処で時間を稼ぐかですね、一見印刷しているのは遅く見えるんですが、集計するときに余計な事を考えないでいいのと入力規則が一定なんで、トータル早いんですよ本当は、でも判ってもらえないな～

さて、愚痴はこれくらいにしてOPTIONの内容に入ります。

まず画面右のEセルの説明からです。
このセルには、今現在エクセルが稼動しているパソコンのプリンタ名が、取得ボタンにより入ります。

    Dim objWshNet As Object
    Dim objWshPrinter As Object
    Dim i As Integer

    Set objWshNet = CreateObject("WScript.Network")
    Set objWshPrinter = objWshNet.EnumPrinterConnections
    j = 4
    If objWshPrinter.Count < 2 Then
        Worksheets("Option").Range("E4").Value = "プリンタは接続されていません"
    Else
        For i = 0 To objWshPrinter.Count - 1 Step 2
            Worksheets("Option").Range("E" & j).Value = ""
            Worksheets("Option").Range("E" & j).Value = objWshPrinter(i + 1)
            j = j + 1
        Next i
    End If

これは、VBA単体ではなく、VBAからWSH.NETを使い現在インストールされているプリンタ名を取得します。
以前にも書きましたが、EXCEL97の時はこれに接続ポート名が入ってきましたが、現在はポート名は無く、プリンター名だけでいいようになりました。

次に、取得したプリンタ名を選択（セルを選択）し、セルCの上の、選択ボタンを押せば、その項目に選択したセルのプリンタ名が入ります。

選択ボタンから呼び出し

printer_set 4

Sub printer_set(p_no As Integer)
    With ActiveCell
        i_y = .Row
        i_x = .Column
        If i_x = 5 Then
            If i_y >= 4 Then
                If i_y <= 40 Then
                    Worksheets("Option").Range("B" & p_no).Value = ActiveCell.Value
                End If
            End If
        End If
    End With

End Sub

B24セルのバーコード使用は、バーコード印刷と入力を使うかどうかの設定です。
無にした場合は、バーコードは印刷されません。

あと、掲示用に現在の進行状況をコート毎と全体で表示したものがあるんですが、今回は説明は省略です。

サーバの負荷軽減等を含めて、レイアウトを多少変更しました。

富山県協会発表のものは、ブログに統合しましたので、そちらを参照して下さい。

追記：
携帯の方のメニューのアドレス間違えていましたので、訂正しました。
それと、ブログの方の表示数を１００件に増やしました、１００件以上前のものは表示されません。

さらに追記：
全国大会までのカウントダウンを付けてみました。