「プログラミング」の記事 - Crieit

【実況ブログ】 Excel VBAで初めてのプログラミングを覚えようぜ（＾～＾）？

2023-01-25T20:40:52+09:00

📅2023-01-25 mon 19:15 start

「　Excel を購入しろだぜ」

「　してるぜ」

「　👆　これを使って、プログラミングを覚えてもらう」

「　現代の Excel は　チューリング完全らしいですしね」

「　じゃあ Excel で　チューリング・マシンを作るのか？
無限のテープをどう表現する？」

「　テープが足りなくなったら　強制終了すればいいだろ」

📖 Turing machine

「　👆　例題は Wikipedia を参考にしようぜ？」

[TuringMachineByExcelVBA.xlsm] file - [StateTable] sheet:

State,Read,Write,Move,Transition
A,White,Orange,>,B
A,Orange,Orange,<,C
B,White,Orange,<,A
B,Orange,Orange,>,B
C,White,Orange,<,B
C,Orange,Orange,>,HALT

「　👆　とりあえず StateMachine シートを作れだぜ。
セルに色も塗れだぜ」

「　このシートが何かの説明はしないの？」

「　手を動かせば　あとで分かる」

[TuringMachineByExcelVBA.xlsm] file - [Tape] sheet:

「　👆　もう１つ、 Tape シートを作れだぜ。
A の１文字だけ入っている」

「　これは何なんだぜ？」

「　あとで分かる」

「　空っぽの GUI というシートを作って、
メインメニューから [開発] - [コードの表示] を選べだぜ」

「　👆　VBA のエディターが出てくるな」

「　あの　不便なやつね」

「　ほんと　不便だな。　シートに戻るぜ」

「　👆　先に　ボタンを置こうぜ？」

「　👆　何だか　よくわからないが　ボタン1_Click という名前はそのまんまで
マクロの保存先を　今作業中のファイルに変えて、 [新規作成(N)] ボタンを押そうぜ？」

「　Excel の使い方を記憶してないの　わらう」

「　プログラマーは　記憶　ではなく、　読み　で進むのよ。
その方が　応用が利くから」

「　👆　ボタンがでけてる。
当たった」

「　当たった　とか　講師から出てきたらおかしい言葉　わらう」

「　👆　ボタンを右クリックして　コンテキスト・メニューの [マクロの登録(N)] を
クリックしてみようぜ？」

「　👆　何をすればいいのか分からん。 [OK] ボタンを押してみようぜ？」

「　👆　？
何が起こった？」

「　👆　なんか　コードが増えてるのでは？」

「　よっしゃ！
じゃあ　そこに VBA Script （ぶい・びー・えー・すくりぷと）を書けばいいんだぜ」

📅 2023-01-25 wed 20:41

「　🔍 VBA セルに値を入れる　で検索」

📖 セルに値を入れる：Excel VBA プログラミング入門

「　👆　よし　分かったぜ」

Worksheets("GUI").Range("A1").Value = "Hello, world!!"

「　👆　こんな感じに書けば　GUI シートの A1 セルに　Hello, world!! という文字を
入れてくれそうだな」

「　ボタンを押そうぜ？」

「　👆　ほら　出た」

「　Excelでハローワールドを出力する の実績を解除したな」

「　じゃあ次。
🔍 VBA セルに色を付ける で検索」

📖 セルに色を設定する

「　👆　よし　分かったぜ」

Worksheets("GUI").Range("A1").Interior.ColorIndex = 45 ' オレンジ

「　👆　こんな感じに書けば　GUI シートの A1 セルの背景色をオレンジ色に
してくれそうだな」

「　ボタンを押そうぜ？」

「　👆　A1 セルに色が付いたな」

「　着色の自動化に使えそうねえ」

「　👆　じゃあ、 StateTable シートの C2 セルの背景色が何色かとか、取得することはできるのかだぜ？」

「　ググりゃいいんじゃないの？」

「　🔍 VBA セルの色を取得 で検索」

📖 VBA セルの色を取得する (Interior.Color, ColorIndex)

「　👆　よし　分かったぜ」

    Dim backgroundColor As Long
    backgroundColor = Worksheets("StateTable").Range("C2").Interior.color ' 背景色
    Debug.Print (backgroundColor)

    Worksheets("GUI").Range("A1").Interior.color = backgroundColor

「　👆　こう書けば　StateTable シートの C2 セルの背景色を、 GUI シートの A1 セルへ　コピーできるはずだぜ！」

「　ボタンを押そうぜ？」

「　👆　背景色は　コピーでけたが……。
Debug.Print( ... ) って何だぜ？」

「　ググりゃいいんじゃないの？」

「　🔍 VBA デバッグプリント で検索」

📖 【エクセルVBA】初心者のうちから知っておくべきDebug.Printの使い方

「　👆　イミディエイト・ウィンドウ に値を表示するらしいぜ」

「　イミディエイト・ウィンドウ　って何だぜ？」

「　ググりゃいいんじゃないの？」

「　🔍 VBA イミディエイトウィンドウ で検索」

📖 イミディエイトウィンドウの使い方

「　👆　よし　分かったぜ」

「　[Ctrl] + [G] キーを打鍵すると　出てくるウィンドウだぜ」

「　そんなウィンドウの出し方、　画面のどこを探しても　無くね？」

「　コンピューター開発者は　私には分かる。だからお前も分かるだろ という脳をしてる人　多いのよ。
伝え、継承する精神を持っている人は　リタイア組ぐらいよ」

「　天才が　技術を継承するの　損だしな。
ネット上で　記事書いてるの　リタイア組か、　業界が滅ぶ一歩手前で　しかたなく　天才のケツ掃除してる人たちの　どっちかだよな」

「　しかし 49407 なんて数字出てきても　嬉しくないな」

📅 2023-01-25 wed 21:36

「　じゃあ　次は長めの　コンボ（Combo；連続技）　やるから　よく聴けだぜ」

「　👆　Tape シートの A1 セルに入っている値 A と、その背景色　白色　を取得して……」

「　👆　StateTable シートの State 列に A が、
Read 列に　背景色が白色のセルが
無いかなと探し……」

「　👆　見つけたら……」

「　👆　そのまま　横へスライドし、
Write列の背景色は　オレンジ色、
Move列は > 、
Transition列は B
と　いったん覚え……」

「　👆　Tape シートを開き、
A1 セルから１行下にいったところを、　Write 列にあるように　オレンジ色　に塗り、
Move列が > とあるように　その右側に対して、
Transition列があるように　B　を書き込もうぜ？」

「　長い」

「　いったん TuringMachineByExcelVBA.xlsm ファイルを保存して閉じるぜ。
休憩だぜ」

📅 2023-01-25 wed 22:10 stop

📅 2023-01-25 wed 22:21 restart

「　よっしゃ　再開だぜ！
TuringMachineByExcelVBA.xlsm ファイルを開けて、っと」

「　👆　消えてる！」

「　よく探せだぜ！」

「　👆　無い、無い、無い、
どこにも　無～い！」

「　ファイルを開けるには、ダブル・クリック　するんじゃないの？」

「　👆　あ、　有った」

「　じゃあ　Tape シートの A1 セルの値 A と背景色　白色　を取得して、
そのタプル（Tuple；組み）が StateTable シートの何行目にあるか探し出して
イミディエイト・ウィンドウに　デバッグプリント　するところまで　やりましょう！」

Sub ボタン1_Click()
    Dim text As String
    Dim backgroundColor As Long

    text = Worksheets("Tape").Range("A1").Value ' セルの値
    backgroundColor = Worksheets("Tape").Range("A1").Interior.color ' 背景色

    Debug.Print (text)
    Debug.Print (backgroundColor)

    Worksheets("GUI").Range("A1").Value = text
    Worksheets("GUI").Range("A1").Interior.color = backgroundColor
End Sub

「　👆　値と　背景色のコピーは　できるようになったが、
次は　探すというやつだな」

「　🔍 VBA For文 で検索」

📖 [Excel で VBA] For 文による繰り返し

「　👆　よし　分かったぜ」

「　For文 が何かの説明は　しないのね」

「　手を動かせば　分かるぜ」

「　👆　多分　StateTable シートを　１行目から　７行目まで読むのは　こんな雰囲気だろ。
VBA の if 文ってどうやって書くんだったかな？」

「　記憶してないの　わらう」

「　🔍 VBA if文 で検索」

📖 ExcelのVBA（マクロ）でIf～Then～Elseを使って条件分岐する方法

「　👆　よし　分かったぜ」

「　👆　多分　if文は　こんな雰囲気だろ。
Forループを途中で抜けるの　VBAで　どうやって書くんだったかな？」

「　ググりゃいいんじゃないの？」

「　なんにも覚えてないんだな」

「　🔍 VBA break文 で検索」

📖　Excel VBAでFor文を途中で抜ける：Exit

「　👆　よし　分かったぜ」

Sub ボタン1_Click()
    Dim text As String
    Dim backgroundColor As Long

    text = Worksheets("Tape").Range("A1").Value ' セルの値
    backgroundColor = Worksheets("Tape").Range("A1").Interior.color ' 背景色

    Debug.Print (text)
    Debug.Print (backgroundColor)

    Worksheets("GUI").Range("A1").Value = text
    Worksheets("GUI").Range("A1").Interior.color = backgroundColor

    Dim i As Long
    Dim stateText As String
    Dim readBackgroundColor As Long
    Dim writeBackgroundColor As Long
    Dim moveText As String
    Dim transitionText As String

    For i = 2 To 7
        stateText = Worksheets("StateTable").Range("A" & i).Value ' セルの値
        readBackgroundColor = Worksheets("StateTable").Range("B" & i).Interior.color ' 背景色

        ' 一致するか？
        If text = stateText And backgroundColor = readBackgroundColor Then
            writeBackgroundColor = Worksheets("StateTable").Range("C" & i).Interior.color ' 背景色
            moveText = Worksheets("StateTable").Range("D" & i).Value ' セルの値
            transitionText = Worksheets("StateTable").Range("E" & i).Value ' セルの値

            Debug.Print (writeBackgroundColor)
            Debug.Print (moveText)
            Debug.Print (transitionText)

            ' TODO 次の処理へ

            Exit For
        End If
    Next i
End Sub

「　👆　取れてるぜ」

📅 2023-01-25 wed 23:00

「　次は、
Tape シートの A1 セルを　スタート地点として、
１行　下りたセルの背景色を　Write列のいう色に塗って、そこから
Move 列が > だったらその右のセルへ、 Transition 列のいうテキストを入れましょう」

「　👆　こんな感じだろ」

「　👆　Tape シートの２行目を　クリアーしておくぜ。
そして GUI シートのボタンを押すぜ」

「　👆　色も文字もコピーされたぜ」

「　おつ。
長いコンボが決まったな」

「　これで　１クロック　よね」

「　何だぜ　それ」

「　次は　２クロック目に　行ってみようぜ？」

📅 2023-01-25 wed 23:21

「　👆　B2 セルをスタート地点として、　同様に　さっきと同じことを　やればいいんだぜ」

「　嫌だぜ　なんでそんなことをするんだぜ？」

「　ラジオ体操　みたいなもんよ。　頭を　ほぐしてんのよ」

「　👆　文字が B で、背景色が　白色　なのは　４行目だな。
下にオレンジ塗って　左へ　A　を書けばよさそうだな」

「　👆　説明するのを忘れていたが、上の行の背景色を、下の行へ　引き継ぐぜ」

「　忘れないでくれだぜ」

「　👆　下にオレンジ塗るぜ」

「　👆　左に　A　を書いたら　こんな感じだな」

Sub ボタン1_Click()
    Dim text As String
    Dim backgroundColor As Long
    Dim i As Long
    Dim stateText As String
    Dim readBackgroundColor As Long
    Dim writeBackgroundColor As Long
    Dim moveText As String
    Dim transitionText As String

    ' 1回目の処理
    text = Worksheets("Tape").Range("A1").Value ' セルの値
    backgroundColor = Worksheets("Tape").Range("A1").Interior.color ' 背景色

    For i = 2 To 7
        stateText = Worksheets("StateTable").Range("A" & i).Value ' セルの値
        readBackgroundColor = Worksheets("StateTable").Range("B" & i).Interior.color ' 背景色

        ' 一致するか？
        If text = stateText And backgroundColor = readBackgroundColor Then
            writeBackgroundColor = Worksheets("StateTable").Range("C" & i).Interior.color ' 背景色
            moveText = Worksheets("StateTable").Range("D" & i).Value ' セルの値
            transitionText = Worksheets("StateTable").Range("E" & i).Value ' セルの値

            ' `Tape` シートの A1 セルの下のセルの背景色を　Write列のいう色に塗る
            Worksheets("Tape").Range("A2").Interior.color = writeBackgroundColor

            ' Move 列が `>` だったら その右のセルへ、 Transition 列のいうテキストを入れる
            If moveText = ">" Then
                Worksheets("Tape").Range("B2").Value = transitionText
            End If

            Exit For
        End If
    Next i

    ' TODO ★ 同様の2回目の処理
    text = Worksheets("Tape").Range("B2").Value ' セルの値
    backgroundColor = Worksheets("Tape").Range("B2").Interior.color ' 背景色

    ' ★ 上の行の背景色は引き継ぐ
    Worksheets("Tape").Range("A3").Interior.color = Worksheets("Tape").Range("A2").Interior.color
    Worksheets("Tape").Range("B3").Interior.color = Worksheets("Tape").Range("B3").Interior.color

    For i = 2 To 7
        stateText = Worksheets("StateTable").Range("A" & i).Value ' セルの値
        readBackgroundColor = Worksheets("StateTable").Range("B" & i).Interior.color ' 背景色

        ' 一致するか？
        If text = stateText And backgroundColor = readBackgroundColor Then
            writeBackgroundColor = Worksheets("StateTable").Range("C" & i).Interior.color ' 背景色
            moveText = Worksheets("StateTable").Range("D" & i).Value ' セルの値
            transitionText = Worksheets("StateTable").Range("E" & i).Value ' セルの値

            ' `Tape` シートの A1 セルの下のセルの背景色を　Write列のいう色に塗る
            Worksheets("Tape").Range("B3").Interior.color = writeBackgroundColor

            ' ★ Move 列が `<` だったら その左のセルへ、 Transition 列のいうテキストを入れる
            If moveText = "<" Then
                Worksheets("Tape").Range("A3").Value = transitionText
            End If

            Exit For
        End If
    Next i

End Sub

「　👆　それを　コードにしたら　こんな感じだぜ」

「　長い」

「　これで　２クロック　よね」

「　何だぜ　それ」

「　次は　３クロック目に　行ってみようぜ？」

「　嫌だぜ」

「　今日は　ここまでとするが、　３クロック目　行くからな」

📅 2023-01-25 wed 23:51 end

📅2023-01-26 thu 18:53 start

「　VBA でサブルーチンは　どうやって書いたらいいんだぜ？」

「　ググりゃいいんじゃないの？」

「　🔍 VBA サブルーチン で検索」

📖 Excel VBA 処理の一部をサブルーチン化するCallステートメント

「　👆　よし　分かったぜ」

「　👆　スケルトン（Skeleton；穴埋めの穴じゃない方）を書こうぜ」

