« December 2006 | Main | February 2007 »

Jan 31, 2007

自作PC Ruby Orb CL-P0391

今回はCPUファン”Ruby Orb”(Thermaltake社製)を購入しました。

--Ruby Orb CL-P0391
http://www.thermaltake.co.jp/product/Cooler/Retail/CL-P0391/cl-p0391.asp

ツクモeXにて\ 3,257(税抜き)+ パーツ交換保障 \ 500 + 消費税5%
合わせて\ 3,945です。
そうです、このパーツは非常に大型で、取り付けの際に他のパーツと
干渉してしまう可能性があるので、1ヶ月間のパーツ交換保障に入りました。
一応予定しているマザーボードはASUSTekの”P5B-E Plus”ですが、

--P5B-E Plus
http://www.asus.co.jp/products4.aspx?l1=3&l2=11&l3=307&model=1399&modelmenu=1

パッと見、ノースブリッヂChipsetの放熱用フィンに触ってしまうような
気がします。その際にはフィンをニッパーにてカットしてしまおうかなぁと。
それと気になるのはパッシブダクトなのですが、、、

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 30, 2007

W-ZERO3es

週末にWILLCOM端末の機種変を行いました。
旧機種:WX310J
新機種:W-ZERO3es Premium version

--W-ZERO3es 製品情報
http://www.sharp.co.jp/ws/007sh/index.html

秋葉原のヨドバシカメラにて10ヶ月以上の使用及び
データ定額オプションを追加することによって\ 19,800税込みで
機種変することができました。

Windows Mobile5.0搭載、名詞リーダ、Qコード読み取り機能などが
搭載されているスマートフォンが2万円程度で手に入るのは非常に
コストパフォーマンスが良いと思います。

今回、初のキーボード内臓の携帯電話。入力した感じはなかなか良好。
また、日本語変換エンジンにATOKが使用されているので変換制度も
満足がいくレベルです。この端末にて写真撮影も可能なので
写真を含むBlogを更新しようかなぁと考えています。



←クリック一票

| | Comments (0) | TrackBack (0)

Jan 24, 2007

swimmie オンラインブックマーク共有プラグイン

Firefoxのプラグインのひとつで"swimmie"というものがあります。

--swimmie
http://netplant.jp/swimmie/

http://firefox.geckodev.org/index.php?swimmie

不特定多数のユーザとブックマークを共有する拡張機能です。
インストール後は、自分のブックマークを公開する代わりに、
他人のブックマークをのぞくことができるようになります。

←クリック一票

| | Comments (1) | TrackBack (0)

Jan 21, 2007

PacketiX Desktop VPN

ソフトイーサ株式会社より"PacketiX Desktop VPN"のベータ1が無償公開
されました。

--PacketiX Desktop VPN
http://www.softether.com/jp/desktop/

--ソフトイーサ株式会社
http://www.softether.com/jp/

PacketiX Desktop VPNは、簡単・安全にSSL-VPNセッションをはり、
Windowsリモートデスクトップ機能を使えます。

--簡単
・DDNSの設定等必要なし
・ファイアウォール、ルータの設定必要なし(SSL:443ポートで通信)

--安全
・通信はSSL-VPNのため、暗号化される
・リモートデスクトップ機能のため、直接データコピーができない

使い方としては、シンクライアントとして使えるかもしれません。
もしくはリモートサポートとしてよいかもしれません。
リモートデスクトップ機能のため、アクセスされる方のPCは
ログオフになってしまいますが。

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 20, 2007

Windows Home Server

米Microsoftが「2007 International CES」で,長いあいだ期待されていた
「Windows Server 2003 R2」ベースの家庭用サーバー製品
Windows Home Server」を発表しました。

↓ 下記より引用
http://itpro.nikkeibp.co.jp/article/COLUMN/20070118/259016/?ST=win-server&P=1

製品発売は2007年下期になるそうです。

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 19, 2007

PLAYSTATION 3 Linux

PLAYSTATION 3にてMomonga Linuxが動作するようです。

