Makiのブログ

無線LANに接続できないまま時が過ぎ
いつのまにかUBUNTU１１.10にアップグレードされてた。
そして、前にネットで方法を探したときは見つからなかったけど
今回探したら接続する方法を誰かがブログに書いてくれてた

つながらなかった原因はルータ(NECのAtermWR8600N HPモデル)ではなく
無線子機デバイスが必要なモジュールがUbuntuで有効化されていなかったかららしい

私が使ってるUSBの無線子機デバイスはPLANEX GW-USMicroNなので
まずはUSBの状態をチェック

あ、その前にコンソールの開き方から（恥）
画面左にある帯の一番上のDashホームをクリック
検索ボックスにカーソルがあるのでそのまま
gnomeと入力すると一覧に「端末」というのが出てくる
黒いディスプレイの中に>_があるやつ
端末と書いてあるやつね

$ lsusb
Bus 002 Device 008: ID 2019:ed14 PLANEX GW-USMicronN

デバイスはちゃんと認識されているみたい
次はモジュールのチェック

$ lsmod

rt2800usbが見あたらないのでlsusbで出てきたベンダーIDとプロダクトIDを書き込む
rootじゃないと書き込む権限がないので
まずはrootでログイン
$ sudo- s
パスワードを聞いてくるので入力するとrootになれる
そしてlsusbで出てきたベンダーIDとプロダクトIDを書き込む
# echo 2019 ed14 > /sys/bus/usb/drivers/rt2800usb/new_id

で、動くようにはなったけど再起動すると元に戻ってしまうらしいので
起動時に設定を読み込むようにする

udevにUSBのルールを追加
エディタを開いて

# PLANEX GW-USMicroN
ACTION=="add", SUBSYSTEM=="usb", ATTR{idVendor}=="2019", ATTR{idProduct}=="ed14", RUN+="/sbin/modprobe -qba rt2800usb"

/etc/udev/rules.d/99-wireless.rulesに
書いて保存しようとしたら権限がないといわれ保存できないので
（さっきrootになったけどコンソールの外ではrootではないので書き込みできないのかな）

$ vi
でviを起動
viには編集モードと入力モードがあるそうで
編集モードでaを押すとカーソルの右側から文字を挿入できる

入力モードにするコマンドは以下のとおり

a カーソルの右側から文字を挿入
A 行末のカーソルの右側に文字を挿入
i カーソルのある場所から文字を挿入
I 行頭から文字を挿入
o カーソルのある次の行に文字を挿入
O カーソルのある前の行に文字を挿入

編集モードのコマンドは以下のとおり

x カーソルのある場所の文字を削除
dd カーソルのある行を削除
yy カーソルのある行をコピー
p カーソルのある場所にペースト
P カーソルの後ろにペースト
J 行末の改行を削除
u 直前の操作をキャンセル
. 直前の操作の繰り返し
:w ファイルの上書き保存
:w! 強制的に上書き保存
:q viの終了
:q! ファイルを保存しないで終了

なんとか
PLANEX GW-USMicronN
ACTION=="add",SUBSYSTEM=="usb",ATTR{idVendor}=="2019",ATTR{idProduct}=="ed14",RUN+="/sbin/modpobe -sba rt2800usb"

を書いたらEscキーを押して編集モードに切り替えて
:w /etc/udev/rules.d/99-wireless.rules
とし、/etc/udev/rules.dに99-wireless.rulesというファイル名で保存する

modprobe の設定を追加。
$ vi
a
入力モードに切り替え
# PLANEX GW-USMicroN
install rt2800usb /sbin/modprobe --ignore-install rt2800usb $CMDLINE_OPTS; /bin/echo "2019 ed14" > /sys/bus/usb/drivers/rt2800usb/new_id

編集モードに切り替え（Escキー）
:w /etc/modprobe.d/wireless.conf
というファイル名で保存

画面上部パネルにあるネットワークマネージャアプレットをクリックすると
有線ネットワークが接続されている場合は「切断する」を選択し
切断されていますと表示されていることを確認する
ネットワークを有効にする（N）
と
無線を有効にする（W）
にチェックが入っている状態にする
接続しようとしているアクセスポイントのSSIDが表示されているか確認
表示されていない場合は
「その他のネットワーク」をクリック
無線セキュリティは自動で判別される

無線ネットワークにアクセスするにはパスワードか暗号キーが必要といわれるので
ルータに書いてある暗号キーを入力する

