2017年5月26日金曜日

VB.NETでDataGridViewを使用する時 必ず行っていること

DataGridViewとは?


DataGridViewコントロールはさまざまな種類のデータ ソースのデータを表形式で表示したり編集したりできる
又、データ ソースをバインドせずに動作させることもできる
拡張性に優れていてカスタマイズに柔軟なコントロールである


DataGridViewはエンドユーザーが形状等を操作できる


エンドユーザーがDataGridViewを装備したプログラムを実行した場合、表の幅や高さ、並び替え等の形状等の変更が可能である
時には便利だがプログラムの仕様上、そのような動作を制限しる必要が出てくる

ここでは、エンドユーザーによる操作の制限といくつかの機能、カスタマイズの一部を紹介します


ヘッダーの幅・高さの変更禁止する


Me.DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing


セルの幅や高さを変更を禁止する


Me.DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing


並び替え(ソート)を禁止する


For Each c As DataGridViewColumn In Me.DataGridView.Columns
    c.SortMode = DataGridViewColumnSortMode.NotSortable
Next c


複数行の選択を禁止する


Me.DataGridView.MultiSelect = False


列ヘッダーの文字列設定


Me.DataGridView.Columns(0).HeaderText = "コード"
Me.DataGridView.Columns(1).HeaderText = "名称"


列ヘッダーのスタイル設定


Me.DataGridView.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
Me.DataGridView.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter


行ヘッダー幅設定


Me.DataGridView.RowHeadersWidth = 20


列幅設定


Me.DataGridView.Columns(0).Width = 40
Me.DataGridView.Columns(1).Width = 140


セルの書式設定


Me.DataGridView.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
Me.DataGridView.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight


データソースの列名割り付け


Me.DataGridView.Columns(0).DataPropertyName = "CODE"
Me.DataGridView.Columns(1).DataPropertyName = "NAME"


DataGridViewにテーブルを表示


Dim ad As New SqlClient.SqlDataAdapter
Dim ds As New DataSet
Dim sql As String

sql = ""
sql &= "SELECT"
Sql &= "        列名1,"
sql &= "        列名2"
sql &= "    FROM"
sql &= "        テーブル名"
ad = New SqlClient.SqlDataAdapter(sql, cnSring)
ad.Fill(ds)
Me.DataGridView.DataSource = ds.Tables(0)
ds.Dispose()
ad.Dispose()


DataGridViewでEnterキー


DataGridViewでEnterキーを押したらTabキーと同様の動作、次のフィールドにフォーカスを移す方法です
クラスを作成して、ビルド、又はリイルドしたらルールボックスにカスタムDataGridViewとして現れ、通常のDataGridViewのように使用できます
Public Class MyDataGridView
    Inherits DataGridView

    Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean
        If (keyData And Keys.KeyCode) = Keys.Enter Then
            Return Me.ProcessTabKey(keyData)
        Else
            Return MyBase.ProcessDialogKey(keyData)
        End If

    End Function

    Protected Overrides Function ProcessDataGridViewKey(ByVal e As KeyEventArgs) As Boolean
        If e.KeyCode = Keys.Enter Then
            Return Me.ProcessTabKey(e.KeyCode)
        Else
            Return MyBase.ProcessDataGridViewKey(e)
        End If
    End Function
End Class
ツールボックスに「MyDataGridView」コントロールが表示される

2017年5月24日水曜日

ベイファーム笠岡 広大な花畑まるで花のジュータン

ベイファーム笠岡の紹介


毎年、四季を通して様々な花で覆いつくされ、その広大な花畑の中をを散策できます
敷地内には道の駅が併設されており、地元でとれた新鮮な魚介や野菜を販売しています
レストランやファストフード店もあり食事もできます

私が行った時は、ポピーが満開を迎えた時でした



ベイファーム笠岡の花畑を散策中に開花前のつぼみを発見


写真、ボケてます すみません


ベイファーム笠岡の四季の花


春 ポピー

夏 ひまわり

秋 コスモス

冬 菜の花




ベイファーム笠岡のレストラン「四季彩」


笠岡の海の幸、山の幸を中心としたメニューをリーズナブルに提供


ベイファーム笠岡の場所


岡山県笠岡市カブト南町245-5
電話 0865-67-6755
FAX 0865-67-6711

