@Blog{zip358.com}

検索する

今、欲しいもの３つ。誰かください？？

2022.05.25

Logging

おはようございます。労働者は時間の切り売りをしているみたいですね🤔。

今日のお題は「今、欲しいもの３つ。誰かください？？」です。さて、自分が欲しいものはベスト３から発表します。まず、新型iPhoneですね～。そろそろ買い替えたいですが今のところ、我慢しています。

次にベスト２、３５型ぐらいのディスプレイです、今まで４画面のディスプレイにしていましたが３５型のディスプレイ（一画面）に通うと思っています。お値段は３万～４万円ぐらいしますが、変え替えたいと思っています。

最後にベスト１、今一番欲しい物は、お金では変えない時間だったりしますね。どんな仕事とでもそうですが雇われている時点で時間の切り売りをしている訳で、その時間、あなたの人生の大切な時間を切り売りしているわけです。時間は有限でいつ死ぬかなんて分からないです。そんなタイムリミットの分かっていない時間の切り売りをしているわけです。なので、そんな時間が欲しいです、あのドラゴンボールで出てきた精神と時の部屋が欲しいですね。

タグ

１, 2, ３, 35, 4, iPhone, あなた, いつ, お金, そうです, タイム, ディスプレイ, ところ, ドラゴンボール, ベスト, もの, リミット, 一画面, 万, 人生, 今, 今日, 仕事, 値段, 切り売り, 労働者, 大切, 我慢, 新型, 時点, 時間, 最後, 有限, 物, 画面, 発表, 自分, 訳, 誰, 題,

FF（ファイナルファンタジーシリーズ）３５周年らしいですね。

2022.05.11

Logging

おはよう御座います。日曜日晴れますように😌。

今日のお題は「FF（ファイナルファンタジーシリーズ）３５周年らしいですね。」じゃなくて、自分も生きてきて３５周年以上、生きています。今のところ、自分の知人や友人関係の方が不幸があったなどは自分の耳に入ってきていませんが、同級生だった人がそうなっている可能性もあります。

Dragon Ash｢Deep Impact feat. Rappagariya｣

ある人に自分の精神年齢は大学生ぐらいで止まっていると数年前に言われました。これは良いことなのかどうなのか分かりませんが、心まで老いると自分はつまらなくなると思っている事は確かです、そして自分はずっといろいろなことに好奇心を持ち続けていくのだろうと思います。

#ff pic.twitter.com/fCjO4X69MV

— 田岡 寿章@taoka_toshiaki🦌 (@taoka_toshiaki) May 5, 2022

さて、ここからお題のことに少し触れようと思います。FFを初めてプレイしたのは小学生か中学生の頃でFF5がFFの初めてプレイしたものになります、そこからFF6、７～今までFFタイトルはプレイしています。一応、FFシリーズは全タイトル、プレイしたことがあります。ここ最近は途中でストップしているタイトルもありますが、おそらく今年、発売するであろうタイトルのFF16も購入する予定でいます。因みに今回のFFはFF離れした人達も戻ってくるぐらい力の入れようだとか・・・。

FINAL FANTASY XVI “AWAKENING”

自分は発売までにPS5を手に入れないといけない・・・（それぐらいの気合は持ちたい）🙇。

タグ

35, 5, 6, 7, FF, いろいろ, ここ, こと, これ, シリーズ, そこ, タイトル, ところ, ファイナルファンタジー, プレイ, もの, 不幸, 中学生, 事, 人, 今, 今日, 全, 初めて, 友人, 可能性, 同級, 大学生, 好奇心, 小学生, 少し, 年齢, 心, 数, 方, 日曜日, 晴れ, 生, 知人, 精神, 耳, 自分, 関係, 頃, 題,

東京女子YOUTUBER干しいもこ！？

2020.03.18

Logging

東京でパート勤務働く女性の日常などなどをYOUTUBEで配信しているいもこさんです。手取り14?15万でも生活できているというのは凄いけど、YOUTUBERとしての収入も増えていけば東京で生きやすくなるのではないかなと思っています。現在（2020/03/18）の登録者数は１万人弱ですが、これが増えていけば本業がYOUTUBERってなるかもしれません。動画の印象からすると、収入が増えたとしても、いもこさんは今の職業を続けそうな気がします。

【独身パート勤務】手取り14万円。東京(元)一人暮らし奨学金返済有りの凡人のお金公開。【概要欄】

東京で14万円って結構たいへんだと思います。それでも家計簿や計画性があればやりくりが出来るのだなと、凄く上記の動画を見て感心しました。どんなに収入が多くても出費が多ければお金は貯まらないですからね。 ?

最後にチャンネル登録はこちらから（干しいもこ）
https://www.youtube.com/channel/UCM35Scv0OZl2FslQLrG9x8Q

タグ

