Quantcast
Channel: 午後わてんのブログ
Viewing all 420 articles
Browse latest View live

土の熱消毒、ナメクジ退治、アリがたくさん、雨よけ固定法変更、スイートバジルとレッドオーレ種まき

$
0
0

土の熱消毒
イメージ 1
開始初日、生えていた雑草の緑色が見える
次の日にはこの緑が

イメージ 2
熱で白くなっていた
気温は19度でもかなり熱くなっている
黒シートをめくって触ってみたら下側もかなり熱くて熱が通っている感じ

開始から3日目
イメージ 3
もう熱消毒できた感じなのでシートに隙間を作って乾燥させる
臭い匂いが広がる、たぶん死んだナメクジの臭い

4日目
イメージ 4
熱消毒できたことにしたけど臭い
混じっているビニール紐は取り除いた


イメージ 12
↑消毒前↓消毒後
イメージ 5
土の嵩が1.5倍くらいになった
死んで黒くなったコガネムシの幼虫が2匹出てきたのを見て
あと2日位は乾燥させたほうが良かったなあと思ったけど思っただけ

イメージ 6
抜いた雑草や去年のバジルとトマトの枝、いろいろ入っているゴミ箱
これも土と一緒に熱消毒することに

イメージ 7
ナメクジの這ったあと

イメージ 8
下側は雨水が溜まって腐っている
ナメクジには最適みたいで5匹くらい見かけた

イメージ 9
下のプランターの土は去年10月20日に熱消毒開始したけど
温度が上がらずに途中で撤収したもの、これを再開
土はプランターの半分づつすることにしたのは
一度にすると土の中や下側まで熱が通るのに時間がかかるかなあってのと

イメージ 10
プランターの隅っこに生えているこれ
葉っぱを少しちぎって匂いを嗅いでみたらにんにくの臭い
たぶん去年にんにくを植えるときに
イメージ 11
土に紛れ込んだものから生えてきたんだと思う

3日目の今日
イメージ 13
3日間晴れたから熱は通ったはず



ナメクジ退治
イメージ 14
3年くらい前に買っておいたナメクジ退治用のナメトール
買ったはいいけど去年一昨年はナメクジが少なかったので
一回も使わずじまいだったもの、その結果

期限切れ
イメージ 15
有効年月が今年の3月までなので
ギリギリ切れている
どこまで効くかわからないけど使ってみる
西暦表示はわかりやすくていいなあ

イメージ 16
イチゴのプランターや

イメージ 17
重ねたポリポットの隙間とか
あちこちばらまいておいたのが三日前の4月25日で
それから今日まではナメクジの這ったあとを見かけないから効いたのかも

アブラムシ
イメージ 19
相変わらず新しく出てきた葉っぱの間に居る
すりつぶすのめんどくさくなってきた
成長した葉っぱにはほとんど居ない

いちごのランナーの先にアブラムシとアリ
イメージ 36

アブラムシがいるプランターにはアリがたくさん
イメージ 37
マルチをめくってみたらアリがうじゃうじゃで驚いた

イメージ 38
黒く見えるのが全部アリ
写っているのだけで50匹以上
アリがこんなに増えたのは去年から

苺の花にミツバチ
イメージ 39
今まで見たミツバチより小さい、1センチくらい
後ろ足にたくさん花粉を付けている

イメージ 41
イメージ 40
しましま具合を見るとニホンミツバチ、初めて見たかも

リナリア?
イメージ 18
にんにくのプランターに生えてきたこれはリナリアかも
じゃなければホソバウンランかなあ

カタバミ?
イメージ 20
大根のような根

イメージ 21
葉っぱの下に小さな球根みたいなのがあって
その下に太い根のようなもがある

イメージ 22
球根

214_カタバミの根っこ-MI ジャーナル
http://blog.canpan.info/nougeiraku/archive/786
やっぱりカタバミみたい、こんな根なんだなあ、球根だけかと思っていた


雨よけ
イメージ 23
26日は雨の予報だったので展開
レンガ4つで上から押さえて固定したつもりだったけど
2日後
イメージ 24
全部外れていた
レンガを置き直したけどすぐに外れてしまう

イメージ 25
こうしてみた


29日も雨の予報なのでこのままにして翌日の今日
イメージ 26
外れていなかった!
これならシートがイチゴに擦れない


風向きが前回とは違うせいか上から押さえるだけだと
横に動いて重りから外れてしまうようなので
横も固定する感じ

風速
イメージ 50
気象庁の記録では4~7m/s
体感だと10m/s超えていたからそれくらいは耐えられそう



でも予報見たら雨から晴れに変わっていたのでイメージ 27
外した、天気予報も難しいんだねえ

イチゴの様子、5日前と比較
親株プランター
イメージ 28
イメージ 32
放置気味な割によく育っている感じ

プランターA
イメージ 29
イメージ 33
咲き終わったもののほうが多くなってきた

プランターB
イメージ 30
イメージ 34
ほとんど咲き終わった
花芽が出なかった株からはランナーが伸びている

プランターC
イメージ 31
イメージ 35
プランターBと同じ感じ

赤くなってきたけど…
イメージ 42
プランターBで初期に咲いたものは極端に形が良くない
これは赤く熟したとしても食べたくないなあw

プランターC
イメージ 43
一番最初に咲いたのが上奥、次が右下でどちらも形が良くない
左の2つは後から咲いたものでイチゴらしい形


熱消毒した土ができたので種まき
イメージ 44
左が去年採種したスイートバジル
右は今回で3回目の中玉トマトのレッドオーレ

レッドオーレの有効期限
イメージ 45
これ買ったの3年前で
期限が27年とある、西暦だといくらなんでも長すぎるから
平成なんだろうけど今年が何年かわからないだよねえ

肥料
イメージ 51
これも3年くらい前に買っておいたもの

イメージ 52
ハーブ類は1リットルあたり4グラムとある
プランターの容量は30リットルくらいだったかなあ
30*4=120グラムで
目分量で
イメージ 53
ちょっと多かったかも


プランターにスイートバジル
イメージ 46
種を30個ほどばらまいた
土はかけないで水だけかける

レッドオーレはポットに
イメージ 47
1つでいいんだけどたぶん期限切れで発芽率が落ちているだろうから2つ
今思ったのは1つのポットに2つ蒔けばよかった

イメージ 48
霧吹きで水をかけた後
土が乾燥しないように気休めで透明シートを掛けておいた

にんにく
イメージ 49
枯れてきたけど収穫にはまだ早いかな


去年の同じ頃の様子 2016/04/25
ベランダ菜園、3週間もかかったスイートバジルの発芽、変化しない花弁が緑色の苺の花 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14087317.html

前回の記事、2017/04/22
土の熱消毒を再開、にんにくの茎の太さ ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14872778.html#14872778




土の熱消毒期間、いちごの開花数、にんにく、5月上旬の様子

$
0
0

土の熱消毒、2つめ完了
今の時期は加熱期間と乾燥期間は3日づつあれば良さそう
元から乾燥していればもっと短く済む

空いているプランターがない事を忘れていたから
鉢やゴミ箱用プランターに入れた

次の熱消毒
残り半分のこれ
隅っこににんにく

これの中がどうなっているか掘って
写真取ろうとしたけど携帯の電源切れで撮れなかった…
かなり深いところから出てきていて10センチ以上あった
球根は小さくて直径1センチくらい

熱消毒した土に移植した


にんにく
1ヶ月前、にんにくの芽が出てきた頃

収穫予定は今月中旬から下旬



アブラムシ
羽つきの大きいのは1日で3匹くらい見かける
前より多いけど小さいのは増えていない


イチゴハナゾウムシ
今年は見ないなあと思っていたけど居た
大量発生しなければ大した被害は出ないからいいけどねえ


ホソヒラタアブ
常連だねえ
でも飛んでくる虫で一番多いのはアブラムシ

名前の通り平べったい

別の個体
しましま具合が違う

ホバリング中
撮影難しい

いちご
親株プランター
塀のそばだから日当たりが良くないけど
他のプランターに比べると葉っぱがきれいなのが多い
葉っぱや花の伸びる方向も上
いちごも強い光には当てないほうがいいのかしらねえ

実が葉っぱの間に挟まっていた
葉っぱの間から実がなっているみたい

開花するのが一番遅かったからまだ結構咲いている

プランターA
花の時期は終わった感じ
咲いてくる花もあるけど小さい
開花数は突出して多い、一株あたり15~30
葉っぱは小さく煤けたようなのが多い

これが全部大きくなったらスゴイけどならないだろうねえ
でもこんなにたくさん咲いたのは初めて
少し追肥してみようかなあ

一番最初に咲いた緑色の花
花弁付いたまま実の部分が黒くなっていた


プランターB
このプランターだけ水切れになっていて
葉っぱがダランとなっている
開花は終了している、開花数は15くらい
開花数は少なくて葉っぱが大きい

全株中1番大きな花だったから期待していたんだけど
実はあんまり大きくなってないし形もいびつ
これは受粉がうまくできなかったのかなあ
受粉は全て自然に任せている

他はいい形している


プランターC
形は変なのもあるけど大きくなってきた!
この株の開花数は17くらい

もう1つのこちらの開花数は15くらい
去年と一昨年はこれくらいの大きさの時から腐ってしまうのが出てきたんだよなあ

去年
ベランダ菜園、イチゴ初収穫、強風で葉っぱ破れる、腐る、トマト(レッドオーレ)の葉っぱに黒い斑点 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14105218.html
去年の今頃はもう収穫開始でトマトもバジルも発芽している

一昨年
いちごの様子4月下旬 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/12995604.html
雑草(マツバウンラン)生えすぎw






山芋
一昨年の秋に採種した山芋?のむかご
かなり干からびていてもとの大きさの1/3くらいになっている
これは死んでいるかなあ

ポリポットに植えてみた
去年は植えるところなかったからねえ


オオマツバウンラン
この時の花だったり実だったのが

種になっていた

採取
使うかわからないけどねえ


土の熱消毒期間、いちごの開花数、にんにく、5月上旬の様子

$
0
0


土の熱消毒、2つめ完了
イメージ 1
今の時期は加熱期間と乾燥期間は3日づつあれば良さそう
元から乾燥していればもっと短く済む

イメージ 3
空いているプランターがない事を忘れていたから
鉢やゴミ箱用プランターに入れた

次の熱消毒
イメージ 4
残り半分のこれ
隅っこににんにく

イメージ 5
これの中がどうなっているか掘って
写真取ろうとしたけど携帯の電源切れで撮れなかった…
かなり深いところから出てきていて10センチ以上あった
球根は小さくて直径1センチくらい

イメージ 6
熱消毒した土に移植した


にんにく
イメージ 7
1ヶ月前、にんにくの芽が出てきた頃

イメージ 8
収穫予定は今月中旬から下旬



アブラムシ
イメージ 9
羽つきの大きいのは1日で3匹くらい見かける
前より多いけど小さいのは増えていない


イチゴハナゾウムシ
イメージ 16
今年は見ないなあと思っていたけど居た
大量発生しなければ大した被害は出ないからいいけどねえ


ホソヒラタアブ
イメージ 23
常連だねえ
でも飛んでくる虫で一番多いのはアブラムシ

横から見ると
イメージ 24
名前の通り平べったい

別の個体
イメージ 25
しましま具合が違う

ホバリング中
イメージ 26
撮影難しい


いちご
親株プランター
イメージ 22
塀のそばだから日当たりが良くないけど
他のプランターに比べると葉っぱがきれいなのが多い
葉っぱや花の伸びる方向も上
いちごも強い光には当てないほうがいいのかしらねえ

イメージ 20
実が葉っぱの間に挟まっていた
葉っぱの間から実がなっているみたい

イメージ 21
開花するのが一番遅かったからまだ結構咲いている


プランターA
イメージ 27
花の時期は終わった感じ
咲いてくる花もあるけど小さい
開花数は突出して多い、一株あたり15~30
葉っぱは小さく煤けたようなのが多い

イメージ 2
これが全部大きくなったらスゴイけどならないだろうねえ
でもこんなにたくさん咲いたのは初めて
少し追肥してみようかなあ

一番最初に咲いた緑色の花
イメージ 28
花弁付いたまま実の部分が黒くなっていた


プランターB
イメージ 29
このプランターだけ水切れになっていて
葉っぱがダランとなっている
開花は終了している、開花数は15くらい
開花数は少なくて葉っぱが大きい

イメージ 15
全株中1番大きな花だったから期待していたんだけど
実はあんまり大きくなってないし形もいびつ
これは受粉がうまくできなかったのかなあ
受粉は全て自然に任せている

イメージ 14
他はいい形している


プランターC
イメージ 13
イメージ 12
形は変なのもあるけど大きくなってきた!
この株の開花数は17くらい

イメージ 17
もう1つの株、開花数は15くらい
去年と一昨年はこれくらいの大きさの時から腐ってしまうのが出てきたんだよなあ
でも今年は親株プランター以外は熱消毒した土を使ったのと
開花前から雨よけをするようにしたから効果があるんじゃないかと期待している


去年
ベランダ菜園、イチゴ初収穫、強風で葉っぱ破れる、腐る、トマト(レッドオーレ)の葉っぱに黒い斑点 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14105218.html
去年の今頃はもう収穫開始でトマトもバジルも発芽している

一昨年
いちごの様子4月下旬 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/12995604.html
雑草(マツバウンラン)生えすぎw






山芋
イメージ 19
一昨年の秋に採種した山芋?のむかご
かなり干からびていてもとの大きさの1/3くらいになっている
生きているかしら

イメージ 18
ポリポットに植えてみた



オオマツバウンラン
イメージ 30
イメージ 31
この時の花だったり実だったのが

イメージ 11
種になっていた

採取
イメージ 10
使うかわからないけどねえ


WPF、BindingのStringFormat、数値の書式設定をVBコードで

$
0
0

XAMLじゃなくてVBコードで
Bindingした数値の書式設定
イメージ 1
SliderのValuePropertyはDouble型、これを各TextBlockのTextPropertyにBindingして表示するときの書式設定の例

数値が123.45で
表示小数点以下が要らないとき
123Binding.StringFormat = "0"
123Binding.StringFormat = "{0:0}"

数値の前や後ろに文字列を追加したいとき
文字列123Binding.StringFormat = "文字列{0:0}"
123文字列Binding.StringFormat = "{0:0}文字列"
字123字Binding.StringFormat = "字{0:0}字"


0のとき
イメージ 4


一桁整数のとき
イメージ 5

二桁整数のとき
イメージ 6

マイナスの一桁
イメージ 7
文字列と組み合わせたときのマイナス記号が表示される位置
{}を使わないと変な位置に付く

小数点
イメージ 8

小数点
イメージ 9




参照したところ
BindingBase.StringFormat プロパティ(System.Windows.Data)
https://msdn.microsoft.com/ja-jp/library/system.windows.data.bindingbase.stringformat(v=vs.110).aspx

Nine Works WPFのStringFormatによるフォーマット指定
http://nineworks2.blog.fc2.com/blog-entry-10.html

数字をBindingするときの書式指定|かに太郎、ただいま開発中
http://ameblo.jp/kani-tarou/entry-10202879097.html

標準の数値書式指定文字列
https://msdn.microsoft.com/ja-jp/library/dwhawy9k.aspx