☞ベイファーム笠岡の公式サイトはこちら

2017年5月23日火曜日

焼肉「玉貴」岡山市南区古新田の焼き肉屋 コスパ最高 

以前から気になっていた焼肉「玉貴」


岡山市南区古新田2号バイパスの上り車線側にある焼肉屋さん、TSUTAYAの対面、なんせ幹線道路に面した店舗なので嫌でも目に付く
交通量の多い道路、しかも、交差点付近でアプローチしにくいにもかかわらず
とにかく、入り難いし出にくい場所
日中でも夜でも、いつでも駐車場がいっぱいで、以前から気になっていた
安い?美味い?ボリューム?等、何かないと何時でも大入りはないはず

数年間、気にするだけだったが、行って来た

帰るときには、何時でもお客さんが「いっぱい」なのは当然と納得した

セレブで、何時も高級でオシャレなところに行かれている方には不向きかな?

他店と同様に「とりあえず」の注文


追加注文する気、満々で、「とりあえず」の最初の注文

テーブルに「お肉さん」がなればられて固まった
私の知っている範囲で、他焼肉屋の1人前の1.5倍ほどの量(@_@)

見た目は美しい肉、半信半疑で焼きはじめた

カルビ、ハラミ、大腸、旨い
たれも、濃いけど美味い

注文の品を半分程、胃袋に収めた時・・・・・??
「食いきれる???」
追加する気「まんまん」だった気分が、衰退モード
他店と比較して、やっぱり多い

なんとか完食!!
追加していたら「おじさん」のお腹はデジャブー状態、間違いなし

美味しくお腹いっぱい、体中が肉って気分です

何時でも大入りの原因、納得しまくりでした

焼肉「玉貴」の感想


安くてうまい、コスパ最高
とにかく美味くて、お腹いっぱいになれる

他店と同様に注文したらボリュームに後悔するかも?

カップルは勿論、ご家族でのご食事等、お財布に優しいと思います

焼肉「玉貴」の在りか案内


岡山県岡山市南区古新田1207-4
TEL 086-282-4961



焼肉「玉貴」の公式サイト☟
http://www.yakinikutamaki.info/#top/

2017年5月21日日曜日

瀬戸内海国立公園 渋川海岸

岡山県下最大級の海岸「渋川海岸」


岡山県玉野市にある海岸で瀬戸内海国立公園の一部
快水浴場百選や日本の渚百選、日本の白砂青松百選に選定
夏季には海水浴場が開設され多くの人々で賑う海岸で有名
夏季以外でも魚釣り、バーベキュー等のレジャー、四季を通して楽しめる
私が一番絶景と思うのは、秋の夕暮れ時で、なんとも言えない色を醸し出す時間帯
周辺には多くの観光地、施設等も在り、宿泊や瀬戸内海の新鮮な魚介類を頂くことが可能

海 水 浴 場


海水浴場が開設されるシーズンには、毎年、鮫防御柵を設けたり、水質検査をする等、安全面にも配慮されているので安心
瀬戸内と言うこともあり、波が少なく小さなお子様も安心して海で遊べる
当然、シャワーや更衣室も設備される

夕暮れの渋川海岸



ア ク セ ス


瀬戸中央自動車道 児島ICより国道430号で約30分
JR宇野線 宇野駅よりバスで約25分


宿泊・食事「ダイヤモンド瀬戸内マリンホテル」


渋川海岸付近ににあるリゾートホテル
渋川海岸まで徒歩で数分もかからない位近い場所に所在



渋川海岸周辺の施設・観光(抜粋)


「渋川マリン水族館 」
岡山県玉野市渋川2-6-1
運がよければでかい亀に乗れるかも?

「渋川公園・藤棚」
岡山県玉野市 渋川2丁目
日本最長の藤棚と言う説がある

「鷲羽山」
岡山県倉敷市下津井田之浦 展望台からの瀬戸内のパノラマは絶景

「鷲羽山ハイランド」
岡山県倉敷市下津井吹上303-1
ブラジリアンビートにノリノリ!!

「児島ジーンズストリート」
岡山県倉敷市児島味野
デニムの町、児島を堪能

「みやま公園」
岡山県玉野市田井2-4490
とにかく広い、春は桜、冬は鳥