「　👆　スケルトンの中へ　コードを　こうやって　入れたらいいんじゃないかだぜ？」

「　👆　つまり　こう」

「　👆　移動した跡の所には　コール文（Call Statement）を置いておこうぜ？」

Sub ボタン1_Click()

    ' 1回目の処理
    Call On1stClock

    ' 同様の2回目の処理
    Call On2ndClock

End Sub

Private Sub On1stClock()
    ' １回目のクロック
    Dim text As String
    Dim backgroundColor As Long
    Dim i As Long
    Dim stateText As String
    Dim readBackgroundColor As Long
    Dim writeBackgroundColor As Long
    Dim moveText As String
    Dim transitionText As String

    text = Worksheets("Tape").Range("A1").Value ' セルの値
    backgroundColor = Worksheets("Tape").Range("A1").Interior.color ' 背景色

    For i = 2 To 7
        stateText = Worksheets("StateTable").Range("A" & i).Value ' セルの値
        readBackgroundColor = Worksheets("StateTable").Range("B" & i).Interior.color ' 背景色

        ' 一致するか？
        If text = stateText And backgroundColor = readBackgroundColor Then
            writeBackgroundColor = Worksheets("StateTable").Range("C" & i).Interior.color ' 背景色
            moveText = Worksheets("StateTable").Range("D" & i).Value ' セルの値
            transitionText = Worksheets("StateTable").Range("E" & i).Value ' セルの値

            ' `Tape` シートの A1 セルの下のセルの背景色を　Write列のいう色に塗る
            Worksheets("Tape").Range("A2").Interior.color = writeBackgroundColor

            ' Move 列が `>` だったら その右のセルへ、 Transition 列のいうテキストを入れる
            If moveText = ">" Then
                Worksheets("Tape").Range("B2").Value = transitionText
            End If

            Exit For
        End If
    Next i

End Sub

Private Sub On2ndClock()
    ' ２回目のクロック
    Dim text As String
    Dim backgroundColor As Long
    Dim i As Long
    Dim stateText As String
    Dim readBackgroundColor As Long
    Dim writeBackgroundColor As Long
    Dim moveText As String
    Dim transitionText As String

    text = Worksheets("Tape").Range("B2").Value ' セルの値
    backgroundColor = Worksheets("Tape").Range("B2").Interior.color ' 背景色

    ' ★ 上の行の背景色は引き継ぐ
    Worksheets("Tape").Range("A3").Interior.color = Worksheets("Tape").Range("A2").Interior.color
    Worksheets("Tape").Range("B3").Interior.color = Worksheets("Tape").Range("B3").Interior.color

    For i = 2 To 7
        stateText = Worksheets("StateTable").Range("A" & i).Value ' セルの値
        readBackgroundColor = Worksheets("StateTable").Range("B" & i).Interior.color ' 背景色

        ' 一致するか？
        If text = stateText And backgroundColor = readBackgroundColor Then
            writeBackgroundColor = Worksheets("StateTable").Range("C" & i).Interior.color ' 背景色
            moveText = Worksheets("StateTable").Range("D" & i).Value ' セルの値
            transitionText = Worksheets("StateTable").Range("E" & i).Value ' セルの値

            ' `Tape` シートの A1 セルの下のセルの背景色を　Write列のいう色に塗る
            Worksheets("Tape").Range("B3").Interior.color = writeBackgroundColor

            ' ★ Move 列が `<` だったら その左のセルへ、 Transition 列のいうテキストを入れる
            If moveText = "<" Then
                Worksheets("Tape").Range("A3").Value = transitionText
            End If

            Exit For
        End If
    Next i
End Sub

「　じゃあ　GUI シートのボタンを押そうぜ？」

「　👆　ちゃんと動いてるな」

「　場所を移しただけだしな」

📅2023-01-26 thu 19:16

「　３クロック目も　コピー貼り付けして作んの？」

「　嫌になるだろ」

「　👆　何回目のクロックでも使えるジェネラル（General）なサブルーチンを作ろうぜ？」

「　👆　違うところは５か所ぐらいなんだから、ここを違わないようにすればいいわけだぜ」

「　Ａ列の右隣は B列だが、
A の右は何か尋ねたら B が返ってくるような方法って VBA にあるのかだぜ？」

「　ググりゃいいんじゃないの？」

「　🔍 VBA 列アルファベット変換 で検索」

📖 【ExcelVBA】列名のアルファベットと列番号の数字を相互変換する

「　👆　よし　分かったぜ」

Sub ボタン1_Click()

    ' 1回目の処理
    Call OnClock("A", 1)

    ' 同様の2回目の処理
    Call OnClock("B", 2)

End Sub

Private Sub OnClock(previousFileAlphabet As String, previousRank As Long)
    ' TODO 毎クロック（ｎ回目のクロック）
    Dim previousText As String
    Dim previousBackgroundColor As Long
    Dim previousCell As String
    Dim currentRank As Long
    Dim currentCell As String
    Dim stateText As String
    Dim readBackgroundColor As Long
    Dim writeBackgroundColor As Long
    Dim moveText As String
    Dim transitionText As String
    Dim i As Long

    previousCell = previousFileAlphabet & previousRank
    currentRank = previousRank + 1
    currentCell = previousFileAlphabet & currentRank
    Debug.Print ("--------")
    Debug.Print ("previousFileAlphabet:" & previousFileAlphabet)
    Debug.Print ("previousRank        :" & previousRank)
    Debug.Print ("previousCell        :" & previousCell)
    Debug.Print ("currentRank         :" & currentRank)
    Debug.Print ("currentCell         :" & currentCell)

    ' 開始行の背景色は、次行に引き継ぐ
    If 2 <= previousRank Then
        Dim aBackgroundColor As Long
        Dim bBackgroundColor As Long
        aBackgroundColor = Worksheets("Tape").Range("A" & previousRank).Interior.color
        bBackgroundColor = Worksheets("Tape").Range("B" & previousRank).Interior.color
        Worksheets("Tape").Range("A" & currentRank).Interior.color = aBackgroundColor
        Worksheets("Tape").Range("B" & currentRank).Interior.color = bBackgroundColor
        Debug.Print ("aBackgroundColor:" & aBackgroundColor)
        Debug.Print ("bBackgroundColor:" & bBackgroundColor)
    End If

    previousText = Worksheets("Tape").Range(previousCell).Value                             ' 開始セルの値
    previousBackgroundColor = Worksheets("Tape").Range(previousCell).Interior.color         ' 開始セルの背景色
    Debug.Print ("previousText           :" & previousText)
    Debug.Print ("previousBackgroundColor:" & previousBackgroundColor)

    For i = 2 To 7
        stateText = Worksheets("StateTable").Range("A" & i).Value                           ' 状態テーブルのState値
        readBackgroundColor = Worksheets("StateTable").Range("B" & i).Interior.color        ' 状態テーブルのRead列の背景色
        Debug.Print ("stateText           :" & stateText)
        Debug.Print ("readBackgroundColor :" & readBackgroundColor)

        ' 一致するか？
        If previousText = stateText And previousBackgroundColor = readBackgroundColor Then
            writeBackgroundColor = Worksheets("StateTable").Range("C" & i).Interior.color   ' 状態テーブルのWrite列の背景色
            moveText = Worksheets("StateTable").Range("D" & i).Value                        ' 状態テーブルのMove列の値
            transitionText = Worksheets("StateTable").Range("E" & i).Value                  ' 状態テーブルのTransition列の値
            Debug.Print ("writeBackgroundColor:" & writeBackgroundColor)
            Debug.Print ("moveText            :" & moveText)
            Debug.Print ("transitionText      :" & transitionText)

            ' `Tape` シートの A1 セルの下のセルの背景色を　Write列のいう色に塗る
            Worksheets("Tape").Range(currentCell).Interior.color = writeBackgroundColor

            Dim horizontal As Long      ' 水平方向
            If moveText = ">" Then      ' Move 列が `>` だったら その右のセルへ
                horizontal = 1
            ElseIf moveText = "<" Then  ' Move 列が `<` だったら その左のセルへ
                horizontal = -1
            End If
            Debug.Print ("horizontal:" & horizontal)

            ' Transition 列のいうテキストを入れる
            Dim startFileNumber As Integer
            Dim nextFileAlphabet As String
            startFileNumber = Columns(previousFileAlphabet).Column
            nextFileAlphabet = Split(Cells(1, startFileNumber + horizontal).Address, "$")(1)
            Debug.Print ("startFileNumber :" & startFileNumber)
            Debug.Print ("nextFileAlphabet:" & nextFileAlphabet)
            Worksheets("Tape").Range(nextFileAlphabet & currentRank).Value = transitionText

            Exit For
        End If
    Next i
End Sub

「　👆　けっこう　大がかりに　変えることになってしまったぜ」

📅2023-01-26 thu 21:12

「　こんなん　何がどう変わったのか　読者　分からんだろ」

「　👆　１クロック目と　２クロック目で違うところは、　スタート地点の列番号と、行番号だけだったということだぜ」

「　このように　２つのサブルーチンの差異が　サブルーチンの外に押し出されたものを　アーギュメント（Argument；実引数）と呼ぶ」

「　ふーん」

「　３クロック目は　どう書くの？」

「　👆　A1 とか B2 というのは、１クロック前に居たセルだぜ。
だから　前の計算結果を　もらうといい。
書き直そう」

「　VBA でファンクションは　どうやって書いたらいいんだぜ？」

「　ググりゃいいんじゃないの？」

「　🔍 VBA ファンクション で検索」

📖 VBA　Functionプロシージャについて　～関数の解説と使用例～

「　👆　よし　分かったぜ」

Sub ボタン1_Click()

    Dim resultCell As String

    ' 1回目の処理
    resultCell = OnClock("A1")

    ' 同様の2回目の処理
    resultCell = OnClock(resultCell)

End Sub

Private Function OnClock(previousCell As String) As String
    ' 毎クロック（ｎ回目のクロック）
    Dim previousText As String
    Dim previousBackgroundColor As Long
    Dim currentRank As Long
    Dim currentCell As String
    Dim stateText As String
    Dim readBackgroundColor As Long
    Dim writeBackgroundColor As Long
    Dim moveText As String
    Dim transitionText As String
    Dim i As Long

    previousFileAlphabet = Split(Cells(1, Range(previousCell).Column).Address, "$")(1)
    previousRank = Range(previousCell).Row
    currentRank = previousRank + 1
    currentCell = previousFileAlphabet & currentRank
    Debug.Print ("--------")
    Debug.Print ("previousCell        :" & previousCell)
    Debug.Print ("previousFileAlphabet:" & previousFileAlphabet)
    Debug.Print ("previousRank        :" & previousRank)
    Debug.Print ("currentRank         :" & currentRank)
    Debug.Print ("currentCell         :" & currentCell)

    ' 開始行の背景色は、次行に引き継ぐ
    If 2 <= previousRank Then
        Dim aBackgroundColor As Long
        Dim bBackgroundColor As Long
        aBackgroundColor = Worksheets("Tape").Range("A" & previousRank).Interior.color
        bBackgroundColor = Worksheets("Tape").Range("B" & previousRank).Interior.color
        Worksheets("Tape").Range("A" & currentRank).Interior.color = aBackgroundColor
        Worksheets("Tape").Range("B" & currentRank).Interior.color = bBackgroundColor
        Debug.Print ("aBackgroundColor:" & aBackgroundColor)
        Debug.Print ("bBackgroundColor:" & bBackgroundColor)
    End If

    previousText = Worksheets("Tape").Range(previousCell).Value                             ' 開始セルの値
    previousBackgroundColor = Worksheets("Tape").Range(previousCell).Interior.color         ' 開始セルの背景色
    Debug.Print ("previousText           :" & previousText)
    Debug.Print ("previousBackgroundColor:" & previousBackgroundColor)

    For i = 2 To 7
        stateText = Worksheets("StateTable").Range("A" & i).Value                           ' 状態テーブルのState値
        readBackgroundColor = Worksheets("StateTable").Range("B" & i).Interior.color        ' 状態テーブルのRead列の背景色
        Debug.Print ("stateText           :" & stateText)
        Debug.Print ("readBackgroundColor :" & readBackgroundColor)

        ' 一致するか？
        If previousText = stateText And previousBackgroundColor = readBackgroundColor Then
            writeBackgroundColor = Worksheets("StateTable").Range("C" & i).Interior.color   ' 状態テーブルのWrite列の背景色
            moveText = Worksheets("StateTable").Range("D" & i).Value                        ' 状態テーブルのMove列の値
            transitionText = Worksheets("StateTable").Range("E" & i).Value                  ' 状態テーブルのTransition列の値
            Debug.Print ("writeBackgroundColor:" & writeBackgroundColor)
            Debug.Print ("moveText            :" & moveText)
            Debug.Print ("transitionText      :" & transitionText)

            ' `Tape` シートの A1 セルの下のセルの背景色を　Write列のいう色に塗る
            Worksheets("Tape").Range(currentCell).Interior.color = writeBackgroundColor

            Dim horizontal As Long      ' 水平方向
            If moveText = ">" Then      ' Move 列が `>` だったら その右のセルへ
                horizontal = 1
            ElseIf moveText = "<" Then  ' Move 列が `<` だったら その左のセルへ
                horizontal = -1
            End If
            Debug.Print ("horizontal:" & horizontal)

            ' Transition 列のいうテキストを入れる
            Dim previousFileNumber As Integer
            Dim nextFileAlphabet As String
            Dim nextCell As String
            previousFileNumber = Columns(previousFileAlphabet).Column
            nextFileAlphabet = Split(Cells(1, previousFileNumber + horizontal).Address, "$")(1)
            nextCell = nextFileAlphabet & currentRank
            Debug.Print ("previousFileNumber :" & previousFileNumber)
            Debug.Print ("nextFileAlphabet   :" & nextFileAlphabet)
            Debug.Print ("nextCell           :" & nextCell)
            Worksheets("Tape").Range(nextCell).Value = transitionText

            ' 関数から抜ける
            OnClock = nextCell
            Exit Function

        End If
    Next i
End Function

「　👆　さらに　改造してしまったぜ」

📅2023-01-26 thu 21:43

「　こんなん　何がどう変わったのか　読者　分からんだろ」

「　👆　このように　前の計算結果を使って　また同様に計算するように作るのは　よくあるテクニックだぜ。
漸化式（ぜんかしき）とか　これだな」

「　さっさと　３クロック目を書きなさいよ」

「　👆　３クロック目は、２クロック目と同じコードで　いいはずなんだぜ。
動かしてみよう」

「　👆　エラーが出たぜ」

「　直せ！」

「　👆　[デバッグ（D）] ボタンを押してみようぜ？」

「　エラーがあった行をハイライト（Highlight）してくれてるのかもしれないけど　説明がないから分かんないわねぇ」

「　また　ショートカットを打鍵すれば　ウィンドウが出てくるのかだぜ？」

「　ググりゃいいんじゃないの？」

「　🔍 VBA スタックトレース で検索」

📖 VBAナメてた

「　👆　行番号とエラーコードしか　分かんないらしいぜ」

「　1994年の環境ねえ」

📅2023-01-26 thu 22:01