標準の数値書式指定文字列
https://msdn.microsoft.com/ja-jp/library/dwhawy9k.aspx#GFormatString
ありがとうございます!




VBコード

Class MainWindow
    Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized

        Dim b As New Binding("Value") With {.Source = Slider1}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "0"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "0.0"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "0.000"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "00.000"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "000.000"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "##0.000"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "スライダーの値 = 0.000"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "スライダーの値 = {0:0.000}"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "スライダーの値 = {0.000}"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "{0:00.000}"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "{0:N3}"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "N3"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "P3"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "G20"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "G5"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "{0:G5}"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "{0:C}"}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "{0:C}",
            .ConverterCulture = System.Globalization.CultureInfo.CurrentCulture}
        Call SetTextBlock(b)

        b = New Binding("Value") With {.Source = Slider1, .StringFormat = "{0:C2}",
            .ConverterCulture = System.Globalization.CultureInfo.CurrentCulture}
        Call SetTextBlock(b)

    End Sub

    Private Sub SetTextBlock(b As Binding)
        Dim tb As New TextBlock
        tb.SetBinding(TextBlock.TextProperty, b)
        LeftPanel.Children.Add(tb)

        'Dim str As String
        'str = $"StringFormat = ""{b.StringFormat}"""

        tb = New TextBlock With {.Text = b.StringFormat}
        RightPanel.Children.Add(tb)
    End Sub
End Class



XAML
イメージ 2

イメージ 3
ヤフーブログのかんたんモードだとXAMLのコードは投稿できないから画像で




1年ぶりくらいにWPFでのアプリ作成再開したけどすんごい忘れていてまた最初から調べなおしている感じ、また夏になったら完全に止まっちゃうからいつになったらできるかわかんないな
今くらいの気候が続いてくれたら最高なんだけどなあ



レッドオーレ9日目で発芽、オオマツバウンランの種まき、いちご赤くなってきた

$
0
0

いちごの蕾が萎れている
イメージ 1
花柄のところが^って折れ曲がっている
下側を見てみたら
イメージ 2
折れ曲がっているところとガクに黒い点がある

いちごの葉っぱに穴
イメージ 15
これらの原因はこの前見かけた

イメージ 3
このイチゴハナゾウムシ

ハナムグリ
イメージ 4
ベランダ菜園では初めて見た
成虫は悪さをしなさそうだけど土の中の幼虫が根を食べちゃうから害虫
幼虫だとカナブンもコガネムシも見分けはつかないから
コガネムシの幼虫で統一してきたけどこれでハナムグリも加わった

カナブンとコガネムシ、ときどきハナムグリ。違いと見分け方。どっちでもいいけど、どっちでも良くないもの | 趣深い.com
http://omomukibukai.com/which5/
ここの説明面白い

土の熱消毒
イメージ 5
3回目は5日目で完了、今までの最短
2日間加熱のあとに3日間乾燥した

イメージ 6
2回めの土と合わせて化成肥料も追加しておいて
ここにトマトを植える予定

一昨年くらいに買っておいた、土?
イメージ 7
一昨年の春夏にいちごのランナーから取った苗用に少し使ったもの
ヤスデが発生した原因は多分これ
これを使うまでベランダ菜園では一度もヤスデを見ることはなかったし
最初に見つけたのもこれを使った苺の苗のところだった
そんな感じで使うのを躊躇していて今まで1年以上放置していた

イメージ 8
開けたところは洗濯ばさみで閉じていたつもりだったけど
雨水が入り込んでいてタプタプになってる

イメージ 9
上の方は湿っているくらいだけど下には水が溜まっている

イメージ 10
臭いは牛ふん堆肥に似ているけどあんまり臭くない

イメージ 11
試しに1/3ほど熱消毒というか乾燥してみることにした

スイートバジルとオオマツバウンラン
イメージ 12
スイートバジル種まきから7日目、まだ発芽しない
もしかしたらまいた種は去年のじゃなくて一昨々年のだったかも

蒔き直す
イメージ 13
これは一昨年採種した種、これもまくことにしたのと
ついでにオオマツバウンランのたねも試しにまいてみることにした

種の比較
イメージ 14
スイートバジルの種が大きく見える
スイートバジルは一つの花から4つの種だけど
オオマツバウンランは100個くらい種ができるのかも
まき時がわからなくて調べていたら…わからなかったけどかわりに
マツバウンラン
1304_matsubaunran.pdf
http://www.water.go.jp/honsya/honsya/referenc/seibutu/pdf/plant/1304_matsubaunran.pdf
 可憐な姿に似ず繁殖力が旺盛なため、最初の発
見地のある京都府などのように、「今のところ被
害は認められないが今後の推移に注意を要し、種
子ができる前に抜き取る防除対策が必要な被害危
惧種 Aa(府独自基準)ランク」にリストアップ
しているところもあります。
やっぱり繁殖力スゴイんだなあ
被害危惧種 Aa

京都府外来生物リスト(種子・シダ植物):京都府 外来生物情報/京都府ホームページ
http://www.pref.kyoto.jp/gairai/list/spermatophyta.html
ここ見ると
オオマツバウンランは準被害危惧種 Ba
なので
イメージ 27
京都府でこういうことしたら怒られそうだけどここは愛知県

うちのベランダでは一昨年から減って200本以上あったのが今年は20本くらい
かわりに増えてきたのが
オッタチカタバミ
イメージ 28
これも外来種
マツバウンランと入れ替わるように一昨年から増えてきて
今では500本以上あるかも

スイートバジルと同じ日(4/28)にまいた中玉トマトのレッドオーレ
イメージ 24
今日で種まきから9日目

イメージ 25
イメージ 26
2つとも発芽していた!
一昨々年に購入したもので期限も切れていたんだけどねえ


いちご赤くなってくる
イメージ 16
プランターB
多分これが一番早く収穫できると思います

イメージ 17
プランターC
一昨年や去年のように腐ったり萎びたりしないでいけそう

プランターA
イメージ 18
プランターAは開花は一番速かったけど
初期に咲いたのはこんな感じで

イメージ 19
後から咲いてきたものはまともだけどまだ青いから
収穫は最後になりそう

追肥
イメージ 29
プランターAだけ化成肥料を追加
たくさん実がついているから入れたほうがいいかなと

親株プランター
イメージ 20
開花は最後だったからまだチラホラ咲いている
このプランターだけ熱消毒していない土だから不安があるけど
今のところ腐ったりしていない

また雨の予報
イメージ 22
雨よけ展開

次の日(今日)
イメージ 21
今日は結構風があるけど外れていなかった
天気予報は明後日からまた雨になっているから
このままにしようかと思うけど

イメージ 23
写真撮りづらいし、収穫間近で迷う

にんにく(たぶん遠州極早生)
イメージ 30
にんにくの芽が出なかった株は倒れた状態になったから
収穫できるのかも

前回の記事
土の熱消毒期間、いちごの開花数、にんにく、5月上旬の様子 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14893015.html



イチゴとにんにく今季初収穫!

$
0
0


中玉トマトのレッドオーレ
イメージ 1
イメージ 2
一昨日は∩だったのが昨日双葉が開いた

イメージ 3
3年以上前の種が2つとも発芽するのはすごいなあ
トマトの種の寿命はどれくらいあるんだろう

にんにく
イメージ 4
葉っぱが枯れてきて
にんにくの芽が出なかった株は倒れてきた

イメージ 5
倒れてきた正面左のにんにく

プランター右側
イメージ 42
イメージ 6
3つを掘り出してみた
1番2番はだいぶ前から倒れっぱなしだったので
最初はこの2つを収穫しようとしていた

1番の茎を引っ張ったら
イメージ 8
ちぎれたw

イメージ 7
植えたときの深さは1~2センチだったはずなんだけど
少し掘っても見つからなくて

イメージ 9
かわりに2番が見えてきたので取り出してから
1番を探していたんだけど3番がじゃま!ってことで

イメージ 10
3番も収穫
1番みたいにちぎれたら探すの面倒だなと思って少し掘ってから引き抜いた
植えたときはせいぜい2センチ位に埋めたはずなんだけど
5センチ以上のところから出てきた

イメージ 11
やっと1番が見つかった
こんなに深いところにあったのはたぶん
植えてから支柱を立てたからそのときに引っかかったんだと思う

イメージ 12
上から2,1,3番
根の量が全然違うね

洗って根を取り除いた
イメージ 13
収穫は横から見て根の部分が凹んでいるか水平くらいのときが
いいって聞いているから少し早かったかも?
小さな1,2番は植えたときがむかごだったのかなあ
それにしても1番は小さい、むかごそのものみたい
大きくなるに連れて色が薄くなっているのが面白い
にんにくの芽が出なかった1,2番は茎が簡単にちぎれたけど
芽が出た3番は堅い芯が通っている感じ

上から
イメージ 14
3番は周縁の輪郭がもこもこしていてにんにくっぽい

下から
イメージ 16



イメージ 15
1番の皮は傷ついてる
土の中にコガネムシの幼虫がいるとかじられてこうなるけど
たぶん支柱を立てたときに付いたものだと思う

一昨年
5月上旬のにんにくの様子、一部収穫そして実食 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/13025076.html
このときはコガネムシの幼虫がいっぱい居たから
かじられた跡がいっぱい



いちごも今季初収穫
イメージ 17
プランターBからの1つだけ

イメージ 18
形が凸凹でいまいち

開花から収穫まで
イメージ 19
にんにくの芽が出てきた頃に開花したのは26日前

イメージ 20
全株中で1番大きな花だったので期待していた

イメージ 21
開花5日目で散って

開花から9日目
イメージ 22
右奥、この頃から凸凹

15日目
イメージ 23
凸凹具合に不安になる

20日目
イメージ 24
大きくなってきたら少しまともになったかな

22日目
イメージ 25
赤くなり始める

23日目
イメージ 26

25日目(昨日)
イメージ 27
下側がまだ青かったのでもう1日待つことに

開花から26日目の今日
イメージ 28
狩りの時間だ

大きさ
イメージ 29
長さ4センチくらい、今までで1番大きいかも

イメージ 30
いただきます!

イメージ 31
中まで赤い
形は良くなかったけど美味しい
今までで1番美味しかったのは一昨年のものでそれに匹敵
これくらいのものがたくさん収穫できたら最高だねえ

去年の初収穫時
ベランダ菜園、イチゴ初収穫、強風で葉っぱ破れる、腐る、トマト(レッドオーレ)の葉っぱに黒い斑点 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14105218.html
ベランダ菜園、トマト苗の成長止まる、イチゴは収穫より廃棄が多い、スイートバジルは普通 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14132697.html
いろいろひどいw

一昨年(2015年)
イチゴが腐って処分したけど初収穫で美味しかった、追肥 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/13013364.html
この初収穫のは美味しかったの覚えている

2013年
いちご初収穫、液肥の花工場 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/9328039.html
この頃は腐ったりはなかったかなあ

いちごの初収穫日
2013年5月9日
2014年収穫なし
2015年5月6日
2016年5月2日
2017年5月9日

にんにくもいただきます
イメージ 32
内側の皮は色が薄い
この色がついているって特徴から品種は遠州極早生にたどり着いた

外側の薄皮をむいていったら
イメージ 33
半分だけ鱗片がでてきて、もう半分は別の皮に包まれていた

半分に分離
イメージ 34
イメージ 35
こうなっているのもあるんだなあ
左のものに後から右側を付け足したみたい

イメージ 36
鱗片は6個(片?)だった

イメージ 39
根の上の部分が少し膨らんでいてそこから茎が伸びている
少し膨らんだところの脇に鱗片がくっついている感じ
この少し膨らんだ部分が植えたときの球根(鱗片)部分なのかなあ

外側の皮と内側の薄い皮を取り除いたところ
イメージ 37
皮は紫色だけど中は白い
外側の皮の厚さは1ミリ近くあって結構固い
乾燥すると薄くなってさらに固くなって皮というより殻になる

断面
イメージ 38
ここまで来ると普通のにんにくと変わらないけど
匂いは薄くて顔を近づけないと臭わないくらい

卵焼きに混ぜた
イメージ 40
イメージ 41
みじん切りにして卵に混ぜて焼いてみた
ここまでしても臭いはふわっと香るくらい
にんにくの芽のときより臭わないのは量が少ないせいかなあ
味の方もにんにく!って感じなかった
物足りないけど、良く言えば上品?
いつかこのにんにくでペペロンチーノ作ってみたいねえ

前回のベランダ菜園
レッドオーレ9日目で発芽、オオマツバウンランの種まき、いちご赤くなってきた ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14900919.html



EdgeModeでアンチエイリアスの有無を切り替え、WPF

$
0
0

RenderOptions.SetEdgeModeで図形のアンチエイリアスの有無を切り替え
イメージ 1
左右それぞれのStackPanelの下の方に表示している図形は上から
Line(太さ0.5)
Line(太さ1.0)
Line(太さ5.0)Lineはそれぞれ2本ずつ
Rectangle
Ellipse
右のすべての図形は図形自体のEdgeModeにAliasedを指定している
左は指定なし
この状態からボタンでStackPanelのEdgeModeを切り替えてしている

EdgeMode
指定できるのは2種類でUnspecifiedとAliased
Unspecifiedは日本語で未定義、不特定の意味らしい
特に指定しない場合はこれになるみたいで結果はアンチエイリアスが有効な状態
Aliasedを指定するとアンチエイリアスが無効になる
親要素にAliasedを指定すると所属している子要素すべてもアンチエイリアス無効になる

UseLayoutRounding
これはおまけで試してみた、切り替えると表示位置が微妙に移動する
有効にすると表示位置をピクセルに合わせてくれる感じなのかなあ、よくわからん

SnapsToDevicePixels
切り替えても何も変化しないねえ



今回のVBコード

Class MainWindow
Private MyRect As Path

Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
'Mode変更のボタン追加
Call AddEdgeModeButton(MyStackP1)
Call AddEdgeModeButton(MyStackP2)
Call AddUselayoutRoundingButton(MyStackP1)
Call AddUselayoutRoundingButton(MyStackP2)
Call AddSnapsToDevicePixelsButton(MyStackP1)
Call AddSnapsToDevicePixelsButton(MyStackP2)
'Mode表示用のTextBlock追加
Call AddTextBlock(MyStackP1)
Call AddTextBlock(MyStackP2)

'EdgeMode = Unspecified(初期設定)のLineを左のStackPanelに追加
With MyStackP1.Children
.Add(CreateLine(0.5, False)) '数値は線の太さ
.Add(CreateLine(0.5, False))
.Add(CreateLine(1.0, False))
.Add(CreateLine(1.0, False))
.Add(CreateLine(5.0, False))
.Add(CreateLine(5.0, False))
.Add(CreateRectangle(False))
.Add(CreateEllipse(False))
End With

'EdgeMode = AliasedのLineを右のStackPanelに追加
With MyStackP2.Children
.Add(CreateLine(0.5, True))
.Add(CreateLine(0.5, True))
.Add(CreateLine(1.0, True))
.Add(CreateLine(1.0, True))
.Add(CreateLine(5.0, True))
.Add(CreateLine(5.0, True))
.Add(CreateRectangle(True))
.Add(CreateEllipse(True))
End With

End Sub