0, 03, １, 14, 15, 18, 2, 2020, 35, 8, ９, channel-, com, FslQLrG, https, OZl, Scv, UCM, www, youtube, YOUTUBER, いもこ, お金, こちら, これ, たいへん, チャンネル, パート, やりくり, 万, 上記, 今, 出費, 動画, 勤務, 印象, 収入, 女子, 女性, 家計, 感心, 手取り, 日常, 最後, 本業, 東京, 気, 現在, 生活, 登録, 登録者, 職業, 計画性, 配信,

オレオレ無名関数の再帰処理。

2019.10.26

Logging

無名関数はよく使います。ちょっとしたモノを書きたい時、
オレオレ無名関数を書いて済ますことが多くなりました。
無名関数の良いところは無名関数を使用する手間にメソッドがあるので
確認しやすいというところですね。
 

<?php
$mumei = function ($tasu=0) use(&$mumei){
    if($tasu<=150){
        $tasu = $tasu + 5;
        print $tasu."n";
        return $mumei($tasu);
    }
    return $tasu;
};
//オレオレ無名関数の使い方は…小道具ぐらい程度のもの。
print $mumei();
// 5
// 10
// 15
// 20
// 25
// 30
// 35
// 40
// 45
// 50
// 55

タグ

0, 10, 15, 150, 20, 25, 30, 35, ４０, 45, 5, amp, function, if, lt, mumei, nbsp, php, print, return, tasu, use, オレオレ, こと, ところ, メソッド, もの, 使い方, 使用, 再帰, 処理, 小道具, 手間, 時, 済, 無名, 確認, 程度, 関数,

何者にもなれなかった症候群。

2016.10.04

Logging

何者にもなれなかった症候群。
「俺は海賊王になる！」と言った少年達が
いつの間にか年老いて中年になる、そして気づく
「自分、何者にもなれなかった」と、それはとにかく痛々しい。
35歳過ぎても、何かを目指している人は
ある意味、人生を賭けた賭けだと思います、そんな人を冷ややかな視線で見つめる人もいると思いますが
「人生は自分自身の選択で決める」訳なので結局、他人が指図する必要はないと思っています。
いまの中年は第一氷河期世代です。
この氷河期世代は、いまでも放ったらかしで政府も手厚い援助もなしで、今に至っている人が大半だと思います。社会も政治も信用していない。そういう中で生きてきた中年、フリーター達はいまでも「悶々」とした気持ちがある意味、他の世代より強い傾向があるのではないかと思います。
もしくは、諦めているかどちらかだと。
この氷河期世代に「諦めろ」というのは、はっきり言って「人生諦めろ」と言っているようなモノ
なので、それは駄目だと感じます。
じゃどうするか、「勝つまでやれ！」「違う土俵で戦え！」と彼らに叱咤激励する事を進めます。おそらく彼らは
「何者にもなれなかったわけでもなく」、もう何者になっているのですが、ただ時代が悪かったという側面があり
フリーターとして生きているわけです。
その今までの経験を「違う土俵」で生かさない限りおそらく彼らは「何者にもなれなかった」とつぶやく事になるだろうと感じます。
彼らに言いたい事は考えをシフトすることです。
（自分へ贈る言葉+同世代へ贈る言葉）

タグ

35, いま, それ, どちらか, フリーター, もの, 一, 世代, 中, 中年, 人, 人生, 今, 他, 他人, 何か, 何者, 信用, 俺, 傾向, 大半, 少年, 必要, 意味, 指図, 援助, 放ったらかし, 政府, 政治, 気持ち, 氷河期, 海賊, 症候群, 社会, 自分, 自身, 視線, 訳, 賭け, 選択, 駄目,

Accessのさんぷるコードができましたので(´Д｀)貼っときます。

2014.08.21

Logging