「由加神社本宮」
岡山県倉敷市児島由加2852

「旧野崎家住宅」
岡山県倉敷市児島味野1-11-19

全てを紹介できないので、とりあえず抜粋で

新鮮な瀬戸内の魚介を提供しているお店が多くあるので、瀬戸内海の幸をご賞味

2017年5月16日火曜日

「大久野島」瀬戸内海の「うさぎ島」

大久野島とは?

広島県竹原市沖、瀬戸内海にあり住所は広島県竹原市忠海町大久野島となります
周囲は海で囲まれており上陸するには船舶を利用します

島内に民家無く、又、一般車両の通行も禁止されています

昭和初期には毒ガス製造工場が有ったため、機密性から秘匿され地図から消され、地図上、空白の地帯でした

「うさぎ」島

島には約700羽以上の野生うさぎが生息していると推定されており、現在も増え続けているらいしいです
説ですが、最初は地元の小学校で飼われていた8羽が放されて、繁殖を繰り返し結果、ここまで増えたらいしいと言われています

日本のメディアがブームにあやかり、「うさぎが生息する島」をとりあげ、それをきっかけに「うさぎ島」と言われるようになったようです

観光・アクティビティ

休暇村大久野島
大久野島毒ガス資料館
大久野島神社
大久野島灯台
キャンプ場
テニスコート
海水浴場
研究所跡
発電所跡
毒ガス貯蔵庫跡
砲台跡

休暇村大久野島の公式サイト☟
https://www.qkamura.or.jp/ohkuno/

レンタルサイクルのサービスが有りますので、島内の観光に便利です

島江のアクセス

島へは渡船のみ可能で、忠海港からの乗船をお勧めします
忠海港には駐車場も整備されているので便利です
島に上陸すると休暇村へ無料送迎バスがあります

大三島フェリー時刻表☟
http://sanyo-shosen.jp/omishima/time.html

忠海港の様子


券売機でキップを買って船を待ちます
忠海港に行く前に時刻表を確認するのをお忘れなく(汗)、怠った私は1時間以上待ちました
時刻表を写真に撮るなどして帰りの便も確認して下さい

上陸前 桟橋


上陸して無料バスで休暇村まで行きました
後は徒歩で散策し、最終的にの桟橋まで帰って来ました

島中にいるうさぎ達



何処にでも、うさぎがいます
人なれしていて、なつっこいので、すぐに寄ってきます
うさぎが足まで伸ばしている姿は初めて見ました

案内看板


海も絶景

当日の天候は曇りだったのですが、晴れたら更に美しいと思います

2017年5月15日月曜日

UVライトを買う時のポイント

種類が多すぎる

沢山有り過ぎて、目移りします

比較して使い易かった経験をもとに紹介します

絶対に欲しい機能はターマーです
スイッチを入れて、後は勝手にタイマーで電源OFF、これは必須です
勿論、タイマー機能もあるけど永久ON機能も必要です

後は、開口部が広いこと、ネイルの手や足にも使用できます 30W以上は欲しいですね
勿論、安価であること

そんな中で、たどり着いた商品を紹介します

UVライト YDJ-818


開口部が広く手や足を入れてネイルの硬化ができます
タイマー機能が付いているので放置しておいても安心です
タイマー2分でだいたいのUVレジンは硬化します
勿論、タイマーを使用せず電源入れっぱなしも可能です
UVライトを囲む形状なのでUV光が漏れにくく目に優しい
硬化させたい物を入れてタイマーボタンを押すだけ、後は放置の簡単操作
価格もお手頃

2017年5月14日日曜日

VB.NET プログラムでSQL ServerのSQL文を実行

プログラムでSQL文を実行し結果を取得したり、列を更新、削除する

VB.NETのSQL Serverに接続して、SQL文を実行することでテーブルの値や列を操作する説明をします

プログラムでSQL文の実行であってもSQL文事態の文法は他と同じです

ここでは、「SQL Server」の「データベースに接続」、「SELECT」、「INSERT」、「UPDATE」、「DELETE」を紹介します

テータベースに接続

Dim cn As New SqlClient.SqlConnection

cn.ConnectionString = 接続文字列
cn.Open()

最後にクローズと解放をお忘れなく
cn.Close()
cn.Dispose()

接続文字列