'図形作成
'Line作成
Private Function CreateLine(bold As Double, a As Boolean) As Line
Dim l As New Line
With l
.Stroke = Brushes.Black
.StrokeThickness = bold
.X1 = 0 : .X2 = 150 : .Y1 = 0 : .Y2 = 10
End With
If a Then
RenderOptions.SetEdgeMode(l, EdgeMode.Aliased)
End If
Return l
End Function
'Rectangle
Private Function CreateRectangle(a As Boolean) As Rectangle
Dim r As New Rectangle With {.Width = 50, .Height = 50,
.Fill = Brushes.Black}
If a Then RenderOptions.SetEdgeMode(r, EdgeMode.Aliased)
Return r
End Function
'Ellipse
Private Function CreateEllipse(a As Boolean) As Ellipse
Dim el As New Ellipse With {.Width = 50, .Height = 50,
.Fill = Brushes.Black}
If a Then RenderOptions.SetEdgeMode(el, EdgeMode.Aliased)
Return el
End Function

'ボタン作成
'EdgeMode切り替えボタン作成
Private Sub AddEdgeModeButton(p As StackPanel)
Dim b As New Button With {.Content = "EdgeMode変更",
.Margin = New Thickness(2)}
p.Children.Add(b)
'ボタンクリックイベントにくっつける
AddHandler b.Click, AddressOf ChangeEdgeMode
End Sub
'UseLayoutRounding変更ボタン作成
Private Sub AddUselayoutRoundingButton(p As StackPanel)
Dim b As New Button With {.Content = "UseLayoutRounding変更",
.Margin = New Thickness(2)}
p.Children.Add(b)
AddHandler b.Click, AddressOf ChangeUseLayoutRounding
End Sub
'SnapsToDevicePixels変更ボタン作成
Private Sub AddSnapsToDevicePixelsButton(p As StackPanel)
Dim b As New Button With {.Content = "SnapsToDevicePixels変更",
.Margin = New Thickness(2)}
p.Children.Add(b)
AddHandler b.Click, AddressOf ChangeSnapsToDevicePixels
End Sub


'ボタンクリックイベント用
'親パネルのRenderOptions.EdgeModeを切り替える
Private Sub ChangeEdgeMode(sender As Object, e As RoutedEventArgs)
Dim p As StackPanel = DirectCast(sender.parent, StackPanel)
If RenderOptions.GetEdgeMode(p) = EdgeMode.Aliased Then
RenderOptions.SetEdgeMode(p, EdgeMode.Unspecified)
Else
RenderOptions.SetEdgeMode(p, EdgeMode.Aliased)
End If
End Sub
'親パネルのUseLayoutRoundingを切り替える
Private Sub ChangeUseLayoutRounding(sender As Object, e As RoutedEventArgs)
Dim p As StackPanel = DirectCast(sender.parent, StackPanel)
p.UseLayoutRounding = Not p.UseLayoutRounding
End Sub
'親パネルのSnapsToDevicePixelsを切り替える
Private Sub ChangeSnapsToDevicePixels(sender As Object, e As RoutedEventArgs)
Dim p As StackPanel = DirectCast(sender.parent, StackPanel)
p.SnapsToDevicePixels = Not p.SnapsToDevicePixels
End Sub




'Mode表示用TextBlock作成
Private Sub AddTextBlock(p As StackPanel)
'Bindingソース作成、StackPanelのEdgeModePropertyをソースにする
Dim b As New Binding With {
.Source = p,
.Path = New PropertyPath(RenderOptions.EdgeModeProperty),
.StringFormat = "PanelのEdgeMode = {0}"
}

Dim tb As New TextBlock
'TextBlockのTextPropertyにBinding
tb.SetBinding(TextBlock.TextProperty, b)
p.Children.Add(tb)

'UseLayoutRounding表示用TextBlock
tb = New TextBlock
b = New Binding With {
.Source = p,
.Path = New PropertyPath(StackPanel.UseLayoutRoundingProperty),
.StringFormat = "PanelのUseLayoutRounding = {0}"}
tb.SetBinding(TextBlock.TextProperty, b)
p.Children.Add(tb)

'SnapToDevicePixels表示用TextBlock
tb = New TextBlock
b = New Binding With {
.Source = p,
.Path = New PropertyPath(StackPanel.SnapsToDevicePixelsProperty),
.StringFormat = "PanelのSnapToDevicePixels = {0}"}
tb.SetBinding(TextBlock.TextProperty, b)
p.Children.Add(tb)
End Sub
End Class

XAMLデザインモード
イメージ 2




参照したところ

WPFでアンチエイリアシングを無効にする方法 – 川西 裕幸のブログ
https://blogs.msdn.microsoft.com/hiroyuk/2009/02/15/wpf-2/

WPFでのUIアンチエイリアス封じ込め - コンクリートアスパラガス
http://d.hatena.ne.jp/Conpara02/20120526/1338017590

MahAppsのTreeViewをWPFで使ったときの話 - PG日誌
http://takachan.hatenablog.com/entry/2016/01/06/231255

【WPF】グリッド状の模様を描く (1)~(6)のまとめ – ザワプロ!
http://zawapro.com/?p=1041

.NET TIPS: WPF/ UWP: コントロールのエッジをシャープに描画するには?[XAML] - @IT
http://www.atmarkit.co.jp/ait/articles/1602/17/news034.html

文字列をフォーマットして表示するはなし with 多言語対応とかマークアップ拡張とか - Qiita
http://qiita.com/wonderful_panda/items/a45ffaaca7f9c6e0d494
ありがとうございます!



この前の記事の
WPF、BindingのStringFormat、数値の書式設定をVBコードで ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14895536.html
これに付け足し

TextBlockにBindingする値が文字列でその文字列に別の文字列を追加して表示したいとき
今回のだとこれ、EdgeModeをTextBlockにBindingして表示する
'Bindingソース作成、StackPanelのEdgeModePropertyをソースにする
Dim b As New Binding With {
.Source = p,
.Path = New PropertyPath(RenderOptions.EdgeModeProperty),
.StringFormat = "PanelのEdgeMode = {0}"
}

EdgeModeがAliasedのとき
BindingのStringFormatに何も指定しないと表示されるのはAliased
PanelのEdgeMode  = Aliasedって表示したいときは上のように
.StringFormat = "PanelのEdgeMode = {0}"
って書けばいいみたい、{0}ってところにBindingした値が表示される




画像をくっきり表示させたい(ぼやけるのがイヤな)とき、EdgeModeとScalingMode、WPF

$
0
0

前回は図形に対するアンチエイリアスの切り替えだった
今回は画像に対するアンチエイリアスの切り替えというかぼやけるのを切り替え

特に設定しないと拡大や回転表示させたときにはアンチエイリアスが有効な状態で表示される、くっきり表示させたいときは
EdgeModeをAliased
ScalingModeをNearestNeighbor

MyImageなら
RenderOptions.SetEdgeMode(MyImage, EdgeMode.Aliased)
RenderOptions.SetBitmapScalingMode(MyImage, BitmapScalingMode.NearestNeighbor)

イメージ 9


テストに使う画像は白背景に黒枠が3つ
イメージ 1
枠の太さは1ピクセル
画像の大きさは16x16ピクセル
形式はBMP


WPFのImageコントロールを使ってこの画像を表示
イメージ 2
特に何も設定しないで表示すると普通(期待通り)に表示される

3倍に拡大表示
イメージ 3
RenderTransformのScaleTransformを3にして3倍に拡大表示

ScalingModeをNearestNeighborに変更して拡大
イメージ 4
くっきりになる
ScalingModeの初期設定値はUnspecified(未定義)なんだけどイメージ 5
実際はLinearみたい

回転
ScalingModeをUnspecifiedに戻してから
10度回転
イメージ 6

ScalingModeをNearestneighborに変更
イメージ 7
くっきりになるぶんガタガタになるけど
よく見ると外側だけはなめらか

EdgeModeをAliasedに変更
イメージ 8
これで全部くっきりになる

なので、くっきり表示させたいときは
EdgeModeをAliased
ScalingModeをNearestNeighbor

写真画像の場合
イメージ 11




UseLayoutRoundingの切り替え
0.1ポイント単位で移動させると違いがわかる
イメージ 10
UseLayoutRoundingをTrueにすると
0.1ポイント単位で移動させても1ポイント(ピクセル)単位での移動になるみたい



XAMLデザイン画面
イメージ 12


VBコード

Class MainWindow
    Private MyImage As Image

    Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
        AddHandler btnEdge.Click, AddressOf btnEdge_Click
        AddHandler btnUseLayoutRounding.Click, AddressOf btnUseLayoutRounding_Click
        AddHandler btnSnapsToDevicePixels.Click, AddressOf btnSnapsToDevicePixels_Click
        AddHandler btnScalingMode.Click, AddressOf btnNearestNeighbor_Click
        AddHandler btnReset.Click, AddressOf btnReset_Click

        Dim bi As New BitmapImage(New Uri("D:\ブログ用\テスト用画像\border_round.bmp"))

        MyImage = New Image With {
            .Source = bi,
            .RenderTransform = GetRenderTransform(),
            .RenderTransformOrigin = New Point(0.5, 0.5)
        }

        Canvas.SetLeft(MyImage, 50) : Canvas.SetTop(MyImage, 50)
        MyCanvas.Children.Add(MyImage)

        Call MySetBinding()
    End Sub
    Private Function GetRenderTransform() As Transform
        Dim tg As New TransformGroup
        With tg.Children
            .Add(New ScaleTransform(1.0, 1.0))
            .Add(New SkewTransform)
            .Add(New RotateTransform)
        End With
        Return tg
    End Function

    'Binding
    Private Sub MySetBinding()
        Dim b As Binding

        b = New Binding With {
            .Source = MyImage,
            .Path = New PropertyPath(RenderOptions.EdgeModeProperty),
            .StringFormat = "EdgeMode = {0}"
        }
        tbEdge.SetBinding(TextBlock.TextProperty, b)

        b = New Binding With {
            .Source = MyImage,
            .Path = New PropertyPath(UseLayoutRoundingProperty),
            .StringFormat = "UseLayoutRounding = {0}"}
        tbUseLayout.SetBinding(TextBlock.TextProperty, b)

        b = New Binding With {
            .Source = MyImage,
            .Path = New PropertyPath(SnapsToDevicePixelsProperty),
            .StringFormat = "SnapsToDevicePixels = {0}"}
        tbSnapTo.SetBinding(TextBlock.TextProperty, b)

        b = New Binding With {
            .Source = MyImage,
            .Path = New PropertyPath(RenderOptions.BitmapScalingModeProperty),
            .StringFormat = "ScalingMode = {0}"}
        tbScalingMode.SetBinding(TextBlock.TextProperty, b)

        Dim st As ScaleTransform = GetTransform(GetType(ScaleTransform))
        b = New Binding With {.Source = st, .Path = New PropertyPath(ScaleTransform.ScaleXProperty),
            .StringFormat = "ScaleX = {0}"}
        sldScaleX.SetBinding(Slider.ValueProperty, b)
        tbScaleX.SetBinding(TextBlock.TextProperty, b)
        b = New Binding With {.Source = st, .Path = New PropertyPath(ScaleTransform.ScaleYProperty),
            .StringFormat = "ScaleY = {0}"}
        sldScaleY.SetBinding(Slider.ValueProperty, b)
        tbScaleY.SetBinding(TextBlock.TextProperty, b)

        Dim ro As RotateTransform = GetTransform(GetType(RotateTransform))
        b = New Binding With {.Source = ro, .Path = New PropertyPath(RotateTransform.AngleProperty),
            .StringFormat = "RotateAngle = {0}"}
        sldRotateAngle.SetBinding(Slider.ValueProperty, b)
        tbRotateAngle.SetBinding(TextBlock.TextProperty, b)

        b = New Binding With {.Source = MyImage, .Path = New PropertyPath(Canvas.TopProperty),
            .StringFormat = "CanvasTop = {0}"}
        sldCanvasTop.SetBinding(Slider.ValueProperty, b)
        tbCanvasTop.SetBinding(TextBlock.TextProperty, b)

    End Sub

    Private Function GetTransform(t As Type) As Transform
        Dim tg As TransformGroup = MyImage.RenderTransform
        For Each c As Transform In tg.Children
            If c.GetType = t Then
                Return c
            End If
        Next
        Return Nothing
    End Function

    'イベント

    Private Sub btnEdge_Click(sender As Object, e As RoutedEventArgs)
        If RenderOptions.GetEdgeMode(MyImage) = EdgeMode.Aliased Then
            RenderOptions.SetEdgeMode(MyImage, EdgeMode.Unspecified)
        Else
            RenderOptions.SetEdgeMode(MyImage, EdgeMode.Aliased)
        End If
    End Sub

    Private Sub btnUseLayoutRounding_Click(sender As Object, e As RoutedEventArgs)
        MyImage.UseLayoutRounding = Not MyImage.UseLayoutRounding
    End Sub

    Private Sub btnSnapsToDevicePixels_Click(sender As Object, e As RoutedEventArgs)
        MyImage.SnapsToDevicePixels = Not MyImage.SnapsToDevicePixels
    End Sub

    Private Sub btnNearestNeighbor_Click(sender As Object, e As RoutedEventArgs)
        If RenderOptions.GetBitmapScalingMode(MyImage) = BitmapScalingMode.NearestNeighbor Then
            RenderOptions.SetBitmapScalingMode(MyImage, BitmapScalingMode.Unspecified)
        Else
            RenderOptions.SetBitmapScalingMode(MyImage, BitmapScalingMode.NearestNeighbor)
        End If
    End Sub

    Private Sub btnReset_Click(sender As Object, e As RoutedEventArgs)
        sldRotateAngle.Value = 0
        sldScaleX.Value = 1
        sldScaleY.Value = 1
        sldCanvasTop.Value = 50
        'Canvas.SetTop(MyImage, 50)
    End Sub
End Class







前回
EdgeModeでアンチエイリアスの有無を切り替え、WPF ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14910458.html



イメージ 14
初代Pixtack紫陽花はWindowsFormアプリ
WindowsFormは回転表示でアンチエイリアスを無効にできなかった記憶がある
真ん中下段も微妙にアンチエイリアスがかかっている

イメージ 13
2代目Pixtack紫陽花はWPFアプリ
このときはEdgeModeの存在を知らなくて
ScalingModeの切り替えのみなので
回転表示のときは外側だけアンチエイリアスがかかっている



スイートバジル発芽、いちご収穫、腐る、しなびる、ランナー伸びる、マツバウンランも伸びる

$
0
0

いちごの収穫記録5/10~5/17
イメージ 1
開花したのは4/12ごろだったもの
イメージ 2
プランターCからは初収穫、形がいまいち
大きさはうちのベランダ菜園では大きい方

イメージ 3
味は甘みが足りないけど酸味は苦手な人なら顔をしかめるくらいありそう
個人的にはすっぱいの好きだから美味しい
今年のはこういうのが多い

5/12
イメージ 16
プランターAから3つ、Bから1つ

5/13は雨で収穫なし

5/14
イメージ 23
プランターAから3つ、Cから2つ
イメージ 24

5/15
イメージ 25
プランターCから3つ

5/16
イメージ 26
プランターAから
左は見た目的に食べる気にならない、右は萎びていてグニョグニョ
なので実質中央の1個だけ