突貫工事で作ったのでバグは多少あると思いますが{例えばsql インジェクション対策とか。}、Accessのsampleコードができましたので貼っときます。なお、これで何が出来るかって言えばDBの修正、追加、削除といった基本的な動きをします｛挙動不審ぎみ嘘！？｝。若干、ソースコードを弄くれば使い回しが出来るようにしております。飯くったり他のことをしながらもガリガリとコードを書きました。ちなみにAccessのViewerをマイクロソフトからダウンロードすると動作すると思います。ファイルは下記からダウンロードください。 追記：暇な時に改良していきますので( ﾟдﾟ)ﾉ ﾖﾛｼｸとコメントも暇があれば書いときます。そして無駄なコードがありますが、それも軽量していくつもりです(｀・ω・´)。ちなみにいまはDBを空にすると落ちますので・・・・（直しました。）。?samplezip358.zip?[https://zip358.com/tool/samplezip358.zip][08/21 11:26]

Option Compare Database
Public db_x As Long
Public max As Variant
Function sel_all(tablename As Variant, tal_valname As Variant) As Variant
    Dim x As Long
    Dim y As Long
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge(999, 999) As Variant
    Dim val_n As Variant
    Dim val As Variant
    Set db = CurrentDb
    sql = "SELECT * FROM " & tablename & " ORDER BY ID ASC;"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    Do Until RS.EOF
        For y = 0 To UBound(tal_valname)
            hoge(x, y) = RS.Fields(tal_valname(y))
        Next y
        RS.MoveNext
        x = x + 1
    Loop
    Set db = CurrentDb
    sql = "SELECT MAX(ID) as maxs  FROM " & tablename & ";"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    max = RS.Fields("maxs")
    db_x = x - 1
    Set db = Nothing
    sel_all = hoge
End Function
Function up_in(chk As Boolean, tablename As Variant, tal_valname As Variant, tal_val As Variant, ID As Long) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge_valname As String
    Dim hoge_val As String
    Dim hoge As Variant
    If chk = True Then
        For i = 0 To UBound(tal_valname)
            hoge_valname = hoge_valname & tal_valname(i) & ", "
        Next i
        hoge_val = sql_str(tal_val, "", "", True)
        sql = "INSERT INTO " & tablename & " (" & Left(hoge_valname, Len(hoge_valname) - 2) & ")VALUES (" & hoge_val & ");"
    Else
        hoge_valn_val = sql_str("", tal_valname, tal_val, False)
        sql = "Update " & tablename & " Set " & hoge_valn_val & " WHERE ID = " & ID & ";"
    End If
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    up_in = True
End Function
Function del(tablename As Variant, tal_valname As Variant, tal_val As Variant) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge As Variant
    sql = "DELETE FROM " & tablename & " WHERE " & tal_valname & " = " & tal_val & ";"
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    del = True
End Function
Function sql_str(hoge As Variant, tal_valname As Variant, tal_val As Variant, chk As Boolean) As Variant
    Dim i As Long
    Dim hoge_str As Variant
    If chk = True Then
        For i = 0 To UBound(hoge)
            If IsNumeric(hoge(i)) Then
                hoge_str = hoge_str & hoge(i) & ", "
            Else
                hoge_str = hoge_str & "'" & hoge(i) & "', "
            End If
        Next i
    Else
        For i = 0 To UBound(tal_valname)
            If IsNumeric(tal_val(i)) Then
                hoge_str = hoge_str & tal_valname(i) & " = " & tal_val(i) & ", "
            Else
                hoge_str = hoge_str & tal_valname(i) & " = '" & tal_val(i) & "', "
            End If
        Next i
    End If
    sql_str = Left(hoge_str, Len(hoge_str) - 2)
End Function

↑クラスdbソースコード

Option Compare Database
Dim max As Long
Dim ID As Long
Dim val_val As Variant
Private Sub Form_Load()
lod
End Sub
Sub lod()
    Dim db As db_db
    Dim val_name As Variant
    Dim x As Long
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    val_val = db.sel_all("tableone", val_name)
    max = db.max + 1
    If cmb.ListCount > 0 Then
        For x = 0 To cmb.ListCount - 1
            cmb.RemoveItem 0
        Next
    End If
    For x = 0 To db.db_x
        cmb.AddItem val_val(x, 1)
    Next
    Set db = Nothing
End Sub
Private Sub cmb_Click()
    If cmb.ListIndex >= 0 Then
        Viw cmb.ListIndex
    End If
End Sub
Private Sub del_btn_Click()
    Dim db As db_db
    Dim hoge As Variant
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    If ID > 0 And max > 1 Then
        hoge = db.del("tableone", "ID", ID)
    End If
    Set db = Nothing
    lod
End Sub
Private Sub in_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("ID", "表題", "数値", "文字")
    val = Array(max, cmb, suuzi, moji)
    Set db = New db_db
    hoge = db.up_in(True, "tableone", val_name, val, max)
    Set db = Nothing
    lod
End Sub
Private Sub upd_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("表題", "数値", "文字")
    val = Array(cmb, suuzi, moji)
    Set db = New db_db
    If ID > 0 And max > 1 Then
        hoge = db.up_in(False, "tableone", val_name, val, ID)
    End If
    Set db = Nothing
    lod
End Sub
Sub Viw(i As Long)
    ID = val_val(i, 0)
    suuzi = val_val(i, 2)
    moji = val_val(i, 3)
End Sub
Sub chkchk()
    If IsNumeric(suuzi) Then
        If suuzi > 9999 Then
            suuzi = 9999
        End If
    Else
        suuzi = 0
    End If
    If IsNumeric(moji) Then
        moji = "文字が不正＞" & moji
    End If
    If IsNumeric(cmb) Then
        cmb = "文字が不正＞" & cmb
    End If
End Sub

↑formソースコード

タグ

35, 358, access, db, https, sample, samplezip, SQL, Viewer, www, zip, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,