「　🔍 VBA 1004 Error で検索」

📖 VBA Error 1004 in Excel

「　👆　無いシート名や、無いアドレスを指定したら　出てくるエラーかも知らん」

「　👆　A列より　左に進もうとして　０列目は無いので　エラーになったんだな」

「　A列の左に　列を挿入しろだぜ」

「　🔍 VBA 列の挿入 で検索」

📖 VBA 列を挿入する

「　👆　よし　分かったぜ」

「　👆　０列にアクセスしようとしたら、
A列の左に　列挿入して、　列番地も左に　１つずらして　１列にアクセスするように変更しよう」

「　👆　３クロック目も　動いたようだな」

📅2023-01-26 thu 22:18

「　じゃあ　あと　１００クロックぐらい　動かしましょう」

「　👆　For 文を使えば　１００行書かずに済むから楽だよな。
漸化式の形に作っておけば　繰り返しの回数を指定するだけでいいから　手間要らずだぜ」

「　👆　エラーが出た」

「　🔍 VBA 1004 Error で検索しろだぜ」

「　さっきと同じ 1004 番よ」

「　今度は何が無かったんだろな？」

「　👆　previousCell 変数の中身が空文字列だぜ。」

「　A1 とか、何か番地が入っているはずじゃない」

「　👆　リセット ボタンを押すと　デバッグは止まるぜ」

「　👆　多分、 HALT （ハルト）が出たら　終了しないといけないんだぜ」

            If transitionText = "HALT" Then
                ' 関数から抜ける
                OnClock = "SUCCESS"
                Exit Function
            End If

「　👆　じゃあ　HALT （ハルト）が出たときは　セル番地ではなく　SUCCESS　を返すという取り決めにしておこうぜ」

        ' 正常終了時はループから抜ける
        If resultCell = "SUCCESS" Then
            Exit For
        End If

「　👆　関数の呼び出し元でも　前判定で　resultCell 変数の内容が SUCCESS だったら、ループから抜けるようにすれば　コードも短いぜ」

「　👆　なんか　動いた跡があるな」

📖 Turing machine

「　👆　Wikipedia のサンプルと違くない？」

「　👆　A列と B列しか　背景色をコピーしてないからな」

「　テープの長さと同じ幅だけ　コピーしてくれだぜ」

「　じゃあ　テープの長さも　数えておかないといけないな」

「　VBA で、自由変数の使い方、または　引数の参照渡しのやり方は　どう書くんだろうな？」

「　ググりゃいいんじゃないの？」

「　🔍 VBA 引数の参照渡し で検索」

📖 値渡し（ByVal）、参照渡し（ByRef）について

「　👆　よし　分かったぜ」

「　ぜったい　そんな記事を　ちらっと読んでも　何も分からないけどな」

「　プログラムの組み方は分かってるが　VBA での書き方が分からないだけなんで、ちら見で　充分だぜ」

「　あれっ？　ByRef tapeWidth As Long　と書いても　参照渡しになって無（ね）。
調べても分からないことはある。
自由変数にするか」

「　🔍 VBA グローバル変数 で検索」

📖 変数の適用範囲

「　👆　よし　分かったぜ」

「　でも　書いているうちに　tapeWith　というスペルミスを見つけて　tapeWidth 直したら動くようになった」

Sub ボタン1_Click()

    Dim resultCell As String
    Dim tapeWidth As Long
    tapeWidth = 1   ' "A1" セル１つ分

    ' 1回目の処理
    resultCell = OnClock("A1", tapeWidth)

    ' 同様の i 回目の処理
    Dim i As Long
    For i = 2 To 100

        ' 正常終了時はループから抜ける
        If resultCell = "SUCCESS" Then
            Exit For
        End If

        resultCell = OnClock(resultCell, tapeWidth)
    Next i

End Sub

Private Function OnClock(previousCell As String, ByRef tapeWidth) As String
    ' 毎クロック（ｎ回目のクロック）
    Dim previousFileAlphabet As String
    Dim previousRank As Long
    Dim previousText As String
    Dim previousBackgroundColor As Long
    Dim currentRank As Long
    Dim currentCell As String
    Dim stateText As String
    Dim readBackgroundColor As Long
    Dim writeBackgroundColor As Long
    Dim moveText As String
    Dim transitionText As String
    Dim i As Long

    previousFileAlphabet = Split(Cells(1, Range(previousCell).Column).Address, "$")(1)
    previousRank = Range(previousCell).Row
    currentRank = previousRank + 1
    currentCell = previousFileAlphabet & currentRank
    Debug.Print ("--------")
    Debug.Print ("previousCell        :" & previousCell)
    Debug.Print ("previousFileAlphabet:" & previousFileAlphabet)
    Debug.Print ("previousRank        :" & previousRank)
    Debug.Print ("currentRank         :" & currentRank)
    Debug.Print ("currentCell         :" & currentCell)
    Debug.Print ("tapeWidth           :" & tapeWidth)

    ' 開始行の背景色は、次行に引き継ぐ
    If 2 <= previousRank Then
        For i = 1 To (tapeWidth + 1)
            Dim tempFileAlphabet As String
            Dim tempBackgroundColor As Long

            tempFileAlphabet = Split(Cells(1, i).Address, "$")(1)
            tempBackgroundColor = Worksheets("Tape").Range(tempFileAlphabet & previousRank).Interior.color
            Debug.Print ("i                  :" & i)
            Debug.Print ("tempFileAlphabet   :" & tempFileAlphabet)
            Debug.Print ("tempBackgroundColor:" & tempBackgroundColor)
            Worksheets("Tape").Range(tempFileAlphabet & currentRank).Interior.color = tempBackgroundColor
        Next i
    End If

    previousText = Worksheets("Tape").Range(previousCell).Value                             ' 開始セルの値
    previousBackgroundColor = Worksheets("Tape").Range(previousCell).Interior.color         ' 開始セルの背景色
    Debug.Print ("previousText           :" & previousText)
    Debug.Print ("previousBackgroundColor:" & previousBackgroundColor)

    For i = 2 To 7
        stateText = Worksheets("StateTable").Range("A" & i).Value                           ' 状態テーブルのState値
        readBackgroundColor = Worksheets("StateTable").Range("B" & i).Interior.color        ' 状態テーブルのRead列の背景色
        Debug.Print ("stateText           :" & stateText)
        Debug.Print ("readBackgroundColor :" & readBackgroundColor)

        ' 一致するか？
        If previousText = stateText And previousBackgroundColor = readBackgroundColor Then
            writeBackgroundColor = Worksheets("StateTable").Range("C" & i).Interior.color   ' 状態テーブルのWrite列の背景色
            moveText = Worksheets("StateTable").Range("D" & i).Value                        ' 状態テーブルのMove列の値
            transitionText = Worksheets("StateTable").Range("E" & i).Value                  ' 状態テーブルのTransition列の値
            Debug.Print ("writeBackgroundColor:" & writeBackgroundColor)
            Debug.Print ("moveText            :" & moveText)
            Debug.Print ("transitionText      :" & transitionText)

            ' `Tape` シートの A1 セルの下のセルの背景色を　Write列のいう色に塗る
            Worksheets("Tape").Range(currentCell).Interior.color = writeBackgroundColor

            Dim horizontal As Long      ' 水平方向
            If moveText = ">" Then      ' Move 列が `>` だったら その右のセルへ
                horizontal = 1
            ElseIf moveText = "<" Then  ' Move 列が `<` だったら その左のセルへ
                horizontal = -1
            End If
            Debug.Print ("horizontal:" & horizontal)

            ' Transition 列のいうテキストを入れる
            Dim previousFileNumber As Integer
            Dim nextFileAlphabet As String
            Dim nextFileNumber As Integer
            Dim nextCell As String
            previousFileNumber = Columns(previousFileAlphabet).Column
            nextFileNumber = previousFileNumber + horizontal
            Debug.Print ("previousFileNumber :" & previousFileNumber)
            Debug.Print ("nextFileNumber     :" & nextFileNumber)

            If nextFileNumber = 0 Then
                Worksheets("Tape").Columns("A").Insert  ' A 列の左に列挿入
                nextFileNumber = nextFileNumber + 1     ' 列番号を 1 つ左へずらす
                tapeWidth = tapeWidth + 1               ' Update
            ElseIf tapeWidth < nextFileNumber Then
                tapeWidth = nextFileNumber              ' Update
            End If

            nextFileAlphabet = Split(Cells(1, nextFileNumber).Address, "$")(1)
            nextCell = nextFileAlphabet & currentRank
            Debug.Print ("nextFileAlphabet   :" & nextFileAlphabet)
            Debug.Print ("nextCell           :" & nextCell)
            Worksheets("Tape").Range(nextCell).Value = transitionText

            If transitionText = "HALT" Then
                ' 関数から抜ける
                OnClock = "SUCCESS"
                Exit Function
            End If

            ' 関数から抜ける
            OnClock = nextCell
            Exit Function

        End If
    Next i
End Function

「　👆　よし　tapeWidth も付けたぜ」

「　👆　チューリング・マシンが　でけたぜ」

📅2023-01-27 thu 00:01

「　HALT は出力しないのが　チューリング・マシンみたいよ？」

「　じゃあ　StateTable　の　Transition　列で　HALT　を見つけたところで　止めた方がいいのか」

「　👆　判定部を　上に持っていけば　いいんじゃないかだぜ？」

「　👆　１行　余分に背景色をコピーしてるわよ？」

「　👆　背景色のコピーを、判定部の後ろに持っていけば　いいんじゃないかだぜ？」

「　👆　おっと」

「　👆　変数 i は、外側のループの　ループ・カウンターとして使ってたか」

「　👆　じゃあ　変数 j を作ればいいや」

「　👆　これで　チューリング・マシン　は完成だぜ。
一般化してないのと、不具合が残っているのが　残っているかも知れないが……」

「　これは何に使うんだぜ？」

「　👆　この例だと　長さ６のオレンジ色のテープを作るために使ったんだぜ。
説明しよう」

「　👆　この StateTable というのが　プログラムの命令セットのようなものだぜ。
この６行があると……」

「　👆　最初は A と書かれているが、
A にあんまり意味は無くて　長さ１つの白いテープがそこにあると思えだぜ」

「　👆　上の図は　テープを伸ばしている過程が描かれたもので、
最後の　１３行目が　作られたテープだぜ」

「　長さ６つのオレンジ色のテープ　が作られて　動作が止まったわけだぜ」

「　長さ６つのオレンジ色のテープ　なんか　作っても　嬉しくないしなあ」

「　今回はサンプルで　オレンジ色１色しかなかったが、
それが　２６色あって　アルファベットの２６文字に対応するとか、
最初から色の塗られたテープがあって　チューリング・マシンが動いた後には　別の色のテープが残っているとか、
それが　暗号を解読した答え　だったりしたら　嬉しいだろ」

「　じゃあ　今回の例題　がシンプルすぎて　チューリング・マシン　が何たるか　嬉しさが　分からないんだ」

「　プログラミング言語　が誕生する前の　プログラミング　方法だぜ」

「　私たちが使うのは　プログラミング言語　なのだから、懐古好きでもなければ　チューリング・マシン　を覚えなくてもいいのでは？」

「　一生のうちに　何回か　チューリング・マシン　とか　チューリング完全　の名前を聞くことはあるだろ。
記事を読んで知識として知ってるより　作って知ってる方が　話しに実感がこもるだろ」

「　実感　要らないから　実用的で　効率的な練習　無いのかなあ」

「　そんな実用的な Webサイトなら、他人が作るしな　」

「　プログラムも　コンピューターも無い時代に　ヒトが考えたプログラムを　体験　するぐらいね」

「　もっと面白い例題でやってほしい」

参考： 📖 Git Hub / TuringMachineByExcelVBA

＜おわり＞

プログラミング脱落者救出☆大作戦＜２＞ Current Directory と Executing Assembly Location 編

2022-12-24T00:05:47+09:00

前の記事：　📖　プログラミング脱落者救出☆大作戦＜１＞ Windows アプリケーションの Resolve Path 編

「　Windows 10 な。
カレント・ディレクトリー（Current Directory）の説明をする。
ワーキング・ディレクトリー（Working Directory）と言っても同じだぜ」

「　フーン」

// See https://aka.ms/new-console-template for more information

using System.Reflection;

// ディレクトリ・パスをコンソールへ標準出力します
static void EchoDirectory()
{
    string currentDirectory = Directory.GetCurrentDirectory();
    string executeAssemblyDirectory = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location) ?? "null";

    Console.WriteLine($@"Data
---------------------------
Current Directory         : {currentDirectory}
Execute Assembly Directory: {executeAssemblyDirectory}

Please, Push any key.
");

    Console.ReadKey();
}

// ディレクトリ・パスをコンソールへ標準出力します
EchoDirectory();

「　👆　予め　C#言語で　カレント・ディレクトリーと、　実行ファイルが置いてあるディレクトリーの２つを
コンソールへ標準出力するプログラムを書いておいた」

「　豆ねえ」

「　👆　デスクトップに　C#れんしゅう　フォルダーを作成し、
その中へ　さっき書いたプログラムをビルドして作った　EchoDirectory.exe　実行ファイルを置いた。

なにもないところを右クリックして、 ターミナルで開く(T) メニューをクリックしてほしい。
そんなメニュー無いってやつは　Windows Terminal　をインストールするか、指でもくわえて見てろだぜ」

「　👆　黒い画面が出てきたぜ」

「　今回は、コマンド・プロンプトではなく、 パワーシェル（Power Shell）を使ってみよう。
丁寧なことに、カレント・ディレクトリーが　表示されているぜ」

「　GUIと違って、ディレクトリーを一度に１つしか開けれないようなシンプルなシェルでは、
カレント・ディレクトリーというのが　今開いているディレクトリーと　同じことよ」

「　👆　じゃあ　コマンドラインから　./EchoDirectory.exe　を実行しようぜ。
カレント・ディレクトリーと、　実行ファイルの置いてある場所は　同じようだな」

「　パワーシェルでは　頭に ./ を付けるんだな」

cd folder1

「　👆　１つ下のフォルダーへ　下りてみようぜ？　中身は空だけど……」

「　📂 folder1 を　ダブルクリックして開けたのと　同じようなもんよ」

../EchoDirectory.exe

「　👆　じゃあ、 📂 folder1 から、親フォルダーにある EchoDirectory.exe を実行してみよう」

「　今度は　頭に ../ を付けたんだな」

「　カレントディレクトリーと、　実行ファイルが置いてあるディレクトリーが　異なったわね」

「　このように、

プログラムを実行するときは、　カレント・ディレクトリーと、　実行ファイルが置いてあるディレクトリーは
同じじゃないケースがある

ということを　頭に入れながら　プログラミングしろだぜ」

「　👆　ちなみに　親フォルダーのそのまた親フォルダ―にある EchoDirectory.exe を実行するには、頭に　../../　を付けろだぜ」

「　わらう」

../../folder1/folder2/../../folder1/.././EchoDirectory.exe

「　👆　もちろん　フォルダーを２つ上がったのに　また下りて、さらに上がって　また下りて、
また上がったと思ったら　今度は　とどまっても、
そこに　EchoDirectory.exe　があれば　ちゃんとアクセスできるぜ」