SQL Serverにログインするのに必要な情報をルールに基づいて羅列した文字列です

Data Source = IPアドレス等のロケーション\SQLEXPRESS;User ID = ユーザID;Password = パスワード;Initial Catalog = カレントデータベース名;" この様な定義とします

これを変数に定義します
Dim cnStaring As String

cnString = ""
cnString &= "Data Source =IPアドレス等のロケーション\SQLEXPRESS;"
cnString &= "User ID = ユーザID;"
cnString &= "Password = パスワード;"
cnString &= "Initial Catalog = データベース名;"

テーブルの内容を取得する

戻り値が必要な場合は「ExecuteReader」を使います
Dim cn As New SqlClient.SqlConnection
Dim cd As New SqlClient.SqlCommand
Dim dr As SqlClient.SqlDataReader
Dim SQL As String

'データベース接続
cn.ConnectionString = "データベース接続文字列"
cn.Open()
'SQL文生成
SQL = ""
SQL &= "SELECT"
SQL &= "        *"
SQL &= "    FROM"
SQL &= "        テーブル名"
'SQLコマンド設定
cd.CommandText = SQL
cd.Connection = cn
dr = cd.ExecuteReader
While dr.Read
    Console.Write(dr("列名1"))
    Console.Write(dr("列名2"))
End While
'クローズ解放
dr.Close()
cd.Dispose()
cn.Close()
cn.Dispose()

行を追加する

戻り値が必要ない場合は「「ExecuteNonQuery」を使用します
Dim cn As New SqlClient.SqlConnection
Dim cd As New SqlClient.SqlCommand
Dim SQL As String

'データベース接続
cn.ConnectionString = "データベース接続文字列"
cn.Open()
'SQL文生成
SQL = ""
SQL &= "INSERT  INTO    テーブル名"
SQL &= "("
SQL &= "    列名1,"
SQL &= "    列名2,"
SQL &= "    列名3"
SQL &= ")"
SQL &= "VALUES"
SQL &= "("
SQL &= "    1,"
SQL &= "    100,"
SQL &= "   'テスト文字列'"
SQL &= ")"
'SQLコマンド設定
cd.CommandText = SQL
cd.Connection = cn
cd.ExecuteNonQuery()
'クローズ解放
cd.Dispose()
cn.Close()
cn.Dispose()

テーブルを更新する

Dim cn As New SqlClient.SqlConnection
Dim cd As New SqlClient.SqlCommand
Dim SQL As String

'データベース接続
cn.ConnectionString = "データベース接続文字列"
cn.Open()
'SQL文生成
SQL = ""
SQL &= "UPDATE  テーブル名"
SQL &= "    SET 列名2      =   200,"
SQL &= "        列名3      =   '文字列修正の値'"
SQL &= "    WHERE"
SQL &= "        列名1  =   1"
'SQLコマンド設定
cd.CommandText = SQL
cd.Connection = cn
cd.ExecuteNonQuery()
'クローズ解放
cd.Dispose()
cn.Close()
cn.Dispose()

行を削除する

Dim cn As New SqlClient.SqlConnection
Dim cd As New SqlClient.SqlCommand
Dim SQL As String

'データベース接続
cn.ConnectionString = "データベース接続文字列"
cn.Open()
'SQL文生成
SQL = ""
SQL &= "DELETE"
SQL &= "    FROM"
SQL &= "        テーブル名"
SQL &= "    WHERE"
SQL &= "        列名1  =   1"
'SQLコマンド設定
cd.CommandText = SQL
cd.Connection = cn
cd.ExecuteNonQuery()
'クローズ解放
cd.Dispose()
cn.Close()
cn.Dispose()

まとめ

戻り値が必要な場合は「ExecuteReader
戻り値が必要ない場合は「「ExecuteNonQuery

順番として
データベースに接続
SQL文生成
SQLコマンド実行
データベースクローズ・解放
となります

2017年5月13日土曜日

VB.NETでFormのサイズ変更、「×」ボタンを無効化する

ユーザーによるFormの操作を制限する

Formを作成しると最初はユーザーにより最大化や最小化、閉じる等の機能が有効な状態です
しかし、仕様によってはその機能が邪魔になりかねません
それらの機能を無効化します

