• 車種別
  • パーツ
  • 整備手帳
  • ブログ
  • みんカラ+

カブゴンのブログ一覧

2020年05月22日 イイね!

富山の本気

富山の本気

こんばんは 

10分間で16,000円を溶かす男、カブゴンです。

現在、新型コロナウイルスのワクチンや治療薬を巡ってバイオ関連株の上昇が激しくなっています。しかし同時に下落幅も大きくなっています。 このビッグウェーブに乗じて僕もバイオ銘柄株取引に参戦してみました。その結果、撃沈しました(´;ω;`)

それも含めて、ここまでの運用成績は約13%のプラスで推移しています。さらに決算の配当がこれから入ってくるので、運用成績はもう少し上昇します。

しかし、以前にもお話ししたように、現在の株価は実体経済にそぐわないほど高い状態と考えられるので、今月に各社発表された2019年度決算を見守った後、次々と株を売却し、現金保有率を7割まで上げて慎重に運用しています。

その結果、現在保有している株は日本電気(NEC)と都築電気の2社だけです。この2社は、2019年度決算で好調な利益をあげました。都築電気は来期の決算予想を発表しましたが、その値が新型コロナウイルスによる大幅減益が予測されるものでした。そのため株価は大きく下げましたが、相当安全側をみた予測だと考えられるので、時期に株価は戻るものとみて保有し続けています。

あとは、ES細胞やiPS細胞による再生医療の臨床試験が加速していることから、そのあたりの銘柄をタイミングを見て売買するという感じです。 ただし、ES細胞やiPS細胞関連銘柄は新型コロナウイルスのワクチンにも関わっていることから、その動乱に巻き込まれるときがあるので若干怖いところではあります。



さて、4月の終わりに Twitter 上で「 富山の本気」というワードと写真が急上昇しました。 富山市街地や高岡市の雨晴海岸から立山連峰を望遠レンズで撮影した写真で、その美しさが話題を呼びトレンドになりました。今日は勝手にその「富山の本気」に乗っかりたいと思います 。笑


まずは、富山駅の北口から歩いて10分くらいのところにある環水公園から撮影した写真です。

alt

通称「世界一美しいスタバ」が写っていますね。


望遠を使うとこんな感じになります。

alt


夕方になると、立山連峰が赤く染まります。

alt


次は射水市の海王丸パークから新湊大橋方面を撮影。

alt


次はぐっと立山に近づいて、常願寺川の大日橋から。

alt


alt


次は少し離れて、富山市中心部の西端、神通川の左岸から。

alt


alt

高さ111mのインテックビルが富山を象徴しています。



そして最後は、立山連峰撮影で最も有名であろう呉羽山から撮影した写真です。Twitterの「富山の本気」の写真もここから撮影されています。

呉羽山は富山市の西端付近に位置していますので、東方向に富山市街地と立山連峰が見られます。

alt


alt


alt


alt


北陸地方は12月から3月までほとんど晴れの日がないので、「立山に雪のある季節」に、「夕方までスッキリした青空」で、「よく冷えて霞が無い」という条件が揃うのが激レアです。年に数回と言われています。それに加え、僕自身の休日と重なってくれなければならないので、なおさら希少です。

またこんな日に出会えるでしょうか???


おしまい。

Posted at 2020/05/22 22:15:12 | コメント(0) | トラックバック(0) | お出かけ | 日記
2020年05月17日 イイね!

【悲報】再度山で事故りました。

【悲報】再度山で事故りました。こんばんは。
カブゴンです。

いきなりですが、神戸の再度山ドライブウェイで盛大に法面に乗り上がってしまいました。。。
alt


左フロントがグニャグニャになって自走不可です。


もちろん、PCゲーム『Assetto Corsa』の話です。
神戸の再度山のModを入れてみました。今年1月に実際に走ったのですが、再現性がとても高いと思います。
下にリプレイ動画を掲載します。


ドライバー・ボンネット視点


ステアリングの切れがカクカクなのは、貧乏なのでステアリングコントローラーが買えず、ゲームパッドでプレイしているからです。泣

おしまい。
Posted at 2020/05/17 18:00:25 | コメント(0) | トラックバック(0) | Assetto Corsa | 日記
2020年05月16日 イイね!

Python備忘録 ~if文による場合分け~

Python備忘録 ~if文による場合分け~こんばんは。
最近、ず~っと水曜どうでしょうのサイコロシリーズを見ています。カブゴンです。
alt

6分の1の確率で千歳に帰れるのに、九州や四国ばっかり引いちゃうミスターと、愚痴ばっかり言っている大泉さんのやりとりが面白いですね。特に、壇ノ浦レポートが深夜バスの厳しさを物語っています。笑
僕も就職活動時代に東京で面接受けた後、深夜バスで金沢に戻り、朝から県内の面接を受けに行ったこととかありましたが、しんどかったですねぇ。。。寝れないんだよ!!!


さて、今日から新企画。先日のVBA備忘録に続いて、『Python備忘録』を始めたいと思います。今注目のプログラミング言語トップ3に入るであろうPythonです。
インスタグラムをはじめとしたWEBアプリの開発や、機械学習による人工知能の開発まであらゆることに使われるプログラミング言語です。
僕が仕事で使うソフトウェアにもPythonによる自動処理が組める機能があり、単純作業は機械にお任せしてしまおうという目論見です。
コンピュータに処理を任せることには個人的には二つのメリットがあると思っています。
一つ目は人件費削減です。人間がやるより、圧倒的な速さで処理を終わらせてくれます。
二つ目はミスの回避です。人間はミスを犯しますが、コンピュータはプログラムさえ間違っていなければ100%ミスしません。

というわけで、今日の備忘録。
関数を作って、値に応じた結果によって記入する属性を場合分けする方法です。
def reclass(male, female):
     ex = male-female
     if ex > 0:
       return "male"
      elif ex < 0:
       return "female"
      else:
       return "even"

作った関数の引数に入るもの(フィールド)は下記のように代入します。
入力先フィールド名 = reclass(!MALE!, !FEMALE!)

ExcelでいうところのIF関数みたいなものです。

おしまい。
Posted at 2020/05/16 23:20:25 | コメント(0) | トラックバック(0) | Python備忘録 | 日記
2020年05月10日 イイね!

一生使えるカーオーディオのプレイリストを作るツールの開発を始めました

一生使えるカーオーディオのプレイリストを作るツールの開発を始めましたこんばんは。
明日から会社でお仕事。カブゴンです。

いきなりですが、僕は、車内でかける音楽に並々ならぬこだわりを持っています。
季節や昼夜、市街地かワインディングか等、それぞれのシーンに合わせてその都度フォルダを変えます。
しかし、自宅にある音楽のマスターデータは、曲を購入した月ごとにフォルダ管理しています。
ということは、カーオーディオに入れてあるSDカードのデータと自宅のSSDのデータで齟齬が発生してしまいます。そして、SDカードに入っているデータのフォルダ構成はSDカードのパソコンで中身を開かないとわからない状態になっています。
というわけで、自宅にあるマスターデータと車用SDカードデータの連携をきちんとデータベースで管理しながら、柔軟にSDカード内のフォルダ構成(プレイリスト)を変更できるツールをExcelで作ってやろうという企画を開始しました。完成すれば一生使える上に、応用すればスマホのGooglePlayMusicのプレイリストまでも連携させられる可能性を秘めているので結構便利そうです。。。

今日は、ダイアログボックスでフォルダを選択したら、一斉に、曲名とアーティスト名、フルパスをシートに書き込むようにするところまで作りました。その中で各ファイルのアーティスト名の取得に関して、「GetDetailsOf」というコードを使うのですが、ネットにもVBA辞典にも全然その情報が無くて、何回修正してもエラーの連発だったので疲れました。最後は、閉じ括弧の位置が違うだけのことに気づかずに30分以上苦戦してしまいました。(´;ω;`)
ホント、数学苦手なのに頭を使い過ぎて脳みそがブローするかと思いました。笑