「　無駄な知識　わらう」

「　分かりづらくない？」

Resolve-Path ../../folder1/folder2/../../folder1/.././EchoDirectory.exe

「　👆　そういうときの　Resolve-Path　だぜ。
ファイルパスは、ただ文字列を　つなげるだけではなく、解決（Resolve）することが　重宝するぜ」

「　今日は　ここまでね」

＜おわり＞

プログラミング脱落者救出☆大作戦＜１＞ Windows アプリケーションの Resolve Path 編

2022-12-22T21:34:57+09:00

「　Windows 10 な。
じゃあ、キーボードの　Windows + R キーを押せだぜ」

「　👆　なんだぜこのダイアログボックスは？」

「　cmd　って打鍵しなさい」

「　👆　黒い画面が出てきたぜ」

「　ここで、
コマンドプロンプト か、 パワーシェル のどちらを使うか、という大きな選択肢がある。
今どき　パワーシェルなんだが、
今回は　コマンドプロンプトで説明する。

その前に」

「　👆　Windows アクセサリで　メモ帳　を右クリックして、 [その他] - [ファイルの場所を開く] をクリックしろだぜ」

「　👆　じゃあ、 PC > ローカルディスク(C:) > Microsoft > Windows > Start Menu > Programs > Windows アクセサリ という
場所に　ショートカットがいっぱい入っていて、
メモ帳のショートカットも　ここに入っているのが分かるな。
クリックしろだぜ」

「　👆　メモ帳が出てきたぜ」

「　それを　アプリケーション　と呼ぶ。
2000年代のプログラマーは　メモ帳　のようなアプリケーションを自分で作っていた。
その名残は　👇　まどのもり　で見ることができる」

📖　窓の杜

「　例えば　👇　CLaunch　とか便利なのよ」

📖　CLaunch

「　このような　アプリケーション　を自作して、
パソコンを　どんどん　使いやすくしよう、という動きが　00年代前半ぐらいまで　盛んだったんだぜ。
今では　スマホ　の天下なんで　デスクトップ・アプリケーション　はマイナーになった」

「　悲しい話し　わらう」

📖　WPF演習問題1　デスクトップ上のちり紙

「　👆　お前らも　Windowsデスクトップ・アプリケーション　を作ろうと思えば　作れる。
記事を書いておいたから　参考にしろだぜ」

「　👆　メモ帳のショートカットを右クリックして [プロパティ] をクリックしろだぜ。
[リンク先] の %windir%\system32\notepad.exe というのが、メモ帳の本体を置いてる場所だぜ」

「　%windir% って何なんだぜ？」

「　👆　Windows のスタートメニューの　[設定] 画面から、 env と打鍵して
[システム環境変数の編集]　をクリックしろだぜ」

「　👆　[環境変数(N)...]　をクリック」

「　👆　windir　は、　C:\WINDOWS　だと分かったな」

「　👆　また、コマンドプロンプトへ　echo %windir%　と打鍵しても　C:\WINDOWS　が返ってくるぜ」

「　echo %windir%\system32\notepad.exe　って打鍵しなさいよ。
コマンドプロンプトへは　コピーした文字を　右クリックで　貼り付けられるわよ」

「　👆　へえ」

「　👆　コマンドプロンプトの文字列をドラッグして　右クリックで　コピーできるわよ」

「　👆　notepad.exe あるわよね。　これが　実行ファイル　というもので、アプリケーションの本体よ。
この notepad.exe ファイルをダブルクリックすると　メモ帳が出てくるのよ」

「　👆　ま、コマンドプロンプトへ　notepad.exe　って打鍵しても　メモ帳出てくるけどな」

「　C:\WINDOWS\system32\　は打鍵しなくていいのか？」

「　👆　その秘密が　システム環境変数の　Path　（パス）だぜ。
よく　『パスは通したか？』　とか言う。
[編集]　ボタンをクリックしてみろだぜ」

「　👆　コマンドプロンプトは　Path　の下に置いてある　.exe　ファイルを　Resolve　（リゾルブ）する、つまり、
パスと実行ファイルの名前をくっつけて、見つかったものを実行する。だから notepad.exe でいける」

「　フーン」

「　じゃあ　今日はこれで　終わりよ」

＜おわり＞

次の記事：　📖　プログラミング脱落者救出☆大作戦＜２＞ Current Directory と Executing Assembly Location 編

プログラミングでつまずいたところ（主に昔話）

2020-01-17T23:13:26+09:00

プログラミングでつまづいてきたこと　みたいなブログがいくつかあった。
最近は人に教える機会がよくあるので、自分はどうだったかなと思い出しながら書いてみたら
ただの昔話になってしまった。

せっかく書いたので、Qiitaにでも投稿しようかと思ったけどポエムっぽいのでやめた。

CrieitだとポエムもOKみたいなのでこちらに書くことにしました。

プログラミング以前

中学生のときはプログラミングはしていなかった。
ただ、友達がパソコンを持っていて、使わせてもらったりしてた。
何をしていたか覚えていないけど、面白いと感じたのだろう。

特に進路を決めていなかったけど、
技術家庭科で電子回路の授業が面白かったこともあって
高専の電子情報工学科に進んだ。

高専生

上記のように軽い気持ちで進んだので、高専では素晴らしく落ちこぼれていた。
留年こそしなかったけど、毎年ギリギリだった。

1−4年生まではプログラミングが面白いと思ったことはなかったと思う。
何がわからないかもわからないのであまり覚えてることも少ない。

1 - 2年生

プログラミングを初めて体験した。
trueBASICなるものを授業でやった。よくわからなかった。
図書館にあった雑誌に掲載されていたBASICのコードポケコンに打ち込んで出来たゲームで遊んだ。
自分でなにか作れるようなことはなかったし何が作れるのかもよくわからなかった。
C言語を授業でやった。
- みんなポインタがわからないと言っていたが、自分はポインタがわからないということすらわかっていなかった
- 配列がわかっていなかったと思う。大カッコの意味がわからないと思った記憶がある。
- 何らかのデータを固定長でファイルに書き込み、それを読み込んで表示するプログラムを書いたけど、「ABCDE」と保存したら「ABCDE」と読み込むのは当たり前やん？何が嬉しんだろう？って思った。

3 - 4年生

確かアルゴリズム論という授業があったので、ソートアルゴリズムとかを習った気がする
データ構造も習ったとおもう。絶対理解していないけど。
ハノイの塔で再帰とか習った気がするけど、自力で解ける気がしなかった。
CUIなので、ハノイの塔のビジュアル的なものをどうやるのか想像もつかなかった。
4年生のときに自分のパソコンが手にはいったと思う。今思うと遅い、よくやってたな。

5年生

5年生になり、選んだ卒研の研究室で担当教官が、構造体とポインタを使ったリスト構造について詳しく教えてくれた。
すごくわかりやすく、C言語「完全に理解した」と思った。

卒研の内容は探索を使うものだったと思う。
確か倉庫番を解くプログラムを作って、新たな探索アルゴリズム作るというものだった。
幅優先探索、深さ優先探索、A*などがあったと記憶している。
教官からはそれらの探索よりなにか秀でたものを作れと言われた。

卒業を諦めた。

プログラミングが面白くなってきた

担当教官に伝えたところ課題を変更し、Perl CGIでWebアプリケーションを作ることになった。
確か、先生が課題を出し、学生はそれをWeb上で回答し、先生が採点できるようにするみたいなもの作った。
この頃はWebアプリケーションという言葉は使っていなかったと思う。

https://www.amazon.co.jp/Perlで作るCGI入門-基礎編―生きたホームページを作るために-SOFTBANK-BOOKS-結城/dp/479730507X
https://www.amazon.co.jp/Perlで作るCGI入門-応用編―生きたホームページを作るために-SOFTBANK-BOOKS-結城/dp/4797305819

担当教官からこの本を借りて読んでみた。

次に、kent-webにある掲示板のソースコードを下記のリファレンス本を使って、全部読んだ。
https://www.amazon.co.jp/CGI-Perl-ポケットリファレンス-Pocket-reference/dp/4774107557

このとき、プログラムどのように動いているか理解できたことを覚えてる。
これなら自分でWebアプリを作れそうと感じた。

それを真似ながら、0から卒研のWebアプリを作っていった。

今まではC言語で制御構文やファイルの読み書き、アルゴリズムなどCUIでプログラムを習ってきた。
いざ何かを作れと言われたところでCUIでどうやってものを作ればよいのか、
何ができるのか全く想像出来なかった。
しかし、Perl CGIで掲示板を作るとなると目に見えるGUIのシステムが出来上がるのが面白かった。

そういえば、クラスメイトにWebに詳しい人がいて
卒研用のWebアプリを作っているときに、Perl以外にもPHPというものがあると教えてくれた
また、SQLの存在もこのあたりで知った。
授業ではER図の書き方とかも習った気がする。

select * from usersを実行すると
ターミナル内に表形式で、表示されるけど
それをどうやったらPHPやPerlの中で使えるのか全く想像出来なかった。

この頃、まだGoogleの存在は知らなかったと思うし、
自分自身、検索して調べるという習慣もなかったと思う。

Webアプリは完成し、無事卒業することが出来た。

この経験で自分にもプログラミングができるという自信がついたのだろう。
この経験がなければ、プログラミングの仕事はしてなかったかもしれない。

2001 - 社会人 1社目

卒業後入った会社はアウトソーシングの会社だった。
3ヶ月間は研修で、その後派遣で様々な現場に出てもらうみたいなことだった。

3ヶ月間の研修はperl CGIでなにか作るというものだった。
卒研でやったことと同じものだったので、それなりに上手くやっていけてたと思う。

3ヶ月の研修が終わったあと会社を辞めた。

2002 - 社会人 2社目

その後、半年ほどは知人が商売をすると言うので手伝ったりしていたと思う。
確かこの頃に家なき子になったり色々あったけどバイトをすることになった。

内容はWebサーバやメールサーバの構築、Webアプリの開発だったと思う。
出会い系サイトの。

ここでは、Linuxを使ってWeb、メール、DNSの各種サーバを構築をさせてもらった
詳しく覚えていないけど、すごく勉強になった。

この頃、学生時代の友人たちともチャットでつながっていて
色々情報交換をしていた。
その中でRubyっていうのがすごく良いという話があったので、勉強してみた。

https://www.amazon.co.jp/プログラミングRuby―達人プログラマーガイド-デビット-トーマス/dp/4894714531

この本を買って読んでみた。
Rubyはすべてがオブジェクトで云々。
数字の「1」もオブジェクトです。
何を言っているのか全くわからなかった。
ここも何がわからないのかがわからない感じだったと思う。

ジュークボックスのサンプルコードが載ってたような気がするけど、
これはどうやって音がでるのだ？？？みたいな。

学生のときにCUIでイメージできなかったときの感覚に似ていたと思う。

2003 - 社会人 3社目

その後、アルバイトはその業務自体がなくなったため終了し、別の会社を紹介してもらい入社した。

この頃はまだ、フレームワークというものは知らなかった。
ひたすら生のPHPを書いていた。

ある時、Smartyというテンプレートエンジンを見つけて、面白そうと思い勉強した。
今までごちゃごちゃしていたコードがスッキリした気がした。

業務のコードにも入れてみたところ、上司から、「このコードよくわからないから使わないで」と言われた。
そりゃ勝手にコードの書き方を大きく変えたらあかんよなぁと今だと思う。あの頃はまだ若くて世間知らずだった。

2005 - 社会人 4社目

次の会社でもPHPを使ったWebシステムを作っていた。
Smartyなんかも導入した気がする。

2005年頃だったか、新しいプロジェクトが始まったときにフレームワークを導入することになった。
このとき選んだのはEthnaだった。
日本発だったっけ？GREEで使われたっけ？
なんかそんな理由で選んだと思う。

MVCなんて言葉はまだ知らなかったと思うし、理解もしていなかったけど、
バリデーションなんかを決まった書き方で書いたりと初めてフレームワークを使ってみて便利な部分がたくさんあったような気がする。

もう10年近く前に関わりがなくなったプロジェクトだけど、まだそれっぽいコードが動いているみたい😱😱😱

2010 - 社会人4社目その2

https://www.amazon.co.jp/RailsによるアジャイルWebアプリケーション開発-第2版-Dave-Thomas/dp/4274066967/ref=sr_1_1?__mk_ja_JP=カタカナ&keywords=RailsによるアジャイルWebアプリケーション開発+第2版&qid=1579244186&sr=8-1
という本が会社にあった。
誰かが買ってきたのだろう。

関わっていたプロジェクトも落ち着いていたので読んでみた。
具体的なECサイトという内容だったのでよく理解でき面白かった。

業務の合間や、休日出勤したけどやる気がでないときに、この本を読んでRailsの勉強をした。

ランチセレクターというアプリを作った。
会社周辺のよく行く店を和洋中などの属性をもたせて登録する。
今日の気分から属性を選んでボタンをクリックすると店を選ぶという単純なものだったけど
楽しんで作ったし、周りの忙しい人は面白そうでええなーと言ってた。

この頃から業務ではRubyをメインで利用するになってきた。

まずは社内でしか使わないものをRuby / Railsで作り、
その後、他の業務でもRuby / Railsを使うようになった。

このあたりからまた新しいことがたくさん出てきて色々わからないことが増えてきた。

このときにRestfulの考え方が新しく出てきて悩んだ気がする。

上記の本はRails1系だったと思うんだけど、例えばユーザの編集画面のURLは
/users/edit/1 だった
Rails2系からは
/users/1/edit になっていた。
自分がよく使っていた形も前者だったのでRails2の形になったときになんだろうこれと思った。

Rubyを使っていくと色々と新しい言葉が出てきた
イテレータ、ブロック、ラムダ
このあたりはすぐには理解できなかったと思う。
やっていくうちになんとなくわかってきて今に至っている。

MVCやオブジェクト指向なんかは
「完全に理解した」と「全くわからん」の繰り返しだ。

2016 - 社会人 6社目

この頃には、わからないことも調べながら理解していくことが出来てきた気がする。

ReactやVue.jsを使うようになったけど、
何がわからないかわからないというような状態にはならなくなった。

2019 フリーランス 1年目

2019年からフリーランスとしてやっている。
最近ではRuby以外だとJavascriptをよく使う。

こちらは未だにわからないことだらけだけど、
何がわからないか少し具体的になってきた気がする。

Promiseは全然わからん。async/await、setTimeout
このあたりが出てくると頭がこんがらがる。

これまでに出てきた言語を見るとわかるように学生の頃のC言語以外は
静的型付け言語の経験はない。
なので最近のTypeScriptもよくわからない。
Reactの案件で使われていることがあるけど、ライブラリなどの型が違ってコンパイルが通らず
どうすればよいのかわからずanyにしてみたり。

色々経験してきて、これを学べば何ができるようになるのかが想像できるようになったのだろうか。

最後に

こうやって振り返ってみると、
インターネットが普及して、Webアプリケーションが一般的になってきたことで
卒研で学んだWebアプリの知識を活かせる仕事につけたことはすごく運が良かったと思う。

プログラミングでつまずいたことという点で言えば

