2018-01-01から1年間の記事一覧
はじめに 自動化してみる Int_MulDiv Int_MulDiv_Num_Select まとめ はじめに 足し算、掛け算、引き算と来てようやく割り算。 割り算の実装の仕方も引き算と同様です。 今回は「Int_Multiplication」から「Int_MulDiv」を一気に作ります。 そんなに言いたい…
はじめに 統合する準備 自動化してみる ひながた Int_AddSub Int_AddSub_Num_Select まとめ はじめに 前回「Int_Subtraction」を書きましたが 今回はこれを「Int_Addition」と統合します。 AdditionとSubtracitonの頭3文字をとって「Int_AddSub」関数を! 統…
はじめに 引き算の実装の仕方 自動でやってみる まとめ はじめに 良いか悪いかはよくわかりませんが、個人的には1つのシステムに実装されている関数は、少ないほうが格好良いと思っています。 といっても実利はあまりないのですが。 モチベーションが下がら…
はじめに 難度の設定 自動化してみる 傾斜のかけ方 「Int_Multiplication_Num_Select」 まとめ はじめに 今回はいろいろな掛け算を実装します。 今回は簡単かなーと思っていたのですが、いざやってみると思いがけない問題が。。 難度の設定 まずは難度を設定…
はじめに 手順 自動でやってみる Int_Multiplication Int_Multiplication_Num_Select まとめ はじめに 今までは足し算を扱ってきました。 そのコードをちょっと変えるだけで掛け算にできます。 手順 1桁の数字を2つ決める 2つの数字を掛け合わせる 計算式を…
はじめに 足し算の種類 自動化してみる levelと難度の対応 Int_Addition_Num_Selectを書く まとめ はじめに 前回、その4_1で関数を変更、追加しました。 今回はいよいよ「いろいろな足し算」を実装します。 足し算の種類 繰り上がりなしの1ケタどうしの足し…
はじめに 準備すること 変数numを配列にする Numの値を決める部分を関数化する 難度を設定するために変数を1つ足す まとめ はじめに 前回は繰り上がりなしの1ケタの足し算でした。 今回はもうちょっと種類を増やしてみましょう。 …… と思ったのですが「計算…
はじめに 手順 手動でやってみる 自動でやってみる まとめ はじめに 今回は問題の難度を設定します。 簡単な問題、難しい問題って設定したいですよね。 手順 数字をひとつ決める それと足し合わせても繰り上がらない数字をひとつ決める 足し合わせた数字もと…
はじめに 手順 自動でやってみる Int_Addition_Ver1 Insert_Equation まとめ はじめに 第2回は「足し算を20問つくろう」です。 第1回で書いたことを前提としているので まだ読まれていない方はこちらからーーー taki-no-oto.hatenablog.com 手順 足し算の計…
はじめに 手順 手動でやってみる 自動でやってみる Rnd_Num Replace まとめ はじめに タイトルの通り「計算プリントを自動生成する」について書きます。 今回は「足し算を1問つくろう」です。 いつもどおりVBAで作ります。 taki-no-oto.hatenablog.com 手順 …
久しぶりに更新です~ なんと80日くらい放置していたみたいです笑 ブログを放置していた期間はさして成長していない気がします笑 強いていうなら ハンバーグが作れるようになった キムチ料理を作れるようになった 10km走でベストタイム(53:12)が出た 本棚の…
はじめに 5-3-1プログラムとは? メニュー自動作成プログラミングコード はじめに このブログ内では人気の記事だったので、わかりやすく書き直しました~! 5-3-1プログラムとは? 全16回からなるプログラムです。 1. max重量の70% 5セット5レップ 2. max重…
はじめに Excelを起動する 名前を付けて保存 VBEの起動 標準モジュールを挿入する コードを書き込む コードを走らせる はじめに 筋トレのプログラム自動作成のコードを載せたのですが、 VBAの使い方が分からない! という声を聞いたので、解説を作ってみまし…
はじめに ヴィジュネル暗号に進む前にひとつ忘れ物。 シーザー暗号よりはちょっとはましな 単一換字式暗号を実装しちゃいましょう。 おそらくこれがエニグマまでの原型になるはず。。 まだ作ってないのでわからんけど。。 さくっと歴史 ちょっと調べてみた感…
はじめに 今回は暗号を実装しようの第5弾かな? 今回も「形式の修正」です。 換字式暗号の肝である換字表の作成と読み込みです。 このコーナーの半分以上が暗号を実装しない回になってしまっている。 まだまだ「一歩目」が甘い証拠です。 体勢を崩しても転ば…
はじめに 暗号を実装しようの第4弾。 今回はなんと暗号を実装しません笑 前回の告知のように「形式の修正」 関数の「txt_input」と「txt_output」に 読み込み先、書き込み先のテキストファイルを選択する機能を付け足します。 * なぜ必要なのか ファイルのテ…
はじめに さてさて。 「暗号を実装しよう」の第3段です。 記事のストックがないので大急ぎで書いています笑 今回はポリュビオス暗号。 全く聞いたことない笑 さっくと歴史 紀元前2世紀に古代ギリシアのポリュビオスが発明。 5*5の25マス目にアルファベットを…
はじめに 前回スキュタレー暗号を扱いましたが 書いたコードで不便な場所があったので ひとつ「形式の修正」をします。 メモ帳を扱う 前回はシート上のセルから文字列を読み込んで また別のセルに書き出していましたが それだとちょっと不便かもしれないので…
はじめに 前回終わりを宣言したこのコーナーですが ちょっと試してみたいことがあったのでもう一回だけ。 マシンを変えてみる 今まで使っていたのはMyノートパソコン スペックはどうやって表現するのだろう メモリは2Gです。 それに対して今回使ってみたのが…
はじめに このコーナーも第5回。 飽きたか飽きてないかでいうと 飽きてきました笑 Ver7は配列 Ver7はめちゃ速くなります。 このアイディアは思い浮かんではいたものの 実装するとすごいめんどくさくなりそうだなー と思って放置していたのですが いいやり方…
はじめに さて~!! 笑 今回はライフゲームの第4回ですね。 前回は配列をシートに模してそこにセル状態を書き込み 最後にシートに貼り付ける という手法を取りました。 今回はVer5でできるだけforを使わない。 Ver6でデータサイズを小さくする。 を実現し…
はじめにの前に 見たまま編集で書いたものをMarkdownに移植させたので もしかしたら一部変なところがあるかもです はじめに さて~!!!! 今回からようやく機能面をいじります!! 今回は特に。 次世代に生き残るセルの記録とそれを記述する箇所をいじりま…
はじめにの前に この記事は以前に「見たまま」編集であげたものを「Markdown」に変更したものです。 載せているコードの見易さのために移しました。 はじめに この記事はとっくにあげていたつもりが あげわすれていました。 あんまり本稿とは関係のない、リ…
はじめにの前に この記事は以前に「見たまま」編集であげたものを「Markdown」に変更したものです。 コードのみやすさのために移しました。 はじめに こんにちはー。 じつは。。。。 ノートパソコン買いました!!! いえい。 これからはパソコンでブログの…
最近デザインに悩むことが多いです。 デザインというかもっと大きなものかな。 そう。伝え方に。 中身がどうあるかとそれをどう表現するかの二軸があると思います。 その中でも特に表現方法。 自分は今までそれを怠ってきたのでそのツケが回ってきている段階…
今回は多項式同士の計算です。 今回はケースに合わせて少しずつコードを修正していくのではなく 必要だと思う機能を書き出してから それらをひとつづつコードにしていきます。 新スタイル。 はたしてできるだろうか・・・ あ。 今回からコード全部を載せるの…
中学数学の問題を扱おうのその3は「足し算」です。 正確には「同類項をまとめる」ですが。 その1,2で単項式の掛け算を行いましたが その知識を使う場面はあるだろうかないだろうか。。。 今回も簡単なケースを考えてそれを処理できるコードを書いていくよう…
とりあえず前回の復習 ケース1: 2×3 ケース2: 2a×3 ケース3: 2b×ac 以上をクリアできるコード Private Sub CB1_Click() Dim siki(1) As String '扱う式を代入 Dim answer As String '答え siki(0) = TB1 siki(1) = TB2 Dim trgt As String '処理用の箱 Dim t…
こんばんは~。 VBAのことをブログに書いてからちょっとだけブログアクセス数が増えました。 ありがたいことです。 意外と需要があるのかな??? さて。 今回から数回にわたって「中学数学の問題を扱おう!」の記事を書きたいと思います。 ひとくちに中学数…
今日は暇だったのでぽちぽちとプログラミングを書いて さっき完成しましたー。 いくつか冗長な部分もある気がしますが 見直す気になれません笑 テストで答えの確認をしない子供みたいな感じ?笑 コード メイン Dim n As Integer '盤面の大きさDim rp As Rang…