無限不可能性ドライブ

『ニューラルネットワーク自作入門』に刺激されてExcelVBAでニューラルネットワークを作ってみたものの、やっぱり数学やらなきゃと思い少しずつやってきたのもあって、自分の知識の整理とかそういった感じです。

2021-03-12から1日間の記事一覧

【VBA】2進数を文字列に変換する(前回の続き)

VBA

Option Explicit Public Sub 読み込んだ2進数を文字列に変換() Dim filePath As String Dim fileNo As Long Dim txt As String Dim txts() As String Dim i As Long filePath = ThisWorkbook.Path & "\binary.dat" fileNo = FreeFile Open filePath For Inpu…

【VBA】文字列を2進数に変換してファイル保存する

VBA

Option Explicit Public Sub 文字列を2進数に変換して保存() Dim filePath As String Dim fileNo As Long Dim txt As String txt = "userid" & vbCrLf & "password" txt = encode(txt) filePath = ThisWorkbook.Path & "\binary.dat" fileNo = FreeFile Open…

【VBA】パスワードを生成する

VBA

Option Explicit 'セルに表示させるときは一文字目が = だと 'エラーになるので注意 Public Sub パスワード生成() Debug.Print createPassword(8) End Sub Private Function createPassword(ByRef pwLength As Long) As String Dim asciiCode As Long Dim pw…

【VBA】パスワードをハッシュ化する

VBA

Option Explicit Public Sub ハッシュ値取得() Dim pw As String Dim hash As String Dim filePath As String Dim fso As Object Range("B1").Clear pw = Range("A1").Value If pw = "" Then Exit Sub End If 'パスワードを書き込んだテキストファイルを生成…