なにがわからないかがわからなかった。
やってることで何ができるようになるのかイメージできなかった。（しなかったのかも）

今になって思ったけど、子供の頃から文法というものが苦手だったのかもしれない。
小学生のころは国語は苦手だった。中学生でも英語は苦手だった。
文法というものを意識したことがない気がする。

プログラミングも文法がある。
文法を意識していないから何もわからなかったのだろう。

他にも、小学生のころに応用問題が苦手のようですと言われてた。
学んだことを応用してなにかに活かすとかが苦手なのだろう。
具体、抽象を言ったり来たりするのも苦手なのだろう。

PythonによるWebスクレイピングを解説

2020-01-14T11:58:31+09:00

価格監視、ビジネス分析などのデータ関連プロジェクトを実施する場合、常にWebサイトからデータをエクセルに記録する必要があります。ただし、データを1行ずつコピペするのは時代遅れになり、Webスクレイピングにおけるニーズが高まっています。この記事では、Webデータを自動収集する方法、つまりPythonでWebスクレイピングを行う方法を説明します。

ステップ0：はじめに

Webスクレイピングとは、Webサイトからデータを取得するのに役立つ技術です。Pythonなどのプログラミング言語以外に、APIまたはOctoparseのようなスクレイピングツールもWebスクレイピングを行うことができます。

AirbnbやTwitterなどの大規模サイトの場合、サイトにある情報をできるだけ広く共有するために、API を通してデータにプログラムレベルでアクセスし、企業、開発者、利用者に提供します。APIはApplication Programming Interfacesの略で、2つのアプリケーションが互いに通信できるソフトウェアビルディングブロックです。ほとんどの人にとって、APIはデータを取得するための最も適したアプローチです。

ただし、全てのサイトはAPIサービスを提供するわけではありません。APIを提供しても、取得できるデータが必要なものではない場合もあります。したがって、Pythonを活用してWebクローラーを自作することは、強力で柔軟なソリューションになります。

では、なぜPythonが選ばれた言語なのでしょうか？

柔軟性： 私たちが知っているように、Webサイトはよく更新されます。コンテンツだけでなく、Web構造も頻繁に変更されます。Pythonは動的に入力可能で生産性が高いため、使いやすい言語です。したがって、はコードを簡単に変更し、Webサイトの更新速度に追いつくことができます。

強力： Pythonには、有用で成熟したライブラリがたくさんあります。例えば、Requests、BeautifulSoupは、URLを取得し、Webページから情報を引き出すのに役立ちます。Seleniumは、Webクローラーが人間のブラウジング動作を真似できるようにすることで、一部のスクレイピング防止手法を回避するのに役立ちます。さらに、re、numpy、およびpandasを使用して、データのクリーンアップと処理を行うことができます。

それでは、PythonによるWebスクレイピングの旅を始めましょう！

ステップ1：Pythonライブラリをインポートする

このチュートリアルでは、Yelpからレビューをスクレイピングする方法を示します。BeautifulSoupとRequestsの2つのライブラリを使用します。これらの2つのライブラリは、PythonでWebクローラーを構築する際に一般的に使用されます。最初のステップは、この2つのライブラリをPythonにインポートして、これらのライブラリの関数を使用できるようにすることです。

ステップ2：WebページからHTMLを抽出する

https://www.yelp.com/biz/milk-and-cream-cereal-bar-new-york?osq=Ice+Cream からレビューを抽出しようとします。まず、URLという変数にURLを保存します。次に、このWebページのコンテンツにアクセスし、Requestsでurlopen（）関数を使用して、HTMLを「ourUrl」に保存できます。

それで、BeautifulSoupを使ってWebページを解析します。

このWebサイトの生のHTMLである「Soup」ができたので、prettify（）と呼ばれる関数を使用して生データを消去し、それを印刷して「Soup」のHTMLのネスト構造を確認できます。

ステップ3：レビューを見つけて抽出する

次に、このWebページでレビューのHTMLを見つけて抽出し、保存します。Webページの各要素には、唯一のHTML「ID」があります。IDを確認するには、Webページでそれらを検査する必要があります。

「Inspect element（要素の検証）]（「Inspect（検証））をクリックすると、レビューのHTMLが表示されます。

この場合、レビューは「p」というタグの下にあります。そのため、まずfind_all（）という関数を使って、これらのレビューの親ノードを見つけます。そして、ループ内の親ノードの下にタグ「p」を持つすべての要素を見つけます。すべての「p」要素を見つけたら、それらを「review」という空のリストに保存します。

これで、そのページからすべてのレビューを取得できます。いくつのレビューを抽出したか見てみましょう。

ステップ4：レビューを処理する

各レビューの最初に

、レビューの途中に、およびレビューの終わりになどの役に立たないテキストがまだあることに注意する必要があります。

は改行を表します。レビューに改行を入れる必要はありませんので、削除する必要があります。また、

とはHTMLの始まりと終わりであり、これらも削除する必要があります。

最後に、20行未満のコードですべてレビューをきれいに取得しました。

まとめ

以上はYelpから20件のレビューを収集するデモです。しかし、実際には、他の多くの状況に直面する必要があるかもしれません。例えば、他のページに移動してこのショップの残りのレビューを抽出するには、ページネーションなどの手順が必要になります。または、レビュアー名、レビュアーの場所、レビュー時間などのその他の情報も収集する必要があります。

上記の操作を実装してより多くのデータを取得するには、Seleniumや正規表現などの関数とライブラリをさらに学習しなければなりません。Webスクレイピングの課題を掘り下げるのにより多くの時間を費やすことは興味深いでしょう。

ただし、Webスクレイピングを行う簡単な方法を探している場合は、Octoparseのようなスクレイピングツールが一番いいソリューションになるかもしれません。Octoparseは、コードを各必要なく、Webサイトから情報を簡単に取得できる強力なWebスクレイピングツールです。Webスクレイピングをマスターして、Webデータの取得を自動化にしましょう！

お前らオブジェクト指向なんか真面目に信仰して勉強してもまともなプログラミングは書けないことについて☆（＾～＾）＜書きかけ＞

2019-09-16T11:59:46+09:00

それより写像

「　疑似コードで説明しよう☆　日付を出したいとするぜ☆」

Test:

Print Today

Output:

2019-09-16

「　プログラムを　Test:、 Output:　に分けて書くのは　お父んの流行りか☆？」

「　プログラムの親は数学で、数学がやる式の計算というのは写像なんで、写像を覚えろだぜ☆」

「　これを疑似コードで　当てはめると……☆」

「　でも　みんな　だから何？　って言って　飽きるのよ。
数学は　もっと難しくて　理解しがたくて　複雑で　摩訶不思議で　掛け軸に飾るような精神論であってほしいのよ。
手に届かないものであってくれれば　今のままの自分で居られるから」

「　現実より数学が難しかったら　誰が数学を使うんだぜ☆　現実を使うに決まってんだろ☆」

「　じゃあ次は　年は要らないとしよう☆　月日だけ欲しくて、月／日 みたいに出したいとしよう☆」

Test:

$text <= Format "MM/DD" $(Today)
Print $today

Output:

09/16

「　コマンド・シンタックスだな☆」

「　これを疑似コードで　当てはめると……☆」

「　Formatが２変数関数　なのに比べ、　Printは１変数関数☆　それだけの違い☆
$text は分かりやすく説明するためだけに置いている　中間変数だぜ☆」

「　例えば次のように $text を省く式も考えられるぜ☆」

Test:

Print $(Format "MM/DD" $(Today))

Output:

09/16

「　ただし　これは　書き方を省いただけで、ステップは省けていない☆　どちらも同じだぜ☆」

「　今日の日記を書くのに　１日かかっていたら　日記は半分しか書けないからな☆
書き方を省くことは　数学の本質だぜ☆」

「　ただ、プログラムを　コマンド・シンタックスで書くことは稀だぜ☆　だいたい次のような感じになる☆」

Test:

Print( Format( "MM/DD",  Today() ) )

Output:

09/16

「　ファンクション・シンタックスだな☆」

「　丸かっこと　カンマが増えて　目がチカチカするんだけど」

「　じゃあ　次のように書ければどうだろうか☆？」

Test:

Today.Format("MM/DD").Print()

Output:

09/16

「　ドット・シンタックスだな☆」

「　すっきりしたけど、なんで書き方には　いろんな種類があるの？」

「　最初は　べつにシンプルでなければいけないほど　今の自分に困っていなかったが、
だんだん　困ってきて　シンプルを目指し始めたんだろ☆」

「　↑ 出口、終値、戻り値、呼び方はいろいろだが　出口が複数個あるのもある☆
これらは　Tuple（タプル）と呼ばれているのを見かけるぜ☆」

「　タプル自体は　ただの 名前なしリスト だけどな☆」

「　↑ プログラム言語によって　使える機能、使えない機能　がマチマチなので、
プログラムを勉強するとは　何なのか、については　誰かが音頭を取れるようなものでも　ないと思う☆」

「　数学をやればいいのよ。算数でも　高校数学でも　大学数学でもなく、数学」

「　↑ 写像が　本当に便利になるのは　Map（マップ）　からだぜ……、というか、
写像を英語で言うと　Mapping（マッピング）☆」

「　だが　この話は　またヒマなときにする☆」

「　お父んは　初心者を叩いて回るスタイルだな☆」

「　いや、今のうちに　やってしまおう☆」

「　↑こんな形の　Map　があれば……☆」

「　↑結果も　こんな感じになったり、都合により　そうでなかったりする☆
詳しくは　ドキュメント・コメントに　だいたい書いてあるだろう☆」

「　プログラム言語は　数学を元ネタ　にして　用語を借りてくるから、数学やった方が早い☆」

「　で、ここで　要素　の個数は　可変　にしておく☆
このマップは　入り口が５個、出口が５個　固定です、みたいなマップは　使いづらいからな☆」

「　こんな　要素の個数が多いマップ、もう　絵図にできないわね」

「　できる☆」

「　↑こう描く☆」

「　どっかで見た図なんだけど！」

「　まとまり を扱う　Map　を考えればいい☆
というか、　まとまりを扱うのが　Map、　写像　だぜ☆
このとき　数学の集合論ではまとまりのことを Sets（集合）というが、プログラム言語では　Collection （コレクション）と呼ぶ例がよくある☆」

「　C言語などの　プログラム言語では、この Map に当たる部分を　function（関数）　と呼んでいる☆
Map じゃないから関数と呼ぶので合ってるんだが、そのうち Map を使いたくなるんだぜ☆」

「　Domain（ドメイン）に当たる部分は　Parameter（引数） ☆
Domain じゃないからパラメーターと呼ぶので合ってるんだが、そのうち Domain を使いたくなるんだぜ☆」

「　Codomain（コドメイン）に当たる部分は　Return（戻り値） と呼ぶ☆
Codomain じゃないから戻り値と呼ぶので合ってるんだが、そのうち Codomain を使いたくなるんだぜ☆」

「　昔のプログラムは　１ステップ　ずつ書きたがる文法をしてるよな☆　ループ文書いたり。
Python　だとむしろ map を使え、みたいな感じだぜ☆」

「　機械がどう動いているか　人間が判断して　書いていくのが　機械寄りのプログラムだからな☆
人間寄りのプログラムがあっていいし、機械学習世代では　人間寄りのプログラムの書き方も必須だぜ☆」

「　だが　この話は　またヒマなときにする☆」

ジェネリクス、ポリモーフィズム

「　昔のシンプルと　今のシンプルは違う☆　例えば☆」

Test:

$apple as char = 0
Print $($apple + 1)

$banana as short = 127
Print $($banana + 1)

$cherry as int = 32767
Print $($cherry + 1)

$daikon as long = 2147483647
Print $($daikon + 1)

Output:

「　昔は変域を気にした☆
127に 1 を足したら -128 になってしまうかもしれないし、エラーで落ちるかもしれない☆
だから　C言語には　数が４種類あった☆」

「　全部 long にしたらダメなのか☆？」

「　メインメモリが 32MB（メガバイト）の時代とかあった☆
現代は　メインメモリが　16GB（ギガバイト）　とかだろ☆
つまり　省スペース　でどれだけ何ができるか、という時代があったんだぜ☆　型とはメモリの使い方だった☆」

「　だから例えば☆」

Test:

$a as char = 2
$b as char = 3
Print $(MaxChar $a $b)

$a as short = 2
$b as short = 3
Print $(MaxShort $a $b)

$a as int = 2
$b as int = 3
Print $(MaxInt $a $b)

$a as long = 2
$b as long = 3
Print $(MaxLong $a $b)

Output:

「　最大値の方を選ぶ関数 Max も、型に合わせて MaxChar、 MaxShort、 MaxInt、 MaxLong　が用意されていた時代が
短いながらも歴史上に存在した☆」

「　char 型と short 型を比較したいときはどうすんの？」

Test:

$a as char = 2
$b as short = 3
Print $(MaxChar (short)$a $b)

Output:

「　いったん char をでかい方の short 型に格上げしてから比較する☆
これを　型キャスト　と呼んだ☆
Python では　こんなの見かけることもないだろ☆」

「　Rust では見かけるよな☆」

「　Rust 使いは型に合わせて Max 型を何個も用意しているの？」

「　そんなことはしない☆」

「　しかし　こんな話は　インプリメント　の話しであって　プログラミング　の話しではないことに
注意してもらいたい☆
つまり、コーディングマン、 コーダー 寄りの話しなんだぜ☆」

「　プログラミング　の話しなのか、 コーディング の話しなのかは　まず区別しろだぜ☆」

「　お父んは　コーダー寄り　だけどな☆」

「　プログラミング　を基礎教養にして　 型キャスト　なんか知ってるやつが出てきても
他の分野に応用が利かないだろ☆」

「　Visual Basic 2003 を覚えたら　もう Python 3 とか JavaScript ES6 とか覚えたくないのは人情よね。
プログラミングを　基礎教養にするって　何なのかしら？
覚える必要のある　１つのプログラム言語　だけ　教えてくれればいいの」

「　喜べ、フロントエンド、バックエンド、オフィスソフト、ゲーム、人工知能、組み込み、 それぞれ１個ずつ 覚えろだぜ☆」

「　やだ！」

＜書きかけ＞

お前ら、「コンパイルできて実行ファイルは高速に動作し、けれどもインタプリタ（スクリプト）言語みたいにプログラミングできる言語」が欲しいんだろ？

2019-08-08T16:59:44+09:00

ネタにマジレス

未来がない言語、私はPythonだと思っている。
— Ryou Ezoe(江添亮) (@EzoeRyou) 2019年8月5日

未来がない言語はSmalltalkだと思う。もうそろそろSmalltalkを超える言語ができると思うから。そういう言語を創る能力がある人たちも、それを発展させるコミュニティも、実現するのに十分な基盤技術もある。あとはポンと生まれるだけ。 https://t.co/hL4EJLL91g
— 極端流形式仕様初代𝕍𝕚𝕖𝕟𝕟𝕒𝕋𝕒𝕝𝕜𝕖𝕣 (@tomooda) 2019年8月6日

発言者達に認知バイアスが大いに掛かっているのはよーくわかる。C++は20の仕様を満たす実装が生まれれば、そりゃあ強いだろう。