イメージ 27
プランターCから4個

5/17
イメージ 35
左からプランターCより2個、Bより1個、Aより7個、親株プランターからは初収穫の2個

イメージ 36
プランターAの7個、左の3つは萎びているので廃棄
プランターAは数は多いけど腐ったり萎びたり形が変だったりが多い

親株プランターから
イメージ 37
今までの中で最大、味も良かった
親株プランターは日当たりも良くないしマルチングもまともにしていないし
土も熱消毒していないしで1番条件がよくなさそうなんだけどねえ、なんでだろう
イメージ 38
いいところは塀のそばだから風当たりが弱いくらい

集計
親株2
A11
B4
C13
合計30


いちご腐る
イメージ 6
プランターA、葉っぱと咲き終わった花が腐ったような枯れたような

イメージ 17
5/12~13は雨も風も強かった

イメージ 18
これもプランターA、黒く煤けたようになっている葉っぱ

親株プランター
イメージ 40
下の方に茶色くなっているの発見

イメージ 41
去年、一昨年と同じ腐り方
これの隣の
イメージ 42
先端が腐っているので上の方に出して様子見して
次の日
イメージ 43
腐り加減が進行していたので取り除いた
やっぱり熱消毒していない土に近いところにあると腐る気がする
だったら土に触れないように
イメージ 44
葉っぱの上に乗せておくと日焼けしたようになったりする
土に触れていても腐らないものもたくさんあるから確率の問題かなあ

理想は
イメージ 45
こんな感じかなあ、地面につかず、それでいて葉っぱの影になる


プランターB
イメージ 11
マルチングの隙間の土と接触していたいちごの先が黒くなっていたので
イメージ 12
葉っぱの上に乗せてみた
風が吹いたら落ちちゃうけどね
この結果
イメージ 30
黒い部分は広がらずにここまで赤くなった

イメージ 31
中を見てみると中心部分だけ芯のように茶色くなっていた
イメージ 32
もう少し深く取り除いて
イメージ 33
深さは5ミリくらいだったかなあ
それ以外は普通に見えたので食べてみたら美味しかった

イメージ 34
表面は黒だったけど中は茶色
芯の様なものができていて触った感じは固くて木みたい木質っていうのかな
プランターBの土は消毒したつもりなんだけどねえ

イメージ 15
プランターAはこんなワサワサだから

イメージ 14
散った花弁がたくさん落ちていている
汚いけど片付けるのめんどくさい

いちごしなびる
イメージ 28
大きめの2つ以外が萎びたようになっている
ひどいのだと赤くなっても
イメージ 29
こんな感じになる、触った感じもぐにゃぐにゃ
去年は半分以上がこんな状態になった
今年は今のところ2割くらいかなあ、比べればだいぶマシ
異常発生は親株プランターとプランターAで
親株から遠いランナーから育てたプランターB、Cでは発生していない


4/18の開花時に風に煽られたビニールシートと擦れてしまった花
イメージ 19
これが
イメージ 13
イメージ 20
やっぱりこうなるのねえ

追肥
イメージ 46
5/4に追肥したプランターA以外で
黄色くなる葉っぱが出てきたので化成肥料で追肥した


イチゴのランナー伸びる
イメージ 7
植える場所がないから摘み取る

アブラムシいっぱい
イメージ 8
イメージ 9
イメージ 10
それでも大量発生にはなっていない




スイートバジル発芽
イメージ 21
4/28にまいた種は3年前の種のような気がして
5/5に一昨年か去年のものだと思われる種を
このプランターの左側に蒔き直したのがようやく発芽
オオマツバウンランは右側にまいたんだけど発芽している様子はなさそう

イメージ 22
5/12~13の雨の日に雨に当たらないようにシートを被せていて
中の温度が上がっていたのが良かったんだと思う



マツバウンランどんどん伸びる
イメージ 47
4/29このときはこのマツバウンランにしては大きな葉っぱを見て
リナリアかもってのがあったけど
イメージ 4
イメージ 5
マツバウンランだった
葉っぱがそっくりだったのは肥料が効いていて大きく育っていたせいみたい
でも花はあんまり大きくならないのね

じゃまなので間引かれる
イメージ 39
なんか伸びてきたなあって思ってから2週間くらいで
長さ40~50センチ


前回
イチゴとにんにく今季初収穫! ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14906037.html






にんにく収穫ほぼ終了、今年(2017年)のにんにくベランダ菜園まとめ

$
0
0


にんにく収穫
5/12
イメージ 1
右側の3つ
イメージ 3
茎を引っ張ったらまたちぎれた
イメージ 4
真ん中のだけにんにくの芽(トウ)が出なかった
イメージ 2
小さい、2センチ
イメージ 5
鱗片は4つかな

イメージ 6
にんにくの芽が出なかったものは分裂していなさそうだったけど
中を見たら
イメージ 7
イメージ 8
2つだった
ってことはにんにくの芽が出る出ないでは鱗片の有無は判断できない

イメージ 12
大きさはさっきのと同じくらいだけどにんにくの芽が出たもの
2つ入っているようにみえる
イメージ 13
見た目通り2つ入っていた
にんにくの芽が出る出ないの条件はなんだろうねえ


5/16
イメージ 9
右側の4つ

イメージ 11
イメージ 10
2~3センチくらい

5/19
イメージ 14
今度は左側の6個

イメージ 15
イメージ 16
小さいのは1センチから大きいのは4センチ弱

5/23(今日)
イメージ 17
かなり枯れてきた

イメージ 18
1つだけにんにくの芽が出たのをそのままにしておいたのがあって
むかごの部分がまだ成長しきっていない感じなのでこれだけ残して
残りを収穫することにした

イメージ 19
12個収穫
今年の収穫数は28個+残り1

イメージ 20
イメージ 21
今年の収穫で1番大きなものは4センチ強
一昨年の最大は5センチだった

今月上旬収穫のものと形を比べてみる
イメージ 22
イメージ 23
収穫の目安で根の部分が凹んで見えるか水平くらいがいいって聞く
比べると今日のほうがもこもこしているから成長した感じなのかなあ

根の長さ
イメージ 35
大きな株だと15センチ以上ある

イメージ 36
小さいのは3センチもない


一昨年の
イメージ 24
右の1番大きなのが5センチ近くのもの
全体的に痩せた感じ、たぶん肥料が少なかったのとにんにくの芽を摘み取らずにむかごを成長させたから
左のはコガネムシの幼虫に皮をかじられて中の鱗片が見えてしまっている
こうして収穫したのを2015年秋に植える予定だったけど
イメージ 25
実際に植えたのは2016年の秋

イメージ 26
イメージ 27
カラカラに干からびていたりカビが生えていたから
ほとんど芽が出ないだろうなあと思って

イメージ 28
かなり詰めて植えたんだよねえ株間4~5センチで、40個かな
そのうち29個から芽が出た

にんにくは自ら土に潜る?
イメージ 29
不思議なのは植えた深さは1センチくらいだったのに
収穫時には
イメージ 30
ほとんどのものが4~5センチくらいのところに埋まっていて
1個だけ
イメージ 31
地表スレスレのがあったくらい
収穫前は全部こんな感じに埋まっているんだろうなって思ってた

株間4~5センチだったから
イメージ 32
大きく育ったものはくっつきそうだったw
ここまで大きくなると思わなかったんだよねえ

イメージ 33
今年のにんにくがきれいなのは土を熱消毒したおかげ
収穫中にコガネムシの幼虫は一匹も見かけなかった

イメージ 34
それにしてもあんな良くない状態からよくここまで育ってくれたなあ
今年の秋はサボらずにしっかり植えようと思う
できればプランターを増やしてもっとたくさん植えたいなあ


一昨年のまとめに追記、太字が追記部分
2年以上植えっぱなしは良くない、1年毎に収穫して植え直したほうが大きく育つ
とはいっても植えっぱなしでもそれなりに育ち収穫できる

1年ではむかごから普通のにんにくの大きさまで育たない
むかごからだと2年かかる
なのでむかごを植えた場合は2年間植えっぱなしでいいかも

むかごからの株からはにんにくの芽がほとんど出てこない
出てきたのは11個中1個だけだった

にんにくの芽が出てきた株の球根は分裂しているけど
出てこなかった株の球根はひとつのままのものが多かった

にんにくの芽が出なかった株は茎が弱くて収穫時期が近づくと
根本から倒れた状態が続いた後、根本からちぎれてしまうけど問題はない
収穫時期の目安になりそう

にんにくの芽は摘みとったほうが球根部分は大きくなる
植えた時の球根の大きさは収穫の時の大きさに比例した

害虫
コガネムシの幼虫が土の中にいると皮をかじられるので退治した方がいい
たぶん根もかじられているはず
今回はじめてアブラムシみたいな虫が付いているのを見た
→コガネムシの幼虫は退治したのできれいなのが収穫できた、アブラムシみたいなのは見かけなかった

青い鉢の超密植状態でもそこそこ大きくなったので、大きなプランターなら
8~10株くらいは植えられそう、むかごならそれ以上も行けそう
植木鉢でも育つ
→小さな球根なら株間4~5センチでもOK、大きくなった球根が接触しそうなくらいでも問題なさそう

肥料は殆ど使わなかった
トマトに使っていたプランターをそのまま使って元肥は入れなかったと思う
でももう少し入れたほうが良さそうな気がする
→今年は元肥は化成肥料、草木灰、ようりんを入れて追肥は化成肥料1回だったかな前回より多めだった

水やりはほとんど記憶に無いくらいの回数だった
特に大きなプランターは1回か2回、これは日当たりが悪いせいもあるかも
ということは日当たりが悪くても育つ
→今年は日当たりが良いところに置いたから4~5月の晴れの日が続いたときは3日に1回、植え付けから3月までは月に1回

植える時期
植えっぱなしだったものが一番早く芽が出てきて、他のはそれを見て慌てて植えたw
にんにくの芽が出てくるのも植えっぱなしのものが最初で
収穫できそうな状態になったのもそうだった
なので植える時期は10月中旬より早くても良さそう、9月下旬?

収穫時期は今くらいで良さそうだけど、暑いからもう少し早い時期に収穫したい

植え付け間隔
むかごなら株間3センチ以下でも良さそう
大きく状態のいい鱗片なら株間6センチ以上あったほうが良さそう
収穫時に球根同士が接触しそうなくらいでも問題なさそう

プランター(土)の深さ
大きな株だと根が15センチ以上になる、まっすぐ下に伸びているわけじゃないだろうけど植える深さもあるから土の深さは15センチ以上あったほうが良さそう
逆に小さな株の根は3センチくらいしかなかったから、むかごを植えるなら10センチもあれば十分な感じ

品種
暖地系にんにくの遠州極早生だと思われる
風によるイチゴの被害、にんにくの品種は遠州極早生 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14867940.html



次に植えるときに試したいのは
  • 黒マルチを使う→密植の場合めんどくさいのでパス、なくても寒い時期で雑草が伸びないから問題ない
  • 早めに植える
  • むかごを2年間植えっぱなし



前回(一昨年)のにんにくまとめ
にんにくの収穫完了、ニンニク栽培のまとめ、完走した感想 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/13084703.html


前回のベランダ菜園
スイートバジル発芽、いちご収穫、腐る、しなびる、ランナー伸びる、マツバウンランも伸びる ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14921600.html






2017いちご収穫数などのまとめ、まだら模様の苺は味がしない、萎びた苺は甘い?

$
0
0

2017年のいちご収穫数
イメージ 1
赤が食べることができた個数で
紫は腐ったり萎びたりで食べられなかった個数

イメージ 2
180個と今まで(5年間)の中で1番たくさん採れた

プランターの株数
花が咲いた株数/総株数
8/9
A10/12
B1/6
C2/4

花が咲いた株だけで見ると一株あたりの収穫数は順番に
37/8=4.6、111/10=11.1、9/1=9、23/2=11.5
親株プランター以外は一株あたり10個前後の収穫




去年(2016年)の収穫数
イメージ 3
去年は同じ数のプランターを使って20個だったのね
この写真の左下のプランターが今年の親株プランター
ここから伸びたランナーを
イメージ 4
 こんなふうに増やした
経緯や順番とかは
ベランダ菜園いちご、7月から11月までのまとめ ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14587779.html

ベランダ菜園、いちごに花芽、にんにく、簡易雨よけ作成 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14819054.html
このへん

今見たらBとCが逆だったんだなあ、今まで勘違いしてたわ
Aに定植したのが7月くらいで、そこからさらにランナーが伸びていたけど
暑くて動けなかったので放置していた
枯れそうになっていたのを慌ててBCに植え付けたのは10月下旬
この植え付けの時期の差が収穫数の差なのかも
あとは親株からの距離かなあ
ランナーの先端(終端)の方ほど花芽が出ない確率が高いのかも
それも先端ほど出てくるのが遅いから植え付け時期もあとになるからこの辺は同じ理由になるかな


今年は腐る確率が低減
イメージ 5
 去年は雨ざらしだったけど今年は開花前から雨よけしたのと
土の熱消毒
イメージ 6
 親株プランター以外の3つは熱消毒した土を使った
これらのおかげでいちごが腐る確率が下がった気がする
腐る確率は体感で
親株プランター >>> A >> BC
プランターAでもそこそこ腐ってしまったのは
親株から近いランナーの株だから菌が移ってきたからなのかも




5/19
イメージ 8

 5/20
イメージ 7

5/21
イメージ 9
形で言うと親株とAは先端がふくらんでいるのが見られるけど
BCはそれがない、一昨年まではBCの形しか見たことがなかった

5/22
イメージ 12

5/23
イメージ 10

5/24
イメージ 11
プランターAは数は25個と多いけど小さい

5/25,5/26は雨で収穫なし

5/27、実質最後の収穫
イメージ 13

5/29収穫?最後
イメージ 14
イメージ 15
親株プランターとAから収穫というより除去だねえ

6/2
イメージ 17
イメージ 16
もう食べられそうにないものばかりになったので
これらを取り除いた
開花時期終盤に咲く花は小さくて実も大きくならない

イメージ 18
プランターAはたくさんの花が咲いたのがわかる

プランターB
イメージ 19
 6株中花が咲いたのは1株で15個咲いて9個の収穫だった
残りはこのとおり大きくならず

プランターC
イメージ 20
4株中2株から花芽、23個の収穫だった
どのプランターの株も終盤に咲いたものは大きくならないから
蕾のうちに摘み取ったほうがいいのかも
一株あたりの収穫数は10前後だったのでそれが目安かなあ



5/27の親株プランターより
イメージ 21
見が極端に萎びたり茎の部分が完全に枯れたようになったり
異常なのが増えた、これは親株プランターだけにしか見られなかったので
土の熱消毒をしていないのが原因だと思う

食べられそうにないので
イメージ 22
ゴミ箱へ




まだら模様のいちごは不味い
イメージ 23
わかりづらいのもあるけど全部まだら模様
イメージ 48
わかりやすいのがこれかな、赤にオレンジのまだら模様になっている
こんないちごは初めて見る
見た目的に不味そうなとおり
味がほとんどしないのが多かった
イメージ 24
中身は普通っぽいんだけどねえ
ここまで味がしないのは初めてってくらいだった
これが発生しているのは親株プランターとAの一部の株だった
これも何かの病気なのかなあと少しぐぐってみたけどわからなかった
なんにしてもこの両プランターの株はすべて廃棄予定


