@Blog{zip358.com}

検索する

北斎展 師とその弟子たちを見てきましたよ。in 高知県立美術館

2022.07.23

Logging

おはようございます。昨日、北斎展 師とその弟子たちを高知県立美術館で見てきました。

葛飾北斎は繊細と躍動感を兼ね備えた絵だということ、センスは半端ないな。一つ惜しい所は絵の為に照明を落としていたことです。照明を落とすのは仕方がない事だと思うけど、絵に照明の色が反映しているなって感じで色合いが少しオレンジ色ぽっく見えてしまっている絵が多数ありました。

見てきましたよ！#hokusai#北斎展#高知県立美術館 pic.twitter.com/oub03sk6yY

— 田岡 寿章@taoka_toshiaki🦌 (@taoka_toshiaki) July 22, 2022

そこが少し残念でしたけど1,200円で本物を見えて写真に納める事が出来たのはお得感があります。行ってよかったです、今度は伊藤若冲の絵を京都か東京で見たいなって思っています。

タグ

１, 200, in, オレンジ, お得感, こと, センス, そこ, 一つ, 事, 京都, 今度, 伊藤若冲, 写真, 北斎, 半端, 反映, 多数, 少し, 展, 弟子, 感じ, 所, 昨日, 本物, 東京, 残念, 為, 照明, 県立, 絵, 繊細, 美術館, 色, 色合い, 葛飾北斎, 躍動感, 高知,

SUZURIとBASEでTシャツを売っていく、質重視ならSUZUIかな？

2022.06.19

Logging

おはようございます🌤。お昼ですね、眠いですがこれから数時間を使用して一週間分の記事を書いていきます。

SUZURIとBASEでTシャツを売っていきますが、途中からTシャツなどはSUZURIで販売しデジタル商品はBASEで販売する形を取ります、尚、BASEの仕様が変わってもっと質の良いTシャツが作れるようになれば、話は別ですけどね。因みに一枚、商品が売れても利益は９００円ぐらいです。

だから、最低でも毎月９００円＊2００枚のTシャツが売れてもらわないと生活できないです。宣伝活動用のアカウントを作ろうとも考えています。本垢であまり宣伝ばかりしているとウザいとも思われるので、線引が難しいですね。

zip358comのsudo rm -rf /スタンダードTシャツ @zip358com https://t.co/RJrqk7uKNn #suzuri

— 田岡 寿章@taoka_toshiaki🦌 (@taoka_toshiaki) June 19, 2022

毎日、Tシャツを世に出せるかどうかは分からない・・・。SUZURIではクスってなるようなTシャツが売れているような気がしますが、そういうTシャツは自分には作れそうにないのでPCヲタ系に受けそうなTシャツが作ればなって思っています。

ITエンジニアって結構お金持っているので、少し高くても買ってくれると思いたいですね😭

トイウコトデ、今後とも宜しくお願い致します。

因みに来月の１５日に異業種を退社することになりましたのでお知らせします。今後のことに関しては７月１６日に記事として書きます。

タグ

200, 900, base, PC, SUZUI, SUZURI, アカウント, お昼, クス, これ, し, シャツ, デジタル, ヲタ, 一, 一枚, 仕様, 使用, 別, 利益, 商品, 垢, 宣伝, 形, 数, 最低, 本, 毎日, 毎月, 気, 活動, 生活, 線引, 自分, 記事, 話, 販売, 質, 質重視, 途中,

案件9割完成して案件に申し込むみたいな事は非効率だけど。

2021.08.05

Logging

今日、先日にツイートした案件の締切日ですが・・・(*´ω｀*)、未来の自分は案件取れたでしょうか？来月の支払いをペイ出来る額ですので取れると良いですね。さて、案件9割完成して案件に申し込むみたいな事は非効率だけどこの非効率で仕事に応募している理由は、やっぱ安価な仕事でも仕事は仕事ですよという気持ちで取り組んでいます。

とある案件

因みに今回はこういう案件を作りました。JSのコードの行数は約800行、PHPのコードは約200行で合計、1000行のコードを２日間で書きました・・・?。サイトを動的な処理で動かしているので結構、無駄にコードを書いています。いつもの通り設計はなし、頭の中でさっさと考えて作っております。

ふぅ案件9割完成した。
請け負う事が出来るかは？

— 田岡 寿章@taoka_toshiaki🦌 (@taoka_toshiaki) August 1, 2021

