簡単で難しい事、いや難しい事なのかもな。
2022.08.01
おはよう、8月です。収益化は難しいけれどもアクセス数は意外にもある中の人です。
さて最初にTシャツ作りが頓挫した話から書きます。何故(・・?、毎日Tシャツ作りをすると言いながら途中で辞めたのかを話します。理由はデザインに割く時間よりもコードを書く時間や就職活動などを優先しているからです。なので中々、デザインにまで手が回らない。もう一つはスランプ気味なので、手抜きなデザインしか出来ないのが現状です。だからTシャツづくりは頓挫しています。
いま、一番力を入れているのはWEB開発の方です、人にも公開できるし自分にも結果が帰ってくるので、そちらの方を優先しています。Tシャツは売れないけどWEB開発はトントンになる確率がTシャツよりあるので、そちらを優先しています。そういう理由からなんですね。
そしてWEB開発はいろいろとアイディアがあってそれを自分の手を動かしてコードを書いて結果が見えないものは改善したり削除したりして、良いものに作り変える事がデザインよりも自分は得意な感じです。そして何よりデータが取れるので改善しやすいのです。
まとめ、収益化はまだまだ道半ばですが頑張ります。尚、就職先が決まってもアクセス数のあるWEBサービスは停止する事はないと思います。人気の無いサービスは廃止しますけどね…😌。
追伸:Tシャツサイトはアクセス解析が未だに機能しないのは困りもの。いいねが付かなくてもどんな物に興味があるのか分れば求めているものは作りやすいですけどね。
タグ
8, web, アイディア, アクセス, いま, いろいろ, コード, シャツ, スランプ, そちら, それ, デザイン, もう一つ, もの, 一, 中, 中々, 事, 人, 優先, 公開, 削除, 収益, 就職, 手, 手抜き, 改善, 方, 時間, 最初, 毎日, 活動, 現状, 理由, 確率, 簡単, 結果, 自分, 話, 途中, 開発, 頓挫,
ネタがなくて九九表なんか作っている訳ではなく。
2021.08.10
暑い暑い日曜日、台風9号の影響は日曜日の夕方から夜中までかなとか思いながら記事を書いています。因みにこの頃、予約記事のストックが切れそうですね。ネタが思いつく時は一気に数記事書けるのですがネタが出てこないスランプに落ち込むと記事のネタが思いつかなくて書けない日が続くこともあります。
ネタがなくて九九表なんか作っている訳ではなく。単純に自分の頭は九九表がかけた頭になっていたので、そのために作っただけです。計算とかをパソコンなどに委ねていると自分の頭は退化する一方です。暇で何もせずにズゥーっと頭を使わないと呆けるというのは、本当なのかもしれません。
何もしないと漢字は書けなくなるし、基本的な計算することすら出来なくなるのですよね。プログラミングは毎日のようにしているのだけど、それ以外の事は何ひとつしていないので文字を書く時の筆圧具合いがめちゃくちゃだったりもして・・・、本当に基本的なことが全然できなくなってきています。
そういう事で基本の基に立ち返ろうとしているわけです?。
小学生の勉強につまずくとその後、全部の勉強につまずくことになります。なので小学生の勉強はかなり大事だと思います。
因みに今回のjavascriptのソースコードはこんな感じになります。
9×9:九九表はこちらから
document.getElementById("Q9_select").innerHTML = (function () {
let str = "";
for (var i = 0; i <= 9; i++) {
str += !i ? "<option value=''> " + "選択してください" + "</option>\n" : "<option value=" + i + ">" + i + "の段</option>\n";
}
return str;
})();
document.getElementById("Q9_select").addEventListener("change", function (e) {
let Q = this.value ? this.value : 0;
let str = "";
let view_flg = 1;
for (var i = 1; i <= 9; i++) {
let ans = Q * i;
str += "<p class='h2'><span class='text-primary'>" + Q + "</span> × " + i + "= <span class='Q9_ans' style='visibility:visible'>" + ans + "</span></p>";
}
str += "<p class='text-center'><button class='h2 btn btn-primary' id='view'>九九の解を<span id='txt'>非表示に</span>する</button></p>";
document.getElementById("Q9_view").innerHTML = str;
document.getElementById("view").addEventListener("click", function () {
let object = document.getElementsByClassName("Q9_ans");
for (const key in object) {
if (Object.hasOwnProperty.call(object, key)) {
const element = object[key];
element.style.visibility = view_flg ? "hidden" : "visible";
}
}
view_flg = view_flg ? 0 : 1;
document.getElementById("txt").innerText = view_flg ? "非表示に" : "表示";
});
});
タグ
9, こと, ズゥー, ストック, スランプ, それ, ため, ネタ, パソコン, プログラミング, めちゃくちゃ, 一方, 九九, 予約, 事, 何, 具合い, 単純, 台風, 夕方, 夜中, 影響, 数, 文字, 日, 日曜日, 時, 暇, 本当, 毎日, 漢字, 筆圧, 自分, 計算, 記事, 訳, 退化, 頃, 頭,
#サンプルコード 極力おなじコードを書かないようにする方法。
2015.03.13
極力おなじコードを書かないようにする方法。同じオブジェクトを複数配置する場合、クリックした時の処理も同じだったりします。そういう時に同じ処理を何回も書くのはちょっと手間だったりします。オブジェクト名が違うだけのために同様の処理コードを何度も書かなくてはならないなど、面倒くさいので自分は下記のようなコードを書いて同じコードを書かないようにしています。これは例えばの例ですので、他の方法もあると思います。Excelじゃなければもっと大雑把な方法で書くことも可能です。
明日、VSのフリーを使用して同じようなコードなど記載します。もしかすると路線を変更して何かのツールを作るかもしれません(´Д`)。この頃、VSもまともに使用していないので覚えてません・・・・と言うより、感覚的にあれあったなで覚えていますのでググりながらコードを書いてます。スランプ8年目ぐらいになります。もともとスランプでしたのであまり変わらないですね。「えっはい」(゚Д゚)
このコードちょっと意地悪なコードです。(´・ω・`)わかるひとがみると斜め向いたコードだと理解するでしょう(ニヒ、旭化成)
サンプルコードも置いときます。ご自由にお使いください。https://zip358.com/tool/hogeta.zip[DL]
Private Sub CommandButton1_Click() cmd_ck CommandButton1, 1 End Sub Private Sub CommandButton2_Click() cmd_ck CommandButton2, 2 End Sub Private Sub CommandButton3_Click() cmd_ck CommandButton3, 3 End Sub Sub cmd_ck(obj As MSForms.CommandButton, i As Integer) Dim obj_cmd As MSForms.CommandButton Set obj_cmd = obj If obj.Caption = "(-.-)v " & i Then obj.Caption = "(-.-)g " & i Else obj.Caption = "(-.-)v " & i End If Set obj_cmd = Nothing End Sub Private Sub UserForm_Initialize() Dim cmd As MSForms.CommandButton Dim ary_cmd As Variant Dim i As Integer ary_cmd = Array(CommandButton1, CommandButton2, CommandButton3) For i = 0 To UBound(ary_cmd) Set cmd = ary_cmd(i) cmd.Caption = "" Set cmd = Nothing Next End Sub
タグ
0 To UBound, AM, cmd_ck CommandButton1, cmd_ck CommandButton2, cmd_ck CommandButton3, cmd.Caption, Dim ary_cmd As Variant, Dim cmd As MSForms.CommandButton, Dim i As Integer, Dim obj_cmd As MSForms.CommandButton, End Sub, If obj.Caption, obj As MSForms.CommandButton, Private Sub CommandButton1_Click, Private Sub CommandButton2_Click, Private Sub CommandButton3_Click, Private Sub UserForm_Initialize, Set cmd, Set obj_cmd, オブジェクト, スランプ,