音楽の趣味がバレてしますので恥ずかしいですが、今日の成果はこんな感じです。
alt


最後に備忘録としてコードも…
―――――――――――――――――――――――――――――――――――――――
Sub ファイルパス一覧作成()

    '≪A3以降のファイル情報を書き込むセルとD1セルを最初にクリアにする≫
    Range(Cells(3, 1), Cells(Rows.Count, Columns.Count)).Clear
    Cells(1, 2).Clear
    
  
    '≪取得したいフォルダをダイアログボックスを開いて選択する≫
    Dim 指定フォルダのパス As String
  
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "ファイル一覧を作成したいフォルダを選択してください"
        If .Show = -1 Then
            指定フォルダのパス = .SelectedItems(1)
            Cells(1, 2).Value = "情報を取得するフォルダ:" & 指定フォルダのパス
        Else
            MsgBox "中止しました。"
            Exit Sub
        End If
    End With
  
  
    '≪ファイルパス一覧を作成する≫
    Dim myFSO As New FileSystemObject
    Dim myRootFolder As Folder

    Set myRootFolder = myFSO.GetFolder(指定フォルダのパス)

    Cells(3, 1).Select 'ファイル情報を表示する最初のセルを選択する

    ファイルパス書出 myRootFolder '後述の「ファイルパス書出」を呼び出して実行する。
    
    Set myFSO = Nothing 'メモリリークによるエラーを防ぐためにFSOを終了させる
    
       
    '≪拡張子なしのファイル名を書き込む≫
    Dim objFSO As New FileSystemObject
    Dim 拡張子無ファイル名 As String
    Dim フルパス As String
    Dim 行数 As Long
    Dim 最終行 As Long
    
    最終行 = Cells(Rows.Count, 1).End(xlUp).Row
    
    For 行数 = 3 To 最終行
         
        フルパス = Cells(行数, 5).Value
        拡張子無ファイル名 = objFSO.GetBaseName(フルパス)
        Cells(行数, 2).Value = 拡張子無ファイル名
        
    Next 行数
    
    Set objFSO = Nothing  'メモリリークによるエラーを防ぐためにFSOを終了させる
    
    
    '≪アーティスト名を書き込む≫
    Dim Shell As Variant
    Dim Folder As Variant
    Dim 拡張子付ファイル名 As Variant
    Dim フルパスその2 As Variant
    Dim ファイルのフォルダパス As Variant
    Dim 行数その2 As Long
    Dim 最終行その2 As Long

    最終行その2 = Cells(Rows.Count, 1).End(xlUp).Row

    For 行数その2 = 3 To 最終行その2
        
        拡張子付ファイル名 = Cells(行数その2, 1).Value
        フルパスその2 = Cells(行数その2, 5).Value
        ファイルのフォルダパス = Replace(フルパスその2, 拡張子付ファイル名, "") 'フルパスから拡張子付ファイル名を抜くようにVBAのReplace関数を使った
        Set Shell = CreateObject("Shell.Application")
        Set Folder = Shell.Namespace(ファイルのフォルダパス)
        Cells(行数その2, 3).Value = Folder.GetDetailsOf(Folder.ParseName(拡張子付ファイル名), 20) 'アーティスト名の取得(引数20番がアーティスト名)と書き込み
        
    Next 行数その2

    Set Shell = Nothing  'メモリリークによるエラーを防ぐためにFSOを終了させる
    Set Folder = Nothing  'メモリリークによるエラーを防ぐためにFSOを終了させる
    
    
    '≪最上段を表示した状態にしておきたいのでA3セルを選択状態にする≫
    Cells(3, 1).Select
    
     
    '≪最後に書き出しが完了したことをお知らせする≫
    MsgBox "ファイル情報の書き出しが完了しました。"

