@Blog

検索する

さくらのVPSを使ってみた。標準OSインストールは初心者におすすめ。

2015.04.04

Logging

さくらVPSを使ってみた。さくらVPSをレンタルして標準OSインストールしてみました。インストール後、root権限でログインしてApacheをインストール（yum install httpd ）してみたら、そのままの状態でWEBが表示された・・・・。ポートの開放とかの設定はしなくても良かったです。標準OSのセキュリティの設定でゴニョゴニョされていて特にWEBで使う分にはiptablesを触らなくても良さそうでした。インストール後、phpをインストールしてhttpdのconfig設定を変更して再起動すればphpが実行できる環境になりますから、あとはMysqlをインストールしたい方は、インストールしてゴニョゴニョ設定するだけでWEB環境を整います。あとは、ftpを使用したい方はインストール（yum install vsftpd）すれば良いだけです。FTP経由かSSH経由でコードをアップロードすればサイトを構築できてしまいます。
 

タグ

Apache, config, FTP, httpd, install, iptables, MYSQL, OS, php, root, SSH, VPS, vsftpd, web, yum, アップロード, あと, いま, インストール, おすすめ, コード, ゴニョゴニョ, サイト, さくら, さくらの, セキュリティ, そのまま, ポート, レンタル, ログイン, 使用, 再起動, 分, 初心者, 変更, 実行, 方, 構築, 標準, 権限, 状態, 環境, 経由, 表示, 設定, 開放,

見知らぬ誰かとチャットを楽しめるWebサービス。chatpad

2015.03.04

Logging

chatpadは見知らぬ誰かとチャットを楽しめるWebサービスです。一昔前ならヤフーチャットっていう大きなサービスがあったんですけどね。いまの若い人達はチャットというWEBサービスなんてものを知らないで生きている人もいるかと思います。サービスの作りはLINEとさほど変わらないですね。LINEと違いチャットはリアルタイムに不特定多数やり取りするサービスです。テキスト系のメッセンジャーやスカイプと近いサービスと思ったら理解しやすいと思います。情報の交流のWEBサービスは結構出来たけど、逆にサービスが多くなりユーザーの分散化が進んでいるそうです。これから必要とされるサービスは一つのアプリでいろいろなWebサービスへ投稿できたり、情報を収集することのできるサービスが必要になっているのだとか。LINEというサービスが流行すると他者も同じようなサービスを提供しだしますが、結局、生き残るは2，3社ぐらいで後は消えていきます。いま、Webサービスは飽和状態なで、これからは淘汰される時期に来ているのかと思ってます。

タグ

2，3, chatpad, line, web, アプリ, いま, いろいろ, こと, これ, サ, サービス, スカイプ, チャット, テキスト, メッセンジャー, もの, ヤフー, やり取り, ユーザー, リアルタイム, 一, 一つ, 不特定, 交流, 人, 他者, 分散, 収集, 多数, 後, 必要, 情報, 投稿, 提供, 昔, 流行, 理解, 誰, 逆,

四国第23番霊場｜厄除の寺｜薬王寺に行ってきました(ﾉ´∀｀)

2015.01.02

Logging

初詣で行ってきました。薬王寺・・・・行き帰りで合計6時間あまりです。
地元ではないのでかなり遠い感じなんですが
小さい時から初詣ではココなんで今年も薬王寺行ってきました(ﾟДﾟ)。
今年は自分が運転していきました、結構ハードですね・・・。
帰る途中に猿が毛づくろいしている微笑ましい姿を
見れたのですがドライバーさんなのでパシャパシャスマホで撮ることもできず。
内心「あぁ?」って思いつつスマホで見たってゆる?く呟いただけで
帰宅してグタグタしてブログ書いてます（さんまのまんま見てました。）。←イマココ
やはり、薬王寺遠いです、出発した時刻が7時半、着いたのが10時半
なので片道3時間です。ちなみに10時半ごろから混みだして11時には薬王寺の下
の駐車場は満車です。自分たちが行った頃には9割、埋まっていた感じです。
帰り際、道の駅でごはん食べてかえったわけですけど、長時間運転に慣れていないので
結構きついかったです(ﾟДﾟ)。基本的に自分は遠出時は電車とか飛行機を使う派なので
自分で車を運転して遠出することは基本的にないです。車を運転して旅をするより
電車とか飛行機で旅するほうが断然、楽しいです（基本的に迷わないから）。
四国とか田舎は車のほうが利便性が良いですが、都市へ旅行する時は
断然、飛行機とか電車が良いですね。
脱線しましたが、薬王寺いつもながらな感じで良かったかな、帰る際におみくじ（生年月日）
を引いて帰りました、結果はこちら（＊1、＊2）、まぁまぁな感じです。
いままで当たったことがないので、なんとも言えないですけどね(´Д｀)
 
来年の参詣に薬王寺ってのはどうでしょうって宣伝をいれときます。
徳島県海部郡美波町奥河内字寺前285-1（薬王寺）

タグ