数秒待つと接続を確立しましたと表示されて接続完了

なんとかできるようになったみたい
Windowsでは無線LAN使ってるけど
UBUNTUではできないとあきらめLANケーブルをPCに
さしたままにしてたけど、これでやっと外せるわ

環境：
OS
Ubuntu11.10
ルータ
NEC AtermWR8600N HPモデル
無線子機
PLANEX GW-USMicroN

• ubuntu |
• URL |
• Comment [0]

Sub MakeShape()
Dim i As Integer
Dim X As Double '作成X位置
Dim Y As Double '作成Y位置

Y = -21
For i = 1 To 504
'ﾃｷｽﾄﾎﾞｯｸｽの位置きめ
Select Case i Mod 3
Case 0 '右
X = 565
Case 1 '左
X = 150
Y = Y + 122.25
Case 2 '中
X = 360
End Select
'ﾃｷｽﾄﾎﾞｯｸｽ作成
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, X, Y, 50, 20).Select

'ﾌﾟﾛﾊﾟﾃｨ設定
With Selection
.Characters.Text = i 'ﾃｷｽﾄ
.ShapeRange.Line.Visible = msoFalse 'ﾃｷｽﾄﾎﾞｯｸｽの枠線
.HorizontalAlignment = xlRight 'ﾌｫﾝﾄの横配置
.VerticalAlignment = xlBottom 'ﾌｫﾝﾄの縦配置

With .Characters(Start:=1, Length:=1).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11

.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
End With
Next i
End Sub

• ExcelVBA |
• URL |
• Comment [0]

ファイルマネージャでCD/DVDドライブを右クリック
Braseroディスク作成ツールで開く
コピー元のディスクの選択ではCD/DVDドライブが表示されてるのでそのまま
書き込み先ディスクの選択でイメージファイルを選択
プロパティボタンを押して保存するファイル名を入力→閉じる
イメージの作成ボタンを押しISOイメージの作成開始

ISOイメージが完成したらデスクトップ上のアプリケーション→サウンドとビデオから
動画プレイヤーを起動
動画プレイヤーのメニューから動画→開く→作成したISOイメージを選択→追加
メニューの動画→作成したISOイメージの再生

• ubuntu |
• URL |
• Comment [0]

コピーガード解除

端末から（Alt＋F２で端末起動）

libdvdcss2_1.2.9-2medibuntu2+build1_i386.debパッケージを入手

wget -c http://packages.medibuntu.org/pool/free/libd/libdvdcss/libdvdcss2_1.2.9-2medibuntu2+build1_i386.deb


libdvdcss2_1.2.9-2medibuntu2+build1_i386.debパッケージをインストール

sudo dpkg -i libdvdcss2_1.2.9-2medibuntu2+build1_i386.deb


CD/DVDドライブからイメージを作る

genisoimage -o /home/ユーザ名/filename.iso /dev/cdrom

アプリケーション→サウンドとビデオ→動画プレイヤーを起動
動画→保存したイメージの再生でDVDを再生

• ubuntu |
• URL |
• Comment [0]

Docmd.SetWarnings False

• AccessVBA |
• URL |
• Comment [0]

Public filePath As String
Public fileName As String

Public Const FILETYPE_ACC As String = "Access"
Public Const FILETYPE_EX As String = "Excel"
Public Const FILETYPE_CSV As String = "CSV"

Public Function ShowFileDig(ByRef myPrompt As Variant, ByRef fileType As String) As Boolean

Dim myFName As Variant
Dim fileFilter1 As String
Dim fileFilter2 As String

ShowFileDig = False
Select Case fileType
Case "Access"
fileFilter1 = "Accessファイル"
fileFilter2 = "*.mdb"
Case "Excel"
fileFilter1 = "Excelファイル,*.xls"
fileFilter2 = "*.xls"
Case "CSV"
fileFilter1 = "CSVファイル,*.csv"
fileFilter2 = "*.csv"
End Select

'ファイル参照ダイアログボックスのカスタマイズと表示
With Application.FileDialog(msoFileDialogFilePicker)

.Filters.Clear 'ファイルフィルタの設定
.Filters.Add fileFilter1, fileFilter2
.FilterIndex = 2 '初期選択フィルタの設定
.AllowMultiSelect = False '複数ファイル選択の許可
.Title = "ファイル選択" 'タイトルバーの表示文字列の設定
.ButtonName = "参照" 'ボタンの表示文字列の設定
.InitialFileName = myPrompt

