ふと思ったこと

巷でブームになっているタピオカドリンクを目にすると、トイレにおいてある「消臭ビーズ」が頭に浮かぶのは僕だけか?

カテゴリー: 未分類 | ふと思ったこと はコメントを受け付けていません。

ラドン、また下がりました

昨日夜は48でしたが、本日午後は38まで急降下。

カテゴリー: 未分類 | ラドン、また下がりました はコメントを受け付けていません。

DataGridView

VB.net(2019)で、DataGridViewを使って測定結果を表示したのでメモ。

表示内容は下記。

フォームに貼り付けたものに列を4列作成し、
1列目 HeaderText: 試験項目    name: koumoku
2列目 HeaderText: 測定ポイント  name: point
3列目 HeaderText: 測定値     name: data
4列目 HeaderText: 単位      name: unit

選択表示(青地の反転)を無効にするためにプロパティのDefaultCellStyle からCellStyleビルダーで

BackColor  LightGray
ForeColor  Black

SelectionBackColor  LightGray
Selection ForeColor  Black

に設定。

コードは、

‘ヘッダー行およびデータ行のフォント
DataGridView1.ColumnHeadersDefaultCellStyle.Font = New Font(“MSゴシック”, 8)
DataGridView1.Font = New Font(“MSゴシック”, 8)

DataGridView1.DefaultCellStyle.BackColor = Color.LightGray ‘背景色

‘行テンプレートの高さ
DataGridView1.RowTemplate.Height = 17
‘行の最低の高さを設定
DataGridView1.RowTemplate.MinimumHeight = 17

‘左端の行ヘッダー不要
DataGridView1.RowHeadersVisible = False

‘データ用各列の幅
DataGridView1.Columns(0).Width = 115
DataGridView1.Columns(1).Width = 130
DataGridView1.Columns(2).Width = 70
DataGridView1.Columns(3).Width = 40

‘ヘッダー行およびデータ行の文字配置 中央振り分け(2行に分かれているが、=以降も1行で書くこと)
DataGridView1.Columns(“koumoku”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(“koumoku”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

DataGridView1.Columns(“point”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(“point”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

DataGridView1.Columns(“data”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(“data”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

DataGridView1.Columns(“unit”).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(“unit”).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

‘セルを編集不可とする
DataGridView1.ReadOnly = True

‘すべての行を削除できないように設定
DataGridView1.AllowUserToDeleteRows = False

‘新しい行の追加を禁止
DataGridView1.AllowUserToAddRows = False

‘以下は6行を表示したとき

DataGridView1.Rows.Add(“電源回路”, “3.3V-1”, “3.28”, “V”)
DataGridView1.Rows.Add(“”, “3.3V-2”, “3.35”, “V”)
DataGridView1.Rows.Add(“”, “5V-1”, “4.98”, “V”)
DataGridView1.Rows.Add(“”, “5V-2”, “5.05”, “V”)
DataGridView1.Rows.Add(“”, “+12V”, “12.1”, “V”)
DataGridView1.Rows.Add(“”, “-12V”, “-12.2”, “V”)

‘特定のセルのみ赤文字 1行目は「0」行として数える

‘↓の場合、1行目の[3.28]が赤表示に

DataGridView1.Rows(0).Cells(2).Style.ForeColor = Color.Red

‘1行すべてを赤文字にするときはこちら

‘DataGridView1.Rows(0).DefaultCellStyle.ForeColor = Color.Red

‘指定行までスクロール(必要に応じて =0は1行目 3行目なら=2)
DataGridView1.FirstDisplayedScrollingRowIndex = 0

 

赤文字の指定は、文字表示(Rows.Add)をした後でないと有効にならない。

確認に使ったのは、Windows 10(32bit) + vb.net (community 2019)

カテゴリー: 未分類 | DataGridView はコメントを受け付けていません。

ラドン急降下

昨日58、本日20時には48まで下がりました。

カテゴリー: 未分類 | ラドン急降下 はコメントを受け付けていません。

国分寺のイオノ波形

こんな国分寺の波形は見た記憶が無いのだけれど何だろう?

カテゴリー: 未分類 | 国分寺のイオノ波形 はコメントを受け付けていません。

トレンドグラフ

コンテックのACX-PACのトレンドグラフ。メーカーではWindows 10では未検証とのことだったが、Windows 10 (32bit)で、動きました。

XPから10へのマイグレーション(移設)は大変です・・。

一つずつ、動作検証中。

カテゴリー: 未分類 | トレンドグラフ はコメントを受け付けていません。

半二重通信の動作をチェック

コンテック製のRS-485ボードの動作チェックの結果。(DPMとの半二重通信)

Windows 10 (32bit) + Visual Studio 2019

デバイスマネージャからプロパティ - 詳細で半二重にチェックしておき、下記のコードで初期設定。

SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 7
SerialPort1.StopBits = StopBits.Two
SerialPort1.Parity = Parity.Even

SerialPort1.RtsEnable = False
SerialPort1.DtrEnable = True

SerialPort1.ParityReplace = 63
SerialPort1.DiscardNull = True

SerialPort1.ReceivedBytesThreshold = 1
SerialPort1.ReadBufferSize = 8192
SerialPort1.WriteBufferSize = 8192

設定後は送受信のみで自動的に切り替わります。RTSをTRUEにするとNGです。

構造体の定義やAPIとのやり取りは必要ありませんでした。

カテゴリー: 未分類 | 半二重通信の動作をチェック はコメントを受け付けていません。

今日のラドン

更に上がって、11時半現在 60。

カテゴリー: 未分類 | 今日のラドン はコメントを受け付けていません。

ラドン急上昇

3日  36

4日  42

5日 56

 

 

カテゴリー: 未分類 | ラドン急上昇 はコメントを受け付けていません。

お金を拾いました・・の続き

以前、お札を2枚拾ったことを書きました。最寄りの警察に出向いたところ、落とし主は現れなかったということで6千円を引き取り。

どこへ寄付しようかと迷いましたが、自分の財布から同額を足して「れいわ新選組」へ寄付(政治献金)することにしました。

実は今年夏の選挙前にも寄付したんですよ・・。

山本太郎くんの頑張りに少しでも役に立てればと。

本当か?と思う方は、総務省の公開する政治資金収支報告書を見ればわかります。ちなみに昨年分はもうじき公開になるはず。

どの政党、どの議員に誰が寄付したかが分かるので、なかなか面白い。

この会社、こんな奴に寄付してるのか・・なんてね。

総務省の他、こちらでも。↓

https://www.openpolitics.or.jp/

 

カテゴリー: 未分類 | お金を拾いました・・の続き はコメントを受け付けていません。