Visual Studio 2022をインストールしようと思って、「VisualStudioSetup.exe」をダウンロードして起動してみたら、解凍はするのだが、それから先、Visual Studio Installerが起動しない。 色々と試してみたが、駄目。。。解決方法：環境変数のTEMPとTMPの最…
GAN（敵対的生成ネットワーク）を有名なMNITで試してみた。教科書の写経ですけど。 github.com
この年齢（還暦を過ぎてます）になると定期的な医者通いが必要となります。 毎回、血液検査をしていますが、試しに肝疾患を判定するAIを制作してみました。 データセットはここから頂き、学習させました。 signate.jp前回のアルゴリズムを見直して83%の確率…
この年齢（還暦を過ぎてます）になると定期的な医者通いが必要となります。 毎回、血液検査をしていますが、試しに肝疾患を判定するAIを制作してみました。 データセットはここから頂き、学習させました。 signate.jp 学習させたAIに自身の血液検査のデータ…
SIGNATEの練習問題で「お弁当の需要予測」というデータセットが公開されていたので、ディープラーニングで試してみました。 【Practice】Boxed Lunch Sales Forecasting | SIGNATE - Data Science Competition 千代田区四番町のとある会社のカフェフロアで販…
練習問題で有名な「Boston Housing」のデータセットをKerasでやってみた。github.com
実行ファイルのフォルダの「CSV」フォルダ内にCSVファイルを書き込みます。 Imports System.IO Imports Microsoft.VisualBasic.FileIO Public Sub setCsvFile( fp As String) Using sw As New StreamWriter(fp, False, System.Text.Encoding.GetEncoding("Sh…
実行ファイルのフォルダの「CSV」フォルダ内のCSVファイルを読み込みます。 Imports System.IO Imports Microsoft.VisualBasic.FileIO Public Sub getCsvFile( fp As String) If File.Exists(fp) Then Using parser As New TextFieldParser(fp, System.Text.…
グラフィックでカーソルなどを独自に描画した時に余分な線などが残ってしまった時にパネル全体を単色で塗りつぶします。 Dim g As Graphics = Panel1.CreateGraphics g.FillRectangle(Brushes.Gray, 0, 0, Panel1.Width, Panel1.Height) これでPanelは綺麗に…
ファイル名に使用できない文字を置き換えるメソッド Imports System.IO Public Function ReplaceInvalidChar(ByVal _str As String, Optional ByVal chrReplace As Char = "_"c) As String Dim invalidChars() As Char = Path.GetInvalidFileNameChars() For…
ListViewを更新する時のチラツキが気になる Imports System.Reflection Dim RedrawFlags As BindingFlags = BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.SetProperty ListView1.GetType().InvokeMember("DoubleBuffered", RedrawFlags…
ごはん＋玉ねぎ＋溶き卵 水（大さじ３） めんつゆ（大さじ２） 砂糖（小さじ２）この配分が非常に美味です。
システムの起動時にSHIFTキーが押下された状態の時に特別な処理をする （フォームのLoad/Shownイベント） If (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then ' SHIFTキーが押下されている場合の処理 End If ControlキーもAltキーも同じように判定…
意外に毎回、やり方を忘れるのでメモしておこう。 With ListView1 .Items.Add("アイテム") .Items(.Items.Count-1).SubItems.Add("サブアイテム1") .Items(.Items.Count-1).SubItems.Add("サブアイテム2") .Items(.Items.Count-1).SubItems.Add("サブアイテ…
シリアルライズしてファイルの読み書きするクラス Public Class clsSerialize ''' <summary> ''' シリアライズされたデータの読み込み ''' </summary> ''' <typeparam name="T">クラス</typeparam> ''' <param name="_fp">ファイルパス</param> ''' <param name="_cls">読み込むオブジェクト</param> ''' <remarks></remarks> Public Shared Sub loadSerialize(Of T)(_fp As String, ByR…
不用意に押されたクリックやキーで次の画面に遷移した時に意図しない動作を抑制したい時 Imports System.Runtime.InteropServices Public Class clsKeyBuff <DllImport("user32.dll", SetLastError:=True)> Private Shared Function PeekMessage( ByRef lpMsg As MSG, ByVal hwnd As Int32, ByVal wMsgFilt</dllimport("user32.dll",>…
iniファイルを読み込む為のクラス Imports System.Runtime.InteropServices Imports System.Text Public Class clsIniFile Public Declare Auto Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileString" ( <MarshalAs(UnmanagedType.LPTStr)> ByVal lpApplication</marshalas(unmanagedtype.lptstr)>…
