布団が俺を呼んでいる

丘山大一のぶろぐ

果実酒収穫

18. 12月 2016 20:12 / 丘山大一 / Blog コメント (0)
以前漬けていたものを収穫しました。

ドン！



コレを手元にある中で、一番高い酒のビンに入れれば、



おお、色もそれっぽい！
コレ騙せるんじゃね？

今年もソコソコいい出来かな。満足満足。


サントリー 果実の酒用ブランデー 紙パック 1800ml

新品価格
￥1,625から
(2016/12/18 20:34時点)

Tags :

コメントを書く

布団が俺を呼んでいる | 空文字を判定する最も効率のいいやり方は？ (Delphi編)

布団が俺を呼んでいる

丘山大一のぶろぐ

空文字を判定する最も効率のいいやり方は？ (Delphi編)

20. 5月 2016 17:01 / 丘山大一 / Blog . プログラミング . Delphi コメント (0)
現在いるプロジェクトではDelphiなる言語を使っています。
んで、他の人のソースを読んでいると、空文字かどうかの判定の仕方には色んな書き方があるのだなあと思います。
代表的なのは、
(1) Result := s.IsEmpty;
(2) Result := s = '';
(3) Result := s.Length = 0;
(4) Result := s = EmptyStr;
等でしょうか。
ちなみに、私は基本的にIsEmptyメソッドをなるべく使う派です。
「''」と記述すると、後で読み返した時に
「これは本当に空文字で判定したいのだろうか？
　それとも実は半角スペースと比較するべきところを間違えてしまったのだろうか？」
等と疑わせてしまうこと、また本当にそのように間違える可能性が出てきてしまうためです。
 あとIsEmptyを使った方がコード上からカッコが減りやすいというのもある。IDEが貧弱なRadStudioではこれが割と重要。
 
さて、そうは言っても、「IsEmpty使おうぜ！」と主張しても使ってくれる人はなかなか増えません。
わざわざ書くのが面倒＋間違いやすい「''」で書く人がほとんどです。

むう。何故だ。

と思っていると、MSDNの中で、（C#ですが）空文字判定方法について記述してある箇所を見つけました。
https://msdn.microsoft.com/ja-jp/library/ms182279.aspx?f=255&MSPPError=-2147217396
な、なるほど！
きっと速度差があるからみんな「''」を使うんだ！
理由があったんだね！

というわけで、それぞれの実行時間はどれくらいなのか。

2147483647　回ループを回してテストしてみました（適当な値をとるのが面倒だったので、Integer.MaxValue）。
以下、単位はミリ秒。
(1) IsEmpty
①37430
②37197
③37296
(2) 「''」
①36414
②36193
③36258
(3) Length
①40755
②40704
③40771
 
最速と最遅で比較すると、
(2) Result := s = '';
が最遅に比べ4578ミリ秒早いという結果になりました。
一回当たりおよそ
4578 / 2147483647 ≠
5000 / 2000000000 ≠
5 / 2000000 ≠ 0.0000025　ミリ秒早い。
ということになります。

おおー、なるほど、確かに早い。
なるほど、同じ結果が出るなら早い方を採用するのは理に適っている。
うん……正しい……
いや、たしかに正しいんだが……

全然変わんねえよ　(´･ω･｀)

実質0秒だよコレ。
これ以上速度を気にしなければならない要件なら、そもそもDelphi使わないわな。
それこそCとかアセンブラとか、もっと高速な言語を採用するわ。
やっぱり「''」と比較するコーディングは、昔から書いている人の単なる惰性な気がするなあ……。
一応、「早い」ということは分かったから、無暗にIsEmptyを進めるのは止めるけど……
やっぱり私はIsEmptyでいこう……。

※注意！
私の開発環境での結果＋面倒だったのでデフォルト設定のDebugビルド結果です。
ロジックや書き方によってなんぼでも結果は変わることをお断りしておきます。



Delphi XE2プログラミング入門

新品価格
￥4,104から
(2016/1/18 20:58時点)

Tags :

コメントを書く

;">バージョン
端末はNuAns Neoです。
本日時点の各バージョンは、


NuAns NEO TWOTONE CORE(ネオ ツートーン コア)本体セット スムースブラック(Windows 10 Mobile/Continuum for Phone)

新品価格
￥45,900から
(2016/2/6 20:23時点)

Tags :

UWP BackgroundのBinding で はまる

14. 6月 2016 12:05 / 丘山大一 / Blog . C# . XAML コメント (0)
以前はまったもののメモ。
ただの知識不足という体たらく。

色の指定だけどColorじゃないよ

UWP で 色を指定するとき、BackgroundやForegroundに値を突っ込みますが、
こいつらって
名前空間　Windows.UI.Xaml.Media
クラス　SolidColorBrush
なんですね。
https://msdn.microsoft.com/query/dev14.query?appId=Dev14IDEF1&l=JA-JP&k=k(Windows.UI.Xaml.Controls.Panel.Background);k(TargetFrameworkMoniker-.NETCore,Version%3Dv5.0);k(DevLang-csharp)&rd=true
何も考えずに 名前空間 Windows.UI の方の Color を使ってしばらく悩んでいました。

UWPって書くときに既存の知識に引きずられて失敗することが多いなぁ……


Windows 10ユニバーサルアプリ開発【Windows 10 Mobile対応】 ThinkIT Books

Tags :

Windows Server に Git環境を構築　（GitBucket導入）

10. 6月 2016 20:06 / 丘山大一 / Blog . Windows Server . 開発ツール コメント (0)
空いているパソコンサーバ（使わなくなったデスクトップPCにサーバOSを突っ込んだヤツ）があったので、
そこにGitBucketを入れてみました。
一応運用実績のあるサーバ＝色々環境が入っているサーバ
ですので、下記手順で足りない・多いものがあってもご容赦ください。
OSはWIndows Server 2012 です。
また、ローカルイントラネットでの運用を想定しているのでセキュリティなどはとくに考慮していません（ホントはダメだよ！）