ただ如何せん蟠りを抱いているので、いつもの事ながらネタにマジレスポエムを書いてけちょんけちょんにされる。

俺の思う今日での「コンパイルできて実行ファイルは高速に動作し、インタプリタ（スクリプト）言語みたいにプログラミングできる言語」

Nimでは？

JavaScriptとPythonを融合し、そのソースコードが出力するのは、最適化したC/C++やJavaScriptというど変態言語である。しっかりと Nim Script なんていうのもある。

もう一つ紹介するなら、Haxeもめちゃつよ言語だろう。C++, Python, Java, CSharp, PHP, Luaと大体行ける。

とは言いつつも、やはりDも捨てがたい。ただ友達（多分。私は勝手に彼のことをそう思っている）に「D言語によるクリエイティブコーディングフレームワークを作っている人」が居るのでそう思ってしまう。これも私の認知バイアスだ。

それと忘れちゃいけないのがLispやSchemeだな。その代わり、たくさんの実装があってどれから触ればいいか、ほぼ同じ言語なのに方言が違うため、色々困る。

インタプリタ言語とコンパイラ言語

今日のマシンスペックでは、どちらがどれだけ早いかなんて気にすることもない。
気にするのはよっぽどシビアな組み込みのや競技プログラミングやゲームプログラミングの世界だろう。

昔はよく、
「インタプリタ言語は1行1行実行して結果を出してるから遅い」
とは言われた。

今でもそれはそうなのだが、マシンスペックが20年前のスーパーコンピューターよりも格段に良いデスクトップないしラップトップマシンがゴロゴロしている今日では、ボトルネックになるのは通信などによるI/O周りの問題ではなかろうかと思う。

それを省けば、インタプリタだろうがコンパイラだろうが気にすることは特になくなった。

REPL搭載言語

インタプリタ言語にはいつもくっついてくる、生真面目で物静かなやつがいる。REPLだ。

律儀にソースコードを何行も書いてプログラミングしている方々には無縁なのかもしれないが、REPLは数行（むしろ1行）の実行結果を見たいときなんかに、ちょっと尋ねられる良き相棒である。隣の机でプレゼン資料を作るのに必死な先輩なんかより声を掛けやすいだろう。

こいつと会話して、エラーをちゃんと読み解く 様にしたら、設計以降のコーディングの問題は割と片付く。

ちょっと昔はインタプリタ言語を使う利点としてREPLが挙がっていたと思うが、今となってはほぼどの言語にも搭載しているといっても過言ではないだろう。

誤解しないでいただきたいのが、今日のコンパイラ言語も1行1行実行して結果を出しているという訳ではない。

コンパイラ言語だって、コンパイル時に最適化という処理を行い、あなたの書いたソースコードをコンピューターが読みやすくかつ実行しやすい処理に書き換えているのである。この辺の話は思い切って LLVMの実装について調べてみても面白いのかもしれない。私はまだ踏み込んでいない。

Smalltalk環境はなぜ流行らなかったのか

Smalltalk環境は本当にすごいと思った。Pharoを一度どこかのドキュメントを読みながらでいいから触ってほしい。

しかし、流行らなかった。なぜかはsumimさんがよく存じ上げていると思う。

また、これも確かに的を得ているのかもしれない。

Smalltalkは単なるプログラミング言語ではなくIDEですらあったので流行らないのは必然だった。
— Ryou Ezoe(江添亮) (@EzoeRyou) 2019年8月6日

「コンピューターを便利に使いたいだけなのに、アプリ開発環境まで積んでいる」

私の様に幼少期はおもちゃを分解して中身を覗くのが楽しくて仕方のない劣化知的生命体には、
「こんなに素晴らしい環境が流行らないのはおかしい！」
と思ってしまうが、世の中そうではないらしい。

みんな、道具を作るのは面倒だし難しいと思っているのだ。

ましてや、
「ふとした拍子にプログラムの中身を開けてしまったら」
と考えると、怖いのだろう。

でもさ、痒いところに手が届かなかったら、道具作りたいじゃん

自分はそうである。

探したって良いのだろうけれど、手元に作れる環境があるのに作らないという選択に対して、とても面倒くさい印象を覚えがちである。これは自分がへたくそだけどプログラミングやイラストや3DCGモデリングや作曲ができてしまうからそう思ってしまうのかもしれない。

自分の欲しいコンテンツさえ自分で作りたがる

私が欲しいものを誰かが作ってくれれば、それに越したことはない。でも世の中そうでもない。ましてや僕にはお金もない。毎月給料日から3日で現金が財布から無くなり、預金残高も0になるような劣化知的生命体なので。

だったら、自分で能力を身に着けて作るという方向に発想が行きがちなのである。

なので批評家という人種があまり好きになれない。
「お前の欲しいオカズくらい、自分で作れボケ」
とつい思うし、自分に対しても、
「俺が欲しいオカズくらい、自分で作れクソムシ」
と思う。

今日になってよくなったと思うけど、パソコンに思っていた「不自由」

リンゴや窓のシンボルのOSは、せっかくそのパソコンに開発環境を作るポテンシャルがあったとしても、ユーザーをただのOS利用者として閉じ込めておこうという雰囲気をものすごく感じていた。

15年前くらいだったら、下手すると開発環境を作るのに、小学生のお小遣いでは手に入れることのできない様な額が必要だった。Visual Studio 6が出たての頃の話。

その辺りの意識が変わり始めたのは、やはりインターネットの影響だろうか。HTMLがWindowsのメモ帳でも組めることを知った私は、水を得た魚の様になっていたと思う。

ソフトウェア開発などの不自由が最近のリンゴや窓のシンボルのOSでも改善された様子があるので、悪くはない世の中になったのかなとは思う。

ただ、私としては、もっと気軽にちょっと便利なツールを、いろんな人たちが自由に作ってくれるといいと思っている。

まとめ

コンピューターを使った創作活動は楽しい。ついでに言うと、コンピューターと協力して作る創作活動は楽しい。だから私はプログラマでいることにこだわり続けるのだろうし、コンテンツ制作者になることにこだわり続けるのだろう。

解ってくれる人が居ればそれでいいが、解ってもらえるきっかけがいろんな人に舞いこんだらなと思う。

だからどの言語が将来性がないとか、どのフレームワークはお終いだとか。そんなのは少し脇に置いて、自由にモノを作りたいだけなのだ。

確かに、使う道具は洗練されていた方がいいし、新しい考え方や古来からある優れた考え方を取り入れた道具・思考は積極的に取り入れるべきだ。

「いつまで不平不満を垂れているだけのユーザー様でいるんだ？　スペルバインダーの世界じゃあるまいし」

僕がサービスを作る時の手順

2019-07-27T16:06:06+09:00

どうも@leavescomic1です。

はじめに

僕はちょこちょことWebサービスを作っているのですが、今日は僕がサービスを作る手順を紹介します。これからweb系のサービスを作ってみたいと思ってる方に何か参考になれば幸いです。

ただ、ここで１つ注意して欲しいのは僕はエンジニアとして働いたことがないので、サービスの進め方は完全に我流です。非効率なことだったり、プロからみたらおかしいと思う点も多々あるかと思いますので、あくまでも『こんなやり方もあるんだ』くらいの気持ちで読んで頂ければと思います。

説明では自分が作ったサービスの１つで初心者向けのクラウドソーシング『novice』を例にして紹介します。

STEP1 サービスのコンセプトを決める

まずはどんなサービスを作るのか考え、そのサービスのコンセプトを決めます。僕はいつもノートに箇条書きで書き出しています。字がとてつもなく汚いのはご愛嬌。

STEP2 必要な機能を書き出す

作るサービスのコンセプトが決まったら、そのサービスに必要な機能をノートに書き出します。この時色々と必要な機能が出てくると思いますが、実際に最初に作る段階では必要最低限の機能のみ実装するようにした方が良いです。

僕はできるだけシンプルに最初は作ろうと考えてはいるのですが、開発途中であれも、これもっていう風にいろんな機能を付けてしまい、ユーザービリティが複雑なものを作ってしまいがちなので、皆さんはシンプルに、そのサービスの核となる部分のみ作ってリリースしてしまった方がいいと思います。リリースした後に、サブ的な機能はいくらでも追加していけますし、最初から完璧なものを目指すといつまでたってもサービスをリリースすることができないと思いますので。

STEP3 データベースの設計

作るサービスの具体的な機能が決まったら、次にデータベース設計を行います。ER図を書いて、パラメーター名、型、1対多などのテーブルの関係性を決めていきます。

※今現在運用しているサービスのデータベース設計は公開できないので、以前にバックエンドだけ作った段階で開発を断念したポイント交換サービスのデータベース設計を載せます。

STEP4 サービスのレイアウトを書き出す

データベース設計まで出来たら、ノートに簡単なレイアウトを書き出していきます。UI/UXを考えて、できるだけユーザーが使いやすいようシンプルなレイアウトにした方が良いと思います。僕はここが一番苦手で、全然ユーザーが使いやすいレイアウトを考えることができません。

STEP5 バックエンドのコーディング

フロントエンドから先にコーディングを行うやり方もあると思うのですが、僕は個人で全てやるので、バックエンドから先にコーディングしていきます。動作を確認するために、最低限のフロント部分をここで書く場合もありますが、基本はデザイン無視でバックエンドを書いていきます。

STEP6 Adobe XDでページのデザインを作成

バックエンドが大体完成したら、次はノートに書いたページレイアウトを参考にしながら、Adobe XDを使って１ページ毎にどんなデザインにするか考えて、書きだしていきます。Adobe XD便利ですよね。ノートにレイアウトを書いたりせず、いきなりAdobe XDでUI/UXデザインを作成していっても良いかと思います。

また、サービスのプロトタイプを作る時にもAdobe XDは非常に活躍してくれると思います。Adobe XD内でページ遷移の機能を付けて、本当の動いているサービスみたいに見せることができますし。非エンジニアの方にもオススメのツールです。

STEP7 フロントエンドのコーディング

Adobe XDでデザインを完成させたら、そのデザインにそってフロント部分をコーディングしていきます。レスポンシブのコーディングもここでしていきます。必要ならばJavascriptでページに動きを出したりもしていきます。

STEP8 テストを書く

僕はナマケモノなので、最後にまとめてテストを書きます。『わざわざテストまで書いて作った機能をやっぱり実装するのやめる』みたいなことになったら嫌なので。個人開発だし。テストも必要最低限の部分しか書きません。核となる機能部分だけです。

STEP9 周辺ツールの実装

テストがかけたら、監視ツールやログ収集ツール等を実装していきます。僕はサーバーに大体Herokuを使っているので、アドオンとしてボタン一つで実装でき、とても楽チンです。

STEP10 リリース

最後にもう一回テストを行い、全てOKであればいよいよリリースです。お金をかけて派手に宣伝していくも良し。お金をかけずに地道に宣伝していくも良し。いろんなやり方があると思います。とりあえず一旦ここでリリースまで漕ぎ着けたので、途中で投げ出さなかった自分を褒めてあげましょう。おめでとー！！

その他リリースまでにやること

STEP1〜STEP10に記載したこと以外にも実際はやることはたくさんあると思います。コーディング毎にGitにプッシュしたり、サーバーにデプロイしたり、外部APIについて調べたり。あと、サービスの宣伝は開発と並行して行うのがオススメです。また、作りたいサービスの内容によってはプログラミング以外のこともやっていかなくてはいけないと思います。そういう面も考慮して１歩ずつ完成に向けて計画していきましょう。

さいごに

冒頭でも書きましたが、ここで紹介した手順はあくまでも僕のやり方で、皆さんがサービスの開発をするときは各々のやりやすい手順で進めていって頂ければと思います。また、サービスの規模にもよりますが、フロントエンドまである程度しっかりとしたものを作ろうと思ったらそれなりの時間がかかります。そうなると一番大切なのは技術力ではなく、サービスに対する情熱です。

いくらスキルが高いエンジニアでもサービスに対して情熱がなければ、何週間、何ヶ月とサービスの開発を続けることは難しいです。とにかく『絶対作ってやる』『このサービスでみんなを喜ばせたい！』という情熱さえあれば、案外なんとかなるケースが多いと思います。

今回紹介した開発手順が参考になるかどうか分かりませんが、少しで皆様のお役に立てれば嬉しいです。僕もサービスの開発頑張ります。

勉強でもスポーツでも成長は一定じゃない。成長曲線を理解しよう。

2019-07-18T21:03:08+09:00

自分のスキル

僕はギターが弾ける。弾けるといっても早弾きはできないが、大体の曲はコード譜を見れば弾ける。学生時代から少しずつ練習して弾けるようになった。

僕は英語が日常会話くらいだったら話せる。フィリピンへインターンするまで全く話せなかったが、毎日語学学校でマンツーマンレッスンを受けているうちに少しづつ話せるようになった。

僕は簡単なWebサービスだったら作れる。１年半程前から少しづつプログラミングを独学で勉強するうちに作れるようになった。

ギター、英語、プログラミング、全てに共通することは一朝一夕では習得することができないスキルということ。いや、人前に披露できる程のスキルは、どんなスキルであっても世の中のほとんどは一朝一夕で身に付けることはできないのではないかと思う。

まあでも、そんなことは誰でも分かっていると思う。英語が１日でペラペラになったり、ギターが１日でジミヘンくらい弾けるようになるわけがない。ただ、成長の度合いが一定ではないということを、みんなは理解していないのではないだろうか。

ほとんどのスキルの成長は下のグラフの通りに推移していくと思う。

このグラフから分かることは、スキルの勉強や練習を始めてからしばらくは成果がなかなか出ないということ。プログラミングとか良い例だと思う。

最初どんな言語でも「Hello, World!」を出力するところから始まり、メソッドやフレームワークについて１つ１つ学んでいく。僕もRubyで「Hello, World!」と初めて出力できた時は嬉しかった。「自分でもプログラムを書くことができるんだ！」と感動した。でも勉強していく内に感動は薄れ、だんだん絶望に変わっていく。

プログラミングの勉強を始めたばかりの人にとって、教科書に書いてある大抵のことは分からないと思う。とりあえず書いてあるコードをコピぺして動かして、またコピペして動かして、そのうちエラーが出て、必死にぐぐってみたいな感じで進めていく人が大半なのではないだろうか。(僕は少なくともそうだったし、今も分からないことがほとんど...)

プログラミングの勉強を始めて数日はみんな楽しいと思う。ただ、次第に今のスキルと自分が目標とするスキルの間に、とてつもなく深い溝があることに気づき、絶望し、やめていく。

例外なのは学校のテスト。学校のテストは上のグラフの水色で記した「自分が考える成長曲線」と結構近い形で点数もやればやるだけ上がっていくと思う。大抵の学校では事前にテスト範囲が教えられ、生徒は範囲に沿って勉強する。範囲は１日、２日程度あれば全て網羅できてしまうことがほとんど。僕たちは学生時代にその経験があるから、特に勉強するということ関してはどの分野の勉強でも「勉強すればした分だけ一定に成長していく」と勘違いしてしまうのではないかと思う。