プロパティでコントロールボックスを非表示にすることはできますが、それでは最小化ボタンまで消えてしまいますので、「最大化」、「サイズ変更」、「閉じる」を無効化します

最大化とサイズ変更無効化

 
'Window最大化ボタン無効
Me.MaximizeBox = False
'Windowのサイズ変更禁止
 Me.FormBorderStyle = FormBorderStyle.FixedSingle
「MaximizeBox」プロパティと「Me.FormBorderStyle」プロパティの操作で無効化します
Formの「Load」イベントで実行するのが現実的です

「×」閉じるボタン無効化

フォームのCreateParamsプロパティをオーバーライドして「閉じる」ボタンを無効状態にし、システムメニューの「閉じる」も表示されず、「Alt」+「F4」キーも無効にします
Protected Overrides ReadOnly Property CreateParams As CreateParams
    Get
        Dim c = MyBase.CreateParams

        c.ClassStyle = c.ClassStyle Or &H200
        Return c
    End Get
End Property
このコードをFormの「Class 」内にコーディングすれば「×」閉じるボタンを無効化できます

Bloggerにオリジナルナビゲーションバーを設置する

テンプレートの機能を有効に利用しオリジナルナビゲーションバーを設置

以前に「ラベル」をナビゲーションバーを設置する方法を紹介しましたが、今回は任意の項目で、しかも、簡単に表示する方法を紹介します

ガジェット設置

「デザイン」、Cross-Columnの「ガジェットを追加」、「HTML/JavaScript」を選択



ガジェットを編集


「タイトル」を空白にして次のようなコードを記述して下さい
 
<div id="menu">
<ul>
<li><a href="リンクURL1" target="_blank">タイトル1</a></li>
<li><a href="リンクURL2" target="_blank">タイトル2</a></li>
<li><a href="リンクURL3" target="_blank">タイトル3</a></li>
<li><a href="リンクURL4" target="_blank">タイトル4</a></li>
<li><a href="リンクURL5" target="_blank">タイトル5</a></li>
</ul>
</div>

オリジナルナビゲーションバー表示

このように表示されます

Bloggerの標準ナビゲーションバーを消してカテゴリをナビゲーションバーとして表示

標準ナビゲーションバー

これを消す

新たにナビゲーションバー表示

これを表示

標準で表示されているナビケーションバーを消す

「レイアウト」、Navbarガジェットの「編集」、ラジオボタンを「オフ」に設定



カテゴリをナビゲーションバーに表示

「レイアウト」、Cross-Columnの「ガジェットを追加」、「ラベル」ガジェットを追加、タイトルを消して「保存」




「表示」で「選択したラベル」にすると表示するラベルを選択できる

まとめ

ナビゲーションバーの設置で以前よりは見栄えするようになったがカスタマイズが困難
表示する順番を変えたり、ラベルに設定していない内容を表示するには「HTML」をカスタマイズしてナビゲーションバーを設置する必要がある
またの機会にその方法を記事にしようと思います

2017年5月10日水曜日

「香風食堂」倉敷で人気の中華そば専門店

「香風食堂」の紹介
店の前に駐車するが、数台しか駐車できない感じ

入店

入店すると、こんな感じで箸とレンゲが用意される
シャレてる感じ
メニューの写真忘れたけど、シンプルで品数は少なめ

「中華そば」

メンマ、チャーシュー、麺、どれをとっても絶品
少し甘めの醤油ベースのスープ、あっさりと最後まで飲み干せる
チャーシューは脂っぽくなく、しっかり味がしみて美味しい
なんとなく懐かしを感じる

案内

岡山県倉敷市沖新町45-3
営業時間 月~土曜日 10:00~16:00
日曜日は休み

2017年5月9日火曜日

「白壁」倉敷駅前の和食料理屋

和食料理「白壁」の紹介

瀬戸内で獲れる新鮮な魚介類を多彩な調理で頂けます
料理の引き立て役でもある酒類を多く取り揃えています
店内に大きないけすがあり、そこから生きた状態の魚介を取り出し、新鮮な料理を楽しめます
様々なタイプの席があり、くつろげる空間を作り出しています
メニューは豊富で一品料理も充実しており昼夜、大小宴会も可能です
ロケーションの良さ、駅の目の前ですのでビジネス、観光での利用に最適です

「アジのたたき定食」

