| ハクキンカイロの燃料 |
| |
ハクキンカイロの燃料は、純正のハクキンベンジン、特製カイロ用エビスベンヂン、オクダ化学工業カイロ用ベンジンが主な商品です。
ネットで調べると、純正のハクキンベンジンが一番高く７００円位、次に安いのが特製カイロ用エビスベンヂンで４５０円位、一番安いのがオクダ化学工業カイロ用ベンジンで３５０円位と
なっています。一番安いのだと、純正のハクキンベンジンより半値位で手に入ります。ネットでの評判は、純正のハクキンベンジンの評判が一番高く、その次が特製カイロ用エビスベンヂン、
オクダ化学工業カイロ用ベンジンは、余り評判は良くありません。主な評価は、純正のハクキンベンジンだと、熱量が高いとか、持続時間が長いとかで、評判が高いです。
しかし純正以外だと、熱量が低いとか、持続時間が短いとかで、あまり評判が良くありません。特に、オクダ化学工業カイロ用ベンジンの評判は一番悪く、熱量が低く、持続時間が短い
との評価です。しかし、私は、オクダ化学工業カイロ用ベンジンを使用しています。
ハクキンカイロのベンジンの熱量と持続時間は、基本的にどのメーカーのベンジンでも殆ど変らないと思っております。純正のハクキンベンジンでも、毎日同じ量の燃料を使用していても、熱量とか持続時間にバラツキが出ます。日によっては、持ち時間が１時間位短い時があります。同じ純正のハクキンベンジンでもこの様な
現象が起こります。当然燃料事態は同じなので、本来はおかしな話だと思います。
|
| |
| １２月３１日 |
| |
今日の最低気温は、-2.9℃です。ハクキンカイロが届きました。早速使用しました。使い捨てカイロより少し重たいです。吊りカイロベルトに入れて使用しておりますが、厚みがあるので、少しだけ膨らんだ感じです。２日、３日使用しないと今の所、欠点等がわかりません。
|
| １２月２８日 |
| |
今日の最低気温は、-1.8℃です。今日は、朝起きたら、雪が積もっていました。少しだけですが。彦根では雪が10cm積もっているみたいです。アメダスの観測情報ですが。信楽は、積もったと言うより、少し白い感じで積雪は1mm位だとおもう。本日ついにアマゾンでハクキンカイロを注文した。2100円もしました。専用ベンジン、送料とかで全部で3100円掛かりました。使い捨てカイロとどちらがよいのか、少し不安ではありましが、着いてからの楽しみにしておきます。
|
| １２月２５日 |
| |
今日の最低気温は、0.4℃です。今日は、愛知県の田原に仕事で出かけました。客先のエアコンが壊れてみたいです。それも今日から。うー。寒いよと心の中では叫んでおりました。仕事で出かけるところが特定できず、どこに行くかは仕事次第で変ります。寒い所もあれば、暖房が全くないところ、外で吹きさらしと千差万別です。ただ出かける時は、コンピュータ屋ですので、背広で出かけますが、背広だと厚着できないのがつらいです。夏でも冬でも、背広、カッタシャッツ、下着の３枚しか着用しないのです。背広の下に厚めの衣類を着込む事は見苦しいので。今日も当然、背広、カッタシャツ、下着だけの３枚です。寒くてもこのスタイルは崩せないので。ここで役に立つのが、吊りカイロベルトです。これさえあれば、幾ら寒くても、耐えられます。今日も吊りカイロベルトのお陰で、肩とか腕、手とかは寒く冷たくて困りますが、腰とか胸は、カイロのお陰で温かいので、風邪も引くこともなく、震えもなく、過ごす事が出来ました。
|
| １２月２２日 |
| |
今日の最低気温は、1.5℃です。今日は冬至です。一番日が短いです。これから、少しずつ日が長くなります。案外ご存知ではない方がおられると思いますが、大体一日過ぎる事に約２分ずつ日が長くなるのです。１ケ月で６０分日が長くなります。そんなにと思われる方がおれれますが、概算の計算では間違いないと思っております。一番短いと午後４時４５分位に暗くなります。長いと午後７時４５分位で暗くなります。この時間が約３時間です。ただし朝方も３時間あるので合計６時間あります。６時間を１８０日で割ると１日約２分になるのです。１０日過ぎるだけで、朝夕混ぜて２０分日が短くなったり長くなったりしているのです。予想外と思われる方が結構おられます。殆どの方は１０日で２０分と言われると驚かれます。
|
| １２月１９日 |
| |
今日の最低気温は、4.2℃です。ここ最近、0℃を超えている日が続いています。このまま年末まで暖かいと助かりますが。週明けからまた寒くならないか心配です。
|
| １２月１７日 |
| |
今日の最低気温は、2.1℃です。体感温度はもっと寒く感じます。仕事でお客様の所によく出かけます。現地調整なのですが、コンピュータの現地調整なので、現場で身体を動かす事は殆どない。当然コンピュータだから、事務所で暖かい所ばっかりと想像されることでしょう。しかし、現場によっては、吹きさらしの所もあります。特に、工場関係とかだと悲惨です。暖房は全く効いていない。しかも、外の風が入り込んでくるとかだと悲惨です。防寒着を着ていても駄目な所もあります。こんな時は、この吊りカイロベルトを着用しておれば、全く寒く感じないのがよいです。
|
| １２月１４日 |
| |
今日の最低気温は、-0.1℃です。今日は愛知県江南市にいきました。名古屋の最低気温は、0.3℃です。殆ど信楽とかわりませんでした。江南市は横は岐阜ですが、岐阜は豪雪地域でこれから大変だと思います。まだ雪は降っていないみたいです。
|
| １２月１３日 |
| |
今日の最低気温は、-5.1℃です。突然寒くなりました。今冬最低の気温になりました。本格的な冬到来です。箱館山スキー場は、本日がオープンです。スキーには是非、吊りカイロベルトが一番寒さ対策にはよいと思います。 |
| １２月１２日 |
| |
今日の最低気温は、1.5℃です。今日も大変暖かいとの事です。新潟、富山では大雪みたいです。日本海側は、これから雪との戦いだとおもいます。幸い信楽は殆ど雪はふりません。滋賀県で一番雪が降らない地域です。寒さは、滋賀県、いや関西で一番寒い所ですが、雪は殆ど降らないのです。雪が降るよりは、多少寒くても、雪がない生活はやはり快適だと思います。雪が降ると外に出向くのも億劫になります。 |
| １２月１１日 |
| |
今日の最低気温は、3.8℃です。なんと3.8℃。今日は大変暖かいとの事ですが、外に出ると相変わらず寒いです。大変寒がりですので、よほど気温が高くないと暖かく感じません。信楽には、アメダスの観測所があります。最低気温はアメダスの信楽の気温です。わずか800m位の離れた所にあります。故に、気温は大変正確です。ただ信楽町全体の気温からだと、アメダスのある場所は、一番暖かい所になります。信楽全体の気温は、本当はもっと低いと思います。 |
| １２月０９日 |
| |
今日の最低気温は、-4.5℃です。わずか１日で、また寒さ逆戻りです。使い捨てカイロは、ひと冬で５０００円程つかいます。ハクキンカイロに変えようか迷っています。費用的には殆ど変らないと思います。案外ベンジン代金も結構すると思います。１本７００円程しますが、毎日使用すると、６本程必要かなと思っています。もちろんカイロは２個使用する計算です。ただハクキンカイロは、匂いが多少気になります。電車等混雑した所での使用は、周りの人に気を使わないといけないと思う。カイロを使用した状態で、いつどこで、多くの人に出会うかいつも気にしてなくてはいけないも疲れるしね。 |
| １２月０８日 |
| |
今日の最低気温は、2.5℃です。なんと、温度がマイナスからプラス側にかわった。久ぶりだ。今日は朝から雨が降っていたから、大気の放熱が妨げられたからだと思う。いずれにせよ暖かい事は大変うれしい。今日は吊りカイロベルトを使用しなかった。いや忘れてしまったのが正しい。でもなんとか過ごせた。明日も暖かいとよいのですが？。 |
| １２月０７日 |
| |
今日の最低気温は、-1.4℃です。昨日は、近江八幡へいきました。篠原駅の前を通りましたが、篠原駅は50年程前と殆ど変っていまでんでした。駅の近くに小さな平和堂がありましたが、それ以外は、ほとんどなにもなく、駅前の駐輪場は、50年前もあった気がします。東海道線沿いの駅としては余り発展していないのが不思議です。昔は駅前にうどん屋がありましたが潰れたみたいです。 |
| １２月０５日 |
| |
今日の最低気温は、-1.0℃です。最近の１０日間では一番暖かい日になりました。出来たら0℃を超えたいところだが、無理なんだろ。暖かくても、寒くても、10月から翌年4月までは、吊りカイロベルトは毎日愛用しております。だから、ここ６年以上風邪を引いた事がないです。 |
| １２月０４日 |
| |
今日の最低気温は、-2.8℃です。今日は、三重県津市に仕事でいきました。消費税の８％対応のプログラムの変更作業をしました。ぼつぼつ来年４月に備えて、消費税の変更作業をしていますが、来年４月１日が怖いです。どこから電話が掛かってくるか不安で仕方がないです。完璧なプログラムってなかなか作れないし。マイクロソフトでもバグを出しているんだから。バグがあれば、悲惨だよ。４月が怖い。津の最低気温は4.6℃だ。水が氷っていないって幸せだな。信楽はもう最低気温は0℃以上には当分ならないかも。 |
| １２月０３日 |
| |
今日の最低気温は、-1.4℃です。今日も、比較的暖かいです。使い捨てカイロは、インターネットで購入するより、ホームセンター等で買う方が安いです。なぜなら、使い捨てカイロは、ホームセンター等では、客よせの為に、赤字覚悟で安売りするからです。カイロで客を釣る訳けです。カイロで損をしても、客を多く寄せる事に目的が置かれるのです。使いすてカイロは、客寄せ効果がかなりあるみたいです。ただし、１２月までで、１月以後になると、極端に高くなります。それは、１月になれば、使い捨てカイロを仕入れないからです。今ある在庫で３月末まで持たさないと駄目だからです。 |
| １２月０２ |
| |
今日の最低気温は、-1.6℃です。今日は、比較的暖かいです。それでもカイロが手放せないです。毎日２個使い捨てカイロを使っています。１ケ月６０個。１冬約３２０個も使っています。いかに安く購入するか苦労しています。 |
| １２月０１ |
| |
今日の最低気温は、-3.4℃です。１２月に入りました。本格的な冬到来。これから２月までが大変。気温がどれだけ下がるのかとても不安です。 |
| １１月３０ |
| |
京都市北区西賀茂に仕事でいきました。最低気温は、1.9℃でした。当然凍っていないし、恐らく霜もないのでしょう。信楽は相変わらず、-3.4℃で、凍てつく位寒いです。吊りカイロベルトさまさまです。 |
| １１月２９ |
| |
午前４時の気温は、なんと-4.1℃です。朝の８時ですが、外は霜がいっぱい。一面が白いです。外の水は凍っています。こんな時、屋外で作業される方は大変だと思います。 |
| １１月２８ |
| |
今日の最低気温は、-2.9℃です。寒くて身体が縮みそう。同じ滋賀県の彦根の最低気温は 2.9℃だ。気温差が６℃近くある。彦根は暖かい。うらやましい。やはり、信楽は寒い |
| １１月２６ |
| |
ここ最近朝夕、めっきり冷えてきています。特に信楽は、関西で一番寒いところです。寒いと仕事もなかなかはかどらない事があります。 |
| |
| DataGridViewで左右のスクロール位置を制御するメソッドがありません。FirstDisplayedScrollingColumnIndexで左側の最初のセル位置を指定しても、固定セルが複数ある場合、上手くいきません。固定セルがない場合は、 FirstDisplayedScrollingColumnIndexを指定すれば上手くいく時もあります。しかし、時たま右端のセルが表示されない時があります。下記のサンプルは、強制的にプログラムで水平スクロールバーをマウスでクリックした状態にして、強制的に右端のセルを表示します。下のサンプルは複数の固定セルを指定していても動作する様にしてあります。 |
| |
Public Class Form1
＜System.Runtime.InteropServices.DllImport("USER32.DLL")＞ _
Private Shared Sub mouse_event( _
ByVal dwFlags As Integer, ByVal dx As Integer, _
ByVal dy As Integer, ByVal cButtons As Integer, _
ByVal dwExtraInfo As Integer)
End Sub
Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10
Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8
Private Sub DataGridView1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellChanged
Dim headerWidth As Integer = DataGridView1.Rows(0).HeaderCell.Size.Width
Dim cellWidth As Integer = DataGridView.ClientSize.Width - headerWidth
Dim colIndex As Integer = DataGridView.CurrentCell.ColumnIndex
' カレントセルが隠れる場合は、右端に表示されるようにする
For i As Integer = colIndex To 0 Step -1
If DataGridView.Columns(i).Displayed then
cellWidth -= DataGridView.Columns(i).Width
If cellWidth <-55 Then
Timer1.Interval=200
Timer1.Enabled = True
Exit For
end if
End If
Next
End Sub
Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled=False
Cursor.Position = New Point(Me.Left + MyGrid1.Left + MyGrid1.Width - 50, Me.Top + SystemInformation.CaptionHeight + MyGrid1.top + MyGrid1.Height-5)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub
|