かれこれ動き始めてから2ヶ月が立とうとしているが、未だ着工の日取りに目処がたっていない。
○電機にお願いしているのだが、あれこれ素直にことが運ばないことがわかった。
それは、補助の関連だ。
まず市の補助に取り掛かってみた。
ここでは金利の優遇措置が図られていたのだが、どう書くのか尋ねたままの内容を書き出して市に郵送した。
そして、提携金融機関にその書類が回り銀行から審査はすぐ降りたのだ。
それまでは順調だったのだが、問題はその提携金融機関に送った資料の内容にあった。
その金額とは、一応頭金を出したいと思いその金額を○電機の見積金額から差し引いた。
それから、国の補助1kw7万円なので今回取り付ける太陽光発電出力分20万円弱をさらに差し引いた。
その両方をあわせて、見積金額から差し引いた金額がローンの金利優遇措置の対象金額となった。
ところがだ・・・
○電機は見積の金額は全額支払いを要求してきた。
となると、国の補助の金額は申請から約3ヶ月後に振り込まれることとなる為、一時その金額は不足するという事態に陥ることとなることが判明した。
たしかにそれは当然のはなしだが、これには経緯がある。
○電機は最初、市の金利優遇措置は受け入れないという条件で話を進めていたのである。用は自社のローンを使ってくれという条件である。
国の補助分はローンに組み入れて支払いは行い、国から振込みがあった後にそのローンに組み入れてくださいとのことだった。
そういう話の為、太陽光発電の導入を見送ることにしたのである。
ところが、○電機からその条件を使用して設置をもう一度検討してくれないかという申し入れがあった。
かなり丁重な受け答えだったので、検討し直してみることにした。
そして、現調も先に行って取り付けに問題がないかを確認もとった。大体その現調も初めは無かったのである。
そして市からの補助のOKが出て今度は国の補助に取り掛かったというわけだ。
とりあえず打てる手はこうだと思う。
①国の補助以外の金額を支払い、国の補助が出た段階で最終の支払いを行う。
これは○電機さんから全額を支払ってくれと要請が出た。
②国の補助が出るまで工事を中断する。下手すると2~3ヶ月かかるがそれがゆるされるかどうかが問題
③最終手段。国の補助分を一時立替
大体こんなことを考えなければならないこと自体ナンセンスだとおもわないだろうか・・・
市の申請は、最初に送った資料に間違いがあるから直せと言われて書き直して最送付したのである。さらに判りやすいように、別紙で見積金額から差し引く内容を添付して市に送ったのである。
○電機も柔軟に対応しているつもりだとは思うが、ここが本当に柔軟に対応してほしい部分だとおもうのだが…他のみなさんはどうだと思うだろうか・・・
この状態で途中でおかしいと気づいて対応することは困難
やはりこの手は資金に余裕がなくてはならないと痛感した・・・
2010年7月12日月曜日
2010年7月5日月曜日
vb.net DataGridViewの内容を1行1ページずつ印刷する PrintDocument
データベースからPrintDocumentに印刷をする場合はいろいろなサイトで紹介されているが、DataGridViewを印刷し且つ、複数ページで印刷をする場面の紹介がないので考えてみました。
ようやくPrintDocumentの挙動がすっきりしました。
今回の例は1行1ページで印刷する場合です。
結果は以下に
'------------------------------------------------------------------------------------------------
Dim CurrentPage As Integer '現在のページ数を記録する
Dim EndPage As Integer '最終ページ
'------------------------------------------------------------------------------------------------
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
CurrentPage =0 'ここで初期化。
EndPage = DataGridView1.NewRowIndex-1'データグリッドの最終行
PrintDocument1.Print()
End Sub
'------------------------------------------------------------------------------------------------
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
CurrentPage =0 'ここで初期化。
EndPage = DataGridView1.NewRowIndex-1'データグリッドの最終行
PrintPreviewDialog1.ShowDialog()
End Sub
'------------------------------------------------------------------------------------------------
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim f As Font
f = New Font("MS ゴシック", 16) Dim
P1 As New Pen(Color.Blue, 1)
e.Graphics.DrawString(Trim(DataGridView1.Rows(CurrentPage).Cells(3).Value), f, Brushes.Black, 50, 300)
If CurrentPage= EndPage Then'最終ページの場合はe.HasMorePages = False それ以外は次ページ
e.HasMorePages = False
Else
e.HasMorePages = True
End If
CurrentPage += 1
End Sub
'------------------------------------------------------------------------------------------------
以上でLoop処理は不要で出来る。
LoopやFor処理は1ページで20行を印刷する場合などになります。
ページと行管理をきちんと行うことになります。
ようやくPrintDocumentの挙動がすっきりしました。
今回の例は1行1ページで印刷する場合です。
結果は以下に
'------------------------------------------------------------------------------------------------
Dim CurrentPage As Integer '現在のページ数を記録する
Dim EndPage As Integer '最終ページ
'------------------------------------------------------------------------------------------------
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
CurrentPage =0 'ここで初期化。
EndPage = DataGridView1.NewRowIndex-1'データグリッドの最終行
PrintDocument1.Print()
End Sub
'------------------------------------------------------------------------------------------------
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
CurrentPage =0 'ここで初期化。
EndPage = DataGridView1.NewRowIndex-1'データグリッドの最終行
PrintPreviewDialog1.ShowDialog()
End Sub
'------------------------------------------------------------------------------------------------
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim f As Font
f = New Font("MS ゴシック", 16) Dim
P1 As New Pen(Color.Blue, 1)
e.Graphics.DrawString(Trim(DataGridView1.Rows(CurrentPage).Cells(3).Value), f, Brushes.Black, 50, 300)
If CurrentPage= EndPage Then'最終ページの場合はe.HasMorePages = False それ以外は次ページ
e.HasMorePages = False
Else
e.HasMorePages = True
End If
CurrentPage += 1
End Sub
'------------------------------------------------------------------------------------------------
以上でLoop処理は不要で出来る。
LoopやFor処理は1ページで20行を印刷する場合などになります。
ページと行管理をきちんと行うことになります。
2010年5月8日土曜日
太陽光発電の導入基準
いろいろな話が出ているが結論として以下の用に考える
初期導入費にて発電 4Kw以上で230万で設置が可能ならば導入の検討に値する。
この数字、見積を出してもらうとわかると思うがなかなか出ない数字である。
これは屋根の形状にも大きく左右されるので実際下見をしてもらわなければわからないし、そうしない業者はかなり疑わしい。
さらにエコキュートや太陽光発電とは関係ないものの導入を進める業者もおかしい。
どうしてかと言うと、15年スパンでうまくゆけば初期コストを吸収できるかもしれないが、それ以降が問題。 このコスト吸収は太陽光発電のみの話である。
パワコン、屋根の修理等でかかる費用で20年以降はコストが逆転してしまう計算になる恐れが大きくなるからである。そうなると本末転倒でその時点での判断するしかないが、発電量が3Kwと4Kwでは発電量にかなりの差があり初期コスト早期吸収も可能であるから、今後にかかる費用を先に捻出できる可能性がある。それで上記の金額は一つの目安になると思う。
しかも多結晶の場合は20年とかで発電効率が著しく下がることを考えると、長く使用した場合は結果的にマイナスになることが予想される。
一般に言われている中で30年すぎても使えているのは単結晶の実績である。
初期導入費がこの計算の対比に相当するなら導入してもいいのでは、と思うが導入に際してはこれで稼ごうとかはあまり持たないほうがいいという結果になったので、過度な期待はしてはいけない。
ローンの金利、メンテナンスの期間を長めにして検討しよう。
尚、エコキュートやオール電化の場合は、ドリーム8の時間帯にどれだけ多くの電気を回せる生活が出来るかがポイントなのだ。オール電化は安くあがるというのはこの苦労をして始めて体験出来る。なんせ昼間の8分の1の金額なのだから。それをせずに安くならないというのは本末転倒なのである。
これを苦労と思わず生活が出来れば光熱費が本当に少なく済む。これに合わせて太陽光発電で売電するということが大事だと思う。昼間の電気使用量を節約する意識を高めることこそが本来の意味なのではないか
初期導入費にて発電 4Kw以上で230万で設置が可能ならば導入の検討に値する。
この数字、見積を出してもらうとわかると思うがなかなか出ない数字である。
これは屋根の形状にも大きく左右されるので実際下見をしてもらわなければわからないし、そうしない業者はかなり疑わしい。
さらにエコキュートや太陽光発電とは関係ないものの導入を進める業者もおかしい。
どうしてかと言うと、15年スパンでうまくゆけば初期コストを吸収できるかもしれないが、それ以降が問題。 このコスト吸収は太陽光発電のみの話である。
パワコン、屋根の修理等でかかる費用で20年以降はコストが逆転してしまう計算になる恐れが大きくなるからである。そうなると本末転倒でその時点での判断するしかないが、発電量が3Kwと4Kwでは発電量にかなりの差があり初期コスト早期吸収も可能であるから、今後にかかる費用を先に捻出できる可能性がある。それで上記の金額は一つの目安になると思う。
しかも多結晶の場合は20年とかで発電効率が著しく下がることを考えると、長く使用した場合は結果的にマイナスになることが予想される。
一般に言われている中で30年すぎても使えているのは単結晶の実績である。
初期導入費がこの計算の対比に相当するなら導入してもいいのでは、と思うが導入に際してはこれで稼ごうとかはあまり持たないほうがいいという結果になったので、過度な期待はしてはいけない。
ローンの金利、メンテナンスの期間を長めにして検討しよう。
尚、エコキュートやオール電化の場合は、ドリーム8の時間帯にどれだけ多くの電気を回せる生活が出来るかがポイントなのだ。オール電化は安くあがるというのはこの苦労をして始めて体験出来る。なんせ昼間の8分の1の金額なのだから。それをせずに安くならないというのは本末転倒なのである。
これを苦労と思わず生活が出来れば光熱費が本当に少なく済む。これに合わせて太陽光発電で売電するということが大事だと思う。昼間の電気使用量を節約する意識を高めることこそが本来の意味なのではないか
2010年5月4日火曜日
いびき対策 枕がカギ?
10数年以上か、いやもう何年いびきになやまされ続けたであろうか・・・
この前、枕外来というものを見たのだが見よう見まねで似たようなことをやってみた。
この内容のことは前にも放送されていて良く分からないで終わったが、今回は高さを合わせるポイントのさわりがわかったので実践してみた。
仰向けに寝て高さをちょうどよい高さに合わせる
これはいまいち良くわからなかった。枕は高すぎたらイビキがひどくなると思ったので、低めにしてかなりの長い間をそれで過ごしてきた。
ところがだ・・・
もう一つのポイントとして、寝返りをする際に簡単に横に向きが変えられるように枕の高さを調節する。
こいつがやってみると以外と枕を高くしないと簡単にコロンコロンと横に出来ないことが分かった。
特に頭がころころ横になるくらいが丁度いい。
(枕外来では頭を横にした場合は、床と頭が平行になるようにと説明している)
そこで簡単にコロンコロン出来る高さを見つけて仰向けに寝てみるとこれが以外と高く感じなかった。
この状態で何日が過ごしてみたところ、イビキの様子が変わってきたらしい。
自分では確かめられないので・・・
しばらく様子を見てみようと思う
この前、枕外来というものを見たのだが見よう見まねで似たようなことをやってみた。
この内容のことは前にも放送されていて良く分からないで終わったが、今回は高さを合わせるポイントのさわりがわかったので実践してみた。
仰向けに寝て高さをちょうどよい高さに合わせる
これはいまいち良くわからなかった。枕は高すぎたらイビキがひどくなると思ったので、低めにしてかなりの長い間をそれで過ごしてきた。
ところがだ・・・
もう一つのポイントとして、寝返りをする際に簡単に横に向きが変えられるように枕の高さを調節する。
こいつがやってみると以外と枕を高くしないと簡単にコロンコロンと横に出来ないことが分かった。
特に頭がころころ横になるくらいが丁度いい。
(枕外来では頭を横にした場合は、床と頭が平行になるようにと説明している)
そこで簡単にコロンコロン出来る高さを見つけて仰向けに寝てみるとこれが以外と高く感じなかった。
この状態で何日が過ごしてみたところ、イビキの様子が変わってきたらしい。
自分では確かめられないので・・・
しばらく様子を見てみようと思う
2010年4月8日木曜日
VB.NETでORACLEの接続は使う端末に全てインストールが必要
個人で開発をする場合、どうしてもORACLEのデータ接続の壁に当たってしまう。
C/S環境ならば当然だと思うだろう。
自分の会社で使用するVB.NET2005のバージョンの基幹システムでは、クライアント端末にOLACLEの設定は一切しないがデータが表示される。
最初はどうしても信じられなかったが、端末にインストールされている一覧に本当にORACLEの文字は一切ない。
がしかし動いている。
本当にそんなことが出来るのかと思い調べてみたが、結果的に個人で使用する分としてはその方法は出来ないらしい。使用する端末すべてにOracleを使う環境をインストールしなければならない。
非常に残念なことだ。
oracleがそんなにいいのか?・・・個人レベルではとにかくお金がかかるものは手が出ない。
なぜそういうことになるのかといえば、
そこですぐに手が出せるものといえばマイクロソフトのSQLServerだろうと思う。
.NETで構築すると、Windows認証さえおわらせておけば後は、配布するVB側のクライアントの設定は一切しないで動かすことが出来る。
使い出したらSQLSERVERは初心者に非常に優しいと思うし、VB.NETで開発をした場合はWeb環境にも引けをとらないくらいメンテナンスフリーでアプリを展開出来る。
Accessを使えるならSQLServerはお勧めだ。
Oracleには疑問がつく。Oracleだから安心っていうのは、安易なのではないだろうか。
中小企業で扱うにはSQLServerもOracleも変わらないと思う。
しかし、自分で手を加えようともくろんでいる方はSQLServerが断然有利と判断する。
Oracleはそういう人たちのニーズを見過ごしている。潜在的にはかなりの人がそう思っていると思うし実にもったいないと思わないか。
C/S環境ならば当然だと思うだろう。
自分の会社で使用するVB.NET2005のバージョンの基幹システムでは、クライアント端末にOLACLEの設定は一切しないがデータが表示される。
最初はどうしても信じられなかったが、端末にインストールされている一覧に本当にORACLEの文字は一切ない。
がしかし動いている。
本当にそんなことが出来るのかと思い調べてみたが、結果的に個人で使用する分としてはその方法は出来ないらしい。使用する端末すべてにOracleを使う環境をインストールしなければならない。
非常に残念なことだ。
oracleがそんなにいいのか?・・・個人レベルではとにかくお金がかかるものは手が出ない。
なぜそういうことになるのかといえば、
そこですぐに手が出せるものといえばマイクロソフトのSQLServerだろうと思う。
.NETで構築すると、Windows認証さえおわらせておけば後は、配布するVB側のクライアントの設定は一切しないで動かすことが出来る。
使い出したらSQLSERVERは初心者に非常に優しいと思うし、VB.NETで開発をした場合はWeb環境にも引けをとらないくらいメンテナンスフリーでアプリを展開出来る。
Accessを使えるならSQLServerはお勧めだ。
Oracleには疑問がつく。Oracleだから安心っていうのは、安易なのではないだろうか。
中小企業で扱うにはSQLServerもOracleも変わらないと思う。
しかし、自分で手を加えようともくろんでいる方はSQLServerが断然有利と判断する。
Oracleはそういう人たちのニーズを見過ごしている。潜在的にはかなりの人がそう思っていると思うし実にもったいないと思わないか。
2010年4月3日土曜日
ユニクロさんは絶好調みたいだが・・・
少し気になるコメントを以前にみた記憶がある。
若い人のコメントだがこうだ。
自分の着ているデザインと同じ服を着た人が歩いている。
それも結構いい歳をしている方だそうだ。
・・・ユニラー・・・ = はずかしい
その若い人の言葉をそのまま言ってしまっては少し問題あるので想像におまかせするが、これはユニクロの考えている価値観と矛盾するのではないか。
ユニクロの方々には知恵を絞ってもらうしかないのではないか。
売るだけではなく・・・
自分流コーディネイトの見本や、服をパーツとして売り
簡単な縫製で作成や、自分が着せ替えでなく服を着せ替え(一部をの取り替え)とかは意味ないかな?
ターゲット層が広すぎて思わぬところに問題はないのだろうか?
そういう企業はそんなにないと思うが。
若い人のコメントだがこうだ。
自分の着ているデザインと同じ服を着た人が歩いている。
それも結構いい歳をしている方だそうだ。
・・・ユニラー・・・ = はずかしい
その若い人の言葉をそのまま言ってしまっては少し問題あるので想像におまかせするが、これはユニクロの考えている価値観と矛盾するのではないか。
ユニクロの方々には知恵を絞ってもらうしかないのではないか。
売るだけではなく・・・
自分流コーディネイトの見本や、服をパーツとして売り
簡単な縫製で作成や、自分が着せ替えでなく服を着せ替え(一部をの取り替え)とかは意味ないかな?
ターゲット層が広すぎて思わぬところに問題はないのだろうか?
そういう企業はそんなにないと思うが。
登録:
投稿 (Atom)

