全31件 (31件中 1-31件目)
1
初詣でメチャ混みになる前に、大みそかに北野天満宮へお参り。空いてたわ。別に1月1日にお参りしなければいけないってこともないしね。いわゆる初詣は、明治になって鉄道会社が言い出したことらしい。https://ja.wikipedia.org/wiki/%E5%88%9D%E8%A9%A3っていうより、大晦日にお参りするほうが、元々の意味では正しいらしい。とりあえず合格祈願してきました。空いててよかったよ。ゆっくりお参りできました。それに大晦日だったけど、晴れ着姿の人もいましたよ。【舞台用 振袖 レンタル】【踊り】【初詣】【初釜】【仕事初め】【表彰式】【式典】【発表会】【日本舞踊】【演歌】【民謡】【歌う】【舞台】【テレビ】【展覧会】【イベント】【受付】【振り袖】赤 レッド FA0045振袖 【fy16REN07】今後、大みそかにお参りするってのも、流行るかもしれない。本当に快適だもん。人ごみに揉まれて、長蛇の列に辟易して、無駄に疲れるよりもいいんじゃないかな。てなわけで、今年もお世話になりました。来年もよろしくお願いします。ではごきげんよう。
2019.12.31
コメント(4)
毎年、大掃除後にはキレイになって、それなりに満足するものですが、掃除してもキレイにならなくなってきたものがあります。それは、ガスコンロ。焼けてきて、さびてきて、剥げてきて、掃除だけでは限界があることを実感しつつあります。買い替えたいなーガスコンロにも寿命ってものがあるしね。今度は手入れの簡単なヤツにしたい。リンナイ NEWデリシア 最新モデル Rinnai RHS72W22E3VC-STW [ビルトインコンロ (左右強火力・3口・AC100V電源・幅75cm) ガスコンロ] ココット付き (ガラストップ ホワイトドットゴールド、前面パネル ステンレス) コンロ単体設置タイプ テレビCM中IHは手入れがもっと楽でしょうけど、やっぱり焼き物はガスのほうが美味しいと思う。個人的には。ではごきげんよう。
2019.12.30
コメント(0)
年賀状、うちでも出しているのですが、長女の出す枚数が、いつの間にか私の枚数より増えている。交友関係が減る一方の私と違って、年々広がっていっている子供たちがうらやましい。むしろ、喪中が増えてきました亡くなられた方の年齢を見ると、自分の親と同年代。うちにも、いつ何が起こってもおかしくない。後悔しないように、親孝行したいものです。が、今までやっていなかった分、なにをすればいいのやら・・・って人、多いんじゃないだろうか。親孝行代行サービスが欲しいかも。いや、そういうことじゃないよね、、、、って、あるやん!!( ゚Д゚)【ふるさと納税】熊本県 長洲町ふるさと親孝行代行サービスCではごきげんよう。
2019.12.29
コメント(0)
温暖化なんでしょうか。今年、妙に温かくないか・・・?日向に出て掃除していると、カットソー一枚でも寒さを感じない。大掃除がラクなのはありがたいんですけどね、なんか気持ち悪い。年末年始が紅葉の見ごろになるという不気味な予測は当たってほしくないね。大晦日のyahoo天気予報18度って・・・何それ!?温暖化なんでしょうか。。ストップ 温暖化ゲーム1セット すごろくゲームで環境問題ではごきげんよう。
2019.12.28
コメント(0)
スフレ、ベイクド、レアに続く第4のチーズケーキ、バスクチーズケーキ。濃厚さが売りのチーズケーキ。ローソンが大体的に売り出し中で、店舗の前にこれでもかっていうほどポスターが張られていました。その迫力に思わず購入( ´∀` )確かにおいしかったです。チーズ味のお饅頭?和菓子?練り切りみたいだなと思った。かつて一世を風靡したチーズケーキのように大流行するとは思いませんが(何か一つが大ブレイクするような時代でもないし)、末永く売り続けてほしいと思う。たまに食いたくなる味だ。和菓子っぽいから?バスク風チーズケーキ5号(15cm)ではごきげんよう。
2019.12.27
コメント(0)
毎年、クリスマスが終わったら思うんです。「シュトーレン、買っておけばよかった・・・」高いから二の足を踏んじゃんだけど、よし買おう!と決心した時にはもう品切れなんですよね。来年こそは買おう。【ふるさと納税】天然酵母シュトレン(第1回全国シュトーレンコンテスト入賞!)《冬 クリスマス プレゼント スイーツ お菓子 ケーキ パン プレゼント》孝行したいときに親はなし に似てる?(違)ではごきげんよう。
2019.12.26
コメント(0)
今年のクリスマスプレゼントは、switchのソフト。長女がポケモン・シールド、次女が太鼓の達人一台しか機械がないのに・・・取り合いにならないのだろうか?バンダイナムコ SWITCHゲームソフト 太鼓の達人 Nintendo Switchば〜じょん!妻には化粧品。私には…?「サンタさんへ、ルンバが欲しいです」iRobot ロボットクリーナー ルンバ e5 チャコール E515060 [E515060]【RNH】サンタクロースは、何歳まで来るんですかね?40ン歳じゃだめですか・・・?必ず値上がりする株銘柄を教えてくれるってのでも可ではごきげんよう。
2019.12.25
コメント(0)
今年もクリスマスケーキはサーティワンアイスのアイスケーキでした。今年はミッキー形のやつにしました。さて、大きな問題が・・・・どうやって切り分ければいい?4人で分けたのですが、まず、耳の部分をそぎ落として二つに分割(半月状のものが2個x2組)。次に頭の部分を4等分。これを分け合って4等分しました。3等分・4等分・5等分・6等分・・・それぞれの場合の推奨切り分けのインストラクションが欲しいですね。一応、チキン買ってきてパーティ料理作りましたがクリスマスイブが平日だと、なんか盛り上がりに欠ける・・・('ω')ブルーシールもいいなぁブルーシールクリスマスアイスケーキ(バニラベース)※ポイント10倍! ブルーシール xmasケーキ ブルーシールxmasケーキではごきげんよう。
2019.12.24
コメント(0)
年末ですね。大掃除を開始しました。まずは、電灯のカバーを外して洗ったんですけど、どれがどのカバーかわからなくなってしまった・・・みんな同じように見えて違う。カバーに部屋名書いておけばよかった、と思いながら、今年も書き忘れてそのまま戻してしまいました。きっと来年も悩むでしょう ♫シーリングライト 6畳 LED 電球色 昼光色 シンプル 天井直付灯 リビング 居間 ダイニング 食卓 寝室 子供部屋 ワンルーム 一人暮らし CL-O6 ビームテックではごきげんよう。
2019.12.23
コメント(0)
「神社で柏手を打ってはいけない」納得の理由https://president.jp/articles/-/30958そう、そうなんですよ!まさに我が意を得たり。私は、神社ではそっと合唱してお祈りするだけです。大げさに柏手を打ったりはしません。子供のころからずっとそうです。なのに最近は、柏手を打たなくてはならないみたいな風潮があって、ものすごい違和感感じていたんですよね。そんなの昔はなかったのにな…と思っていたんですよ。好きに拝めばいいんじゃないか?って。最近は、「うどんはコシが命」みたいな風潮も見直されつつあって、柔らかうどんが復権してきています。神社での柏手の風習も見直されて、各々が好きなスタイルで拝めるようになればいいですね。イラスト図解神社 日本古来の信仰、建築様式、参拝の作法がよくわかる [ 三橋健 ]ではごきげんよう。
2019.12.22
コメント(0)
ついにチロルチョコにもタピオカ化の波が・・・・と思ったら、タピオカ風のグミらしい。これはこれで結構おいしかった。しかし、いいんだろうか? タピオカじゃないじゃん・・・つぶつぶ やわらか タピオカ? カップ 全5種セット アイピーフォー ガチャポン ガチャガチャ ガシャポンではごきげんよう。
2019.12.21
コメント(0)
昨日の続き。USB制御できる0-10V電圧源を格安に制作しています。USB-IO2.0(AKI)を使ってUSBからデジタルI/Oを作り、MCP4922で0-5Vの直流電圧を生成し、LM358Nで0-10Vに昇圧しています。かんたん!USBで動かす電子工作 / 小松博史 【本】Microchip 12ビットDAコンバーター SPIインターフェース 【MCP4922-E/P】さて、ハードもソフトもできたので、動作確認してみましょう。実行ファイル名をMCP4922drive.exeとし、コマンドプロンプトでC:> MCP4922drive A 8.5などとやれば、チャンネルAに8.5Vの電圧が出力されました。しかし、ピッタリ8.5V出るわけじゃなく、8.47V位と、ちっと低いです。オペアンプのフィードバック回路の抵抗の比がピッタリ1じゃないのか、配線の電圧降下なのか分かりませんが、片側の抵抗を可変抵抗にしておいて、微調整できるようにしておけばよかったですね。【NewYearSALE】東京コスモス(TOCOS) [GF063P1 B203] 単回転型 サーメットトリマ (20KΩ)(10個入) GF063P1B203また、0Vの状態でも30mVぐらい出ています。実用上ほとんど差し支えないですが、気になる用途もあるかもしれませんね。外部から与えている15Vの電圧ですが、多少変動しても出力は変わりません。12V~15Vの間で変化させても、出力電圧は変わりませんでした。反応速度は、十分早いです。プログラムを実行した瞬間に電圧がかかる感じ。ビット列を送るのにウェイトを入れていないですが、MCP4922のクロックの最小間隔よりかは長いようです。もっと早いPCだとウェイト必要なのかな?見た目はともかく、当初の目的通り、USBで0-10Vの電圧が出力できるような制御用電圧源が完成しました。1500円ぐらいでした。格安と言っても良いのではないでしょうか。(下にあるのは18Vの定電圧電源です)これで、USBが廃れるまでは機器制御に困ることはないでしょう。定年までは大丈夫そうだ。ではごきげんよう。
2019.12.20
コメント(0)
昨日の続き。USB制御できる0-10V電圧源を格安に制作しています。USB-IO2.0(AKI)を使ってUSBからデジタルI/Oを作り、MCP4922で0-5Vの直流電圧を生成し、LM358Nで0-10Vに昇圧することにしました。Microchip 12ビットDAコンバーター SPIインターフェース 【MCP4922-E/P】Kaito7823(5個) STMicroelectronics LM358N オペアンプ(DIP)昨日の日記で考えた仕様をモトに作った、USB-IO2.0を使ってMCP4922をドライブするプログラムです。VisualStudio community 2015で作ってます。ソリューションを新規作成して、formに貼り付ければ動くと思います。少なくとも付属CDのサンプルプログラムが動作していれば。コマンドラインから動かす仕様なので、formには何もコントロールを貼り付ける必要はありません。'MCP4922drive コマンドラインver'LM358をつけて0-10Vで動作するようにする 実行ファイル名をMCP4922drive.exeとすると'' コマンドライン引数は二つ'(例) c:> MCP4922drive A 3.5''DACのAに3.5Vを出力''(例) c:> MCP4922drive B 2.1''DACのBに2.1Vを出力''10以上の引数の場合は10Vに固定'Imports System.Runtime.InteropServicesPublic Class Form1 '****************************************************** '定数や構造体の定義 USB-IO2.0用 (サンプルプログラムそのままコピペ) '****************************************************** Public Const DIGCF_PRESENT = &H2 Public Const DIGCF_DEVICEINTERFACE = &H10 Public Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000 Public Const GENERIC_READ = &H80000000 Public Const GENERIC_WRITE = &H40000000 Public Const FILE_SHARE_READ = &H1 Public Const FILE_SHARE_WRITE = &H2 Public Const OPEN_EXISTING = 3 Public Const INVALID_HANDLE_VALUE = -1 Public Const MyVendorID = &H1352 'Km2Net Public Const MyProductID = &H120 'USB-IO2.0 Public Const MyProductID2 = &H121 'USB-IO2.0(AKI) <StructLayout(LayoutKind.Sequential, Pack:=1, CharSet:=CharSet.Ansi)> Public Structure GUID Dim Data1 As Integer Dim Data2 As Short Dim Data3 As Short <MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> Dim Data4() As Byte End Structure <StructLayout(LayoutKind.Sequential, Pack:=1)> Public Structure HIDD_ATTRIBUTES Dim Size As Integer Dim VendorID As Short Dim ProductID As Short Dim VersionNumber As Short End Structure <StructLayout(LayoutKind.Sequential, Pack:=1)> Public Structure HIDP_CAPS Dim Usage As Short Dim UsagePage As Short Dim InputReportByteLength As Short Dim OutputReportByteLength As Short Dim FeatureReportByteLength As Short <MarshalAs(UnmanagedType.ByValArray, SizeConst:=16)> Dim Reserved() As Short Dim NumberLinkCollectionNodes As Short Dim NumberInputButtonCaps As Short Dim NumberInputValueCaps As Short Dim NumberInputDataIndices As Short Dim NumberOutputButtonCaps As Short Dim NumberOutputValueCaps As Short Dim NumberOutputDataIndices As Short Dim NumberFeatureButtonCaps As Short Dim NumberFeatureValueCaps As Short Dim NumberFeatureDataIndices As Short End Structure <StructLayout(LayoutKind.Sequential, Pack:=1)> Public Structure SECURITY_ATTRIBUTES Dim nLength As Integer Dim lpSecurityDescriptor As Integer Dim bInheritHandle As Integer End Structure <StructLayout(LayoutKind.Sequential, Pack:=1, CharSet:=CharSet.Ansi)> Public Structure SP_DEVICE_INTERFACE_DATA Dim cbSize As Integer Dim InterfaceClassGuid As GUID Dim Flags As Integer Dim Reserved As Integer End Structure <StructLayout(LayoutKind.Sequential, Pack:=1, CharSet:=CharSet.Ansi)> Public Structure SP_DEVINFO_DATA Dim cbSize As Integer Dim ClassGuid As GUID Dim DevInst As Integer Dim Reserved As Integer End Structure <StructLayout(LayoutKind.Sequential, Pack:=1)> Public Structure SP_DEVICE_INTERFACE_DETAIL_DATA Dim cbSize As Integer Dim DevicePath As Byte End Structure '****************************************************** '関数の定義 USB-IO2.0用 (サンプルプログラムそのままコピペ) '****************************************************** Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer Public Declare Sub RtlMoveMemory Lib "kernel32" (ByRef Destination As Byte, ByVal Source As IntPtr, ByVal Length As Short) Public Declare Function CreateFile _ Lib "kernel32" _ Alias "CreateFileA" _ (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) _ As Integer Public Declare Function ReadFile _ Lib "kernel32" _ (ByVal hFile As Integer, ByRef lpBuffer As Byte, ByVal nNumberOfBytesToRead As Integer, ByRef lpNumberOfBytesRead As Integer, ByVal lpOverlapped As Integer) _ As Integer Public Declare Function WriteFile _ Lib "kernel32" _ (ByVal hFile As Integer, ByRef lpBuffer As Byte, ByVal nNumberOfBytesToWrite As Integer, ByRef lpNumberOfBytesWritten As Integer, ByVal lpOverlapped As Integer) _ As Integer Public Declare Function HidD_GetAttributes Lib "hid.dll" (ByVal HidDeviceObject As Integer, ByRef Attributes As HIDD_ATTRIBUTES) As Integer Public Declare Function HidD_GetHidGuid Lib "hid.dll" (ByRef HidGuid As GUID) As Integer Public Declare Function HidD_GetPreparsedData Lib "hid.dll" (ByVal HidDeviceObject As Integer, ByRef PreparsedData As Integer) As Integer Public Declare Function HidP_GetCaps Lib "hid.dll" (ByVal PreparsedData As Integer, ByRef Capabilities As HIDP_CAPS) As Integer Public Declare Function SetupDiEnumDeviceInterfaces _ Lib "setupapi.dll" _ (ByVal DeviceInfoSet As Integer, ByVal DeviceInfoData As Integer, ByRef InterfaceClassGuid As GUID, ByVal MemberIndex As Integer, ByRef DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA) _ As Integer Public Declare Function SetupDiGetClassDevs _ Lib "setupapi.dll" _ Alias "SetupDiGetClassDevsA" _ (ByRef ClassGuid As GUID, ByVal Enumerator As String, ByVal hwndParent As Integer, ByVal Flags As Integer) _ As Integer Public Declare Function SetupDiGetDeviceInterfaceDetail _ Lib "setupapi.dll" _ Alias "SetupDiGetDeviceInterfaceDetailA" _ (ByVal DeviceInfoSet As Integer, ByRef DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA, ByVal DeviceInterfaceDetailData As Integer, ByVal DeviceInterfaceDetailDataSize As Integer, ByRef RequiredSize As Integer, ByVal DeviceInfoData As Integer) _ As Integer Public HidDevice As Integer = INVALID_HANDLE_VALUE Public Capabilities As HIDP_CAPS '***************************************************************** ' 関数いろいろ USB-IO2.0用 (サンプルプログラムそのままコピペ) '***************************************************************** '接続する関数 Private Function openDevice() As Boolean Dim HidGuid As GUID Dim DeviceInfoSet As Integer Dim MyDeviceInterfaceData As SP_DEVICE_INTERFACE_DATA Dim MemberIndex As Integer Dim MyDeviceInfoData As SP_DEVINFO_DATA Dim Needed As Integer Dim DetailData As Integer Dim MyDeviceInterfaceDetailData As SP_DEVICE_INTERFACE_DETAIL_DATA Dim DetailDataBuffer() As Byte Dim gch As GCHandle Dim address As Integer Dim DevicePathName As String Dim sa As SECURITY_ATTRIBUTES Dim DeviceAttributes As HIDD_ATTRIBUTES Dim PreparsedData As Long Dim ipt As IntPtr Dim Result As Integer openDevice = False Result = HidD_GetHidGuid(HidGuid) DeviceInfoSet = SetupDiGetClassDevs(HidGuid, vbNullString, 0, (DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE)) MemberIndex = 0 Do MyDeviceInterfaceData.cbSize = Marshal.SizeOf(MyDeviceInterfaceData) Result = SetupDiEnumDeviceInterfaces(DeviceInfoSet, 0, HidGuid, MemberIndex, MyDeviceInterfaceData) If Result <> 0 Then MyDeviceInfoData.cbSize = Marshal.SizeOf(MyDeviceInfoData) Result = SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, MyDeviceInterfaceData, 0, 0, Needed, 0) DetailData = Needed MyDeviceInterfaceDetailData.cbSize = Marshal.SizeOf(MyDeviceInterfaceDetailData) ReDim DetailDataBuffer(Needed) ipt = Marshal.AllocHGlobal(Marshal.SizeOf(MyDeviceInterfaceDetailData)) Marshal.StructureToPtr(MyDeviceInterfaceDetailData, ipt, False) Call RtlMoveMemory(DetailDataBuffer(0), ipt, 4) gch = GCHandle.Alloc(DetailDataBuffer, GCHandleType.Pinned) address = gch.AddrOfPinnedObject().ToInt32() Result = SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, MyDeviceInterfaceData, address, DetailData, Needed, 0) gch.Free() DevicePathName = System.Text.Encoding.GetEncoding("Shift-JIS").GetString(DetailDataBuffer) DevicePathName = DevicePathName.Substring(4) sa.nLength = 12 sa.lpSecurityDescriptor = 0 sa.bInheritHandle = 0 HidDevice = CreateFile(DevicePathName, GENERIC_READ Or GENERIC_WRITE, (FILE_SHARE_READ Or FILE_SHARE_WRITE), sa, OPEN_EXISTING, 0, 0) If HidDevice <> INVALID_HANDLE_VALUE Then DeviceAttributes.Size = Marshal.SizeOf(DeviceAttributes) Result = HidD_GetAttributes(HidDevice, DeviceAttributes) If (DeviceAttributes.VendorID = MyVendorID) And (DeviceAttributes.ProductID = MyProductID Or DeviceAttributes.ProductID = MyProductID2) Then HidD_GetPreparsedData(HidDevice, PreparsedData) HidP_GetCaps(PreparsedData, Capabilities) openDevice = True Exit Do Else Result = CloseHandle(HidDevice) End If End If Else Exit Do End If MemberIndex = MemberIndex + 1 Loop End Function '閉じる関数 Private Sub closeDevice() If HidDevice <> INVALID_HANDLE_VALUE Then CloseHandle(HidDevice) End If End Sub '送受信関数 Private Sub SendRecv(ByVal sendData() As Byte, ByRef recvData() As Byte) Dim i As Integer Dim s As String Dim NumberOfBytesWritten As Integer Dim NumberOfBytesRead As Integer Dim wrtData(Capabilities.OutputReportByteLength - 1) As Byte Dim readData(Capabilities.InputReportByteLength - 1) As Byte On Error GoTo errJump wrtData(0) = &H0 For i = 0 To 63 wrtData(i + 1) = sendData(i) Next WriteFile(HidDevice, wrtData(0), Capabilities.OutputReportByteLength, NumberOfBytesWritten, 0) Do ReadFile(HidDevice, readData(0), Capabilities.InputReportByteLength, NumberOfBytesRead, 0) If wrtData(64) = readData(64) Then Exit Do End If Loop For i = 0 To 63 recvData(i) = readData(i + 1) Next Exit SuberrJump: MsgBox(Err.Description) End Sub '***************************************************************** ' 自分で書いたMCP4922制御用コードの始まり '***************************************************************** 'ピンの状態を表す配列 'J1のpin7~pin0にセットするビット列を表す0と1の文字列 左端がpin7 送るときはConvert.tobyteによってバイト値に変換する Dim CommandBinStringsArray() As String 'コマンド行インデックスの最大値 (実際のコマンド行数)-1を指定 Dim NofCommmandArray As Integer = 36 '起動時 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ReDim CommandBinStringsArray(NofCommmandArray) 'コマンドライン引数の取得 Dim cmds As String() = System.Environment.GetCommandLineArgs() Dim selectDAC As Integer If cmds(1) = "A" Then selectDAC = 0 If cmds(1) = "B" Then selectDAC = 1 Dim SetVoltage As Double = CDbl(cmds(2)) If SetVoltage > 10 Then SetVoltage = 10 If SetVoltage < 0 Then SetVoltage = 0 '起動時自動接続 J1を全ピンを出力に変える ConnectUSBIO() '電圧印加 ReadWritePins(SetVoltage, selectDAC) '終了 closeDevice() End End Sub '接続&出力設定 Private Sub ConnectUSBIO() '接続が成功したら If openDevice() = True Then '送受信バッファを用意して Dim sendData(63) As Byte Dim recvData(63) As Byte 'まずは現状の設定を問い合わせる sendData(0) = &HF8 'コマンド :システム設定用フラッシュロム読込み sendData(63) = &H0 'シーケンス SendRecv(sendData, recvData) '送受信 'J1pinの状態(インデックス5)を見る 上位ビットがpin7、下位ビットがpin0になる 'ビットON(=1)になっていれば入力ピン設定されている。全ピンが出力設定(つまりインデックス5の値が0)になっているか確認して、そうなっていなければ0を送る(J1全ピンを出力に設定) If recvData(5) And &H0 = False Then sendData(0) = &HF9 'コマンド :システム設定用フラッシュロム書き込み sendData(1) = 0 '未使用 sendData(2) = recvData(2) 'プルアップを設定(今回使わないけど現状をそのまま返す) sendData(3) = 0 '未使用 sendData(4) = 0 '未使用 sendData(5) = &H0 '入力ピン設定 ビットON(=1)が入力ピン設定なので0を送って全部出力ピンにする sendData(63) = &H0 'シーケンス SendRecv(sendData, recvData) '送信 End If '接続が失敗した場合は何もせずそのまま終了することにする End If End Sub '電圧印加用コマンドを作る Private Sub ReadWritePins(SetVoltage As Double, selectDAC As String) Dim iii As Integer '設定する12bitのバイナリ値(0~4095)を計算 本来、5V=4095であるが、 'LM358オペアンプによって0-10Vに増幅するから、ここでは10Vが指定されたときに4095を出すようにする Dim SetBinValue As Integer = CInt(SetVoltage / 10 * 4095) 'config bits部分をセット 'CS、SCK、SDI、LDACの順でpin7、6、5、4につなぐ 最上位ビット(左端)がpin7 最下位ビット(右端) がpin0 CommandBinStringsArray(0) = "1001" '始状態 CommandBinStringsArray(1) = "00" & selectDAC & "1" 'DAC A/Bをセット CommandBinStringsArray(2) = "01" & selectDAC & "1" CommandBinStringsArray(3) = "0011" 'BUF=1 固定 CommandBinStringsArray(4) = "0111" CommandBinStringsArray(5) = "0011" 'GA=1 固定 ちなみにGA=0(x2倍)にしたからと言って10Vが出るわけではない CommandBinStringsArray(6) = "0111" '確かにVrefの2倍が出るが、上限は5V(VDD)。つまりVrefが2Vのときには4Vが出たりするだけの話 CommandBinStringsArray(7) = "0011" 'SHDN=1 固定 CommandBinStringsArray(8) = "0111" '12 data bits部分をセット 'インデックス9~32はバイナリ値をビット列に置き換えたものとなる 上位ビットから12ビット分送信 Dim tempbit As Integer For iii = 0 To 11 tempbit = Math.Floor(SetBinValue / (2 ^ (11 - iii))) Mod 2 CommandBinStringsArray(9 + iii * 2) = "00" & tempbit & "1" CommandBinStringsArray(10 + iii * 2) = "01" & tempbit & "1" Next iii '残りのビットを用意 CommandBinStringsArray(33) = "0001" 'クロック終了 CommandBinStringsArray(34) = "1001" 'CSを上げる CommandBinStringsArray(35) = "1000" 'LDACを開ける CommandBinStringsArray(36) = "1001" '終状態 'pin3~0の部分を追記 とりあえず今は0埋め 'MCP4922を複数台つなぐのであれば、ここにCSとLDACのデータを書く (SCKとSDI線は複数のMCP4922で共有できる) For iii = 0 To NofCommmandArray CommandBinStringsArray(iii) = CommandBinStringsArray(iii) & "0000" Next iii 'コマンド送信 SendCommand(CommandBinStringsArray, NofCommmandArray) End Sub 'コマンド送信 Private Sub SendCommand(CommandArray() As String, NofIndex As Integer) Dim iii As Integer '入出力バッファを用意して Dim sendData(63) As Byte Dim recvData(63) As Byte sendData(0) = &H20 'コマンド :デジタル入出力 sendData(1) = &H1 '出力1:J1 sendData(63) = &H0 'シーケンス For iii = 0 To NofIndex sendData(2) = Convert.ToByte(CommandArray(iii), 2) '0と1の文字列だったビット列をバイト値に変換してセット SendRecv(sendData, recvData) '送受信 'System.Threading.Thread.Sleep(1) ' Wait とりあえず不要 Next iii End SubEnd Class---------------------------------------------------------------------------------------------------明日に続く。
2019.12.19
コメント(0)
昨日の続き。USB制御できる0-10V電圧源を格安に制作しています。USB-IO2.0(AKI)を使ってUSBからデジタルI/Oを作り、MCP4922で0-5Vの直流電圧を生成し、LM358Nで0-10Vに昇圧することにしました。【中古】 手作りUSB機器 USBーIOで作る電子ルーレットからWebカメラま / 永島 智二 / RBB PRESS [単行本]【宅配便出荷】MCP4922を駆動するため、ビット列をUSB-IO2.0(AKI)のピンから出力してやります。マニュアル19ページを見るとタイミング図が載っています。ナンノコッチャ?電子回路の素人には敷居の高い図ですが、それほど難しいことが書いてあるわけではありません。1. まず、CSピンを1、SCKピンを0、LDACピンを1にする。(SDIはどっちでも良いみたい)2. CSピンを0に落とすと、制御コマンド受付状態になる。3. SDIピンに所望のビット状態を設定する。4. SCKピンを1に上げると、その瞬間にSDIピンの状態が取り込まれる。5. SCKピンを0に戻し、同時にSDIピンに次のビット状態を設定する。6. 4と5を16ビット分繰り返す7. 全データ送り終えたらCSピンを上げて、制御コマンドを受け付けない状態にする8. 最後にLDACピンを0に落とすと、DC電圧がVoutピンにかかる。この一連の信号送信間隔(つまりSCKピンの変動間隔=クロック)は、調律されたタイミングである必要はありません。単にSCKピンの電圧が0→1になったタイミングでのみ、データピンの状態が読み込まれるってだけの話です。ばばばばーっとピン状態を買えてやればそれで良いと思います。SPI通信、簡単じゃん・・・送るべき16ビットのデータは、マニュアルの18ページに書いてあるとおりクロック0→1のタイミングでデータが書きこまれるので、クロック0と1の2状態で1つのデータ送ることになります。設定電圧は12ビット分解能で、4095(=&B111111111111)を送ると5Vが、0を送ると0Vが出力されます。送るのは上位ビットから(D11)から下位ビット(D0)へ送信します。出力したい数値をVとすると、n番目のビットはint(V/2^n) mod 2で表せれます。V=500(500/4095=0.122、つまり昇圧して0.24Vぐらいが出力)とすると、送信するビット列は000111110100となります。各ピンに送るビットデータ列を、エクセルで書いてみました。例えばV=500(&B000111110100)を送るときならこんな順で、37回ピンの状態を変えてやれば良いわけです。USB-IO2.0はドライバインストール不要とのことですが、まずは付属CDのサンプルプログラムを使って動作確認したほうが良いと思います。サンプルプログラムはVisualBasicで記述されていますので、これをモディファイして制御プログラムを作りました。プログラムはDOS窓から動かすものとしました。実行ファイル名をMCP4922drive.exeなどとして生成しておいて、コマンドプロンプト上で、例えばC:> MCP4922drive A 3.5などとすると、チャンネルAから3.5Vが出力されるような仕様です。お金があれば、こういうのも良いですけどね・・・定電圧/定電流 プログラマブル制御 電源モジュール 50V20A USB Bluetooth ステップダウン DCDCコンバータ 液晶作成したプログラムは、明日の記事で。
2019.12.18
コメント(0)
昨日の続き。USB制御できる0-10V電圧源を格安に制作しています。USB-IO2.0(AKI)を使ってUSBからデジタルI/Oを作り、MCP4922で0-5Vの直流電圧を生成し、LM358Nで0-10Vに昇圧することにしました。Microchip 12ビットDAコンバーター SPIインターフェース 【MCP4922-E/P】USB-IO2.0とMCP4922は単にピンをつなぐだけですが、LM358Nは倍率2のフィードバック回路を作らないといけません。参考にしたのはこちらCan I use opamp to convert 5V DC into 10V DC?https://electronics.stackexchange.com/questions/277276/can-i-use-opamp-to-convert-5v-dc-into-10v-dc「Yes, that would seem to work.」って書いてあるので大丈夫でしょう。秋⽉ファンクラブ掲⽰板も丁寧です。http://akizuki-fan.bbs.fc2.com/?act=reply&tid=10485241実際に作った回路はこんな感じ。MCP4922のCSピンをUSB-IO2.0のJ1ピン7へ、SCKはピン6、SDIをピン5、LDACをピン4につなぎました。AVSSはGNDへ落とし、5VはVDDとVREFA、VREFB、SDHNに接続しました。オペアンプLM358Nにはゲイン2倍のフィードバック回路をつなぎます。私はは4.7kΩの普通のカーボン抵抗を使いました。ゲイン2倍だと全く同じ抵抗値が必要なので、何本かの抵抗値をテスタで実測し、なるべく抵抗値の近いものを組で使いました。MCP4922の出力をオペアンプの非反転入力へ、フィードバック回路の中点を反転入力につなぎ、+15Vの外部電源をV+につなぎました。【アドウィン】オペアンプ入門編 ECB-800T 【3-8810-07】作った回路あとから思えば、電圧の微調整のため、一つは可変抵抗にしておくべきでしたね。キレイなケースに納めれば見栄えもいいんですが、それよりも格安に作ることが重要なので、そのへんの木片にネジを刺して基板を固定し、ついでに端子台にもしました。直流電源で15Vほど掛ければ、ハードウェアとしては完成です。回路自体の製作はなんてことはなく、プリント基板にIC刺して導線でつなぐだけです。しかし、思いもよらぬ強敵が・・・・見えない! (゚д゚)最近、老眼が進んできたなーと思ってはいましたが、まさかプリント基板程度のピッチのはんだ付けにこれほど苦労するとは・・・昔からはんだ付けは下手くそですが、見えないのと、手元が震えるのとで、とっても汚い配線になってしまいました(泣)裏面は見せられません。すげー疲れた。さて、制御ソフトを作りましょう。明日に続く。
2019.12.17
コメント(0)
産業機器には、0-10Vの電圧で制御するものが多いんですが、機械の老朽化やwindowsの更新で、今まで使っていたPC制御の電源などが使えなくなってきています。PCIバス(experssじゃないよ)のGPIB制御ボードとかね。USB-GPIBの変換を買えば良いのですが、4万円以上とお高い。ラトックシステム REX-USB220 USB to GPIB Converter 目安在庫=△それに令和の時代になってまでGPIBってのもねぇ・・・USB制御できる直流電源ならあと20年ぐらいは使えそうですが、10万円近くします。産業機器の制御なので、そこそこ分解能は欲しい、しかし電圧がかかればいいので、応答速度はそれほど求めない。そんなUSB制御できる0-10V出力可変電源を、なんとか格安に作ってみよう、ってのが今回のお話です。最初に考えたのは、PWMを平滑化して直流電圧にする方法です。試しに手持ちのKm2NetのUSB-FSIO30で試してみたところ、完全にキレイな平滑化ができず、低デューティー比の領域で変動が出てしまう。LEDの調光ぐらいなら良いけど、これだと産業機器の制御にはちょっと厳しいかな。そんな時、DACチップを使えばキレイなDC電圧が出せることを知りました。ポピュラーなのはMCP4922というICらしく、12bitの分解能があり、2系統出力あります。秋月電子で250円でした。http://akizukidenshi.com/catalog/g/gI-02090/楽天にもありましたね。Microchip 12ビットDAコンバーター SPIインターフェース 【MCP4922-E/P】このIC、SPI通信という方式で制御するらしい。シリアル通信の一種で、クロック信号に合わせてデータ線のビットを上げ下げして設定値を書き込むらしい。シリアル通信というと何千bpsとか同期タイミングがどうだとかストップビットやらパリティやら、どうしてもRS-232Cっぽいものを想像してしまい、そんな制御回路を組むなんて、別に電子回路の専門家ではない私にとっては難しすぎる、と思ったのですが、しかし調べてみると、案外単純なことがわかりました。SPIの罠http://mhage.zombie.jp/PicTrap/SPI.html要するに、クロックのピンの状態(0 or 1)が変わったタイミングで、データ線(SDIピン)のon/off状態が読み込まれる、ってことらしい。クロックは調律された信号である必要はなく、MCP4922の場合、クロックの周波数の上限はあるけど、下限はない。極端な話、手でスイッチをon/offして設定値を書き込むことだってできる。要するに、適当なデジタルI/Oの出力ピンにMCP4922をつなぎ、ピンの状態を順番に変えていけばそれで動作させることができるのです。MCP4922のスペックシートを見ると、クロックのシグナルが0→1になったタイミングで、データピンの状態が読み込まれるらしい。デジタルI/Oは、昔ならパラレルポートが使えたかもしれませんが、今時は、やはりUSB制御でしょう。安価で使いやすいものがいくつも市販されています。今回使ったのは、Km2NetのUSB-IO2.0(AKI)ってやつです。これも秋月電子に売っています。http://akizukidenshi.com/catalog/g/gM-05131/1,000円なり。USB的にはHIDとして認識されるので、特別なドライバは不要です。コレの出力ピンにMCP4922を繋いで叩いてやれば、晴れてUSB制御電源の完成です。SPI通信インターフェースを備えた機械(FT232HLなど)を使っても良いんですが、http://akizukidenshi.com/catalog/g/gK-06503/ちょっと高性能すぎるというか、そこまで多機能じゃなくても大丈夫です。さて、欲しいのは0-10Vの出力です。MCP4922の動作電圧は5V、USBの電源電圧も5Vなので、0-5Vは出せますが、これを10Vにするには昇圧しないといけません。(ちなみにMCP4922にはゲインx2の設定があり、これを使えば10V出るような気が一瞬しましたが、そうは問屋が降ろしません。あくまでも出るのは0-5Vの範囲内で、これは例えばVrefが2Vのときに4Vを出力するような設定です。)そこで、オペアンプを使って昇圧します。オペアンプなんて、大学の教養課程で理屈をちょっと勉強させられたぐらいで、実際に動作する回路を作るのは初めて。今回使ったのは、LM358Nというポピュラーなやつ。これまた秋月電子に売っています。一個20円(!)なり。http://akizukidenshi.com/catalog/g/gI-11167/楽天にもあります。Op-Amp (Thru-Hole) - LM358ただしオペアンプに0-10Vを出力させるためには、電源電圧としてそれ以上(12〜15V)が必要なので、別途ACアダプター等で電源を用意しないといけません。私は手元にあった18Vの直流電源を使いましたが、5Vを15Vに昇圧するDC/DCコンバータ(例えばMCW03-05S15)を使えば、完全USBだけで0-10V制御ができるようになるでしょう。たぶん。http://akizukidenshi.com/catalog/g/gM-04263/またもや秋月です。1個650円なりま、何でもいいんでしょうけどコーセル DC-DCコンバーター 出力15V-0.1A 【SUS1R50515C】上記の部品代の合計は1820円です。DC/DCコンバータを買わなければ1270円です。プリント基板や抵抗なんかを入れたとしても、2000円ぐらいで収まってしまします。そうそう、MCP4922は2系統出力があり、LM358Nも2個オペアンプが入っているので、配線するだけで2出力とれます。つまり1ch当たりだと1000円ってことですね。USB制御の定電圧電源を買うよりも遥かに安い値段で構築することができそうです。明日にづつく。
2019.12.16
コメント(0)
先日、干し網を買ってから干し芋作りにハマっているのですが、乾燥させるとものすごく固くなってしまう。市販品とはえらい違い。群馬のからっ風は強力だ〜なんて思っていたんですが、一度、ちゃんと煮て干してみようと思いました。というのも、いままでは皮を剥いて切ったやつを茹がいて干していました。芋を一本そのまま煮ると大きな鍋が必要で時間がかかるので、手抜きしてたんです。で、一本まるまる茹でてみました。それから皮を剥いて切り分けて干してみました。そうすると、全然硬くならないんですねぇ不思議。煮てから皮むくのも、皮剥いてから煮るのも、そんなに大きな違いはないように思うんですけどねぇもはや市販品と遜色ない仕上がりですわ。純天日干し 干しいも(約5kg)茨城産 干し芋 国産 玉豊 ほしいも 丸干し スイーツ お菓子 和菓子 干しいも 送料無料訳アリなら安く買えるね。味一緒だし。【クーポン発行中】 干しいも 干し芋 訳あり 国産 無添加 10kg ( 1kg x 10 ) 沖縄離島以外 送料無料 砂糖不使用 業務用 やわらかい スイーツ 柔らか しっとり 玉乙女 玉豊 紅はるか いずみ ほし黄金 ほしキラリ 紅まさり 丸干し わけあり 茨城 ひたちなか市産 半生 蜜芋ではごきげんよう。
2019.12.15
コメント(0)
赤大根を頂いたんだけど、どうすればいい?とりあえず、甘酢に付けてみました。そうすると、切ったばっかりはどす黒い赤柴だったのに、漬けているうちに鮮やかな赤色に変化したんですねぇ〜面白ーい~売り物の漬物みたいで美味しかった。ええ、自画自賛ですが、なにか?大根 種 紅くるりダイコン 2dl 松永交配ではごきげんよう。
2019.12.14
コメント(0)
うちの家庭菜園の大根が、コンスタントに採れるようになってきました。で、色んな料理に使っているんですけど、結局のところ、おでんが最もうまい。なんか、市販の大根と違って、すごく柔らかい。すぐに味がしみて、ふわふわになる。カブみたい。同じおでんだと飽きるので、名古屋風みそおでんを作ってみました。一応レシピを参考に作ったのですが・・・・塩辛い!ちょっとそのままでは食えないぐらい辛い。大根がとても味を吸うので、それがアダとなって味が濃い濃い・・・これでも、作っている途中に「これは味噌入れ過ぎなのでは?」と思って減らしたんですけどね。。。レシピが間違っていたのか、私が使った食材がレシピの意図したものではなかったのか、それとも本当にこんな塩辛いものを食っているのか、定かではありませんが、翌日、6倍ぐらいに薄めて煮直したらちょうど良かったわ。とにかく、大根の最強料理はおでんだということで。(冷蔵3食)味噌煮おでん3食セットではごきげんよう。
2019.12.13
コメント(0)
おみやげに梅田阪神百貨店の地下でクラブハリエのバウムクーヘンを買っていいたのですが、自分も食いたくなって、後日、わざわざ東京まで買いに行きました。っていうか、東京でも買えたんだ・・・(・o・)日本橋三越にはカフェもあったぞ。約20年前、初めてクラブハリエのバウムクーヘンを食った時、その旨さに感動しました。それ以来いろんなバウムクーヘンを食いましたが(ドイツに行ったときにも買ったぞ)、やっぱりクラブハリエのヤツが一番美味いかなーこれいいな! お土産に欲しい。令和 祝元号 インペリアルバウムクーヘン 20個セット販売 祝新元号令和 ノベルティグッズ 【代引き不可商品】食えねえヤツもあります。キッズベンチ 長椅子 バームクーヘン型 オブジェ イス スツール おもちゃ 遊具 玩具 子ども 子供 ウレタンフォーム 軽量 安全 大型 食べ物モチーフ KS-0026Kではごきげんよう。
2019.12.12
コメント(0)
モンシュシュのプリンスロール。チョコレート味のロールケーキでした。ハーフでこの値段はちょっと高いけど、さすがに美味しかったです。冷静に考えたら小さめのホールケーキが買えそうな値段だった。しかしなぜ、プリンス?プリンセスならストロベリー味とか?楽天にあるし!送料込 「堂島プリンスロールハーフ」堂島ロール モンシェール プレゼント ギフト スイーツ ロールケーキ ロール ケーキ 誕生日 お取り寄せスイーツ 内祝い 大阪 お土産 お菓子 チョコレートケーキ かわいい チョコレート 取り寄せ お祝い クリスマス送料込 「堂島プリンスロール・ツインズ」 ギフト スイーツ ロールケーキ お取り寄せスイーツ フルーツ マンゴー パイン お土産 大阪 おしゃれ 内祝い インスタ映え お菓子 マンゴーケーキ 誕生日 デパ地下 プレゼント クリスマスではごきげんよう。
2019.12.11
コメント(0)
安ビジネスホテルに泊まりました。スイッチが昭和実家に居るようで懐かしかったぞ。アンティーク…最安値挑戦中★アメリカンスイッチプレートセット 1口 アンティークブロンズ 古銀色♪ シルバー レトロ オシャレ カントリー 昭和モダン洋風 切り替え インダストリアル 雑貨通販階段廊下に 可愛い【RCP】ではごきげんよう。
2019.12.10
コメント(0)
久しぶりに食べたくなった。チーズケーキ。なんかシワシワですね(笑)サンタの焼印が押されていて、クリスマスバージョンになっていました。チンしてちょっと温めると激ウマ。なんばで買うのもいいけど、新大阪の新幹線改札内で買うと空いてて早い。大阪 銘菓 りくろーおじさんの焼きたてチーズケーキ ハロウィン ギフト プレゼント パーティー りくろーおじさん の 焼きたて チーズケーキではごきげんよう。
2019.12.09
コメント(0)
大阪モーターショウで一番印象的だったのは、コンパニオンのお姉さん・・・じゃなくて(いや、じゃないこともないけど)、軽自動車ベースのキャンピングカーでした。以前から流行しているのは知ってましたが、いろんな車種を一度にじっくり見たのはこれが初めてです。いや、結構すごいね!装備充実で、そんなに狭っ苦しい感じもしないですね。これで250万円とか。新型の軽でもオプション次第ではそれぐらいの値段になることを考えると、コスパたけえ普通に軽買うなら、こっち買っても良いのではないか、と思えなくもない。キャンピングカーで通勤とか、素敵過ぎない?(笑)ずっと仕事できそう?これは、働き方改革に沿うのか?逆行するのか??軽キャンパーfan 14 ヤエスメディアムック 【ムック】ではごきげんよう。
2019.12.08
コメント(0)
大阪に行ったついでに、モーターショー寄ってきました。The モーターショー ってな感じの写真真ん中の黄色いヤツは、39,300,000円らしい。1/12 マクラーレン 720S (オレンジ)[TSMモデル]《12月予約※暫定》GT-Rはさすがの人気。GT−R プレミアムEDハーフレザーシートBOSEサウンドHID(日産)【中古】EJ20もこれで最後だそうですね。等長エキマニのシングルターボ仕様かな?改めて写真を見ると、私が乗っていたBH5のシーケンシャルツインターボのEJ20とは随分違う。あれは面白かったよ。低速は遅いし、燃費も良くなかったけど、面白かった。ロストテクノロジーになるのかと思うと惜しいね。ステージを彩る華やかなコンセプトカーや、搭乗間近のニューカーもいいけど、それよりも、スマホをかざしたのを一瞬で察知して、すかさず笑顔を向けるコンパニオンがすごいと思った。車離れとかなんだか言われている割には、結構混んでたぞ。でも正直、近寄れないほど人だかりができるモーターショーよりも、たまにショッピングセンターとかでやっている新車展示会のほうがじっくり見れてありがたいような気はする。コンパニオンのお姉さんと、ディーラーのセールスのお姉さん、どっちかというとセールスさんのほうが色々話できて楽しい件ではごきげんよう。
2019.12.07
コメント(0)
この前撮った通天閣の写真を、白黒にしてみました。ついこの前取った写真はとは思えない。変わらないねーとはいえ、あやしげだった新世界は、今やすっかりキレイになって、安心して訪れられる観光地ですね。ちょっと寂しい気もするけどね・・・【送料無料】泣いたらアカンで通天閣/木南晴夏[DVD]【返品種別A】ではごきげんよう。
2019.12.06
コメント(0)
久しぶりに大阪に行ったんですが、梅田、あっちこっち工事中で、わからんなってる。。。地元なんですけどね地下に入ると真剣に迷った。下手に昔の記憶があるだけに、余計に混乱するのかもね。あと、片町線の変わりように驚き。おおさか東線ができて、駅名が変わってたり。高架になって線路がよくなって揺れなくなったのにも驚き。[鉄道模型]グリーンマックス (Nゲージ) 50633 JR201系体質改善車「おおさか東線全線開業PRラッピング」 6両編成セット(動力付き)どうでもいいけど、電車遅れてて、一本前の快速に乗れた〜って喜んだんだけど、遅れてるので着く時間は結局一緒ってってことに気づいて泣いたではごきげんよう。
2019.12.05
コメント(0)
近所のパン屋さんの広告なんですけどなんでシイタケ? と思った。これ以来、何回もこのイラストが入った広告が来るので、私以外の人はきっとハード系のパンに見えるのでしょう。本当にシイタケだったらゴメン謝る。さすがにしいたけパンは存在しない模様。しいたけパンケーキミックスはあるらしい。5%還元 大分県産杵築市産小麦 カンカンしいたけパンケーキミックス 139g×5袋セット 活用レシピ付き ホットケーキ 天日干し原木椎茸 東京農業大学協働開発 新庄農地利用組合【送料無料】【お年賀クーポン】ではごきげんよう。
2019.12.04
コメント(0)
この前、出張に行くときに気づいたんですがスマートEXで買った新幹線の切符、行きと帰りで値段が違う・・・?別にエラーでも何でもなくて、実は新幹線にも「繁忙期」「通常期」「閑散期」があり、日付によって指定席特急料金が違うらしい。えええぇ〜今まで新幹線なんて数え切れないぐらい乗ってるけど、全く気づかなかった!意外と知らない人、多いんじゃないですかね?googleの検索窓に「新幹線 行きと」って打った時点で「新幹線 行きと帰りで値段が違う」って候補が出てきますから・・スマートEX で検索すると、これが引っかかったキースマート EXTENDED キーオーガナイザー アルミニウム仕様 青色/送料無料(北海道沖縄離島除く)ではごきげんよう。
2019.12.03
コメント(0)
みかんに絵を書くのが、我が家では地味に流行中。まあ、私が率先して書いているんですが(笑)可愛く描けたやつは食べづらいわ・・・果物猫アロマストーン・みかん K6519ではごきげんよう。
2019.12.02
コメント(0)
ハムスター、また飼い始めました。娘が友達のところからもらってきたらしい。前にいたヤツとちがって、コヤツはおとなしいです。寝てるのか起きてるのか、居るのかいないのかわからない。前のヤツはケージから脱走しましたが、コヤツにはそんな気配はない。同じハムスターでも性格が違うとこれほどちがうもんか・・・またハムケツを拝めると思うと、うれしい♪【バーゲンブック】かわいさに悶絶 ハムケツ【中古】ではごきげんよう。
2019.12.01
コメント(0)
全31件 (31件中 1-31件目)
1