萎びる
イメージ 25
こんなふうに表面が茶色くなるのは葉っぱの影から飛び出したものに多かったかな
アザミウマ類の被害のようにも見えるけど日に当たりすぎとか高温障害なのかも
こういうのは赤くなるのが遅い気がするというか
イメージ 26
徐々に萎び方がひどくなってくるのでこれくらいで収穫
グミみたいに少しぐにゃぐにゃした感じになっている
去年も萎びたけどそれとは少し違う感じかなあ
去年のは食べる気が起きないくらいの萎び方だった

見た目と味
イメージ 27
右のは種が浮き出ていて周辺が黒くなっていて見た目から美味しくなさそう
左のは美味しそう
イメージ 28
左右入れ替わっているけど上から見たところ
どちらか選ぶなら右だと思う

中の色と味
イメージ 29
見た目イマイチな方の中は白っぽい
味はしっかりとした甘さでかなり美味しい

もう一方の
イメージ 30
見た目美味しそうな方は中も赤い
けど味は薄くていまいち


…本当に食べてしまったのか?
イメージ 31
わてんはプランターBCから最後の萎びているのを通り越したようないちごを入手
何を食べよう?わてんは萎びた苺を口に運んだ
イメージ 32
イメージ 33
萎びた苺を食べ終えた。いちごだ…これは萎びた苺だ…甘ぁぁい!
わてんは気が○った。わてんは萎びた苺の味の虜になった。
甘さだけでいったら今まで食べたいちごの中で1番だったのが
プランターBCの終盤で採れた萎びたこれ
手で持った感じもマシュマロみたいに軽くて大きさと不釣り合い
水分が少ないからその分甘さが濃縮されたからかなあ
酸味はほとんどなかった

このいちごの品種は不明なんだけど果肉が赤いものは薄味で
白いものは美味しいものが多い

去年に比べるとだいぶ良くなった
収穫数は9倍、腐ったり萎びたりする率も低下したし、同じ萎びるにしても去年のは食べ物と認識できないレベルだったけど、食べられるんじゃないかなあくらいだったし実際食べたら結構美味しかったり
よくなった原因は雨よけと熱消毒した土を使ったのと株の更新かな
運が良かったのもある、鳥に食べられなかった、アブラムシはいつの間にかほとんど居なくなっていた


親株プランターの土の熱消毒
イメージ 34
これが終わればすべての土を熱消毒したことになる
1番不調だったのはこのプランターだったからねえ意味はかなりあると思う


根の様子
イメージ 35
イメージ 36
右の3株が親株で一昨年の秋に植えたもの
その他はランナーから勝手に育った子株
中央の3つはよく育っている感じ


イメージ 37
右の親株の根は黒い
左の子株は白くて細かい根もたくさん
植えっぱなしより毎年新しい株に交代していったほうがいいのかなあ

イメージ 39
イメージ 38
プランター底のすのこの下まで根が伸びていた

いのり ささやき えいしょう ねんじろ!
イメージ 40
いちごは まいそうされます

1日後
イメージ 41
表面は暑くてさわれないくらい熱くなるけど乾燥している土の中はどうなんだろう
湿っていたほうが熱は通りやすいのかなあと思いつつそのまま








いちごの開花から収穫時期の4~5月の気象
以下のグラフの気象データは
気象庁 Japan Meteorological Agency
より引用
降水量累計
イメージ 42
去年は雨ざらしだったうえに降水量も多かったんだねえ
今年は少ない

湿度
イメージ 43
今年は平年並み
2014年だけ違って乾燥していたんだなあ

日照時間
イメージ 44
日照時間も今年は普通
一昨年の4月は記録的な日照不足だったんだよねえ

平均気温累計(積算温度)
イメージ 45

平均気温推移
イメージ 46
気温は少し低めだった

風速
イメージ 47
今年は開花時期の4月は普通だったけど5月に入ってからは弱めの風だったみたい

全体で見ると今年は平均的な気象状態だったみたい
去年は雨が多く多湿、日照時間少ないけど高温、風が強いなど苺には良くなさそうな年だったのもわかった、去年は夏も暑かったし特別だったんだなあ


気象庁の気象データ使用について気になったこと
気象庁ホームページで公開している情報(以下「コンテンツ」といいます。)は、どなたでも以下の(1)~(7)に従って、複製、公衆送信、翻訳・変形等の翻案等、自由に利用できます。商用利用も可能です。また、数値データ、簡単な表・グラフ等は著作権の対象ではありませんので、これらについては本利用ルールの適用はなく、自由に利用できます。
(気象庁 | 著作権・リンク・個人情報保護について
より引用
太字の強調は僕がしたもの)
ここ見ると数値データは著作権の対象じゃないってあるから、今回のように引用しても出典元の明記は必要じゃないみたいね
でも忘れなければこれからも明記するかなあ


一昨年の惨状
いちごが腐るよどこまでも? ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/13021193.html
一昨年のまとめ
今回(2015年)のイチゴ栽培のまとめ、収穫集計、2株廃棄 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/13123093.html


去年のいちごのひどい有様
ベランダ菜園、鳥?にいちごを食べられた、アームカバーに興味津々なミツバチがいた ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14150134.html

前回のベランダ菜園
にんにく収穫ほぼ終了、今年(2017年)のにんにくベランダ菜園まとめ ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14930933.html




レッドオーレ(トマト)、スイートバジル、発芽から定植、支柱立て

$
0
0

トマト(レッドオーレ)4/28に種まきして9日目の5/7で発芽
スイートバジル5/5種まき、9日目の5/14発芽

5/9
イメージ 2
左は山芋のむかごを植えたところ
右2つが発芽して二日後のレッドオーレ
いちごとニンニクはこの頃収穫開始

5/14、発芽から7日後
イメージ 3
本葉が出てきた
スイートバジルはこの日に発芽だった

5/16雨
イメージ 11
雨が降っていたのは1時間くらいだったけど
そのせいで土から抜けてしまったスイートバジル
一昨年も雨のあと見たら無くなっていたことがあったけど
やっぱり雨で流されていたってことだなあ

5/19
イメージ 4
順調

イメージ 8
発芽から5日目のスイートバジル


5/24
イメージ 5
イメージ 6
大きくなってきたけど害虫も来てた
イメージ 7
アザミウマ類
葉っぱが黒くなっているのがかじられた跡だと思う
写真に写っているのは一匹だけどもっとたくさん居るはず
ちょっとした刺激でもすぐ飛んで逃げる

イメージ 9
左半分にはスイートバジル、右半分にオオマツバウンランの種まきしたけど
結局オオマツバウンランは発芽しなかった

また雨、今度はたくさん降りそう
イメージ 10
また土から抜けてしまうのが嫌なのでビニールシートをかぶせた

5/27
イメージ 12
晴れたのは3日後の5/27
イメージ 13
プランター中央のこの辺のは問題ないけど

イメージ 14
イメージ 15
蒸れたせいが隅の方のは葉っぱが腐ってしまった
この後下の小さな株は
イメージ 22
枯れてしまった
通気性は必要


5/28レッドオーレに追肥
イメージ 16
たったこれだけを
イメージ 17
レッドオーレに追肥

イメージ 18
イメージ 19
追肥する必要なさそうな成長具合だけど
一昨年、去年は苗のときに追肥しなかったせいか
イメージ 20
イメージ 21
こんな感じで肥料が足りてなかったので
今年は苗のときにも追肥してみることにした

6/2花芽確認
イメージ 23
イメージ 24
発芽から23日目で花芽

水が足りなくて萎れる
イメージ 25
いままでは苗の頃には水切れなんてなかった
今年のは大きく育ったせいか水の消費が多いのかな
晴れの日には毎日水を入れることになった

スイートバジルに支柱立てる
イメージ 26
去年は支柱を立てないでいたら風で根本から折れてしまったからねえ

山芋のむかご
イメージ 27
植えてから1ヶ月たっても芽が出てこないので掘り起こしてみる

イメージ 28
イメージ 29
一昨年採種した山芋のむかごは発芽しなかった

6/4またレッドオーレに追肥
イメージ 30
追肥後に株がどんどん大きくなるのが面白くて、さらに追肥したけど
これは入れ過ぎというか必要なかった
苗のときの追肥は1回で十分

コナジラミ
イメージ 31
今年もやってきました
どうやっても防げないからなあ

イメージ 32
潰したところ
コナジラミ類はウイルスを運ぶから絶滅してほしい

6/7レッドオーレ定植
イメージ 33
ホントは花が咲いてからにしたかったけど
毎日の水やりがめんどくさいので定植することにした

イメージ 34
位置合わせ
今は土に還るからそのまま植えられる苗用ポットがあるみたいねえ

イメージ 35
今年の土は熱消毒してムカデが居ない確信があったので素手で
実際居なかった、素晴らしい
ベランダ菜園全体で去年までは何匹も見かけたけど
今年はまだ1匹しか見ていない
めんどくさかったけど熱消毒してよかったと実感

イメージ 36
イメージ 37
定植完了

イメージ 38
雨降ってきた
イメージ 39
雨で肥料が流されるのが嫌だから雨よけを兼ねたマルチング
ホントは黒ビニール使うんだけど間に合わなかった

イメージ 42
イメージ 43
スイートバジルの成長速度も上がってきた

イメージ 44
葉っぱがあんまりきれいじゃないねえ
黒くかすれていたり黄色くなっていたり
イメージ 45
イメージ 46
これもアザミウマ類なのかなあ

6/9
イメージ 40
イメージ 41
肥料が多すぎなのか脇芽がたくさん伸びてくる

6/11レッドオーレの支柱を立てる
イメージ 1
一昨年は2メートル近くに組んで台風の風にも耐えたけど怖かった
去年は高さを抑えて塀の近くに設置したらメンテがしにくかったので
今年は一昨年の高さを抑えた感じになった
黒ビニールでマルチングも完了

イメージ 48
少し上に伸ばした後は斜めに伸ばす予定
その後は考えていないけど、そこまで成長するかどうか

イメージ 47
四角枠だけだとぐにゃぐにゃするけど中に斜めに1本入れると安定するねえ

スイートバジル収穫
イメージ 49
窮屈になってきたので右下のを
イメージ 50
1本収穫
日陰になったところにある葉っぱはスプーンのように曲がる気がする
そして柔らかくて肉厚で美味しいかも
この葉っぱはそんなだった



前回
2017いちご収穫数などのまとめ、まだら模様の苺は味がしない、萎びた苺は甘い? ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14961542.html



5月、6月のベランダ菜園の(害)虫たち、ヤクシマルリシジミがいちごに産卵

$
0
0

春のベランダ菜園の虫
去年から続けた土の熱消毒の結果ヤスデとコガネムシの幼虫はいなくなってムカデも激減して今年は1匹しか見ていない

いちごの新しい葉っぱにアブラムシとアリ
イメージ 1

イチゴのランナーの先端にアブラムシ
イメージ 3

じゃがいもの葉っぱにアブラムシとアリ
イメージ 10
アブラムシは一年中いちごの葉っぱに居る
アリは4月くらいから出て来る
今年はプランターの1つでアリが大量発生してマルチングのビニールをめくると
100匹くらい見かけたことがあった
4/28
イメージ 2
黒く見えるのがアリの塊、この頃がピークだったかなあ
この後はなぜかだんだん減って、今では普通の量になっている
このアリの量がアブラムシに比例している気がするのよねえ
今ではいちごにはあんまり居ない

ハバチ科系かな
イメージ 5
イメージ 4
あんまり興味ないからちょっと調べただけなので不明


ミツバチ
イメージ 6
イメージ 7
今年はいつもよりミツバチが来てくれて嬉しかった
このときはもう咲いている花はないのに来ていた

羽化直後のアブ?
イメージ 11
白っぽいアブが居た

イメージ 12
行き止まりなのに羽をバタバタさせたり

イメージ 13
その場でゆっくり回ったりしていた
20分後
イメージ 14
色が濃くなった?
昔のバイト先には人を刺すアブがよく入ってきてウシアブって呼んでたかなあ
それとは色がぜんぜん違うけど形が似ている気がする

レッドオーレには赤いアブラムシ
イメージ 15
羽根付き

イメージ 16
羽なし
トマトにもアブラムシは付くけど大発生したことはない

スイートバジルにアザミウマ類
イメージ 17
葉っぱの裏が黒く煤けているのを撮っていたんだけど
写真で見たらアザミウマらしきものが写っている

バジルの葉が…添付の画像のようにバジルの葉っぱが全部まだら?のようになっ... - Yahoo!知恵袋
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1291633587
ここ見たら症状がそっくり

アザミウマ類による被害で確定みたいね
イメージ 18
イメージ 19
イメージ 20
こんなにひどいのは今年が初めてだなあ
逆にトマトの葉っぱはいつもよりかなりきれいなんだよねえ
イメージ 21
去年まではこのくらいの大きさになると下側の葉っぱは
イメージ 32
こんなふうに
アザミウマにかじられたところが茶色くなっていたけど

イメージ 22
今年は殆どそれがなくてきれいな緑色
アザミウマ類の中で今年はスイートバジルが流行っているのかしらねえ

不快害虫
クロバネキノコバエ
イメージ 8
水に切り刻んだ野菜を入れて8時間くらい室内で放置した結果

イメージ 9
今年は特に多い、毎年5月から7月くらいかなあ、晴れの日には
このクロバネキノコバエが大発生して家の中にもたくさん入ってくる
体長は1ミリくらいなので網戸もくぐってしまうのかも
暖かくて湿ったところが好きみたいで家の中では台所や浴室に多い
水に弱いくせに自分から飛び込んでいくんだよねえ
食事のときに味噌汁飲もうかなって手に取ると1匹くらいは浮かんでいるとか
プライパンを加熱していると飛び込んできたから洗って加熱を3回繰り返して
やっと加熱できたからサラダ油を敷いたらまた飛び込んできて最初からやり直しとか
この時期の晴れた日はこれがめんどくさい、雨の日はほとんど居ないんだけどねえ
30年前はこんな虫見たことなかったんだけど5年くらい前にはもうたくさんいて
だんだん増えている気がする
ってベランダ菜園は関係なかった