見ての通りのボリューム、品数の多さと言い新鮮で美味しい、お得な定食です

「海鮮丼御膳」

魚介が沢山でご飯が全く見えない位です
瀬戸内を感じさせ食べ応えある丼物です

詳しくはこちら☟のサイトを参照して下さい
http://www.kurashiki-sh.co.jp/shirakabe/

2017年5月8日月曜日

和食「五穀」窯で炊いた炊きたてご飯が食べれる

和食の定食屋さん五穀の紹介

米は新潟県のコシヒカリを使用しています

ごはんは大釜で炊きたてを提供する店と、注文を受けてから一人用の窯で炊く店があるようです
注文を受けてから炊く場合、15分位かかる説明があります
炊き立てを提供するためにご飯を炊く時間が必要です

魚については高知にある自社工場で新鮮な状態で調理や加工しており「新鮮が自慢」らしいです>

どれも美味しそうなメニュー

メニューの写真を撮るのを忘れましたが、どれも美味しそうで悩みました

お刺身盛り合わせ定食をお願いしました
「15分位お時間頂きますが・・・・・」と説明があったので一人用の窯で炊くことが分かりました

料理が出てきました、やはり、一人用の窯です
説明が・・・「窯の中のご飯を混ぜて2分程むらしてお召し上がり下さい」
2分の砂時計がテーブルに置いてあります

お刺身盛り合わせ定食

また、写真を撮る前に箸を付けてしまいました
写真が見にくくですみません

ご飯は炊きたてで「ツヤツヤ」「みずみずしい」
刺身はイカ、赤エビ、マグロの?、サーモンです、出し巻き卵と海藻、大根のつまが付きます
味噌汁と漬物

ご飯はさすがに美味しい、魚も臭みも無くいい感じです
味噌汁はちょっと甘口って感じですが、野菜の具が沢山入っていて美味しいですよ

詳しくは公式HPへ☟
http://gokoku-pierthirty.net/

2017年5月5日金曜日

BloggerにSyntaxHighlighterを使ってソースコードを美しく表示する

SyntaxHighlighterダウンロード

こちらの公式サイトよりダウンロードして下さい
Click here to download」を押してダウントードして下さい

「syntaxhighlighter_3.0.83.zip」で圧縮ファイルがダウンロードできますので解凍して下さい

「syntaxhighlighter_3.0.83」フォルダが出来るのでフォルダごとローカルにコピーしておいて下さい

SyntaxHighlighterをBloggerに設置

テンプテートのhtmlを編集します
</head>のすぐ上にコードを足して下さい
<link href='http://alexgorbatchev.com/pub/sh/current/styles/shCore.css' rel='stylesheet' type='text/css'/>
<link href='http://alexgorbatchev.com/pub/sh/current/styles/shThemeRDark.css' rel='stylesheet' type='text/css'/>
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shCore.js' type='text/javascript'/>
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushCSharp.js' type='text/javascript'/>
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushBash.js' type='text/javascript'/>
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushCss.js' type='text/javascript'/>
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushXml.js' type='text/javascript'/>
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushSql.js' type='text/javascript'/>
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushVb.js' type='text/javascript'/>
<script type='text/javascript'>
SyntaxHighlighter.config.bloggerMode = true;
SyntaxHighlighter.all()
</script>
  </head>
上記のコードはC#、シェルスクリプト、css、xml、sql,vbに対応しています
4行目~9行目
対応言語の一覧はこちらで紹介しています

読み込むcssによってテーマを変更できます
2行目
cssテーマの種類はこちらで紹介しています

Bloggerは少し特殊なためホスティングを使用してロードしています

サイトにコードを表示するコードを入れる

 
<pre class="brush:xml;auto-links:false;toolbar:false;highlight:[null];first-line:1"> 
    ここに表示させたいコードを記入
</pre>

brush:xml               xml言語
auto-links:false      オートリンク無効
toolbar:false           ツールバー非表示
highlight:[null]        ハイライトしない する場合はhighlight:[1,2]
first-line:1               行番号を1から始める

特殊な記号は変換して記入します
< → &lt;
> → &gt;

2017年5月4日木曜日

ワイルド・スピード ICE BREAK劇場版観てきた

4/28公開のワイルドスピード ICE BREAK劇場版観てきた