'キャンセル時にはShowメソッドは0(Long型)を返す
If CBool(.Show) Then
'選択ファイルのパスの取得
For Each myFName In .SelectedItems
myPrompt = myPrompt & vbCrLf & CStr(myFName)
Next
myPrompt = Mid$(myPrompt, 3)
ShowFileDig = True
Else
myPrompt = ""
End If
End With
End Function

Public Sub DataImport
Dim Con As New ADODB.Connection
Dim Rec As New ADODB.Recordset
Dim strTableName as String

Set Con = CurrentProject.Connection
Set Rec = New ADODB.Recordset
Rec.Open "SELECT * FROM " & strTableName, Con, adOpenDynamic, adLockOptimistic

FNo = FreeFile
Cnt = 1

If ShowFileDig(myPrompt, FILETYPE_CSV) = True Then
Open myPrompt For Input As #FNo

'ﾄﾗﾝｻﾞｸｼｮﾝ開始
Con.BeginTrans

On Error GoTo TransErr
Do While Not EOF(FNo)

Line Input #FNo, txtData
If Cnt >= intStartRow Then
arrData = Split(txtData, ",")
Rec.AddNew

Rec("フィールド1") = CStr(arrData(0))
Rec("フィールド2") = CStr(arrData(1))
　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　・
Rec.Update
End If
Cnt = Cnt + 1
Loop
'ﾄﾗﾝｻﾞｸｼｮﾝ終了
Con.CommitTrans

'ﾌｧｲﾙｸﾛｰｽﾞ
Close #FNo

'ﾚｺｰﾄﾞｾｯﾄｸﾛｰｽﾞ
Rec.Close

'DBｺﾈｸｼｮﾝｸﾛｰｽﾞ
Con.Close

MsgBox "ﾃﾞｰﾀｲﾝﾎﾟｰﾄが終わりました"

End If

Exit Sub

'ｴﾗｰﾄﾗｯﾌﾟ
RecErr:
Close #FNo
Con.Close
MsgBox "ﾚｺｰﾄﾞｾｯﾄｵｰﾌﾟﾝｴﾗｰ：" & "cmdCSVImport_Click" & vbCrLf & _
"ｲﾝﾎﾟｰﾄに失敗しました" & vbCrLf & _
"ErrNo:" & Err.Number & vbCrLf & _
"ErrDescription:" & Err.Description

Exit Sub
TransErr:
Close #FNo
Con.RollbackTrans
Rec.Close
Con.Close

MsgBox "以下のエラーが発生したためロールバックしました。" & vbCrLf & _
Err.Description, vbCritical
End Sub

• AccessVBA |
• URL |
• Comment [0]

http://piyo.ciao.jp/vb/

• ExcelVBA |
• URL |
• Comment [0]

Sub a()
Dim Con As ADODB.Connection
Dim RS As ADODB.Recordset

Set Con = Application.CurrentProject.Connection
Set RS = New ADODB.Recordset

RS.Open "テーブル1", Con, adOpenKeyset, adLockOptimistic
RS.AddNew
RS![1] = 12345
RS.Update

RS.Clone
Con.Close

End Sub

------------------------------------------------------------------------------------
　　　カーソルタイプ
　　　adOpenForwardOnly：　（デフォルト値）前方スクロールタイプカーソル。
　　　adOpenDynamic：　動的カーソル。
　　　adOpenKeyset：　キーセットカーソル。
　　　adOpenStatic：静的カーソル。
　　　adOpenUnspecified：カーソル タイプを指定しません。

　　　ロックの種類
　　　adLockUnspecified 　ロックの種類を指定しない
　　　adLockReadOnly 　読取専用（既定値）読み取り専用．データの変更はできません
　　　adLockPessimistic 　レコード単位で排他的ロック。
　　　adLockOptimistic 　レコード単位で共有的ロック。
　　　adLockBatchOptimistic 　共有的バッチ更新。

• AccessVBA |
• URL |
• Comment [0]

Public Const FILETYPE_ACC As String = "Access" 'ﾌｧｲﾙﾀｲﾌﾟ　Access
Public Const FILETYPE_EX As String = "Excel" 'ﾌｧｲﾙﾀｲﾌﾟ　Excel
Public Const FILETYPE_CSV As String = "CSV" 'ﾌｧｲﾙﾀｲﾌﾟ　CSV


