いつものガソリンスタンドで洗車
2,000円
メモ
買い物:空気清浄機
空気清浄機購入
空気清浄機(シャープ FU-A30)というのを長年使ってましたが、ついに変な音がしだしました。
フィルター台も高いし(買い物:空気清浄機フィルター)、煩くて使えないので購入を決定。
いまって空気清浄機のみのやっつってあんまりないんですよね。
ビック、ヨドバシにもあんまりいいの無かったのでAmazonで購入。
シャープ FU-S50-W \17,756円
フィルター台も高いし(買い物:空気清浄機フィルター)、煩くて使えないので購入を決定。
いまって空気清浄機のみのやっつってあんまりないんですよね。
ビック、ヨドバシにもあんまりいいの無かったのでAmazonで購入。
シャープ FU-S50-W \17,756円
買い物
VisualBasic:電卓を作ってみる 2
VisualBasicで電卓を作ってみる 2
1. 基本ボタン
ボタン欄にベースとなるボタンをButtonLayoutに1つだけ追加します。
追加位置は1列1行目とします。
2. ボタン配置 (考察)
3. ボタンクラス
ボタン欄にベースとなるボタンをButtonLayoutに1つだけ追加します。
追加位置は1列1行目とします。
Name:CalcButton
Cell:0,0
Dock:Fill
Font:Size:36
Cell:0,0
Dock:Fill
Font:Size:36
2. ボタン配置 (考察)
基本ボタンをコピーしすべてのボタンを配置していきます。
付属電卓では3種類のボタンがあり、それぞれ色分けがされています。このデザインをパクリます。
ボタンの種類:
ボタンの配置は基本ボタンをプログラムにてコピーする予定ですが、レイアウト設定をどのように行うか考え中。。
2次元配列を持たせて、そこにボタンのキャプションを持たせる手もある。
でも、これだとボタンの色をどうするか?ボタンを押した処理をどうするか?
のうまい知恵が思いつきません・・
今回は単純にボタンの処理クラスを作って、そこに座標、色、クリック時の処理、を持たせてコレクション化することにします。
ボタン配置はこのコレクションをループさせて配置する、という流れです。
→ 座標を持たせるのは止めます。
座標を持たせてしまうと、ボタンの位置をずらしたい時に、修正範囲が広くなってしまうから。
表示位置は、単にコレクションへの登録順とします。
付属電卓では3種類のボタンがあり、それぞれ色分けがされています。このデザインをパクリます。
ボタンの種類:
(a) 数字ボタン (少し明るいグレー)
(b) 演算ボタン (少し暗いグレー)
(c) イコール (ピンク)
(b) 演算ボタン (少し暗いグレー)
(c) イコール (ピンク)
ボタンの配置は基本ボタンをプログラムにてコピーする予定ですが、レイアウト設定をどのように行うか考え中。。
2次元配列を持たせて、そこにボタンのキャプションを持たせる手もある。
dim buttonLayout(,) As String {
{"%","CE","C","←"},
{"1/x","x2","2√x","÷"},
{"7","8","9","×"},
:
}
といった感じで。でも、これだとボタンの色をどうするか?ボタンを押した処理をどうするか?
のうまい知恵が思いつきません・・
今回は単純にボタンの処理クラスを作って、そこに
ボタン配置はこのコレクションをループさせて配置する、という流れです。
→ 座標を持たせるのは止めます。
座標を持たせてしまうと、ボタンの位置をずらしたい時に、修正範囲が広くなってしまうから。
表示位置は、単にコレクションへの登録順とします。
3. ボタンクラス
先ほどの検討結果を踏まえて、ボタンクラスの構造を考えます。
・すべてのボタン共通のインターフェースクラス ICalcCommand
・すべてのボタン共通のインターフェースクラス ICalcCommand
登録:
コメント (Atom)
その他の記事
-
自宅には デスクトップPC(Win10Pro) と ノートPC(Win10Home) があるが、デスクトップPCのモニタが故障してしまった。 ということで、しばらくはノートPCからデスクトップへリモートデスクトップ接続し操作を行うことで代用しようと思うが、 そう...
-
au SHL23でEメールを受信しようとすると「本体メモリ空き容量不足」となり受信できない。 対処 ・他のアプリでキャッシュを大量に消費しているものがあればキャッシュを削除する。 ・不要なアプリはアンインストールする 今回はこれで受信できるようになった。 ...
-
リモートデスクトップ接続しようとすると「お使いの資格情報は機能しませんでした」と表示され接続できない。 状況 ■ リモート側 ・Windows7 Pro:Workgroup環境 ・システムのプロパティ → [リモート]タブでリモートデスクトップの設定を「ネッ...
-
iPhone7とPCをUSB(USB2.0)で接続し、エクスプローラにてiPhoneの写真とビデオ(Apple iPhone\Internal Storage\DCIM)をPCにコピーする。 その際、複数ファイルを選択しPCへ移動させると、高確率で「デバイスに到達できません」...
-
BitLockerを有効化した際、どの程度暗号化が進んでいるのか分からない。 進捗を確認するには? コマンドプロンプト(管理者)で "manage-bde -status" コマンドで確認できる。 C:\Windows\sys...