これから鑑賞に行く人に失礼が無いように、簡単に紹介と感想を書きます
日程が良かったのかチケット購入は当日開催の10:00頃で
10:30からの劇場にもそこそこ空きが在りました

主要登場人物

ドミニク・トレット
ミヤのお兄さん、ファミリーのリーダー、元々は強盗集団のリーダー

ルーク・ホブス
FBI特別捜査官、ドミニクを捕まえるために登場したが、ある日仲間になる

レティ・オルティス
ドミニクの彼女?強い女性、ハネムーンの文言でドミニクの嫁が発覚

サイファー
サイバーテロリスト、シリーズ初登場、ドミニクの敵
デッカード・ショウ
以前にドミニクやっつけられて刑務所に入ったが、今回は仲間として登場
ミスター・ノーバディ
アメリカの秘密組織特殊部隊のボス

リトル・ノーバディ
ミスター・ノーバディの部下、初登場

ローマン・ピアース
今は亡き、ブライアンの旧友

テズ・パーカー
エンジニアとして強力、情報通

ラムジー
前回から仲間になった、「ゴッドアイ」の開発者、超ハッカー

あらすじ・感想

キーワードはプロモーションにもあった「ドミニクが裏切った」
ドミニクがファミリーを裏切り、テロリストのサイファーの仲間になり兵器を奪う
ファミリーはドミニクを食い止めるためサイファーとの闘いに挑む
ドミニクはある事情でサイファーに脅されており従うしかなかった

印象深いシーンはいくつもあるが中でもニューヨークでのアクション
大量の車が流れるように行列したり、これまた大量の車が降ってくる
壊しまくる 映像・音声、共に大迫力
噂によると400台以上の車を壊したらしい
今回は笑いの要素も多く取り入れている、シリーズで最も多いと思う
デッカードが赤ちゃんを救い出すシーンは思わずニンマリしてしまう
前回まで敵だったのに今回は味方等と想像が膨らみ最後まで飽きさせない
ブライアンが残念な形でファミリーを去ってしまったが、様々な要素で補っている
今回も見応えある作品で次シリーズにも期待しています
最初からかなり展開が早い構成なので予習をして挑んだ方が入り易いかも

2017年4月20日木曜日

「ワイスピカー全国ツアー」 ワイスピカーがやって来た

ワイスピカー全国ツアー

映画、ワイルドスピードの最新作ICE BREAKが劇場公開に先立ってイベントが開催されています
そのイベントに行って来たのでその様子を紹介します

イベント現地に到着

9:30頃イベント会場に到着
11:00からの開催にも関わらず既に結構な人が来てる
まだまだ時間が有るのでワイスピカーを積載したトラックを撮影

ワイスピカーは黒い幕で覆われていて、荷台前方にはモニターが設置されている


開始までの待ち時間

続々と人が会場に集まってくる
車好き?マニアも多くそれらのウォッチングも楽しい
珍しい車もいっぱい

トラックに設置しているモニターでプロモーションをが流れ出した
10:00頃にスタッフが人を並ばさせるように、誘導レーンを設置し、観客をレーンに誘導を始めた
拙者は前方より30人目位に並ぶことが出来た
この時に既に100以上の観客が並んでいる
ずっと立っているので足が疲れた
「11:00までまだまだなのにぃ~!!疲れたぁ」
11:00前、行列の最後尾を確認することが出来ない位になった
プロモーションも見飽きた、「疲れたぁ まだかなぁ」

やっとSTART

やっとかぁ!!スタッフが説明を始めた
スタッフと観客とのカウントダウン
カンウントガウン終了と、ともに黒い幕が除かれた

出たぁプリムスGTX かなりカスタマイズされているが、オリジナルも感じさせる「かっこいい」

マッドカラーがたまらなくいい!!

記念撮影と抽選

列先頭からお立ち台に上がり記念撮影が始まった
一組ずつ、スタッフに携帯やらカメラを貸して写真を撮ってもらうらしい
「これって最後尾までは何時間?」なんて考えると・・・・・

いよいよ拙者の出番、恥ずかしいけとポーズをとって記念撮影してもらった
なんだか照れた(;''∀'')

撮影後、シリアルナンバー入りの「ファミリーカード」が当たる抽選
ここに来た最大の目的はこれが欲しかったんだよなぁ
えいっ!!感じで抽選箱からくじを引いた