--【Linuxウォッチ】第31回 PLAYSTATION 3 Linuxの可能性を探る
http://itpro.nikkeibp.co.jp/article/COLUMN/20070116/258853/?ST=oss&P=1

--PS3でMomonga Linuxを動かすための情報について
http://developer.momonga-linux.org/wiki/?PS3

残念ながら現状PS3を所有していないため検証はできていません。
ぜひ、機会があればPS3 60Gモデルを購入したいです。(無線LANがあるため)

また、Yellow Dog Linux(略してYDL)も動作するようです。

--Yellow Dog Linux for PLAYSTATION 3
http://www.amulet.co.jp/TSS/

--SEC提供 他のシステムインストーラー
http://www.playstation.com/ps3-openplatform/jp/index.html

--YDL.net
http://www.ydl.net/


←クリック一票

| | Comments (1) | TrackBack (0)

Jan 18, 2007

M3 for DS light Black

Nintendo DSにて"M3"というデバイスがあります。
M3を使うといろいろなことができます。
動画を見たり、音楽を再生したり、写真を見たりPDAになったり。

下記のSHOP等にて購入可能です。
== おすすめSHOP ==
--ゲームバンク
http://gamebank.jp/

--三月兎
http://www.march-rabbit.com/Horus/

今回は三月兎さんにて"M3 Perfect-MicroSD【日本語版】 T1G"を
購入しました。
http://www.march-rabbit.com/Horus/index.php?main_page=product_info&products_id=1221
セット内容としては
・M3 Perfect-MicroSD
・PASSCARD3
・TS 1G MicroSD

購入後、ファームウェアを"flashme"へ変更してみました。
--関連ページ
http://nds.kimd.jp/flashme/index.html
http://ds.gcdev.com/dsfirmware/
http://higurashi.asablo.jp/blog/2006/03/04/277058

この作業は2006/12に購入した"DS lite ブラック"ですが、特に問題なく
変更できました。

--参考ページ
http://nds.kimd.jp/first/index.html
http://www8.atwiki.jp/m3only/pages/90.html

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 13, 2007

入力フォーム

テンプレートとなるSheetを元に値を入力し、その値をlogとして
残すVBAを組んでみました。

------------------------------------------------------

Private Sub Workbook_Open()

    Sheets("START").Activate
    Range("G7").Activate

End Sub

------------------------------------------------------

Private Sub CommandButton1_Click()

' *************************
' 初期設定
' *************************

Dim START As Object

Set START = ThisWorkbook.Worksheets("START")

' *************************
' ORGよりシートをコピーする
' *************************

Sheets("ORG").Select
Sheets("ORG").Copy After:=Sheets(3)
Sheets("ORG (2)").Name = "New_User"

' *************************
' 値を挿入
' *************************

Sheets("New_User").Activate

With ThisWorkbook.Worksheets("New_User")
    .Range("M5") = START.Range("G8")
    .Range("M7") = START.Range("G9")
    .Range("C15") = START.Range("G10")
    .Range("J20") = START.Range("G8")
    .Range("J22") = START.Range("G11")
    .Range("C28") = START.Range("G12")
End With

' *************************
' Logファイルに書き出す
' *************************

With ThisWorkbook.Worksheets("Log")
    .Range("A65536").End(xlUp).Offset(1, 0).Value = START.Range("E4")
    .Range("A65536").End(xlUp).Offset(0, 1).Value = START.Range("G7")
    .Range("A65536").End(xlUp).Offset(0, 2).Value = START.Range("G8")
    .Range("A65536").End(xlUp).Offset(0, 3).Value = START.Range("G9")
    .Range("A65536").End(xlUp).Offset(0, 4).Value = START.Range("G10")
    .Range("A65536").End(xlUp).Offset(0, 5).Value = START.Range("G11")
    .Range("A65536").End(xlUp).Offset(0, 6).Value = START.Range("G12")
    .Range("A65536").End(xlUp).Offset(0, 7).Value = START.Range("G13")
End With

' *************************
' Print out
' *************************

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

