カウンタ
プロフィール

sc440ge

Author:sc440ge
「あめた」です。大ケガをして拾われたニャン。サーバーの空き箱に入ってるニャン。
「あめた」ありがとう。
20130603

sc440ge@yahoo.co.jp
パソコン価格情報

 [2010/07/02] *

[ DWR-PG ] エネループ「KBC-L2A」で充電する




■■■■■■■■■■ Entry Start ■■■■■■■■■■


・ブログトップへ戻る



[ DWR-PG ] エネループ「KBC-L2A」で充電する


buffalo(NTTドコモ)のポータブルWi-Fiルーター「DWR-PG」をエネループ「KBC-L2A」で充電してみました。 「DWR-PG」付属のUSBケーブルで正常に充電できました。 50%でスタートしたものが一時間後には80%になっていました。充電時間もそれほどかからないという印象です。「DWR-PG」はかなり使えますね。


*充電が完了(100%)でもエネループの青いランプがつきっぱなしでしたので、充電完了後はエネループの電源を切った方がよさそうです。



Dwr-ene-001.jpg


Dwr-ene-002.png






関連記事



・ブログトップへ戻る



ちょっと待ってニャン。まだ何か買うニャンか? パソはやめれないニャンか?いたずらしないからゲージから出してニャン。拍手はちょっとだけ好きニャン。
ame-thinks.jpg




その他 | 【2010-07-02(Fri) 08:48:00】 | Trackback(-) | Comments(-)
編集  

 
Ads by Google 1
最新記事

[Key]
vbCrLf Chr(10) Chr(13) Application.WorksheetFunction.Max End(xlUp) ActiveCell.Row - 1 Cells(11,"B").Select Worksheet_SelectionChange UserForm Application.Wait Now() Application.Speech.Speak CreateObject("SAPI.SpVoice") voice.getdescription() Do While  TimeValue< Len vbNarrow Replace trim Until  Exit Do Like Right UBound Split vbLf ActiveSheet.Hyperlinks.Add Anchor Range GetVoices.Count voice.getdescription Item ColumnCount ColumnWidths  ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column .PageSetup.PrintArea Label ComboBox CheckBox OptionButton ListBox vlookup NumberFormatLocal  Application.GoTo Reference:=Range("$B$4"), Scroll:=True ActiveSheet.ScrollArea = "A1:D65536"  Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp IsError Application.VLookup DoEvents Loop CriteriaRange AdvancedFilter Action:=xlFilterInPlace .SaveAs , xlCSVActiveSheet.Hyperlinks.Add Anchor:=Selection, Address< Dir(ThisWorkbook.Path & "\*") Set myRng = myData.Find(myWord, LookAt:=xlPart) Application.WorksheetFunction.Match InStr Left Mid Trim Replace StrConv vbNarrow ComboBox1.AddItem ListBox1.AddItem Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"