'*****************************************
' 注意
'
' このﾓｼﾞｭｰﾙを使うときは
' ﾂｰﾙ→参照設定で
' Microsoft Office x.x Obejct Library
' にﾁｪｯｸを入れること
'*****************************************


'*************************************************
'ﾏｸﾛの説明:ﾌｧｲﾙﾀﾞｲｱﾛｸﾞからﾌｧｲﾙ名を取得する
''ﾊﾟﾗﾒｰﾀ : myPrompt 取得したﾌｧｲﾙ名
' : fileType 取得したいﾌｧｲﾙﾀｲﾌﾟ
'　　　　 : を定数から指定
'戻り値 : True ﾌｧｲﾙ名を取得
'　　　　 : False ﾌｧｲﾙ名を取得失敗
'*************************************************
Public Function ShowFileDig(ByRef myPrompt As Variant, ByRef fileType As String) As Boolean

Dim myFName As Variant
Dim fileFilter1 As String
Dim fileFilter2 As String

ShowFileDig = False
Select Case fileType
Case "Access"
fileFilter1 = "Accessファイル"
fileFilter2 = "*.mdb"
Case "Excel"
fileFilter1 = "Excelファイル,*.xls"
fileFilter2 = "*.xls"
Case "CSV"
fileFilter1 = "CSVファイル,*.csv"
fileFilter2 = "*.csv"
End Select

'ﾌｧｲﾙ参照ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽのｶｽﾀﾏｲｽﾞと表示
With Application.FileDialog(msoFileDialogFilePicker)

.Filters.Clear 'ﾌｧｲﾙﾌｨﾙﾀの設定
.Filters.Add fileFilter1, fileFilter2
.FilterIndex = 2 '初期選択ﾌｨﾙﾀの設定
.AllowMultiSelect = False '複数ﾌｧｲﾙ選択の許可
.Title = "ファイル選択" 'ﾀｲﾄﾙﾊﾞｰの表示文字列の設定
.ButtonName = "参照" 'ﾎﾞﾀﾝの表示文字列の設定
.InitialFileName = myPrompt

'ｷｬﾝｾﾙ時にはShowﾒｿｯﾄﾞは0(Long型)を返す
If CBool(.Show) Then
'選択ﾌｧｲﾙのﾊﾟｽの取得
For Each myFName In .SelectedItems
myPrompt = myPrompt & vbCrLf & CStr(myFName)
Next
myPrompt = Mid$(myPrompt, 3)
ShowFileDig = True
Else
myPrompt = ""
End If
End With
End Function

'*************************************************
'ﾏｸﾛの説明:ShowFileDigで取得したﾌｧｲﾙﾊﾟｽから
'　　　　 :ﾌｧｲﾙ名だけを取得
'ﾏｸﾛ記録日: 2010/08/24
'最終更新日：2010/08/24
'ﾕｰｻﾞｰ名 : Yamakawa
'ﾊﾟﾗﾒｰﾀ : myPrompt ShowFileDigで取得したﾌｧｲﾙﾊﾟｽ
'戻り値　 : True ﾌｧｲﾙ名を取得できた
'　　 : False ﾌｧｲﾙ名の取得失敗
'*************************************************

Public Function GetFileName(myPrompt As String) As Boolean
Dim i As Integer 'ﾙｰﾌﾟｶｳﾝﾀ
Dim LenFilePath As Integer
Dim En As Integer

GetFileName = False '初期値設定
LenFilePath = Len(myPrompt) 'ﾌｧｲﾙﾊﾟｽの長さ取得
If LenFilePath > 2 Then

En = 0
En = InStrRev(myPrompt, "\") '\がﾊﾟｽの後ろから何文字目か調べる
fileName = Mid(myPrompt, En + 1, LenFilePath)
GetFileName = True 'ﾌｧｲﾙ名取得成功だったらTrue
End If


End Function

• ExcelVBA |
• URL |
• Comment [0]

ｾﾙの書式設定→表示形式ﾀﾌﾞ→ﾕｰｻﾞ定義

例)1,000,000

#,　　→　1,000
#,,　 →　1

#(なんて読むんだろ・・・)のあとにｶﾝﾏ

もしこれでもダメな場合は

#,###,

にしてみるといいかも？

• Excel |
• URL |
• Comment [0]