------------------------------------------------------

Private Sub CommandButton2_Click()

' *************************
' 入力値のクリアー
' *************************

With ThisWorkbook.Worksheets("START")
    .Range("G7:G9") = ""
    .Range("G11:G12") = ""
End With

' *************************
' Worksheetsの削除
' *************************

Worksheets("New_User").Delete

End Sub

------------------------------------------------------

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 08, 2007

ログオン画面から<終了オプション>を消す

WindowsXPにて、ログオン画面から<終了オプション>を消すレジストリです。

HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/
Policies/system

キー名:shutdownwithoutlogon
種類:DWORD値
値:0

シャットダウンさせたくない、展示用のPC等に設定すると良いかもしれません。

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 07, 2007

プリンタアイコンを消せなくする

WindowsXPにて、プリンタアイコンを消せなくするレジストリです。

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/
Policies/Explorer

キー名:NoDeletePrinter
種類:DWORD値
値:1

キーを作成後、再起動しましょう。

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 05, 2007

スケジュール表作成(2)

下記のようなVBAを作成しました。
Workdayの計算より日付を持ってきています。
このソースがそのまま使えるものではありません。自分のメモです。

-------------------------------------------------------------

Private Sub Workbook_Open()

    Sheets("START0").Activate

End Sub

-------------------------------------------------------------

Private Sub CommandButton1_Click()

    Dim Sheet_name As String
    Dim New_sheet_name As String
    Dim Month_MMM As String
    Dim Year_yyyy As String
    Dim Year_yy As String
    Dim TODAY_c As Date
    Dim TODAY_mm As Integer
    Dim START0, CALC As Object
    Dim Workday(40) As String
    Dim i, j, k As Integer

    '***************************
    ' Worksheetの定義

    Set START0 = ThisWorkbook.Worksheets("START0")
    Set CALC = ThisWorkbook.Worksheets("CALC")

    ' シート名を取得 yyyy-mm
    Sheets("START0").Activate
    Sheet_name = "H" & Range("I8") & Range("J8") & "-" & Range("M8") & Range("N8")

    '***************************
    ' 年月を取得

    Month_MMM = Format(Range("G6"), "mmm")
    Month_mm = Format(Range("G6"), "mm")
    Year_yyyy = Format(Range("G6"), "yyyy")
    Year_yy = Format(Range("G6"), "yy")

   

    '**************************
    ' 2/2のシート作成
    '**************************
    ' 2/2のシートをコピー

    Sheets("ORG").Select
    Sheets("ORG").Copy After:=Sheets(3)
    Sheets("ORG (2)").Name = Sheet_name & "-(2)"

    ' 追加したシートの名前を取得
    New_sheet_name = Worksheets(4).Name

    ' 変更箇所
    With Worksheets(New_sheet_name)
        .Range("S5") = START0.Range("I8")
        .Range("T5") = START0.Range("J8")
        .Range("V5") = START0.Range("M8")
        .Range("W5") = START0.Range("N8")
        .Range("C11") = START0.Range("G10")
        .Range("C13") = START0.Range("G12")
        .Range("Z5") = "2/2"
    End With

   
   

    '**************************
    ' 1/2のシート作成
    '**************************
    ' 1/2のシートをコピー

    Sheets("ORG").Select
    Sheets("ORG").Copy After:=Sheets(3)
    Sheets("ORG (2)").Name = Sheet_name & "-(1)"

    ' 追加したシートの名前を取得
    New_sheet_name = Worksheets(4).Name

    ' 変更箇所
    With Worksheets(New_sheet_name)
        .Range("S5") = START0.Range("I8")
        .Range("T5") = START0.Range("J8")
        .Range("V5") = START0.Range("M8")
        .Range("W5") = START0.Range("N8")
        .Range("C11") = START0.Range("G10")
        .Range("C13") = START0.Range("G12")
        .Range("B21") = "hoge-BANK-" & Month_MMM & Year_yy
        .Range("B22") = "BANK-" & Month_MMM & "-" & Year_yyyy
    End With

   

    '**************************
    ' Working day を求める
    '**************************
    ' 来月を識別

    TODAY_c = Range("G6")
    TODAY_mm = Month(DateAdd("m", 1, TODAY_c))

    ThisWorkbook.Worksheets("calc").Activate

    i = 3
    j = 1

    k = CALC.Range("A65536").End(xlUp).Row

    ' 配列Workdayにddを取り込む
    For i = 3 To CALC.Range("A65536").End(xlUp).Row
        If CALC.Cells(i, 2) = TODAY_mm Then
            Workday(j) = CALC.Cells(i, 5)
            j = j + 1
        End If
    Next i

    ' 1/2にddを入れ込む
    '*******************

    Worksheets(4).Activate

    i = 0
    j = 1
    k = 23

    While i < 10
        If Workday(j) <> "" Then
            Worksheets(4).Cells(k, 2) = "hoge-BANK-DAY" & Format(Workday(j), "dd")
            i = i + 1
            j = j + 1
            k = k + 1
        Else
            j = j + 1
        End If
    Wend

   

    ' 2/2にddを入れ込む
    '*******************

    Worksheets(5).Activate

    i = 0
    k = 21

    While j < 32
        If Workday(j) <> "" Then
            Worksheets(5).Cells(k, 2) = "hoge-BANK-DAY" & Format(Workday(j), "dd")
            i = i + 1
            j = j + 1
            k = k + 1
        Else
            j = j + 1
        End If
    Wend

    Worksheets(4).Activate