もし案件が取れなかったらコードなどを自分の名前のサイト、もしくはgithubに公開します?ので、その時はご利用ください、可能性としては５０％ぐらいの確率で請け負う事が出来ると考えています。

タグ

1000, 2, 200, 50, 800, ９, github, JS, php, コード, ご利用, サイト, ツイート, ペイ, 中, 事, 今回, 今日, 仕事, 先日, 公開, 処理, 効率, 可能性, 合計, 名前, 安価, 完成, 応募, 日, 時, 未来, 来月, 案件, 気持ち, 無駄, 理由, 確率, 締切, 自分, 行数, 設計, 通り, 頭, 額,

月々3万円貯金で10年で1000万という記事を読む。

2020.12.28

Logging

月々3万円貯金で10年で1000万という記事を読む。実際は貯まるお金は300万円ですよと思ってしまった。そんなことは計算すればわかる話だけど、こういうことに騙される人が世の中にはいるだろうな。もし10年で1000万貯めたければ10万円の貯金でもしない限りたまらない。

因みに1000万円を投資運用会社に預け入れて、年に利益は30?50万円だということです。これは少しすくない見積もりなのかもしれないけれど、これぐらいの利益は出ます。これを自分は200万円にしたいと思っている。4000万円貯めれば120?200万円の利益が手に入る。ということは5000万円あれば、まぁ一人なら最低限の生活はできるのではないか、働かずとも生きていけそうな気がする。

もし実家暮らしで物欲もなく、20代ならば毎月3万円で暮らしあとのお給料の差額をすべて投資運用にまわせば10年後、最低でも1000万円たまり、40代には2000万円溜まっているでしょう。お金は大事と思うのはたぶん働けなくなったときに思うことだと自分は思っている。人付き合いも大事だけど、なかなか、他人にお金貸してなんていえないですからね。

いろいろお金の増やし方みたいな…はあるのですが、実際、貯金や投資信託が手堅いのかなと思います。あとロボットアドバイザーとかですかね。

タグ

10, 1000, 120, 20, 200, 2000, ３, 30, 300, ４０, 4000, 50, 5000, あと, お給料, お金, こと, これ, これぐらい, すべて, 一人, 万, 世, 中, 人, 利益, 実家, 実際, 少し, 差額, 年, 手, 投資, 最低, 最低限, 月々, 毎月, 気, 物欲, 生活, 自分, 見積もり, 計算, 記事, 話, 貯金, 運用, 限り,

VBAオブジェクトを自動生成しイベントを付与する。

2019.01.12

Logging

VBAオブジェクトを自動生成しイベントを付与する。
サンプルコードです。
ダウンロードはこちら
https://zip358.com/tool/sample.zip

Dim chg_class(0 To 5) As chg
Public Sub objset()
Dim obj_ctl As Control
Dim i As Integer
For i = LBound(chg_class) To UBound(chg_class)
    Set obj_ctl = UserForm1.Controls.Add("Forms.TextBox.1", "Box" & i)
    obj_ctl.Top = 10 + 20 * i
    obj_ctl.Width = 200
    obj_ctl.Height = 20
    obj_ctl.Text = "ここを変更してみて、またはダブルクリック（" & i & "番）"
    Set chg_class(i) = New chg
    chg_class(i).set_evn obj_ctl, i
    Set obj_ctl = Nothing
Next i
End Sub

Private WithEvents TextB As MSForms.TextBox
Private index_no As Integer
Public Sub set_evn(hoge_obj As MSForms.TextBox, hoge As Integer)
    Set TextB = hoge_obj
    index_no = hoge
End Sub
Private Sub TextB_Change()
    MsgBox TextB.Text 'UserForm1("Box" & index_no)
End Sub
Private Sub TextB_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox TextB.Text 'UserForm1("Box" & index_no)
End Sub

Private Sub TextBox1_Change()
MsgBox TextBox1
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub UserForm_Click()
End Sub

タグ

0, １, 10, 20, 200, 358, 5, Add, amp, as, Box, chg, class, com, Control, Controls, ctl, Dim, For, Forms, Height, Integer, LBound, obj, objset, public, sample, set, Sub, Text, TextBox, To, tool, TOP, UBound, UserForm, VBA, Width, zip, イベント, オブジェクト, コード, ここ, こちら, サンプル, ダウンロード, 付与, 変更, 自動生成,