少し過ごしやすくなってきましたが、ぶり返しがあるらしいのでガクブル〜ですね。そう言えば、熱中症には麦茶とお煎餅がナイスな組合せだそうです。
火曜日, 9月 15, 2020
月曜日, 9月 14, 2020
カーソル位置強調のkokomiteがナイス
起動するとこのパレット蛾出て来ます。［ON］で実行［設定］が環境設定になります。
上はデフォルトの状態。
デフォルトだと直径80pixelの黄色い円になります。
赤いリング形状に変更し観ました。
変更後の状態です。
とにかく上長型ではないのが素晴らしいです。必要なときにサクッと使えるのはありがたいですね。
kokomite
日曜日, 9月 13, 2020
ティッシュなどの埃よけにペットボトル
キムワイプやティシュペーパーを使っていると、どうしても埃が気になってしまいます。そこで一発芸的な工作で問題解決？・・・かな。
スリットの入ったビニールから出ているので、中に埃が入ることはありませんが、どうしても出ている部分が気になります。
そこでペットボトルの上の方を乗せてみたら、これかイイ感じ。見てくれはイマイチですが、デザインより実用ですね。問題は固定方法ですが、グルーガンがベストかな？
Panasonic LUMIX DMC-GF2
LUMIX G VARIO 14-42mm F3.5-5.6 ASPH
LUMIX G VARIO 14-42mm F3.5-5.6 ASPH
土曜日, 9月 12, 2020
modoの基本27
3種類の複製ツールは数値指定が正解
パーツの繰り返し配置などには複製ツールが便利です。modoには3つの複製ツールが用意されていますが、パラメータできっりと設定する練習をすると理解が早いです。
練習用にはシンプルな形状がベストです。場合によっては方向を識別させるために任意のカラーリングを行ってもよいでしょう。
カーブで複製。パス設定に合わせて複製が配置されます。ザックリと設定してから数値処理すると分かり易いです。
スキャッター複製はランダム配置に向いています。同じ者がランダムに二点在しているようなシーンに最適です。
もっとも単純な複製です。方向を性格に設定するタロには天面、正面などに画面を切り替えてから数値設定すると勘違いは防げます。どうしても3D空間に慣れていないと思い込みでミスをしやすいので、要注意です。
TCDW6697
反面教師的なことが多すぎて疲れます
しかし、「この人は本当に大丈夫？」「どう考えたらそんな反応になるの？」「あなた同じ事を自分で言ってましたよね？」みたいに、世の中はあまりにも反面教師的なことが多すぎて疲れますね〜。
金曜日, 9月 11, 2020
Visual Studio Basic_20
簡単なプログラムとデバッグの流れ（補足）
プログラムの記述を勘違いしてしまう方が多いので補足です。
ソースコードはエリアが小さいと可読性が悪くてミスタイプを犯しやすくなります。後述するようにエリアを広げた方がよいでしょう。
なお、ここではソースコードをエリア内に収めるように自動的に改行設定をしていますが、この記号がある場合はあくまでも表示スペースに合わせて自動的に改行しているのであって、実際に改行しているわけではありません。
自動的にスペースに合わせて改行設定にするためにはツールメニューの［オプション］を選びます。
表示されたパレットの［テキストエディタ＞Basic＞全般］にて［テキストを折り返す］と［右端の折り返しの記号を表示］にチェックを入れます。
また、ソース記述の際は、それ以外のパレットは全て閉じてしまった方が良いでしょう。
閉じてしまったパレット類はデザイン面のレイアウト時に必要ですが、その場合は、表示メニューから選択すれば元に位置に表示します。取り敢えずツールボックスとプロパティーが表示されていれば問題ありません。
Visual Studio Basic 2019
木曜日, 9月 10, 2020
Visual Studio Basic_19
PictureBoxで画像表示（ソース修正）
18回目のソースを変更しました。
変更内容はBMI値の計算方法の変更と痩せている場合のアラートです。ただし、とっかんため、太っているときと痩せているときのイラストは同一になっています。修正箇所はButton3のみです。
BMIの計算式は以下に変更しました。
体重/身長の二乗
体重/身長/身長
※体重値はkg、身長値はm単位
で、実際のソースは・・・
「-----------------」は区切り線なので記述の必要はありません。
青字は自動入力部分で修正の必要はありません。
黒字が入力部分です。
赤字はコメント文なので記述の必要はありません。
-----------------
Public Class Form1
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim height, weight, judg, over, under As Single
' height, weight, judg, over, underは単精度浮動小数点型変数
PictureBox2.Visible = False
PictureBox3.Visible = False
' プログラム起動時、PictureBox2と3は非表示
height = Val(TextBox1.Text)
' TextBox1の値を数値変換してheightに代入
weight = Val(TextBox2.Text)
' TextBox2の値を数値変換してweightに代入
over = 25
' overに代入
' BMI値25以上は肥満
under = 18.5
' underに代入
' BMI値18.5未満は低体重
judg = weight / height / height
' weightをheightの二乗で割る
If judg >= over Then
Label4.ForeColor = Color.Red
Label4.Text = "太りすぎです"
PictureBox1.Image = PictureBox3.Image
PictureBox1.Visible = True
' もしjudgがover以上の場合は
' Label4の文字を12pointのMS UI Gothicにし
' 赤の太字で「太りすぎです」を表示
ElseIf judg < under Then
Label4.ForeColor = Color.Red
Label4.Text = "痩せすぎです"
PictureBox1.Image = PictureBox3.Image
PictureBox1.Visible = True
' もしjudgがinderよりも小さい場合は
' Label4の文字を12pointのMS UI Gothicにし
' 赤の太字で「痩せすぎです」を表示
Else
Label4.ForeColor = Color.Blue
Label4.Text = "標準です"
PictureBox1.Image = PictureBox2.Image
PictureBox1.Visible = True
End If
End Sub
-----------------
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
End
End Sub
-----------------
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.ResetText()
TextBox2.ResetText()
Label4.ForeColor = Color.Empty
Label4.ResetText()
End Sub
End Class
-----------------
ソース記述中にエラーがなければデバッグです。
BMI値が18.5以下の場合
BMI値が18.5以上25以下未満の場合
BMI値が25以上の場合
BMI値の計算結果による判定は、あくまでも1つの目安です。
Visual Studio Basic 2019
登録:
投稿 (Atom)