End Sub

Sub ファイルパス書出(ByRef myParentFolder As Folder)

    Dim myFolders As Folders
    Dim myFolder As Folder
    Dim myFiles As Files
    Dim myFile As File

    Set myFolders = myParentFolder.SubFolders

    If myFolders.Count <> 0 Then
        For Each myFolder In myFolders
            ファイルパス書出 myFolder
        Next myFolder
    End If

    Set myFiles = myParentFolder.Files

    If myFiles.Count <> 0 Then
        For Each myFile In myFiles
            With ActiveCell
                .Value = myFile.Name  'ファイル名を取得する
                .Offset(0, 4) = myFile.Path 'フルパスを取得する
                .Offset(1, 0).Select
            End With
        Next myFile
    End If
    
End Sub
―――――――――――――――――――――――――――――――――――――――

おしまい。
Posted at 2020/05/10 22:49:34 | コメント(0) | トラックバック(0) | VBA備忘録 | 日記
2020年05月09日 イイね!

VBA備忘録 ~一覧から大量のフォルダを一括で作る~

VBA備忘録 ~一覧から大量のフォルダを一括で作る~こんにちは。
今日は『水曜どうでしょう』を見ながら爽やかな(?)朝を迎えました。カブゴンです。

『水曜どうでしょう』の中で個人的に好きな企画は、『シェフ大泉 夏野菜スペシャル』です。
『ど~も。奥さん。知ってるでしょう? 大泉洋でございます。』
『おいパイ食わねぇか?』
これは名言中の名言ですね。笑

