飯を食うのは難しい

2024.03.12

Logging

おはようございます、「飯を食うのは難しい」ですね。フリーランスで生活をしている人が羨ましい限りです。お話が上手くない自分はそれで結構損をしている気がします、未だに何処まで話して良いのやらと思って生きてきたタイプです。そんな自分がこの頃、ひろゆきさんの奥さんの動画を視聴してそうなんだなぁって思えることがあったので、自分も変わろうかなって思えた話を記事に起こしています。

西村ゆか、YouTube始めました

人のことを気にするタイプだった奥さんとは正反対のひろゆきさんですが、奥さんはそう捉えていたのかと思うとなるほどなぁと思えたのです。人にどう思われるかということを気にしない、自分が言いたいことをいうというひろゆきさんの考え方、そこが良いと思えたそうです。

「なるほどなぁ」

確かに自分の意見を言うというのは自分みたいなタイプには難しいことでもあるのですが、これを変えると何か変わる気がしています。

ham burger with vegetables
Photo by Valeria Boltneva on Pexels.com

明日へ続く。

タグ

Photo by Valeria Boltneva on Pexels.com, お話, タイプ, ひろゆきさん, フリーランス, , 何処, 動画, 奥さん, 意見, 未だ, , 生活, 考え方, 自分, 視聴, 記事, , 難しいこと, ,

まいど?ショップ開設しました。

2021.03.15

Logging

まいど?ショップ開設しました。開設した理由は旨旨飯が食べたいからです、、、いや違います。収入源を確保していきたいからです。スズリというGMOの開発したショップ開設サービスを使用しています。当初はBASEで物を売ろうとBASEショップのTシャツアドインなどを試しましたが、画像の取り込みが綺麗にできていなくて劣化するので諦めました。いろいろ探していたら、スズリというサービスに行き着いたのです。因みに商品が売れても全額、収入にはならないのです、300円から自由に自分の取り分が設定できます。値段を上げると商品も高くなります…。

トイウワケデ、毎日1商品はUPしていくつもりでいます。作った商品はツイートします、気に入った商品があればご検討くださいませ。なお、こことは違うサイトを使用しデジタル商品も売っていくつもりでいます。

最後に自分のショップのURLを貼っときますね。

https://suzuri.jp/zip358

タグ

, 300, base, GMO, UP, url, アドイン, ここ, ご検討, サービス, サイト, シャツ, ショップ, スズリ, ツイート, つもり, デジタル, トイウワケデ, 使用, 値段, 全額, 劣化, 収入, 取り分, 商品, 当初, 最後, 毎日, , 理由, 画像, 確保, 綺麗, 自分, 自由, 設定, 開発, 開設, ,

ブログで飯が食えない。だがしかし!

2020.07.17

Logging

ブログで飯が食えないですよね。だがしかし!小銭が増えていっています。でもブログ記事はもう4年ぐらいの蓄積データがあるのに、あまりアクセス数がないのが自分としては驚きです。毎日、福沢諭吉さんが1枚ほど入れば良いのになぁと思っています。昨日、このブログをちょっとテコ入れをしたのですが、その結果が吉であること祈りたいです。

ブログぐらいしか、取り柄がありません。プログラムできますがそれをどう活かせば収益を得れるのかがわからないのです。たぶん宝の持ち腐れみたいなものかなと思っています。因みにこのイラストは敢えてダサく作りました。

ブログの攻略が年々難しくなってきているように思えてなりません。Gさんのサイト分析するアルゴリズムは年々、精巧に作られてきていることが分かります。もうブラックハットやホワイトハットとか言っている場合ではない。むしろそんな領域は人工知能の前では通じないのではないかと思えてなりません。

いまSNSからの流動性が高いサイトがおそらく検索上位表示なっている気がします。なので気になった記事があればシェア拡散してください。

あぁお腹空いたーー!

タグ

, 4, SNS, アクセス, アルゴリズム, いま, イラスト, こと, サイト, それ, データ, テコ入れ, ハット, ブラック, ブログ, プログラム, ホワイト, もの, 人工, 分析, , 収益, 取り柄, , 場合, 宝の持ち腐れ, 小銭, 年々, 攻略, 昨日, 毎日, 流動性, 知能, 福沢諭吉, 精巧, 結果, 自分, 蓄積, 記事, 領域, ,

夏バテ感が強い。

2018.08.16

Logging

疲労、たぶん夏バテで2日間いつも読んでいる最新の話題や記事を
全然、目を通していない。家に帰って飯を食べてバタンと寝るだけの日々。
朝起きて風呂に入り仕事へ。
AI(人工知能)に仕事取られていくだろうなと思う今日このごろ。
ただ、そろそろ自分でも簡単に使用できるレベルのオープンベースの人工知能ライブラリが
でてくるのだろうな。そうなったら良いなぁと思いつつも
やはり人工知能の勉強はしないといけないよなと思います。
 