不快なものを見た後はきれいな蝶で
シジミチョウ(ヤクシマルリシジミ)
イメージ 23
シジミチョウはたまにくるけどすぐにどっか行っちゃうんだよねえ
でも今回は花も咲いていないいちごの周りを飛んだり止まったりまとわりついて
(`・ω・´)
イメージ 24
何してんのかなあと思いつつ写真撮りまくっていたら

イチゴのランナーの先端に卵を産み付けている?
イメージ 28
偶然撮れてた

飛び去ったあとを見たら
イメージ 25
卵らしきものがあった!
形や大きさ、場所的にシジミチョウの行動を見ていなかったら
アブラムシと見間違えるなあw

イメージ 26
イメージ 27
イメージ 30
ランナーの先端ばかりに産んでいた、ホントは困るんだけど
いちごならシジミチョウの幼虫数匹に食べられても平気だと思うので
そのままにしてきた
それにしてもいちごの葉っぱなんて食べるんだねえ
シジミチョウと言えばカタバミのイメージしかなかったよ

羽を開いているところ
イメージ 29
派手さはないけどきれいだなあ

イメージ 31
スイートバジルにも止まっていたけど卵を産んでいる様子はなかった


ヤクシマルリシジミまでたどり着いた経緯
"いちご 食草 シジミチョウ"では見つからなくて
"シジミチョウ 食草"でググって
昆虫/チョウと食草・食樹/シジミチョウ科 - PukiWiki版 科学的逍遙
http://mshi.no.coocan.jp/pukiwiki/?%BA%AB%C3%EE%2F%A5%C1%A5%E7%A5%A6%A4%C8%BF%A9%C1%F0%A1%A6%BF%A9%BC%F9%2F%A5%B7%A5%B8%A5%DF%A5%C1%A5%E7%A5%A6%B2%CA
ここでバラ科(イチゴ)を食草とするのを探して画像検索したら
ヤクシマルリシジミが近いってことでみつかったのが
ここで見るとやっぱり
ヤクシマルリシジミかなあと思ってさらに続くリンク先
ヤクシマルリシジミの裏面変異
http://www.j-nature.jp/butterfly/zukan/yokunita/yakururi/index.html
同じ種でもこんなに模様が違うのがあるんだなあ!
今回のは下段中央のものとそっくり
ってことでヤクシマルリシジミのメスで確定

ヤクシマルリシジミ - Wikipedia
https://ja.wikipedia.org/wiki/%E3%83%A4%E3%82%AF%E3%82%B7%E3%83%9E%E3%83%AB%E3%83%AA%E3%82%B7%E3%82%B8%E3%83%9F
漢字で書くと屋久島瑠璃小灰蝶
屋久島って南国風な名前のとおり北限は紀伊半島南端だったけど
今では静岡県でも見られるとかでここ愛知県でも普通にいる蝶みたいね
イメージ 33

前回のベランダ菜園
レッドオーレ(トマト)、スイートバジル、発芽から定植、支柱立て ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14967857.html



WPF、Canvasの中に画像として保存したい要素が回転や拡大など変形されていてもOKな方法

$
0
0

Canvasの中にある画像として保存したい要素が回転や拡大など変形されていてもOKな方法


    Private Sub Test2ImageFile(obj As FrameworkElement, parentPanel As Panel)
        '変形した要素がぴったり収まるRectを取得
        Dim gt As GeneralTransform = obj.TransformToVisual(parentPanel)
        Dim r As Rect = gt.TransformBounds(New Rect(0, 0, obj.ActualWidth, obj.ActualHeight))
        '要素のVisualBrush(ブラシ)作成、引き伸ばしされないようにStretch.Noneを指定
        Dim vb As New VisualBrush(obj) With {.Stretch = Stretch.None}
        '四角枠にブラシを使って塗る
        Dim dv As New DrawingVisual
        Using dc As DrawingContext = dv.RenderOpen
            dc.DrawRectangle(vb, Nothing, New Rect(New Size(r.Width, r.Height)))
        End Using
        'Bitmap作成してRender
        Dim rtb As New RenderTargetBitmap(r.Width, r.Height, 96, 96, PixelFormats.Pbgra32)
        rtb.Render(dv)

        'Bitmapをpng形式の画像で保存
        Dim enc As New PngBitmapEncoder
        enc.Frames.Add(BitmapFrame.Create(rtb))
        'Using fs As New IO.FileStream("testImage.png", IO.FileMode.Create)
        Using fs As New IO.FileStream(obj.Name & ".png", IO.FileMode.Create)
            enc.Save(fs)
        End Using
    End Sub


イメージ 2

MyCanvas(Canvas)に表示しているMyCyanBorder(Border)を画像として保存するときは
Call Test2ImageFile(MyCyanBorder, MyCanvas)
ってするとpng形式の画像で保存される
イメージ 1
保存された画像(MyCyanBorder)


イメージ 3



デザイン画面
ヤフーブログのかんたんモードにXAMLを書くと投稿エラーになるから画像で
イメージ 4


VBコード

Class MainWindow

'現在日時を文字列にして取得
Private Function GetNowString() As String
Dim str As String = Now.ToString
str = Replace(str, "/", "")
str = Replace(str, ":", "")
str = Replace(str, " ", "_")
Return str
End Function

'対象がぴったり収まるRect取得
Private Function GetRect(obj As FrameworkElement)
Return obj.TransformToVisual(MyCanvas).TransformBounds(New Rect(New Size(obj.ActualWidth, obj.ActualHeight)))
End Function

'Bitmapをpng画像で保存
Private Sub Bitmap2pngFile(bmp As BitmapSource, filePath As String)
Dim enc As New PngBitmapEncoder
enc.Frames.Add(BitmapFrame.Create(bmp))
Using fs As New IO.FileStream(filePath, IO.FileMode.Create)
enc.Save(fs)
End Using
End Sub

'RenderTargetBitmapを使って対象をBitmapにして保存
Private Sub SaveImage(obj As FrameworkElement)
Dim r As Rect = GetRect(obj)
Dim rtb As New RenderTargetBitmap(r.Width, r.Height, 96, 96, PixelFormats.Pbgra32)
rtb.Render(obj)
Dim str As String = GetNowString() & obj.Name & ".png"
Call Bitmap2pngFile(rtb, str)
End Sub

'VisualBrushとRenderTargetBitmapを使って対象をBitmapにして保存
Private Sub SaveImageVisualBrush(obj As FrameworkElement)
Dim r As Rect = GetRect(obj)
Dim vb As New VisualBrush(obj) With {.Stretch = Stretch.None}
Dim dv As New DrawingVisual
Using dc As DrawingContext = dv.RenderOpen
dc.DrawRectangle(vb, Nothing, New Rect(New Size(r.Width, r.Height)))
End Using
Dim rtb As New RenderTargetBitmap(r.Width, r.Height, 96, 96, PixelFormats.Pbgra32)
rtb.Render(dv)
Dim str As String = GetNowString() & obj.Name & ".png"
Call Bitmap2pngFile(rtb, str)
End Sub


Private Sub TestSave1()
Call SaveImage(MyOrangeBorder)
Call SaveImage(MyRedBorder)
Call SaveImage(MyPurpleBorder)
Call SaveImage(MyPinkBorder)
Call SaveImage(MyCyanBorder)
End Sub

Private Sub TestSave2()
Dim r As Rect = GetRect(MyOrangeBorder)
Dim rtb As New RenderTargetBitmap(r.Width, r.Height, 96, 96, PixelFormats.Pbgra32)
rtb.Render(MyOrangeCanvas)
Dim str As String = GetNowString() & "MyOrangeBorder.png"
Call Bitmap2pngFile(rtb, str)

r = GetRect(MyRedBorder)
rtb = New RenderTargetBitmap(r.Width, r.Height, 96, 96, PixelFormats.Pbgra32)
rtb.Render(MyRedCanvas)
str = GetNowString() & "MyRedborder.png"
Call Bitmap2pngFile(rtb, str)

r = GetRect(MyPurpleBorder)
rtb = New RenderTargetBitmap(r.Width, r.Height, 96, 96, PixelFormats.Pbgra32)
rtb.Render(MyPurpleCanvas)
str = GetNowString() & "MyPurpleborder.png"
Call Bitmap2pngFile(rtb, str)

r = GetRect(MyPinkBorder)
rtb = New RenderTargetBitmap(r.Width, r.Height, 96, 96, PixelFormats.Pbgra32)
rtb.Render(MyPinkCanvas)
str = GetNowString() & "MyPinkborder.png"
Call Bitmap2pngFile(rtb, str)

End Sub

Private Sub TestSave3()
Call SaveImageVisualBrush(MyOrangeBorder)
Call SaveImageVisualBrush(MyRedBorder)
Call SaveImageVisualBrush(MyPurpleBorder)
Call SaveImageVisualBrush(MyPinkBorder)
Call SaveImageVisualBrush(MyCyanBorder)

Call SaveImageVisualBrush(MyPinkCanvas)

End Sub

Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
AddHandler btnSave1.Click, AddressOf TestSave1
AddHandler btnSave2.Click, AddressOf TestSave2
AddHandler btnSave3.Click, AddressOf TestSave3

End Sub
End Class


イメージ 5
右半分に背景色ベージュのCanvasに5つのBorderを回転表示している
それぞれのBorderの表示を変えていて
オレンジのBorder
イメージ 6
x,y=(10,20)のCanvasの中に表示、回転はしていない

赤のBorder
イメージ 7
(50,50)のCanvasの中に表示、Borderを10度回転

紫のBorder
イメージ 8
位置指定なしのCanvasの中に表示、Borderを50度回転、位置は0,20

ピンクのBorder
イメージ 9
位置120,20のCanvasの中に表示、Borderを50度回転

水色のBorder
イメージ 10
Canvasは無しでそのまま表示、Borderを120度回転、位置は20,20



ボタンで保存
それぞれのBorderやその一個上のCanvasを画像として保存する
Save1ボタン
イメージ 11
保存するBitmap作成をRenderTargetBitmapのRenderだけで行う方法
1番簡単だけど結果はイマイチでこうなる
イメージ 12
回転していないオレンジだけ期待どおりで、それ以外は違う


Save2ボタン
イメージ 13
Save1はBorderをRenderしていたけど
Save2はBorderの一個上のCanvasをRenderしているだけでそれ以外は全く同じ
結果は期待はずれ
イメージ 14
どうやら一番上のMyCanvasの左上を基準にBitmapが作成されているみたいで大幅にずれている


Save3
イメージ 15
このページの一番上に書いたOKな方法と同じ
VisualBrushとDrawingVisualを使った方法
結果はOKな方法なので期待どおり
イメージ 16
真ん中のピンクBorderが回転されていないのは、回転指定されているのはBorderじゃなくてその一個上のCanvasだからで、その一個上のCanvasを保存した左上のピンクBorderは正しく保存されている


参照したところ
Nine Works WPFで要素を画像として保存する
http://nineworks2.blog.fc2.com/blog-entry-13.html

WPF - CanvasをBitmapに変換して画像ファイルとして保存する - Qiita
http://qiita.com/hugo-sb/items/894914f6bbe224a45d49

UWP で UIElement の外観をそのまま画像化して PNG ファイルに保存したい - しっぽを追いかけて
http://matatabi-ux.hateblo.jp/entry/2015/10/07/120000
ありがとうございます




この方法までたどり着くのに1ヶ月くらいかかった、取り掛かる前は1日でできると思っていたんだけどねえw
変形させなければ参照先の方法でいいんだけどPixtack紫陽花ではできていたことができなくなるのは嫌だからっていろいろ試していたら一ヶ月経っていたw

文字列の描画も少し試してみてこんな感じ
イメージ 17
WindowsFormのPixtack紫陽花では縁取りがうまく書けなかったけどWPFは縁取りの指定するところがあってあちこち見ながら試したらできた!


今回のコード


前回のVB.NET、WPFの記事
画像をくっきり表示させたい(ぼやけるのがイヤな)とき、EdgeModeとScalingMode、WPF ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14912530.html





WPF、AnglePropertyと作成した依存プロパティをバインディング

$
0
0

作成した依存プロパティと
RenderTransformの中のRotateTransformのAnglePropertyをBindingしておいて
スライダーやテキストボックスともバインディング

イメージ 1


デザイン画面
ヤフーブログのかんたんモードでXAMLを書くと投稿エラーになるから画像で
イメージ 2



VBコード
今回はMainWindowの他にBorderクラスを継承したClass1の2つ


Class MainWindow
    Private ActBorder As Class1

    '今の回転角度に+10する
    Private Sub AddAngle10()
        ActBorder.MyAngle += 10
    End Sub

    Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
        AddHandler btnAngle.Click, AddressOf AddAngle10
        'Class1作成、回転角度の初期値に20を設定
        Dim MyBorder = New Class1(20) With {.Width = 100, .Height = 50, .Background = Brushes.Red}
        MyCanvas.Children.Add(MyBorder)
        Canvas.SetLeft(MyBorder, 20)
        Canvas.SetTop(MyBorder, 30)
        ActBorder = MyBorder

        'バインディングソース作成
        Dim b As New Binding With {
    .Source = MyBorder,
    .Path = New PropertyPath(Class1.MyAngleProperty),
    .Mode = BindingMode.TwoWay,
    .StringFormat = "Angle = {0:0}"}
        'スライダーとテキストブロックそれぞれにバインディング
        sldAngle.SetBinding(Slider.ValueProperty, b)
        tbAngle.SetBinding(TextBlock.TextProperty, b)
    End Sub
End Class



Public Class Class1
    Inherits Border

    '依存プロパティ
    Public Shared ReadOnly Property MyAngleProperty As DependencyProperty =
        DependencyProperty.Register(NameOf(MyAngle), GetType(Double), GetType(Class1))
    Public Property MyAngle As Double
        Get
            Return GetValue(MyAngleProperty)
        End Get
        Set(value As Double)
            SetValue(MyAngleProperty, value)
        End Set
    End Property

    'コンストラクタ、回転角度を初期値に指定できる
    Public Sub New(Optional angle As Double = 0)
        '各種TransformをグループにしてRenderTransformに指定
        Dim sc As New ScaleTransform '拡縮
        Dim sk As New SkewTransform 'ひし形
        Dim ro As New RotateTransform() '回転
        Dim tg As New TransformGroup
        With tg.Children 'transformグループ作成
            .Add(sc)
            .Add(sk)
            .Add(ro)
        End With
        Me.RenderTransform = tg '指定
        Me.RenderTransformOrigin = New Point(0.5, 0.5) '変形の基準点は中心
        MyAngle = angle '回転角度の初期値設定

        'バインディング
        '作成した依存プロパティのMyAnglePropertyをソースにして
        'RenderTransformの中のRotateTransformのAnglePropertyをターゲットにする場合
        Dim b As New Binding With {
            .Source = Me,
            .Path = New PropertyPath(MyAngleProperty),
            .Mode = BindingMode.TwoWay}
        BindingOperations.SetBinding(ro, RotateTransform.AngleProperty, b)

        '↑↓ソースとターゲットが入れ替わっているだけ

        'Dim b As New Binding With {
        '    .Source = ro,
        '    .Path = New PropertyPath(RotateTransform.AngleProperty),
        '    .Mode = BindingMode.TwoWay}
        'Me.SetBinding(MyAngleProperty, b)

    End Sub
End Class



今回の方法は少し回りくどいかなあって気もするけどどうかなあ
回転角度のAnglePropertyはRenderTransformの中のTransformGroupのChildrenのどれかのRotateTransformの中っていう奥の方にあるから角度指定するときめんどくさかったけど今回のならMyAngleだけだからラク
Pixtack紫陽花2ndのときはスライダーのChangeValueイベント発生時に普通のプロパティを変更する方法だったかなあ、依存プロパティを使いたかったけど難しくてできなかった、今回それっぽく使えるようになったのでメモ
わかんないのが、DependencyProperty.Registerの4番目の引数を付けて初期値を設定したほうがいいのかなあ
初期値にBouble型の0を指定(普通に0を指定したら型が違うってエラーになったw)
Public Shared ReadOnly Property MyAngleProperty As DependencyProperty =
DependencyProperty.Register(NameOf(MyAngle),
GetType(Double),
GetType(Class1),
New PropertyMetadata(CDbl(0)))



NameOFが便利
イメージ 3
6行目のNameOFってのはプロパティとかを指定するとStringに変換して返すだけなんだけど便利
a:NameOF(MyAngle)
b:"MyAngle"
a,bどちらでも同じ結果だしbのほうが短くて済むんだけど
もしMyAngleってプロパティ名を別の名前に変えたくなったとき
イメージ 4
Myを取ってAngleに変更
イメージ 5
NameOFの引数の方も自動で変わる
もし文字列指定の"MyAngle"だったら自動では変わらないので手動で変えることになると思っていたら
イメージ 6
名前の変更時に出てくるこの画面で文字列を含めるにチェックを入れて変更すればできるみたい
でもNameOFのほうなら打ち間違えもないし確実だと思う




参照したところ
【WPF】自分で定義したプロパティにバインディングする – ザワプロ!
http://zawapro.com/?p=885

WPF4.5入門 その42 「WPFのプロパティシステム」 - かずきのBlog@hatena
http://blog.okazuki.jp/entry/2014/08/17/220810

WPF 依存プロパティの作り方 - Qiita
http://qiita.com/hugo-sb/items/62cd9f5deca365a83858

[VB 14.0 新機能] NameOf演算子 | HIRO's.NET Blog
http://blog.hiros-dot.net/?p=6534
ありがとうございます!



コード全部


関連記事
2016/5/26
WPFとVB.NET、TransformGroupのChildrenにAddする順番で結果が変わる ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14169953.html





2016/4/29
WPFとVB.NET、Bindingしたままコントロールを直接変形、TransformGroupの中のRotateTransform ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14098125.html






WPF、ScaleTransformと作成した依存プロパティをBinding

$
0
0

目的は
  • 動的作成で個数も決まっていない対象の拡大縮小
  • 縦横独立と同期をチェックボックスで切り替えできるようにする
  • スライダーやボタンで数値の変更
結果
イメージ 1
OKです



デザイン画面とXAML
ヤフーブログのかんたんモードでXAMLを書くと投稿エラーになるから画像で
イメージ 2


VBコード

Class MainWindow
Private ActBorder As Class1

'バインディング作成用
Private Function GetMyBinding(sObj As DependencyObject, sDp As DependencyProperty, strF As String) As Binding
Dim b As New Binding With {
  .Source = sObj,
  .Path = New PropertyPath(sDp),
  .Mode = BindingMode.TwoWay,
  .StringFormat = strF}
Return b
End Function

'ScaleXとScaleYを同期するチェックボックスをクリックしたとき
Private Sub cbXY_Checked()
If cbXY.IsChecked Then
ActBorder.SetScaleLink(True)
Else
ActBorder.SetScaleLink(False)
End If
End Sub

'アプリ起動時
Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
'Border作成してCanvasに追加
ActBorder = New Class1() With {.Width = 30, .Height = 30, .Background = Brushes.Tomato}
MyCanvas.Children.Add(ActBorder)
Canvas.SetLeft(ActBorder, 100)
Canvas.SetTop(ActBorder, 50)

'バインディング設定
'ソース:BorderのScale
'ターゲット:スライダーとテキストブロック
'作成
Dim bindX As Binding = GetMyBinding(ActBorder, Class1.MyScaleXProperty, "ScaleX = {0:0.0}")
Dim bindY As Binding = GetMyBinding(ActBorder, Class1.MyScaleYProperty, "ScaleY = {0:0.0}")
'ターゲットにバインディング
sldXscale.SetBinding(Slider.ValueProperty, bindX)
sldYscale.SetBinding(Slider.ValueProperty, bindY)
tbScaleX.SetBinding(TextBlock.TextProperty, bindX)
tbScaleY.SetBinding(TextBlock.TextProperty, bindY)

'チェックボックスとボタンのクリックイベントと動かす関数を関連付け
AddHandler cbXY.Click, AddressOf cbXY_Checked '同期の有無
AddHandler btXadd.Click, AddressOf ScaleXAdd '拡大
AddHandler btXsub.Click, AddressOf ScaleXSub '縮小
End Sub

Private Sub ScaleXAdd()
ActBorder.MyScaleX += 1
End Sub
Private Sub ScaleXSub()
ActBorder.MyScaleX -= 1
End Sub
End Class



'-----



Public Class Class1
Inherits Border 'Borderクラスをを継承
Private MyScaleTransform As ScaleTransform

'依存関係プロパティ
'ScaleX用
Public Shared ReadOnly Property MyScaleXProperty As DependencyProperty =
DependencyProperty.Register(NameOf(MyScaleX), GetType(Double), GetType(Class1), New PropertyMetadata(1.0))
Public Property MyScaleX As Double
Get
Return GetValue(MyScaleXProperty)
End Get
Set(value As Double)
SetValue(MyScaleXProperty, value)
End Set
End Property

'ScaleY用
Public Shared ReadOnly Property MyScaleYProperty As DependencyProperty =
DependencyProperty.Register(NameOf(MyScaleY), GetType(Double), GetType(Class1), New PropertyMetadata(1.0))
Public Property MyScaleY As Double
Get
Return GetValue(MyScaleYProperty)
End Get
Set(value As Double)
SetValue(MyScaleYProperty, value)
End Set
End Property

'バインディングソースの作成用
Private Function GetMyBinding(sObj As DependencyObject, sDp As DependencyProperty) As Binding
Dim b As New Binding With {
.Source = sObj,
.Path = New PropertyPath(sDp),
.Mode = BindingMode.TwoWay}
Return b
End Function

'コンストラクタ
Public Sub New()
Call Me.New(1.0, 1.0)
End Sub
Public Sub New(sx As Double, sy As Double)
MyScaleX = sx
MyScaleY = sy
'各種トランスフォームをグループにしてRenderTransformに指定
MyScaleTransform = New ScaleTransform '拡縮、今回のメイン
Dim sk As New SkewTransform '並行変形、今回は未使用
Dim ro As New RotateTransform '回転、今回は未使用
'グループ作成
Dim tg As New TransformGroup
With tg.Children
.Add(MyScaleTransform) : .Add(sk) : .Add(ro)
End With
Me.RenderTransform = tg '指定
Me.RenderTransformOrigin = New Point(0.5, 0.5) '変形の基準点は中心

'バインディング
'ソース:用意した依存関係プロパティ
'ターゲット:ScaleTransform
BindingOperations.SetBinding(MyScaleTransform, ScaleTransform.ScaleXProperty, GetMyBinding(Me, MyScaleXProperty))
BindingOperations.SetBinding(MyScaleTransform, ScaleTransform.ScaleYProperty, GetMyBinding(Me, MyScaleYProperty))
End Sub

'ScaleXとScaleYを同期するかしないかの切り替え
Public Sub SetScaleLink(IsLink As Boolean)
If IsLink Then '同期する場合
'Xをソースにして、Yをターゲットにする
BindingOperations.SetBinding(Me, MyScaleYProperty, GetMyBinding(Me, Class1.MyScaleXProperty))

Else '同期しない場合(別々に戻す)
'Yのバインディングを外す(空のBindingをバインディングする)
BindingOperations.SetBinding(Me, MyScaleYProperty, New Binding)
'今の値を継続したいのでXの値をYにコピー、これをしないとYの値が初期値の1になってしまう
MyScaleY = MyScaleX
End If
End Sub
End Class

イメージ 3

この前のRotateTransformのAnglePropertyのバインディングの時とほとんど同じで
違うのは同期するのチェックボックスでバインディングの切り替えをするところ
130~141行目

バインディングの関係
縦横(ScaleXとScaleY)別々のとき
イメージ 5
用意した2つの依存関係プロパティScaleXとScaleYをバインディングソースにして
ScaleTransformのScaleXとScaleYそれぞれにバインディング

X,Yを同期するチェックボックスにチェックを入れたら
バインディングを切り替えて(133行目)、こう
イメージ 4
依存関係プロパティのScaleYを
依存関係プロパティのScaleXにバインディングしただけ
これでYに連なるScaleTransformYとスライダーScaleYもXと同じ値になる



独立と同期の切り替えが難しくていろいろ試して今回の方法になったけどどうかなあ
もっといい方法がありそう


今回のコード





前回の記事
WPF、AnglePropertyと作成した依存プロパティをバインディング ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14979329.html





今日の風雨による被害、今年もトマト黄化葉巻病?ヤクシマルリシジミが見つからない、きょうの料理

$
0
0


今日2017/06/21の気象情報
イメージ 2
風も強かったけど雨もたくさん降ったんだなあ

ベランダ菜園の様子
イメージ 1
体感風速は冬ならたまによくある15~20m/sだったので
この時期にしては強かったなあくらいだったんだけど
その結果
トマトの葉っぱちぎれ飛ぶ
イメージ 3
床に落ちているのもあれば

イメージ 4
破れている

イメージ 5
千切れそう

小さな実が付いていたんだけどどっか行った
イメージ 9
支柱とぶつかって取れちゃったんだろうなあ

折れ曲がっていた
イメージ 7
葉っぱを支柱に固定するのは現実的じゃないからなあ

葉っぱの裏側
イメージ 6
イメージ 43
これは雨に当たったせいかなあ、半分以上の葉っぱがこうなっている
表と違って裏側は雨に弱いのかも

台風とかでも固定していなかった枝が折れたり裂けたり
赤くなって取れやすくなった実が落ちたりはあったけど
葉っぱがちぎれ飛んだり葉っぱの根本が折れ曲がったりしたのは今回が初めて
今までこんなに大きく葉っぱが育ったことなかったからかなあ
防風ネットとかそういうお洒落アイテム欲しい

スイートバジル
イメージ 8
アーッ!

イメージ 10
アーッ!

イメージ 11
イメージ 12
折れたのはこの1箇所だけだった
これ以外は曲がっていただけなので多分問題ない
でもこんなことになるなんて想像していなかったなあ

去年は風で根本から折れてしまってイマイチな結果になってしまったからって
今年は支柱を用意しておいたんだけど
まだそんなに大きくなっていないから大丈夫と思って
固定していなかったのは失敗だった

イメージ 41
マルチにできた水たまりの底にある土
これは
イメージ 42
この空いているところに落ちた雨に弾かれて飛んできたもの
マルチをしないと雨のたびに土が減る

いちご
イメージ 13
数カ所折れ曲がったりちぎれ飛んでいたけど
そんなにひどくはなかった

ここまでが今日の様子で
ここから前回の続き

トマト(レッドオーレ)の開花
6/14
イメージ 20
鉢植えの株

イメージ 19
プランターの株
どちらも6/14に開花
種まきから47日目

種まき日開花日(種まきからの日数)
2014年6/268/8(43)
2015年5/116/25(45)
2016年4/26/2(61)
2017年4/286/14(47)
今年の種まきは去年より1ヶ月近く遅かったけど、開花日は12日差まで追いついているのは気温の差かなあ
できれば暑くなる前に収穫したいんだけど3月に種まきしたとしても間に合いそうにないなあ

6/15
イメージ 22
鉢植え、30センチくらい
この頃から成長が遅くなっていた

イメージ 23
プランターの株、38センチくらい
こっちは順調


摘心
イメージ 14
主枝を摘心して芯止めして
代わりに第一花房の下の側枝(脇芽)を伸ばすことにした

イメージ 15
↑前↓後
イメージ 17

イメージ 16
第二花房の上を摘み取った
普通は脇芽をすべて摘み取って主枝を伸ばすみたいなんだけど
脇芽の方を伸ばす方法もあるみたい

不調
イメージ 24
鉢植え株は伸びが止まっている感じ
変だなあと思ったのは定植してから3日後くらいだったかな
これは多分
今年もトマト黄化葉巻病
イメージ 25
頂上付近の葉っぱ
葉脈は色が濃いけどそれ以外は色が薄くて黄色くなっている
形も普通よりもこもこした感じで周縁部のギザギザが丸い
これは毎年出る症状でトマト黄化葉巻病だと思う
こうなると治らない
一昨年はこうなった株もゆっくりだけど成長して収穫も100個以上できたけど
去年はほとんど収穫できなかった、症状に軽い重いがあるみたい
今年のこの株は諦めようかなあ

通常の葉っぱ
イメージ 26
順調なプランターの株の葉っぱと比べるとやっぱり違う

6日間での成長
イメージ 44
結構差がついている


スイートバジル
6/15
イメージ 21

6/20
イメージ 31
あんまり成長していいないようにみえるのは

イメージ 18
最後は1本だけ残すので毎日少しづつ収穫しているから

6/17
イメージ 29
1番大きなので30センチくらい
これくらいになったら支柱に固定しないと風で折れ曲がる
スイートバジルが30センチ位まで伸びたら支柱に固定する(戒め)

6/18
イメージ 30
プランターの半分を黒ビニールでマルチングした
土の乾燥と雑草、泥はね、土の減少を抑えられる
特に土は乾燥しないようにしないと葉っぱが固くなる
この時期だと晴れの日は1リットル以上の水が必要
マルチありなら1リットルで十分かな

6/19、6/20
イメージ 49




アザミウマ居た
イメージ 27
イメージ 28
探せば見つかるってくらいしか居ないんだけどねえ
被害は結構大きい

葉っぱの表裏
イメージ 47
葉っぱの裏がこんなにひどくても
表側を見ると
ほとんどわからないか
小さな黄色い斑点にしかなっていない



ヤクシマルリシジミの卵のその後
6/14
イメージ 33

6/16
イメージ 32
真ん中が凹んだようになっている?
孵化したの?

6/18
イメージ 34
変化ないような

6/19
イメージ 39
卵の大きさを改めて測ってみたら0.6ミリメートルくらい
小さすぎ

イメージ 35
こっちのは凹んで空になっている
拡大して
イメージ 36
孵化したのかなあとあたりを探したけど見当たらない
幼虫の色は黄緑色らしい
アゲハは孵化したら最初に卵の殻を食べた気がするけど
ヤクシマルリシジミは違うのかなあ

6/20
イメージ 37
卵の左側にそれっぽいのが写っている気もするけどわかんないなあ

イメージ 38
見つからないのか僕の老眼の限界なのか

6/21、産卵から1週間
イメージ 40
今日の雨と風のせいか昨日まであった卵の殻がなくなっていた
幼虫も見当たらないなあ
他の3箇所でも見当たらず


ヤクシマルリシジミの個別飼育
http://www.geocities.jp/n25nmori/yakusimarurisijimi-kobetusiiku.html
こちらを見ると孵化してから3日目で体長2ミリメートルになって
2週間もあれば成虫になるみたい、早い!
食草によっては成長しないこともあるみたい
いちごはどうなんだろう




きょうの料理
アナリストのデザイン
イメージ 45
春にベランダ菜園で採れたにんにくが入っている
その他はキャベツ1/2個、インゲン10本、トマト1/4個、
卵(2個)焼き(肉が見当たらなかった)
サラダ油(オリーブオイルが見当たらなかった)
塩、コショウ

プログラマのコード
イメージ 46
スパゲッティって実際には絡まらないよなあ

営業の表現、約束
イメージ 48
スイートバジルの緑とトマトの赤がきれい
トマトもこんなのが採れたらいいねえ

実装された運用、得られたサポート、顧客が本当に必要だったもの
イメージ 50
ちょっと多くて一皿に入らなかったw
スパゲッティは箸派
久しぶりにまともな料理をすることができて
久しぶりにまともなキャベツを食べた
わてんは満足した




前回のベランダ菜園
5月、6月のベランダ菜園の(害)虫たち、ヤクシマルリシジミがいちごに産卵 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14972756.html




Borderの背景色(Background.Brush)とスライダーの値を双方向バインディング?

$
0
0

目的
MultiBindingとIMultiValueConverterを使って
Borderの背景色(Background.Brush)とスライダーの値を双方向バインディング
イメージ 1
ボタンはBorderの背景色を変更しているだけでスライダーの値には触っていない

背景色(Background.Brush)←→スライダー
ボタンで変更

期待どおりの動きなんだけど…



デザイン画面
ヤフーブログのかんたんモードでXAMLを書くと投稿エラーになるから画像で
イメージ 2


VBのコード

Imports System.Globalization

'RGB各色の値をSolidColorBrushに変換する
Public Class MyConverterRGB2Brush
Implements IMultiValueConverter
'RGB各値を使ってブラシを作って返す
Public Function Convert(values() As Object,
targetType As Type,
parameter As Object,
culture As CultureInfo) As Object Implements IMultiValueConverter.Convert
'Throw New NotImplementedException()
Dim b As New SolidColorBrush(Color.FromRgb(values(0), values(1), values(2)))
Return b
End Function

'parameterに値を設定したい要素を渡す、今回は各スライダーのあるMainWindow
'ブラシの色をRGB各値に変換
Public Function ConvertBack(value As Object,
targetTypes() As Type,
parameter As Object,
culture As CultureInfo) As Object() Implements IMultiValueConverter.ConvertBack
'Throw New NotImplementedException()
Dim c As MainWindow = parameter
Dim b As SolidColorBrush = value
'スライダーに値設定
c.sldR.Value = b.Color.R
c.sldG.Value = b.Color.G
c.sldB.Value = b.Color.B
Return New Object() {} '空を返している
End Function
End Class



Class MainWindow

Private Sub SetSolidColorBrush()
MyBorder.Background = New SolidColorBrush(Color.FromRgb(255, 180, 50))
End Sub
Private Sub SetBrushes()
MyBorder.Background = Brushes.AliceBlue
End Sub

Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
AddHandler btSetColor1.Click, AddressOf SetSolidColorBrush
AddHandler btSetColor2.Click, AddressOf SetBrushes

'RGB各色のスライダーをソースにしてバインディングを作成
Dim bindR As New Binding With {.Source = sldR, .Path = New PropertyPath(Slider.ValueProperty), .Mode = BindingMode.TwoWay}
Dim bindG As New Binding With {.Source = sldG, .Path = New PropertyPath(Slider.ValueProperty), .Mode = BindingMode.TwoWay}
Dim bindB As New Binding With {.Source = sldB, .Path = New PropertyPath(Slider.ValueProperty), .Mode = BindingMode.TwoWay}
'マルチバインディング作成
Dim mb As New MultiBinding
With mb
.Converter = New MyConverterRGB2Brush
.Mode = BindingMode.TwoWay
.ConverterParameter = Me 'これ大事
'3つのバインディングを詰め込む
With .Bindings
.Add(bindR) : .Add(bindG) : .Add(bindB)
End With
End With
'BorderのBackground(Brush)にマルチバインディング
MyBorder.SetBinding(Border.BackgroundProperty, mb)

MyBorder.Background = Brushes.Blue
End Sub
End Class



背景色の指定はBackgroundPropertyにBrushを指定する
Brushの色はRGB各色で指定するので3つの値が必要
背景色1つに対して3つの値とバインディングするのでMultiBinding(マルチバインディング)する必要がある
マルチバインディングにはMultiValueConverterが必要


RGBとBrushを相互変換?するMultiValueConverter
イメージ 3
実際には相互変換していない、できなかった

問題なくできたのはRGB3つの値をBrushに変換するConvert(7行目~14行目)
Values()の中には入れた順番に3つの値が入っているから、それを取り出してSolidColorBrushを作成してそれを返している、これはOK


できなかったのがBrushの色のRGBを取り出して返す方のConvertBack(18行目)、できなかったので空っぽのObjectを返している(何か返さないとエラーっぽくなる)
最初に書いたのが


    Public Function ConvertBack(value As Object, targetTypes() As Type, parameter As Object, culture As CultureInfo) As Object() Implements IMultiValueConverter.ConvertBack
        Dim b As SolidColorBrush = value
        Dim obj() As Object = New Object() {b.Color.R, b.Color.G, b.Color.B}
        Return obj
    End Function


3つの値は返せているはずなんだけどスライダーの値は変化してくれなかったので、今回はConvertBackの引数のparameterを使う方法になった
parameterにMainWindowを入れて渡す

イメージ 4

MultiBindingのConverterParameterにMe(MainWindow)を入れる(57行目)
これを受け取ったConverterの方では

イメージ 5

RGBの各スライダーにアクセスできるから直接値を設定している
なのでこれはバインディングじゃない気がするんだよねえ
変な方法になったけど一応動いた感じ



今回のコード全部


関連記事
2017/06/20
WPF、ScaleTransformと作成した依存プロパティをBinding ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14981395.html










WPF、CanvasLeftTopとSliderValueをBinding

$
0
0

Canvasに表示したBorderの
Canvas.LeftとCanvas.Topを
SliderのValueにBinding
VBのコードでBinding
イメージ 1


デザイン画面、XAML
イメージ 2



MainWindowのVBコード


Class MainWindow

'右へ10
Private Sub AddLeft10()
Canvas.SetLeft(MyBorder, Canvas.GetLeft(MyBorder) + 10)
End Sub
'左へ10
Private Sub SubLeft10()
Canvas.SetLeft(MyBorder, Canvas.GetLeft(MyBorder) - 10)
End Sub

'バインディング作成用
Private Function GetMyBinding(sObj As DependencyObject, sDp As DependencyProperty, strF As String) As Binding
Dim b As New Binding With {
  .Source = sObj,
  .Path = New PropertyPath(sDp),
  .Mode = BindingMode.TwoWay,
  .StringFormat = strF}
Return b
End Function

Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
'ボタンのクリックイベントに関連付け
AddHandler btAdd10.Click, AddressOf AddLeft10
AddHandler btSub10.Click, AddressOf SubLeft10

'バインディング
Dim bindL As Binding = GetMyBinding(MyBorder, Canvas.LeftProperty, "CanvasLeft = {0:0.0}")
sldCanvasLeft.SetBinding(Slider.ValueProperty, bindL)
tbCanvasLeft.SetBinding(TextBlock.TextProperty, bindL)
Dim bindT As Binding = GetMyBinding(MyBorder, Canvas.TopProperty, "CanvasTop = {0:0.0}")
sldCanvasTop.SetBinding(Slider.ValueProperty, bindT)
tbCanvasTop.SetBinding(TextBlock.TextProperty, bindT)
End Sub

End Class


今までのに比べたらDependencyPropertyも使っていないしMultiBindingでもないので単純なBinding
これを少し変更してDependencyPropertyを書き加えたのが
(背景色紫が変更したところ背景色水色が書き加えたところ)


Class MainWindow

'右へ10
Private Sub AddLeft10()
MyLeft += 10
End Sub
'左へ10
Private Sub SubLeft10()
MyLeft -= 10
End Sub

’LeftとTopの値用のDependencyProperty

Public Shared ReadOnly MyLeftProperty As DependencyProperty = DependencyProperty.Register(
NameOf(MyLeft), GetType(Double), GetType(Border), New PropertyMetadata(0.0))
Public Property MyLeft As Double
Get
Return GetValue(MyLeftProperty)
End Get
Set(value As Double)
SetValue(MyLeftProperty, value)
End Set
End Property

Public Shared ReadOnly MyTopProperty As DependencyProperty = DependencyProperty.Register(
NameOf(MyTop), GetType(Double), GetType(Border), New PropertyMetadata(0.0))
Public Property MyTop As Double
Get
Return GetValue(MyTopProperty)
End Get
Set(value As Double)
SetValue(MyTopProperty, value)
End Set
End Property


'バインディング作成用
Private Function GetMyBinding(sObj As DependencyObject, sDp As DependencyProperty, strF As String) As Binding
Dim b As New Binding With {
  .Source = sObj,
  .Path = New PropertyPath(sDp),
  .Mode = BindingMode.TwoWay,
  .StringFormat = strF}
Return b
End Function

Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
'ボタンのクリックイベントに関連付け
AddHandler btAdd10.Click, AddressOf AddLeft10
AddHandler btSub10.Click, AddressOf SubLeft10

'バインディング
Dim bindL As Binding = GetMyBinding(Me, MyLeftProperty, "MyLeft = {0:0.0}")
MyBorder.SetBinding(LeftProperty, bindL)
sldCanvasLeft.SetBinding(Slider.ValueProperty, bindL)
tbCanvasLeft.SetBinding(TextBlock.TextProperty, bindL)

Dim bindT As Binding = GetMyBinding(Me, MyTopProperty, "MyTop = {0:0.0}")
MyBorder.SetBinding(TopProperty, bindT)
sldCanvasTop.SetBinding(Slider.ValueProperty, bindT)
tbCanvasTop.SetBinding(TextBlock.TextProperty, bindT)
End Sub

End Class


動作の結果は全く同じ
MyLeftとMyTopっていう2つのDependencyPropertyを用意して
LeftPropertyとTopPropertyにBindingしたので
Canvas.SetLeftとCanvas.SetTopを使わなくても良くなった



最終的な目的は
Thumbをマウスドラッグ移動する
移動は指定したGridに合わせて移動(snap to grid)
回転や拡大など変形後の大きさを考えてGridに合わせて移動

一年前にも挑戦してだいたいできたんだけど今一歩だった
WPFとVB.NET、回転したコントロールをマウスドラッグでグリッドスナップ、SortedListはスゴイヤツ ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14136957.html

このあと少し改善したけどイマイチな結果だった
このときの記事を見返してみると結構いろいろなことしていた割には
Bindingを使っていないんだなあっていうのと
全く記憶に無いこともいくつかあって驚くw
SortedListとかぜんぜん憶えていない、さすがの記憶力

夏がもう少し涼しければいいんだけどねえ


今回のコード
改変後



前回の記事、2017/06/23
WPF、Borderの背景色(Background.Brush)とスライダーの値を双方向バインディング? ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14987741.html















不調なトマトの摘心、強風の被害のその後、スイートバジルの花芽、ヤクシマルリシジミの幼虫確認

$
0
0

トマト(レッドオーレ)
3日前(2017/06/22)
イメージ 2

今日(2017/06/25)種まきから58日目
イメージ 1
右のプランターの株は3日で60センチから70センチと10センチも伸びた
左の鉢の株が縮んでいるのは摘心したから

鉢の株の成長点付近
イメージ 3
たぶんトマト黄化葉巻病

第一花房
イメージ 4
この頃は発病していなかったので見た目は普通
ここまでを残して、この上を切断して
こう
イメージ 5
ホントは株全部を廃棄したほうがいいんだろうけど
もったいなくてできなかったw

イメージ 6
切り取った第二花房がついている主枝と伸びていた側枝


この前の強風の被害その後
葉っぱの裏側がこんなだったけど
次の日には回復していた
イメージ 7
ただ単に雨に濡れて色が変わっていたみたい

千切れそうになっていた葉っぱ
イメージ 8
枯れてきた

折れ曲がった葉っぱ葉柄
イメージ 9
案外平気みたい

支柱と擦れてしまった茎
イメージ 13
実の近くの茎が深く削れているのが気になる
でも株全体で見ると思ったより被害は少ないかな


株元の様子
イメージ 10
マルチをめくって

イメージ 11
晴れの日はここに2リットルの水を入れている
曇りなら1リットル
イメージ 12
土の上にも根が張っている

70センチメートル
イメージ 14
横に張った支柱の高さがちょうど70センチで
そこに触れるくらい

主枝の第一花房
イメージ 16
合計9個の花はすべて終了

主枝の第二花房
イメージ 17
13個かな、多い
ミニトマトや中玉トマトは摘果しなくていいって聞く
主枝はこの上で摘心したので花房は2つ

第一側枝の第一花房も開花
イメージ 15
第一側枝は横になっている支柱に沿って伸ばすつもり

イメージ 18
主枝は摘心済みで側枝を2本伸ばしている



スイートバジル、種まきから51日目
イメージ 19
花芽がはっきりわかるようになってきた

3日前
イメージ 20

今日
イメージ 21
高さは40センチくらい

変わらず毎日収穫
イメージ 22
この前の強風で曲がったのは完全に回復したけど
これから出てくる葉っぱは縮れたのが多くなるかも
でも去年みたいに完全に折れてしまわなくてよかった

いちご
イメージ 35
イメージ 36
新しく出てくる葉っぱがきれいになってきた
黒くなる原因はアザミウマ類みたい
被害が出始めたのはいちごの収穫開始時期の5月上旬だったかな
それが治まってきた感じ

マルチの有無での土の減り具合
イメージ 39
マルチと言うかコンクリートブロックを置いている鉢
ランナーを植えるためにブロックを外してみたら
イメージ 40
雨ざらしだった方

イメージ 41
マルチしていた方

イメージ 42
境目
左半分がマルチあり、右は無しのほうは
0.5~1センチくらい土がなくなっている

スイートバジルのプランターのほうも
イメージ 44
追肥するために右半分のマルチを外してみたら
イメージ 43
バジルがある左半分からの泥跳ねがひどい、こんなに飛ぶんだなあ
マルチがなかったらこの土がベランダに飛び散っていたんだよねえ
ビニールでのマルチングはめんどくさいけど大切



イチゴのランナー
イメージ 37
イメージ 38
今のところ苗取りは順調






ヤクシマルリシジミ
イチゴのランナーの先端付近に
イメージ 23
6/14に続いて6/22にも新たに卵を確認
合計8個あった

6/24
イメージ 24
卵の中央が凹んでいてい空になっている感じ
多分孵化しているけど幼虫の姿は見えず


6/14の卵は
イメージ 28
イメージ 26
イメージ 27
とっくに孵化しているはずなので
幼虫を探してみたけど見つからない
確か6個か7個くらいあったはず

6/25今日
イメージ 29
ゴミみたいだけど、なんかそれっぽいのが居る?

ゴミじゃなかった!
イメージ 30
少し見ていたら動き出した
進んでいる方向から上が頭

イメージ 31
たまたま茶色いランナーの上を移動していたからわかったけど
この大きさでこの色で葉っぱに居ても見つけられないわw
でもこんなに小さいなら葉っぱを食べられても大丈夫かな

もう一匹
イメージ 25
これは昨日でまだ孵化していない、これが
今日
イメージ 32
卵の左下あたりに細長くて黄色っぽいのが幼虫だと思う
これはわかんないわ
特に影とのコントラストが激しい晴れの日だったらムリだわ

縮小前の画像で
イメージ 33
イメージ 34
アゲハチョウ系とは違って卵の殻は食べないのね
6/14の幼虫が見当たらないのはいちごの葉っぱが口に合わなかったのかしらねえ



前回の記事
今日の風雨による被害、今年もトマト黄化葉巻病?ヤクシマルリシジミが見つからない、きょうの料理 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
https://blogs.yahoo.co.jp/gogowaten/14985109.html



Viewing all 420 articles
Browse latest View live