ただ、人間の成長速度は一定ではない。どれだけ勉強しても一向に成長せず、むしろ時には後退することだってある。それでも勉強を続ける先に、ある時いきなり成長する。プログラミングであればコードがスラスラ書けるようになったり、フレームワークの構造が急に分かるようになったり。英語であれば急に喋れるようになったり、リスニングができるようになったり。

そんな急激な成長を何度か繰り返していく内に、基礎が身につき、新しく得た知識を即実践に生かすことができるようになっていく。プログラミング初心者が機械学習だけ勉強しても、その知識をどう活かせばよいか分からないが、ある程度の習熟者が機械学習のスキルを身につければ、その後機械学習を使ったサービスを作ったり、OSSの発展に協力したりすることができる。

どのスキルでも習熟している人は基礎ができてる。基礎があるから、新しく身につけた知識をどう生かすか、方法がわかる。初心者は基礎ができていないから、新しいことを学んでも、その知識をどう活かせばいいか分からない。むしろ、最初のうちは自分が知らないことがまだまだたくさんあるということに気づいて、学べば学ぶほどやる気を失くすことだってある。

初心者は勉強、練習を始めてから最初の数ヶ月間が一番しんどいと思う。それを乗り越えれば急激な成長が待っている。「どんなことでも最初のうちはなかなか成長しないんだよ。」ということを事前に知っておけば、理想と現実のギャップに苦しむ期間を何とか乗り越えることができるのではないだろうか。

終わりに

何事も一朝一夕では身につかない。とにもかくにもスキルを身に付けるには継続力がめちゃくちゃ大事！「天才とは努力を続けられる人」って将棋の羽生さんが言ってたけどほんとそれだと思った。

僕が今までやったRuby on Railsの勉強

2019-06-25T23:08:27+09:00

僕がプログラミングを初めて１年と９ヶ月ほど経ちました。

ほぼ独学でこれまで勉強してきましたが、途中で挫折する人も多いかと思います。

少しでも挫折する人を減らせるよう、参考になるか分かりませんが自分が今までやってきたプログラミングの勉強方法を紹介させて頂きます。

とは言っても、実は結構昔にプログラミングスクールに２週間ほど通ったことがあります。

でもそのとき「あっ、これ無理だ。」と思いすぐ挫折しました。

※決してプログラミングスクールが良くないわけではありません。質問した時は丁寧に教えてくれました。僕の理解力の問題です(笑)

そこからだいぶ期間が空いて、その２週間で学んだことの98%は忘れてしまっていましたが、どうしても作りたいサービスがあったため、プログラミングの勉強を開始しました。

まずはドットインストールでHTMLとCSSの勉強を始めました。

ドットインストール

HTMLはなんとなーくわかった気がしましたが、CSSはよくわからないまま動画を観ていました。

とりあえずHTMLとCSSの動画をそれぞれ２周した後、次はドットインストールで「Ruby入門」の動画を観てみました。

Rubyを選んだ理由は特になく、その当時たまたま出会ったプログラマーの方に「web系のサービス作りたいんだったらRubyが良いよ」と言われたのでそのまま鵜呑みにしてRubyの勉強を始めました。

ドットインストール Ruby入門

HTMLやCSSの動画もそうですが、１つの動画が全て3分以内に収められているため、全部で26個の動画がありますがサクッと一気に観れました。

ただ、後半はさっぱり分けもわからず「とりあえず観る」といった感じで進めていたのを覚えています。Ruby入門の動画も分からないなりになんとか２周しました。

ドットインストールでHTML、CSS、Rubyをそれぞれ学んだ後はProgateでHTML、CSS、Rubyをそれぞれ１周しました。

Progate(プロゲート)

Progateは前に自分が書いたコードも使いながら次に進んでいくため、ローププレイングゲームをやっているみたいで面白かったです。

ただ、どのコースも後半につれて訳分かんなくなってました(笑)

次にRuby on Railsというフレームワークを使うとwebサービスが作れるとネットにいっぱい書いてあったので、Railsの勉強を始めました。

まずはプログラミング初心者御用達のドットインストールで「Ruby on Rails5入門」の動画を2周しました。

Railsに関しては始めから何が何だかちんぷんかんぷんでした。

ドットインストール Ruby on Rails5入門

最近になってようやく慣れましたが、ドットインストールの動画って３分に収めているからかめっちゃ早くないですか？

最初の頃はその早さについていけず、何度も動画を戻して繰り返し観てました。

その後にまたまたプログラミング初心者御用達のProgateにてRuby on Rails5コースに取り掛かりましたが、後半は難しすぎてやめました(笑)

その頃に初めてプログラミングに関する本である「Ruby on Rails4 アプリケーションプログラミング」を買いました。

Ruby on Rails4アプリケーションプログラミング
※今は最新版の「Ruby on Rails5 アプリケーションプログラミング」も発売されています。

後にこの本は僕にとってかなり神的な本になったのですが、その頃の僕にとっては訳が分からず、すぐ読むのをやめてしまいました。

その後、Railsを学ぶなら「Railsチュートリアル」が良いとネットに書いてあったので、Railsチュートリアルを始めました。

Ruby on Rails チュートリアル：実例を使って Rails を学ぼう

ただ、本での勉強は理解しにくいと感じていたので（今は本での勉強めっちゃ大事だと感じてます！）、Railsチュートリアルの動画が販売されていたので、その動画を購入して勉強しました。

解説動画お試しプラン - Railsチュートリアル

動画の価格が29,800円(税別)なので、決して安くはなかったですが、結果的にこの動画は僕にとって神動画になりました！

この動画を観てやっとRubyとRailsの違いをようやく少しだけですが理解できました。(それまでRubyとRailsがそれぞれ何なのかすらよくわかってなかった...)

ただ、ProgateのRailsコースを途中で挫折する僕です。

神的な解説のおかげで前半部分はなんとなく理解できましたが、当然後半は訳わからず、「コードをコピペして分からんけど動いた」みたいなことをしてました。テストはもちろん書いてません！(笑)

Railsチュートリアルを訳分からないなりになんとか２周した後に、当時UdemyにRailsを使ってAirbnbみたいなサービスを作ってみる動画があり、評判がよかったためそれを見て勉強しました。

結果的にその動画は今までRailsを勉強してきた中で一番役に立った神動画でした！

Progateやドットインストールで勉強した後、「一からどのようにサービスを作ったら良いか分からない問題」に必ずプログラミング初心者にはぶち当たると思うのですが、

その動画はrails newから実際の現場でどのようにサービスを作っていくか丁寧に説明してくれていました。

現在ではUdemyから削除されているのですが、今になってもまたもう一回観てみたいと思う動画です。

ただ、神動画でも僕の理解力の低さには勝てません(笑)

動画の後半はかなり難しい内容になってきて、最後の方はお得意の「コピペしてなんか分からんけど動いた」みたいなことばかりやってました。

それで何とかその動画も全て見終わった後、出版のサービス(サービス名はnospriといいます)を作ってみたいと考えていたので、そのサービスの制作に取り掛かりました。

無料で紙の本を出版できるサービス

途中100回くらい挫折しそうになりましたが、どうしてもサービスを作りたかったので気合いで何とか分からないなりに４ヶ月くらいかけて作りました。

この出版サービスを作っている時に、Javascriptも勉強しないとまずいと思い、サービスを制作しながらとりあえずjQueryの勉強もしてました。

ちなみに、サービスの中でHerokuのH12 Error( 30 second timeout )を回避する為に、Ajaxを使って大容量データファイルをAmazon S3に直接送信する機能があるのですが、そこが僕にとって特に難しく泣きそうになったのは良い思い出です。。。

出版サービスを完成させた後、改めて前に購入していた「Ruby on Rails4 アプリケーションプログラミング」を読んでみたのですが、知識の点と点が繋がるとはまさにその時のことで、Railsについての理解度が今まで2%くらいだったのがやっと5%くらいまで上がったと思います(笑)。

そこから本での勉強も大事だと言うことに気づき、RubyとRails、jQueryに関する様々な本を書いました。

それぞれ僕にとって一番よかった本は以下の通りです。

RubyはRuby界隈で有名な伊藤淳一さんが書いた「プロを目指す人のためのRuby入門言語仕様からテスト駆動開発・デバッグ技法まで」

プロを目指す人のためのRuby入門言語仕様からテスト駆動開発・デバッグ技法まで (Software Design plusシリーズ)

Railsはすでに紹介済みの「Ruby on Rails4 アプリケーションプログラミング」の最新版にあたる「Ruby on Rails5 アプリケーションプログラミング」

Ruby on Rails5 アプリケーションプログラミング

jQueryは「Web制作の現場で使うjQueryデザイン入門[改訂新版] 」

Web制作の現場で使うjQueryデザイン入門[改訂新版]

今ではjQueryは古く、ReactやVue.js等のモダンなフレームワークを使うケースが多いため、今から必ずしもjQueryを学ぶ必要はないんじゃないかと思います。(じゃあ、RubyよりもPythonやGo勉強した方が良いんじゃないの？とかは言わないで...)

RubyやRails、jQuery等の本を10冊くらい読んで勉強した後に、webのメディアサイトを作ってみたくなり、僕は京都が大好きなので、京都の鴨川に関する記事を誰でも投稿することができるwebメディアサイト（サービス名は「鴨川へ行こう」）を１ヶ月くらいで作りました。

鴨川へ行こう | 京都鴨川のあらゆる情報を発信するサイト

２つ目のサービスを作ってやっとここでRuby on Railsへの理解度が7%くらいまで上がりました！

ここから絵本を投稿できるサービスを作ったり、感謝の気持ちをポイントに変えて自由に送り合うことができるサービスを作ったり、小さいのも合わせると全部で５個くらいサービスを作りましたが、公開までに至りませんでした。

原因は１つです。

デザインセンスがないからです。服はほぼユニクロで買う僕にデザインのセンスなんてあるわけありません。ってかCSS書くのがめんどいです。。。

ただ、今となっては最低限CSS書いて、いくつかのサービスは「公開しとけばよかった」と思っています。なので今後ちょこちょこデザイン整えて、公開できるまでもっていきたいです。

一方、サービスの公開まではいきませんでしたが、そこでポイント機能やフォロー・フォロワー機能、stripeを使った決済機能など、いろんなサービスで応用できそうなスキルを何となく学ぶことはできたのでまあ良い面もありました。。。

今年に入ってから僕が今までで一番時間をかけて初心者向けのクラウドソーシングサービスを作りました。(サービス名はnovice、日本語で「初心者」という意味です。)

novice | 失敗しても大丈夫! 初心者・未経験者のためのクラウドソーシングサービス

何とかリリースまでもっていきましたが、今まで発信等を全然していなかった為、全然ユーザーが増えません。よかったらTwitterフォローしてください(笑)

@leavescomic1

発信力が弱小な人にとってやっぱりto C向けのサービスは難しいですね。。。

今後は情報を発信しつつ、UXの面でも超絶使いにくいところが山ほどあるので、そこらへんを徐々に直していこうと思います。

あと、プログラミングを勉強してサービスを作るのもいいけど、作ったサービスを広めることにも注力した方が良いと今はひしひしと思います。僕はサービスを作っただけで満足していたから今かなり痛い目にあってる。（前から痛い目に遭ってばっかりだけど。）

まあ、今までめちゃくちゃ小規模でくだらないサービスも含めて全部で８個くらいサービスを作ってきましたが、ようやくRailsのことを9%くらい理解できるようになりました。

何とか今年中に10%くらい理解できるよう頑張りたいです(笑)

また、Swiftを勉強してiOSアプリリリースして、友達に自慢したいです。プログラミングやってない人から見たら、クソみたいなアプリでも自分のアプリがAppleストアに載ってるだけですごいと思ってくれるじゃないですか！？

色々書きましたがとにかくまとめると、プログラミングの勉強で一番大事なのは「情熱」だと思います。（なんじゃそりゃ。。。）

もっとがんばります。はい。。。

インスタグラムのブログパーツを作った📷

2019-06-23T17:06:57+09:00

作ったもの

Insta Window Tool

こんな感じでインスタの写真をサイトに貼り付けられます。

作った背景

インスタグラムの写真をサイトに貼る必要があったので調べたところ、ブログパーツは既にあったのですがブログパーツのサイトにリンクしてしまう残念仕様だったので自作しました。

技術スタック

VueJs
FirebaseHosting
UIKit

くらいかな？

今後の予定

ブログパーツのサイズや色など設定できるようにしていくつもりです（いつか）

突貫で作ったものなのでキレイにしてくれたり機能追加してくれる方募集中です😉
https://github.com/akinov/insta_window

なにかあれば@kuronekopunkへ💁‍♀️

僕が一人で「novice」という新サービスを作ったきっかけ

2019-06-21T12:06:10+09:00

ミズタニといいます。Twitterアカウントは@leavescomic1です。

僕はここ１年半ほどプログラミングを独学で勉強しています。
開発言語は主にrubyでフレームワークにRuby on Railsを使っています。

今まで公開したサービス、公開していないサービス、全部合わせると6個ほどサービスを作りました。

Amazonで紙の本で誰でも出版できるサービスとか
nospri

京都の鴨川に関するメディアサイトとか
www.kamogawa-go.com

しかし全部作って満足。

それだけ。

誰かが勝手に見つけて使ってくれたら嬉しいけど、自分から積極的に宣伝しようとは思わなかった。

なぜかというと、「こんなしょぼいサービス見られたら恥ずかしい」とか「デザインセンスがない」とか「宣伝のために営業したり、発信したりするのがめんどい」とか

とにかく作って満足。そこで終わり。という感じでした。

でも2019年に入ってから、やっぱり誰かに自分のサービスを使ってもらいたいと思うようになりました。

確かに新しいサービスを作ることは楽しいけど、自分のサービスを他の人に使ってもらえる喜びには勝りません。
顔も知らない誰かが自分のサービスを使って喜んでくれたら、やっぱりめちゃくちゃ嬉しいです。
それから新しいサービスを作り始め、先日ついに完成し、リリースしました。

サービス名は「novice」、サービスの内容は一言で言うと、初心者・未経験者向けクラウドソーシングサービスです。

novice

このサービスのアイデアは自分がプログラミングを独学し、ちょっと受託で開発にチャレンジしてみたいと思ったことがきっかけでした。

試しにクラウドワークスやランサーズといったクラウドソーシングサービスを使って応募してみましたがその時、全然受注することができませんでした。

（「単価が安いクラウドソーシングを使うのは良くない」みたいな意見は一旦置いといて下さい...）

いろいろ調べてみましたが、初心者・未経験者が案件を受注するためにはかなり努力をしなければなりません。以下のようなことが必要とのことです。

* 自分のポートフォリオサイトを作る
* 応募段階で顧客が望むモノをある程度まで作って、依頼者に提案する
* 他の応募者よりも安く、短い納期を提案する

やっぱり最初の一件の仕事を受注するのは、こちらからかなり積極的に提案して行かないと難しいようです。

また、安い単価の仕事でもお金をもらって受注することに怖いと感じる人も多いのではないでしょうか。僕はそうでした。

初めての受託開発は「本当に完成させられるかな？」とか「失敗したらどうしよう？」と考えてしまい、それが原因で仕事の応募を躊躇している方もいると思います。