さて、今日もVBA備忘録です。
エクスプローラーやサーバー上で大量にフォルダを作りたいとき、ありますよね??
その作りたいフォルダ名が連番のような規則性を持ったものだったり、あるいは、他のデータベースから引っ張ってきたものだったり。。。
このような時に、Excelで作った一覧から一括でフォルダが生成されたら便利だなぁと思い作ってみました。

コードはコチラ↓↓
―――――――――――――――――――――――――――――――――――
Sub 一覧からフォルダを一括作成するマクロ()
     
    '作成フォルダー一覧を作成したかどうかの確認のダイアログボックスを開く
    Dim 答え As Integer
    答え = MsgBox("作成フォルダ一覧.xlsに作成したいフォルダの名称を書きましたか?", vbYesNo + vbQuestion + vbDefaultButton2, "確認")
    
    '「はい」が押された場合はフォルダ作成を実行する
    If 答え = vbYes Then
    
        '作成フォルダ一覧.xlsのパスを定義する
        Dim 作成フォルダ一覧のパス As String
    
        作成フォルダ一覧のパス = ThisWorkbook.Path & "\作成フォルダ一覧.xls"
    
       '作成フォルダ一覧を開く
        Workbooks.Open Filename:=作成フォルダ一覧のパス
    
        '作成フォルダ一覧の最終行を取得する
        Dim 最終行 As Long
        最終行 = Cells(Rows.Count, 1).End(xlUp).Row
        
        'フォルダを作成する
        For i = 2 To 最終行
            MkDir ThisWorkbook.Path & "\フォルダ作成先\" & Cells(i, 1).Value
        Next

        '作成フォルダ一覧.xlsを閉じて完了のメッセージを表示する
        Workbooks("作成フォルダ一覧.xls").Close
        MsgBox "完了しました。【フォルダ作成先】フォルダを確認してください。"

    '「いいえ」が押された場合はフォルダ名称の入力を促すメッセージを表示する
    Else
        MsgBox "作成フォルダ一覧.xlsに入力してから再度このVBAを実行してください。"
        
    End If

End Sub
―――――――――――――――――――――――――――――――――――

動作説明
①フォルダ構成・ファイル構成は以下と同じにしてください(そうでないと正しく動きません)。
alt


②生成したいフォルダ名を【作成フォルダ一覧.xls】のA2セルから縦方向に記述してください。
alt


③コードが記述してある実行ファイルでVBAを実行してください。

④【フォルダ作成先】フォルダに生成が完了されましたので、適宜必要な場所にフォルダを移してください。
alt


という感じです。
ちなみにExcelのバージョンは2010です。今回のコードは単純なので最新のExcelでも動くと思いますが、検証はしていません。
今回のVBAは、全ての動作が限られたフォルダの中だけで実行されるようにしてありますが、一応実行させる際は自己責任ということでお願いいたします。

おしまい。
Posted at 2020/05/09 13:35:49 | コメント(0) | トラックバック(0) | VBA備忘録 | 日記

プロフィール

「今年の桜 http://cvw.jp/b/2574415/44990156/
何シテル?   04/04 16:54
カブゴンと申します。 日記をつけてみようと思い、みんカラを始めました。 よろしくお願いします。
みんカラ新規会員登録

ユーザー内検索

<< 2025/9 >>

 123456
78910111213
14151617181920
21222324252627
282930    

リンク・クリップ

リコールとナット 
カテゴリ:その他(カテゴリ未設定)
2019/12/07 16:08:25

愛車一覧

ホンダ スーパーカブ90 ホンダ スーパーカブ90
ホンダの超ロングセラー、スーパーカブの90ccモデルに乗っています。主に通勤用です。 4 ...
ホンダ フィット ホンダ フィット
ホンダ フィット(GD3型)に乗っています。 この車は週末にお出かけするのに乗るのがメイ ...
マツダ ロードスター マツダ ロードスター
マツダが『人馬一体』をコンセプトに開発した2シーターオープンカーであるロードスターの二代 ...
トヨタ アルテッツァ トヨタ アルテッツァ
安かったので衝動買いしてしまいました。 青色のアルテッツァ(RS200, 5AT)です。 ...
ヘルプ利用規約サイトマップ
© LY Corporation