GitBucket のインストール

Javaで動作しているので、JREが必要です。
https://java.com/ja/download/
あたりで落としてきます。
WIndows Server でブラウザを開いて作業するのが面倒な場合は、先にクライアントマシンでファイル落としてからコピーするのが楽です。
https://java.com/ja/download/manual.jsp

つづいて、GitBucket本体です。
https://github.com/gitbucket/gitbucket/releases
からwarファイルを落としてきます。
これを実行する形になるので、今後のことも考えそこそこの階層に配置することにします。
C:\GitBucket\gitbucket.war

配置はこれだけで完了。起動するコマンドは
java -jar C:\GitBucket\gitbucket.war
となります。適当なスクリプトを組んでおけば便利。
バッチファイルで実行した場合、DOS画面を閉じるとGitBucket自体も終了してしまうので、終了しないように。

この後、外部からアクセスできるようにするため、ポート8080を開けておきます。
ファイアウォールの受信の規則で、ポート指定で「8080」を開放します。

アクセス

インストールしたサーバ自身から参照するとき：「http://localhost:8080/」
外部クライアントマシンから参照するとき：「http://<ＩＰアドレス>:8080/」
初期ユーザは、root 
初期パスワードも root
のようです。

ユーザの追加

rootだけで運用するわけにはいかないので、ユーザを作ります。
ログイン後、画面右上のアイコンから「System administration」を選択。
画面左側から「User management」を選択。
ここでユーザとグループの追加・管理ができます。
使いそうな人はとりあえず登録してしまいましょう。

リポジトリの追加とこれ以後

リポジトリの追加は画面右上のアイコンの「New Repository」から。
サクッとカンタンにできます。
リポジトリの実態ですが、デフォルトでは
C:\Users\<ユーザ名>\.gitbucket
にできるようです。
保存先のドライブを変更する場合は、早めにやっておいた方がよさそうです。


独習Git

新品価格
￥3,542から
(2016/6/11 20:25時点)

Tags :

開発者向けWindows 10仮想マシンを覗いてみた

7. 6月 2016 23:06 / 丘山大一 / Blog . Microsoft . Windows . プログラミング . 開発ツール コメント (0)
ツールやら何やら色々入っているヤツだそうで。
https://developer.microsoft.com/en-us/windows/downloads/virtual-machines

起動するまで

とりあえずダウンロード。
20ギガくらいあるのでのんびり待ちます。
終わって解凍するにも長いので、さらにのんびり待ちます。
解凍できたら、適当なところにほうりこんでHyper-Vでインポート。
……しようと思ったのですが、エラーが出たのでインポートは中止。
新規に仮想マシンを作成し、中のVHDファイルに直結させます。
起動させると、突然接続が切れる現象に見舞われる。
どうやら拡張セッションだとブツブツ切れちゃうようなので、通常の（拡張でない）接続に切り替え。

入っているもの

主にこんな感じ
OS:Windows 10 Enterprise Evaluation（英語）
VS2015
VS2012 ツール類（おそらくWindows Phone 8.1用）
Microsoft IoT 関連
ODBC Driver 関連
WIndows Phone SDK
Git (！)

IoT 関係が入っているのが非常に気になりますが、知識がないのでどういうものなのかサッパリ。
利用期限が60日間限定みたいなので、フルに使いこなすのは厳しいと思いますが、開発環境の感触をつかむには十分そうですね。

……しかし、なんで拡張セッション切れちゃうんだろう？
他の人も一緒なのかな？




クライアントHyper-V徹底入門Windowsの上でLinuxもUNIXも全部動かそう!

新品価格
￥3,024から
(2016/6/7 22:44時点)

Tags :

XAML　多角形の中に文字を表示したい

4. 6月 2016 17:03 / 丘山大一 / Blog . C# . XAML コメント (0)
多角形作って、中にTextBlock突っ込めばオッケー、簡単ですね。
あれ？

多角形(Polygon)の中にTextBlockは突っ込めないみたい

な、なんだってー。

というわけで

正解はTextBlock の裏に多角形を仕込むことみたいです。

<Window x:Class="WpfApplication1.MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
        xmlns:local="clr-namespace:WpfApplication1"
        xmlns:exshape="clr-namespace:Microsoft.Expression.Shapes;assembly=Microsoft.Expression.Drawing"
        xmlns:exctrl="clr-namespace:Microsoft.Expression.Controls;assembly=Microsoft.Expression.Drawing"
        mc:Ignorable="d"
        Title="MainWindow" Height="350" Width="525">
    <Grid>
        <TextBlock Text="12" FontSize="24"
           Width="50"
           Height="50"
           Padding="10,10,0,0">
            <TextBlock.Background>
                <VisualBrush>
                    <VisualBrush.Visual>
                        <exshape:RegularPolygon Width="50" Height="50" Stroke="Black" PointCount="5"  Opacity="0.25" />
                    </VisualBrush.Visual>
                </VisualBrush>
            </TextBlock.Background>
        </TextBlock>
    </Grid>
</Window>

ポイントは TextBlock の Padding 。
これで文字位置を微調整する必要があります。

うーん、イマイチ

多角形の中に文字列が存在する　のではなく、
文字列の裏側に多角形が存在する　というのは、直観に反しているのでなんかイヤ。
もっといい方法ないかなあ……。

あと、もしかして……

UWPってRegularPolygonを呼び出せない……？？

Windows 10ユニバーサルアプリ開発【Windows 10 Mobile対応】 ThinkIT Books

Tags :