歩いた結果
ヤッパリね(^^)本日0人
そりゃァ 発売されたばかりだし、みんな家で遊んでるよね
東京だったりすれば、それなりにすれちがえるのかもしれないけど・・・
あと、【ニンテンドーステーション】も体験できず
2店舗回ったけれども、なぜか反応せず? うーーん??
ヤッパリね(^^)本日0人
教訓「フォーカス喪失で処理する内容は吟味すべし」
![]() | 新品価格 ¥0から (2011/2/26 01:30時点) |
「アンテナ壊れたー!」
しかし!! やっぱり受信レベル0
もし、デスクトップにもショートカットが欲しい場合は [Create additional shortcuts on the desktop] にチェックを付けましょう |
| ■製品名 | ExcelでUML |
|---|---|
| ¥価格 | フリーソフト |
| 使用時間 | 10分ほど |
| いいところ | |
| |
| 気になる点 | |
| |
| ■製品名 | UMLモデリングツール IIOSS |
|---|---|
| ¥価格 | フリー?(修正 BSDライセンス) |
| 使用時間 | 検証用ユースケース図、シーケンス図を描いた約60分 |
| いいところ | |
| |
| 気になる点 | |
| |
| ■製品名 | ArgoUML |
|---|---|
| ¥価格 | フリー?(修正 BSDライセンス) |
| 使用時間 | 検証用シーケンス図を作図 約15分 |
| いいところ | |
| |
| 気になる点 | |
| |
| ■製品名 | Enterprise Architect |
|---|---|
| ¥価格 | \17,325から 評価版あり ← これ買いました 11.04.27 |
| 使用時間 | 検証用シーケンス図を作図 約15分 購入後、開発用のユースケース図、クラス図、シナリオ、シーケンス図を作図 3時間 |
いいところ | |
| |
| 気になる点 | |
| |
| ■製品名 | astah* professional |
|---|---|
| ¥価格 | \29,400/年から |
| 使用時間 | 使っていない |
| いいところ | |
| |
| 気になる点 | |
| |
| ■製品名 | EclipseプラグインAmaterasUML |
|---|---|
| ¥価格 | |
| 使用時間 | 検証用シーケンス図を描いた 約40分 |
| いいところ | |
| |
| 気になる点 | |
| |
| ■製品名 | Cacoo |
|---|---|
| ¥価格 | 無料~ |
| 使用時間 | 検証用シーケンス図を描いた 約10分 |
| いいところ | |
| |
| 気になる点 | |
| |
'[XLS:アクティブシートの文字を次々に検索して処理をする] Dim findRange As Range Dim findString As String findString = "hogehoge" '<---- ここに検索したい文字を記入 With ActiveSheet.UsedRange Set findRange = .Find(findString, LookIn:=xlFormulas, LookAt:=xlPart) If Not findRange Is Nothing Then Do '************************************************ ' 検索されたRangeオブジェクトに対する処理を書く '************************************************ Set findRange = .FindNext(findRange) Loop Until findRange Is Nothing End If End With
'//===========================================================================
'//【ソフト名】 IPAddress.vbs ver. 11.02.16 001
'//【対応環境】 Windows XP SP3 のみ検証済み
'//【注意事項】 動作には別途 BASP21 DLLが必要
'//===========================================================================
'*** 実行環境に応じて書き換えること ***
'書き方はBASP21のページを参照 http://www.hi-ho.ne.jp/babaq/basp21.html
CONST smtpServer = "" '<--送信メールサーバー
CONST mailTo = "" '<--送信先メールアドレス
CONST mailFrom = "" '<--送信元メールアドレス
'******************************ここまで
'IPアドレスを取得する(複数ある場合は改行コードで分けられる)
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration " & _
"Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "0.0.0.0" Then
strIPAddress = strIPAddress & objAddress & vbcrlf
End If
Next
Next
'ドメイン名、コンピュータ名、ログインユーザー名を取得する
Set objNetWork = WScript.CreateObject("WScript.Network")
strUserDomain = objNetWork.UserDomain
strComputerName = objNetWork.ComputerName
strAccountInfo = objNetWork.UserName
'メールを送信する
strServer = smtpServer
strTo = mailTo
strFrom = mailFrom
strSub = strAccountInfo & "@" & strComputerName
strBody = strIPAddress
strFile =""
Set bobj = CreateObject("basp21")
result = bobj.SendMail(strServer,strTo,strFrom, strSub,strBody,strFile)
ケーブルを変えたりアンテナ角度を再度調整したりしたけれども全く改善せず本日とうとう受信レベル0
「今日からイライラ禁止!」に反応
| CUPJOK |
「タイおすすめ♪CAに人気!! ジムトンプソンのクッキー」を購入友人と夕食を一緒にとるため再度エンポリアム付近で待ち合わせ