すべてのカテゴリ

プログラムなんて基本はすべて一緒  何かひとつの言語を学べば、おのずと他の言語も分かる

　管理業務には、パターン化された機械的な作業がつきものです。また定期的にデータを更新したり、チェックしたりする作業でも、気を張って 間違いが無いように PCデータとにらめっこする作業も多いですよね。　今回は、そのようなパターン化された作業を自動化するお手伝いとして、新たにサービスを出品しました。　楽して、正確に作業ができれば、その時間と労力を、本来さくべき作業に当てることができます。　もし興味をお持ちになりましたが、ご一読くださいませ。＜これまでの実績＞・ExcelデータとSharePointテーブルの自動称号ツール （Excel VBA）・大規模データが入ったExcelの自動チェックツール （Excel VBA）・デジタルマルチメータの自動測定ツール （Visual Basic.Net／GPIB制御）

■はじめに ７セグ画像の数字認識するライブラリーは既にあるようだが、自分用に自作してみました。ＯｐｅｎＣＶには多用な画像処理が可能で、特異点検出、直線検出、マッチングなど、７セグの数字を認識する方法は色々あるけれど、部分部分の黒い部分の面積を求めて、それで数字を認識するようにしました。 ■作成環境 ＯＳ：Windows10 言語：Microsoft Visual Studio2019 Visual Basic + OpenCVSharp4(パッケージ) 被写体：デジタル置時計 カメラ：COOLPIX A10(NIKON) 静止画を使用 ■処理前■処理後■処理の流れ■他の認識処理■問題点　置時計全体の画像は800X700ピクセルぐらいですが、それだと秒の数値とか日付の数字は抜き出す画像が小さすぎて、認識不能になるみたいです。■おわりに　プログラムの作成には、筆者でも延べ2～3日ぐらいしか、かからなかったので、7セグの数値認識処理は、思いのほか、難しくないようです。

Pythonは、シンプルな記法で、スピーディにコーディングできる 非常に使い勝手が良い言語です。無料で利用できるライブラリ群は どれも素晴らしく、今まで一生懸命 自力で書いてきた労力が何だったんだろうと疑問に思うほどです (笑)VB.netなどに比べて、画面の作り込みに少し手間がかかりますが、それでもメリットの方が遥かに大きいと考えます。私のお気に入りは、「Flet」です。Tkinter, QTなど、一通りのUI作成ライブラリを試した結果、Fletに落ち着いています。今日の記事では、Python, fletアプリから簡単に呼び出せるポップアップ画面のサンプルコードを作成しましたので、皆さんに共有します。```呼び出し方:result = dialog.show(    page=self.page,    title='Flet Popup Dialog Sample',    controls=[        Text('description example'),    ],)print(f'Dialog result is {result}')```VB.netのMessageBox.Show()みたく使えます。以下に、Pythonコードも記載しますので、良かったら試してみてください。詳しいコード解説は割愛します。是非、コードの中身を読んでみてください。皆さんの中で新たな気付きがあれば、とても嬉しく思います。```dialog.py# ポップアップ画面を表示するクラスです。# dialog.pyとして組込んでください。import timefrom flet impor

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  '*********************************************************************  ' Form1　を Load した時のイベント　押した処理  '*********************************************************************         ' ポスグレ接続         Dim Con As NpgsqlConnection = Nothing         ' クラス ClassDB　から　接続文字列を取得 （接続文字列を入れればOK）         Con = New NpgsqlConnection(ClassDB.ConString)         Con.Open()         ' コマンド         Dim Cmd As NpgsqlCommand = New NpgsqlCommand("select id, name, ranking,group_name from countries;", Con) ' SQL　の結果を格納する         Dim rs As NpgsqlDataReader ' SQL 実行         rs = Cmd.ExecuteReader         rs.Read()         txthyouji.Text = rs

このような画面も製作することができます。もし興味を持たれましたら、お気軽にお問合せください。