なにぃぃぃぃぃーーーー「何も書いてない!!」はずれ!!
えぇぇぇ( ;∀;)
外れのお方は「うちわ」をもらった
まぁ仕方無いっか!!

ド迫力の前顔

トラックに荷台幅いっぱい、側面が当たりそう

「ワイスピカー全国ツアー」の詳細は☟の公式サイトで!!
http://wildspeed-official.jp/tour/#/boards/ice-break

2017年4月15日土曜日

Timestamp型をString型に変換

SQL ServerのTimestamp型?

行の世代を示す列で、行に何等かの更新が発生すると自動的にTimestampの値が変更されます
更新の有無を把握する型であり、取得済のTimestampの値とテーブルの行に存在するTimestampの値に違いがあれば、その行に何等かの更新があったことになります

Timestamp型の利用方法

SQL文内であればTimestamp値を比較することは可能ですが、TimeStamp値はByte配列として格納されているため、プログラムで扱える型に変換してから使うようになります
そこで、TimeStampの値を文字列に変換する方法を紹介します

TimeStamp型の値を文字列に変換するプログラム

TimeStamp型の値を受け取り、文字列に変換して戻します
プロジェクトどこでも使用できるように「Public Function」で定義します
Module Module1
    Public Function timestamptostring(tm As Byte()) As String
        Dim i As Integer
        Dim txTimestamp As String = "0x"

        For i = 0 To tm.Length - 1
            txTimestamp &= Hex(tm(i)).PadLeft(2, "0")
        Next

        Return (txTimestamp)
    End Function
End Module 

呼び出し方はこのようなコードになります
Private Sub TimestampTest()
    Dim TxTs as String

    TxTs  = timestamptostring(Timestamp型)
End sub

2017年4月11日火曜日

ワイルドスピード ICE BREAK劇場版  2017/4/28公開

「ワイルドスピード」シリーズ新作「ICE BREAK」の公開が始まります
今回のシリーズも様々なロケーションでド派手なアクションが期待できます
シリーズ全部見たけど記憶が薄れたのでバックナンバーを調べてみました

バックナンバー

「ワイルドスピード」2000年
最初の作品でロサンゼルスでストリートレースを中心にした内容

「ワイルドスピードX2」2003年
主人公(ブライアン)が前作の件でFBIに捕まるが、ある条件で悪党の潜入捜査を行う

「ワイルドスピードX3 TOKYO DRIFT」2006年
題名の通り日本を舞台にした内容、ドリキンも出演

「ワイルドスピード MAX」2009
ドミニクは復讐、FBIとなったブラインは麻薬犯罪組織の操作で共通の標的を追う
麻薬組織のボスが仕切るストリートレースに参加する

「ワイルドスピード MEGA MAX」2011年
警察署の金庫に保管されている大金を金庫ごと盗む
車で金庫を引きずりながらのカーアクション

「ワイルドスピード EURO MISSION」2013年
この作品から更に派手さを増した
訳の分からない車や戦車までも登場、もはやカーアクションを超えている

「ワイルドスピード SKY MISSION」2015年
このあたりは記憶に新しいかな?飛行機から車を落っことして着地するやつ!!
ここまでくると戦争映画?

ワイルド・スピード ICE BREAK オフィシャルサイト

http://wildspeed-official.jp/

「ワイスピカー全国ツアー」

新作公開に伴いイベント「ワイスピカー全国ツアー」が開催されています

詳しい内容は「ワイスピカー全国ツアー」のオフィシャルサイトで確認して下さい
http://wildspeed-official.jp/tour/#/boards/ice-break

2017年4月10日月曜日

超簡単にドレッシングを作る

材料
味ぽん
オリーブオイル
天然塩(無ければ合成塩でも構いません)
粗びき胡椒(無ければ普通の胡椒でも構いません)

混ぜるだけ

適当な容器に味ぽんとオリーブオイルを1:1の割合で入れて下さい
天然塩と粗びき胡椒を少々、しっかりと混ぜて下さい
空気を帯びて白っぽくなるまで混ぜたら完成です

いざ作ろうと思ったら面倒ですが、味ぽんのおかげで簡単に作れます
出汁やビネガー等の用意も必要ありません

簡単に作れますが美味しいです