それらの経験から「もし初心者や未経験者が気軽に仕事にチャレンジできるクラウドソーシングがあれば、喜んでくれる人がいるかもしれない」と考え、４ヶ月半ほどかけてnoviceを作りました。

novice-work.com

noviceは様々な分野での初心者・未経験者のためのクラウドソーシングサービスであり、最大の特徴は受注した仕事は失敗してもOKという点です。

最初から失敗してもOKという形で依頼してくれれば、受注する側の心理的負担はかなり軽減されると思います。また、他の応募者も初心者・未経験者が多いため過去の実績がない人でも仕事を獲得しやすいです。

noviceを使うメリットを以下にまとめました。

＜仕事を依頼するユーザーのメリット＞

①仕事を相場より安く依頼できる

②受注者はプロではないことが多いため、近い目線でコミュニケーションを取ることができる。

＜仕事を受注するユーザーのメリット＞

①受注した仕事はチャレンジした結果、失敗に終わってしまってもOK。だから安心して仕事にチャレンジできる。

②noviceは様々な分野の初心者・未経験者が集まる場所なため、過去の実績・経験がない方でも仕事を受注しやすい。

③お仕事を受注し完了すれば、受注者の実績となり、経験を積むことができる。

例えば個人開発であれば、バックエンドは得意だけど、デザインは苦手という人は結構いるかと思います。僕は個人開発でバックエンドのシステムだけ作ってそこで放置.....みたいなことよくやってます。どうせだったら、デザイン勉強中の人にデザインお願いしてみるのも１つの手だと思います。

受注する側の人にとって単価が安くても経験が積めて、それが実績になるのであれば、キャリア形成のファーストステップとしては良いのではないかと思います。

ただ、いつまでも単価が安い仕事ばかり受注するのは良くないと思っています。noviceはあくまでのキャリア形成のファーストステップとして活用して頂き、実績を積んだら、それを生かして高単価の仕事を獲得したり、転職したり、次に生かして欲しいです。

プログラミングでも、語学でも、何か新しいスキルを身につけたけど、実績がないような方がいましたら、是非ファーストステップとしてnoviceを使ってみてください！

ちなみに
クラウドソーシングサイトの「求めるスキル」ってレベル高すぎません？

ちょっとクラウドソーシングサイト内に載っていたマッチングサービスの開発案件の募集要項を引っ張ってきました。

▽使用するプログラミング言語/ツール/特殊技術（テクノロジー）
・Java / PHP / Ruby / Pythonなどの技術
・MySQL / PostgreSQLなどのデータベース技術
・Javascript（jQuery、react、vue.js）の技術
・サーバ構築、管理の技術（AWS、VPSなど）
・HTML / CSSの技術（ウェブページのコーディング技術）

JavaにPHPにRubyにPythonが書けて、MySQLとPostgreSQLなどのデータベース技術に精通してて、ReactとVue.jsが書けて、AWSやVPSのサーバ構築ができて、HTML/CSSのコーディングができる人ってどんだけいるの？

web業界である程度経験がある方であれば、上記のスキルを網羅している方も多くいるかと思います。むしろ中級者、上級者の人から見れば出来て当たり前のスキルなのかもしれません。ただ、そのようなある程度スキルがある人がわざわざクラウドソーシングを使うのだろうか....少し疑問です。

もちろん上に記載されていることは全て必要ではなく、あくまでも目安で、いづれかの経験があれば良いってことはわかってます。ただ、プログラミング初心者や業務未経験の人にとってこういう募集要項を見るとビビります。そして絶望します。

「そうか、受託で仕事を取るにはあとあの言語とあの言語が書けるようになって、あのデータベースを使えるようになって、あのサーバを使えるようになって......」

いや、あとどれだけ勉強すればいいんだよってなります。

僕は過去にIT系の企業で働いたことがなく、プログラミングの業務経験が全くありません。だからなかなか普通に受託で仕事を取ってくるのは難しいし、それでは生きていけないから今も別でバイトしながらサービス開発してるし。(今一応法人を持っていますが、それもただ持っているみたいな感じになってます。)

普通、多くの人は独学でプログラミングを少し勉強して、ポートフォリオ作って、どこかのweb企業に入ってある程度実績積んでから独立するみたいな流れになるんだと思います。

まあ、それが当たり前なんだと思いますけど、業務未経験でもいきなり独立していける環境ができたら面白いのになぁと考えています。（IT系だけでなく全ての業界で）

Markdownで書いてみよう

2019-04-09T23:38:18+09:00

技術系のブログを書く場合、Markdownで書くのがおすすめです。Markdownというのは、記号を含めたテキストの書き方で、簡単に見出しや強調など、文字の装飾、コード表記を行うことができます。

例えば強調する場合は

**ここを強調**する

のように書くと

ここを強調する

のように表示されます。

## 見出しです

のように書くと

見出しです

のように表示されます。

はてなブログ、Qiita等、技術系の記事を書くことができる様々なサービスで使われており、GitHubのREADMEも書くことができるため、とにかく一番オススメの書き方になります。

色々な書き方がありますので下記などで見てみてください。

Markdown書き方メモ - Qiita

プログラミングという自己表現、或いは社会に何を与えれるか

2018-10-10T16:22:08+09:00

もう30歳になるおじさん（？）がこんなこと言っても説得力ないけどさ、
プログラミングって、良いよな。って話。

プログラミングはコンピューターを自在に操れる

当然の話かな。中間にOSやらなんやらは入るので、もしかしたら無理なことがあるかもしれないが、ほぼ自在に操れるも同然だろう。

むしろ、自在に操れないのなら、OSを作ってしまっても良いだろう。
もはやパーソナルコンピューターさえも自分の融通が利かないというのであれば、ハードから設計してしまってもいいし。

ということで、まずは当たり前のことを当たり前に述べたつもり。

結局コンピューターは計算機なんだ。手計算では骨が折れるようなことも、平気で黙々と超高速でやってくれる。
とはいえ、やっぱり数学がわかってると、もっと早くコンピューターに計算させることもできる。

プログラミングはコンピューターを経由して自己表現できる

うん、ここから胡散臭くなってくるんだ、すまない。

そんな計算機というかコンピューターだが、今は演算結果を映像や音にもすることができたり、音を映像にしたり、とりあえず数値化できるものは別の形に置き換えることができる。

たかが数値だと思うかもしれないが、その数値が映像になったり音になったりした時の感動は、プログラミングをやった人なら分かるだろう。

絵も、画材は色々あるが、キャンバスに木炭を擦り付けて、モノのシルエットを描いたり、絵の具を混ぜ合わせたりして別の色が作れるし、色を重ね合わせるだけでも味わいが出る。
音楽も、楽器は色々あるが、弦をピンと張って弾いたら音がなるし、それを半分のところで押さえたりすると別の音がでるし、ましてや音と音を重ね合わせると、また違う味わいを持つ。

一見これらと無縁な数値の世界も、重ね合わせたり混ぜたりすると、それはまた味わいが出るのかと思う。

それで、その良い塩梅を見つけていくのが楽しい。そしてその良い塩梅に共感を感じられると、また楽しいわけで。

だから自己表現としてのプログラミングも、普通にありだと私は思う。

プログラミングはコンピューターを経由して世界を作れる

ちょっとアートの話になった、確かにここでのお題はテレビゲームを作る的な意味も入ってるが……、

世界を作れるのだ、それがコンピューターで演算し尽くした仮想環境で閉じてるか、或いは人の感情が入り乱れる実世界で行うか。それだけの違い。

今はありがたいことに、インターネットで海の向こうの人ともコミュニケーションが取れるようになった。
なったけど、秩序があるかどうかはまた別問題で。

なんでもかんでも自由にすると、なぜか人は殴り合いを始めがちであるし、制約がある方が面白いこともある。スポーツが特にそうではなかろうか。

コミュニケーションも何らかの制約があると、また違った味わいがある。140文字以内での投稿や、コメントが残せないとか、誰が読んでくれるか分からないメッセージを流すとか、一度しか読めない手紙をうけとるとか。

そういう、世界に対する自分の求めるコミュニケーション方法を実装するのも、面白いと思う。

`Hello world...` の後に続く世界を実装してこうぜ

プログラミングの決まり文句 Hello world 、
「コンピューターの世界にこんにちは」
と、挨拶しているのである。そしてそれに答えるコンピューターがいる。

Hello world というワードは、実は僕たちの過ごしている実世界にも言えるのではないだろうか。
生誕した時に限らない。 Hello world は、いつだって言える。実際、コンピューターでとりあえず知らない言語を触る時は、とりあえず Hello world で感覚を掴む、その言語の世界の雰囲気を読むと思う。

Hello world 、この言葉の後に何か付け加えても良いのではないだろうか。
あなたなら、なんと付け加えるだろう。

お金儲けのプログラミングも良いと私は思う。でも、せっかくコンピューターで魔法が使えるなら、自分だけの法を作って、世界を作ってしまっても楽しいかもしれないと私は思う。

そんなことを、お金儲けのプログラミングをしつつ、思ったのだった。

Hello world... {ここにあなたの暮らしてみたい世界を入れてください}

プログラミングをはじめた時のこと Windows3.1編

2018-04-18T17:51:23+09:00

プログラミングをはじめたのは確か中学生か高校生の頃。

もうはっきり覚えてないけど、中学で年に数回しかなかったPCの授業でタッチタイピングをして驚かれた記憶があるので、多分中学ではやっていたんじゃないかと思う。

はじめて実家で買ったPCは富士通のFM-V。Windows3.1が入っていた。まだファイル名が8文字＋拡張子だった頃。

家ではほとんどゲームばかりしていたので、その関係でゲームを作りたいと思うようになっていった。普段から頭の中で自分で作った新しいゲームの妄想などをしていた。
なのでプログラミングについてはずっと興味津々だった。

一度PCを持っている友達の家にいき、ゲームを見せてもらったことがある。しかもそれがその友達の知り合いが作ったゲームということですごく興奮したのを覚えている。
自分でも作れるようになりたかった。

とはいえまだインターネットをやってる人もあまりいなかった時代。まだパソコン通信という名前で一部の人がやっているっぽいことを雑誌か何かで知っていただけだった。
当然うちでは繋がってなかったので、今みたいにネットで調べて勉強、みたいなこともできなかった。ほんとに時間がもったいなかったなと思う。
今の若い人はとてもうらやましい。

しかしある日、とある雑誌を見つけた。なんとそれは、Visual Basicの体験版が同梱されている雑誌。
早速その雑誌を買って、自宅のPCでプログラミングをはじめた。
僕のプログラミングの第一歩。

体験版なので作ったものを保存したりができなかったのだが、それでも毎日すごく夢中になって頑張って何かを作っていた。
多分ちょっとした使い方なんかはその雑誌についていたんじゃないかと思うので、それで色々やっていたと思う。
ウィンドウの背景を青のグラデーションにするのにハマっていたので、作るアプリケーション全て背景がそんな感じになってた。

多分ゲームやプログラミングなど好きなことばかりやって引きこもっていたので、
友達も少なく、どうやって楽しく遊んでいいかもわからず、その後もしばらくは周りと馴染めずに過ごしていたけど、
こうやって楽しくプログラミングをしていた姿が今となると、
将来自分の幼い息子がこうやって何かに夢中になって励むのだろうというまだ見ぬ姿に重なり、
なんとなく誇らしく、微笑ましい気持ちになる。

その後はあまり記憶が定かではないのだが、恐らくおじいちゃんにたのんで、多分学生向けの激安VBの製品版を買ってもらったのではないかと思う。多分高校生くらい？

製品版ともなると、拡張子exeの実行ファイルを作ることができるようになる。それだけでものすごく興奮した。

色々なものを作った記憶がある。一問一答のカードリストを自分で作れるソフトとか、
スタートアップに登録してPC起動時に起動するようにして、10秒以内にパスワードを入力しないとPCをシャットダウンさせるソフトとか。
（弟に文句を言われたので外した。当時は自分の好みにPCの中を整理したかったので、他の人に使われるのが嫌だった）

このあたりも情報収集方法は本屋だけだった。毎月フリーソフトが100個とか入っているCDがついた雑誌を購入していた。
あとは立ち読みして情報収集していたんじゃないかと思う。学校帰りにいつもPCコーナーに立ち寄って本を見ていた。

そういえばふと思い出したけど、すごくハマっていたフリーソフトがあった。
ボールみたいなキャラクタを操作してハンバーガーを集めるゲームで、ステージがテキストで作られているので自分で改造できるという代物。

とても面白くて、しかもフリーソフトということで普通の人が作っているということなのでとても興奮してファンになった。
その人に憧れて、自分も何か作ると似たような体裁の説明書txtを作ったりしていた。
（ネット繋がってないから公開もできないのに）
確か1000円寄付した覚えがある。
作者名もゲーム名も思い出せない。なんだろ…
（※思い出しました。FlyingJumpというゲーム）

あと雑誌で、スクリーンセーバーも作れるという方法を見たので、試して作ってみたりした。
手に入れたフリーソフトで自分の声を録音してそれをかもめの声のように高くなるよう変換し、かもめが海を飛んでいるスクリーンセーバーとかを作っていた。
春夏秋冬４パターンを作ろうと思ったが途中で飽きてやめてしまっていた気がする。

スクリーンセーバーを作れるということは描画はできるっぽいんだけど、その時ゲームを作っていたかは全然覚えていない。

そういえば、センター試験の選択問題はBASICのプログラミングがあったので、いつもそれを選んでやっていた。
普通に数学解くよりめちゃくちゃ簡単だった。

あとはすごい技術がたくさん詰まった5000円くらいの分厚い本を買ったのだが、多分他のことにハマったのか受験で忙しくなったのかは忘れたが、
ほとんど使わずじまいになってしまった。

まあそんな感じで、自分では気づいていなかったかもしれないが非常に充実した時間を過ごしていたと思う。
プログラミングが好きな人は、せっかくなのでガッツリハマって楽しんで欲しい。
この時代、やりたいことは何でも調べてできるのだから。

「プログラミング」の記事 - Crieit

【実況ブログ】 Excel VBAで初めてのプログラミングを覚えようぜ（＾～＾）？

プログラミング脱落者救出☆大作戦＜２＞ Current Directory と Executing Assembly Location 編

プログラミング脱落者救出☆大作戦＜１＞ Windows アプリケーションの Resolve Path 編

プログラミングでつまずいたところ（主に昔話）

PythonによるWebスクレイピングを解説

お前らオブジェクト指向なんか真面目に信仰して勉強してもまともなプログラミングは書けないことについて☆（＾～＾）＜書きかけ＞

お前ら、「コンパイルできて実行ファイルは高速に動作し、けれどもインタプリタ（スクリプト）言語みたいにプログラミングできる言語」が欲しいんだろ？

僕がサービスを作る時の手順

勉強でもスポーツでも成長は一定じゃない。成長曲線を理解しよう。

僕が今までやったRuby on Railsの勉強

インスタグラムのブログパーツを作った📷

僕が一人で「novice」という新サービスを作ったきっかけ

Markdownで書いてみよう

プログラミングという自己表現、或いは社会に何を与えれるか

Hello world... の後に続く世界を実装してこうぜ

プログラミングをはじめた時のこと Windows3.1編

`Hello world...` の後に続く世界を実装してこうぜ