```, ｀), )。, あまり, いま, イマココ, くじ, グタグタ, ココ, こちら, こと, ごはん, ごろ, サン, さんま, スマ, タチ, ドライバー, パート, パシャパシャスマホ, ブログ, ほう, まんま, わけ, 今年, 内心, 出発, 初詣, 利便, 参詣, 合計, 四国, 地元, 基本, 奥河内, 宣伝, 寺前, 帰り際, 帰宅, 徳島, 感じ, 旅行, 時刻, 時半, 時間, 来年, 海部, 満車, 片道, 生年月日, 田舎, 結果, 美波, 脱線, 自分, 薬王寺, 行き帰り, 途中, 運転, 遠出, 都市, 長時間, 電車, 飛行機, 駐車,

宇宙兄弟LIFT OFF!の感想なんかをイマゴロ。

2014.08.24

Logging

宇宙兄弟LIFT OFF!の感想なんかをイマゴロ書きたいと思います。俗に言うエンターテイメントに仕上がっている映画になっています。特にお気に入りはオープニングの映像かなと思ったりしてます。アレで結構、映画の中に引き込まれそうな、そんな感じのオープニングです。ちなみにCG技術はアメリカには劣る感じがします。若干、CGは見劣りするもののストーリー事態がしっかりしているので見やすいです。あと、原作の漫画のキャラクターと実写の配役が結構うまいと思います。
2014/08/24：宇宙兄弟#0が映画館で上映中です、ちょっち観たいような気がしますが、今のところ保留にしています。宇宙兄弟#0も実写映画化して欲しいトコロですけど予算的に無理だったからアニメ映画になったか、もしくは実写映画効果でさらにファンが付いたからアニメ映画でGOサインが出たのかも。｛勝手な思い込み(^_^)です｝。

タグ

0, 08, 2014, 24, Cg, go, LIFT, off, アニメ, アメリカ, アレ, いま, エンターテイメント, オープニング, お気に入り, キャラクター, ごろ, サイン, ストーリー, ちょ, ところ, トコロ, ファン, もの, 上映, 中, 事態, 今, 保留, 兄弟, 効果, 勝手, 原作, 宇宙, 実写, 感じ, 感想, 技術, 映像, 映画, 映画館, 気, 漫画, 若干, 見劣り, 配役,

覚悟の磨き方 超訳 吉田松陰を少しほど読んでみて(´Д｀)感想などを。

2014.08.23

Logging

覚悟の磨き方という本を本屋（TSUTAYA）で見かけて衝動買い｛この時、合わせて100の基本も購入｝しました、衝動買いというよりポイント購入と言った方が良いのですけど…（ポイントもお金ですからね）。そんな事はどうでもよくて本の中身ですけども、いま54ページぐらいまで読みを終えまして少し感想です。吉田松陰という人物を自分はあまり知らない自分ですけど、この本｛覚悟の磨き方｝は読みやすいです、現代風に置き換えて書かれているためか読みやすく、頭に入ってきます。そして恩着せがましくなく書かれているので拒絶反応も少ないです。自己啓発書というよりは道理とかそういうものが書かれている本だと思います。
覚悟の磨き方のおすすめ度と言われるとクエションですが｛人それぞれ考え方が違うので書店で一度中身をパラパラめくると良いかも｝、自分は好きです。

タグ

100, 54, TSUTAYA, いま, おすすめ, お金, クエ, ジョン, それぞれ, ため, ポイント, もの, 一度, 中身, 事, 人, 人物, 反応, 吉田松陰, 啓発書, 基本, 少し, 感想, 拒絶, 方, 時, 書店, 本, 本屋, 現代, 考え方, 自分, 自己, 衝動買い, 覚悟, 購入, 超訳, 道理, 頭,

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.17

Logging

土佐人｛tosajin.info｝という自動更新サイトをひとつ制作しているのですけど、本当はもっと、まともなポータルなサイトにしたいですね。でも、金ナシ、やる気なしな自分がいます。本当はもっとやりたいことはあるんです。アイデアもいろいろ持っていますが、行動に移すことをしない自分がいます。本当にやる気だけなんですよね。例えば、嫌なことやいやがらせ等をされたりすると直ぐにやる気なくします。そこで頑張ろうとかいう考えは持ちあわせてません？。なにくそというど根性タイプではなく、別にいいや勝手にすればタイプです｛裏では・・・｝、作る気が無くなります。基本的に張り合う気がないのです、論理的に時間の無駄と思えばほっときます。
言いたいことは一応言いますが、ある程度言うこと言ったら終わりです。ちなみにtosajin.infoは当分、このままで放置します。やる気が出たら更新しますが・・・当分このまま運営。いま一つだけ温めているアイデアがあります、そのアイデアのサイトを年内か来年あたりに公開するつもりです。まぁでもその頃、違うことしてそうだけど・・・。
ドメイン所有に関してですが、今後、減らしていく方向で動いています。

タグ

アイデア, あたり, いま, いやがらせ, こと, サイト, そこ, その頃, タイプ, つもり, ドメイン, ど根性, ナシ, なに, ひとつ, ポータル, まとも, まま, やる気, 一つ, 今後, 公開, 制作, 勝手, 土佐, 基本, 年内, 当分, 所有, 放置, 方向, 時間, 更新, 来年, 無駄, 考え, 自分, 自動, 行動, 論理, 運営,