End Sub

-------------------------------------------------------------

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 03, 2007

スケジュール表作成(1)

営業日を計算させるため、下記のようなシートを作成しました。

--Cell A1
1/1の日付 例)2007/1/1

--Cell B1    (何月かを判定)
=MONTH(A1)

--Cell C1    (土日と月末だったら"1"返す)
=IF(OR(WEEKDAY(A1,2)>=6,A1=EOMONTH(A1,0)),"1","")

--Cell D1    (祝祭日をマニュアルで、"1"を入力)

--Cell E1    (土日、月末、祝祭日でなければ日付を返す)
=IF(AND(C1="",D1=""),A1,"")

--Cell F1    (曜日を判定 第2引数を"2"にすると月曜日が"1")
=WEEKDAY(A1,2)

「Workday_calc.xls」をダウンロード

A1:F1を下のCellへハンドルすると1年間のスケジュールを
作成することができます。

--参考 日本国民の祝・祭日

  1. 元日                1/1
  2. 成人の日          1月第2月曜日
  3. 建国記念の日    2/11
  4. 春分の日          3/21
  5. 昭和の日          4/29
  6. 憲法記念日       5/3
  7. みどりの日        5/4
  8. こどもの日         5/5
  9. 海の日             7月の第3月曜日
  10. 敬老の日          9月の第3月曜日
  11. 秋分の日          9/23
  12. 体育の日          10月の第2月曜日
  13. 文化の日          11/3
  14. 勤労感謝の日    11/23
  15. 天皇誕生日       12/23

* Wikipediaを参照しました。

←クリック一票

| | Comments (0) | TrackBack (0)

Jan 01, 2007

新年2007年 亥年

あけましておめでとうございます。
”あっ”と思えば2007年がはじまってしまいました。
年越しで娘を寝かすこととなるとは、誰が予想したことでしょうか。
今年もよろしくお願いいたします。

さて、新春といえば福袋ですが、PC好きなわたくしは秋葉原へ
出かけたいかなぁと。2006年はTSUKUMO EXの”メディア袋”を購入し、
なんと\3,000にてDVD-Rが80枚入っていました!!
ブランドなど気にしないのでとてもお得でした。

今年はいかがなものでしょうか?
今年を占うといった意味でも運試ししてみましょう!!

--年末年始秋葉原ショップ営業情報(12/31~1/4)
http://kakaku.com/akiba/hayamimi/06/12/hayamimi20061229_open.htm

| | Comments (0) | TrackBack (1)

« December 2006 | Main | February 2007 »