機械学習では画像や音声で学習させるということを
忘れていたけど、よくよく考えるといろいろな事を機械学習で
勉強させられるということ、例えば最初にABCとフォルダを構えて
その中に正しい振り分けデータを入れてAIにお勉強させる(学習あり)ことで
これは何のデータか振り分けが可能になるわけです。
人工知能は仕分けがお得意だという事。
よくよく考えると荷物の仕分けも出来てしまうのではないかな?
今までOCRで行っていたことを機械学習で置き換えることで
アナログで書かれた伝票にも対応できたりするのではないかと。
主に仕分けや判別する分野では
人工知能は今後、大活躍かなと思います。
この判別する仕事って殆どの仕事は判別する仕事ではないのかと
思ってしまいます・・・。創作(クリエイティブ)する仕事はまだまだ
人工知能に奪われそうにないです。ちなみに人工知能は創作する事は可能です、
ただ創作したモノが良いか悪いかという事は人工知能はわからないからです。
データ上よくても実際、人が見ると全然だめモノばかり?

タグ

2, ABC, AI, nbsp, いろいろ, オープン, お勉強, お得意, こと, コレ, データ, はり, フォルダ, ベース, ライブラリ, レベル, , , 人工, , 今日このごろ, 仕事, , 使用, 勉強, 可能, 夏バテ, 学習, , , 日々, 最初, 最新, , 機械, 画像, 疲労, , 知能, 簡単, 自分, 荷物, 記事, 話題, 音声, 風呂, ,

ブロガーさんが増えてきた。ブログで飯が食える人も。

2015.09.21

Logging


ブロガーさんが増えてきた。ブログで飯が食えるひとも増えてくるのかも
知れないけれど、実際は今より少し増えるぐらいだと思います。
高知で活動しているブロガーさんで、イケダハヤトさんというブロガーさんが
います。厳密に言えば高知出身のブロガーさんではなく
神奈川県の出身で高知へ移住されたブロガーさんです。
記事を読んでいると高知を再発見することもあったりします。
そのイケダハヤトさんの月の収益は80万250万前後です。
個人のブロガーとしては、かなりの収益だと感じますが
イケダハヤトさんの動向を見ているとブログで収益を得る方向から
ブロガーを育成する方向へ転換してきているようにも
見えます。ブログの収益が安定してきたが
伸びもない状態が続いています。
要するに安定している状態です。
個人としてブログを続ける場合、それでも
おそらく、数年は安定した収益を得ることが
可能だと思いますが、イケダハヤトさんの場合、スタッフを
雇いだしたため、オンラインサロンなど
別の収益を得る必要があると感じただろうと思います。
経営の基本「確実に収益を得るモノを2つ以上持つ」
ひとつが崩れてももうひとつで何とかなるのが望ましいという
事らしいです。イケダハヤトさんの場合、ブロガーとビッグイシュー
という二足の草鞋でこれまでやってきたと思います。
今回、スタッフを雇い始めたため
オンラインサロンやブロガー育成などの第三の
収益を得る活動を行っているだろうと…。
何が言いたいかといえば、ブロガー一本道は
危ういという事です。こらからブロガーを目指そうとしている方は
もうひとつ収益源を確保して活動することを
オススメします。ちなみにジブンはブロガーを目指して
記事を毎日書いているわけではないです。
ただ単に好きだから記事を書いているに過ぎないです。
※フリーで始める方は2つ以上の収益源を得ることが出来てから
フリーランスで始めることをオススメします。

タグ

, イケダハヤト, オンラインサロン, じぶん, スタッフ, ビッグイシュー, フリーランス, ブロガー, ブロガー一本道, ブロガー育成, ブログ, もうひとつ収益源, 二足の草鞋, 個人, 動向, 収益, 方向, 神奈川県, , 高知, 高知出身,

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, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ヨロシク, 下記, , , 修正, 削除, 動作, , 対策, 工事, 改良, , , 無駄, , 突貫, 若干, 軽量, 追加, 追記, ,

水曜日のカンパネラのコムアイさんが飛んでる。

2014.08.20

Logging

水曜日のカンパネラのコムアイさんが飛んでる、何処らへんが飛んでるかと言えば歌詞です。リズム(テンポ)の良い曲と飛んでる歌詞が面白いです、すべての曲が好きだとはいえないものの、モノポリーとか聞いているだけで駅名が覚えれてしまうとか、マリー・アントワネットとか歌詞が独特で面白かったりとか、この人水曜日のカンパネラの作る楽曲や歌詞は他の人とは違っていて異才さを感じます。売れるか売れないかとはわかりませんが、こういうユニットとはコアなファンが付きそうな感じがします。
好きなことをやって飯が食えるか食えないかって一般人に受け入れられるかどうかだと思うのです、その辺、水曜日のカンパネラのコムアイさんは良い線じゃないかと思いますとか言ってますが、この人、YOUTUBEの再生回数から見てそれなりに認知度あるユニットなんだと思います{自分が知らなかっただけで}。
※追記:コムアイさんが楽曲や歌詞を担当していたのではないみたいです{ボーカル担当}。

タグ

youtube, アントワネット, カンパネラ, コア, こと, コムアイ, すべて, テンポ, ファン, べん, ボーカル, マリー, モノポリー, ユニット, リズム, 一般人, , , 何処ら, 再生, 回数, 担当, , 楽曲, 歌詞, 水曜日, 独特, 異才, , 自分, 認知, , 追記, , 駅名,