これは、翌朝ホテルの窓から見た風景 スクンビット通りとBTSライン そして ベンチャシリ公園（สวนสาธารณะ เบญจสิริ)が見えます。
朝食を食べようと思いましたが、昨日バウチャーをホテルの人に渡してしまったため、朝食代がセットなのかわからず、お高いホテルで食事をすると代金もバカにならないので、諦めてとなりのエンポリアムデパートのフードコートで１００バーツのチケットを買ってちょっと遅めの朝食をいただくことに |
| ソムタムタイ ５０バーツ |
 |
| カオマンガイ ５０バーツ |
 | 宿泊ホテルは昨日とは、雲泥の差でバンコク市内の「エンポリアムスイーツ」ホテル ホテルはお高いデパートが隣接しており、なおかつBTSのプロンポン駅の隣と好条件 ちょっと奮発しました。（海外ホテル予約サイト agodaでキャンペーン価格で２万５千円が１万円ちょっとで宿泊出来ました） 春節の関係で隣接するデパートの前には ウサギさんがいました。 |
バンコク市内へ帰る途中有名な観光地「戦場にかける橋の舞台（クウェー橋）」へ
何を見に来たかというと 滝
そんな滝を見ながら山を下っていくだけかと思いきや
そして、船で移動して宿泊地へただ、行き先を知らされていないので、このときは一体どこまで行くのだー！！と不安になりながら、乗船
その後、みえてきたのが今日宿泊する湖畔に浮かんでいる
Private recieveBuffer As Byte()
Private Sub SerialPort1_DataReceived( _
ByVal sender As System.Object _
, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs _
) Handles SerialPort1.DataReceived
'シリアルポートからデータ取り出し
Dim tmpRecieveBuffer As Byte() = New Byte(SerialPort1.BytesToRead - 1) {}
SerialPort1.Read(tmpRecieveBuffer, 0, tmpRecieveBuffer.GetLength(0))
'受信バッファ(recieveBuffer)へ入れ込む
If recieveBuffer Is Nothing Then
recieveBuffer = tmpRecieveBuffer
Else
Dim margeRecieveBuffer As Byte() = New Byte(recieveBuffer.Length + tmpRecieveBuffer.Length - 1) {}
recieveBuffer.CopyTo(margeRecieveBuffer, 0)
tmpRecieveBuffer.CopyTo(margeRecieveBuffer, recieveBuffer.Length)
recieveBuffer = margeRecieveBuffer
End If
'仮受信バッファの行末に0x0Dが見つからなければここで処理を抜ける
If tmpRecieveBuffer(tmpRecieveBuffer.Length - 1) <> 13 Then
Exit Sub
End If
'0x0Dが来たら扱いやすいようにシフトJISにエンコードしてString型にする。その後受信バッファはクリア
Dim recieveData As String = System.Text.Encoding.GetEncoding("SHIFT-JIS").GetString(recieveBuffer)
recieveBuffer = Nothing
'==============================
'受信データ(recieveData)を使って処理をしていく
'==============================
End Sub
Delegate Sub setTextCallback(ByRef ctrlObj As Control, ByVal value As String) ''''''フォームコントロールにテキストをセットする（デリゲート対応版) ''' Private Sub setText(ByRef ctrlObj As Control, ByVal value As String) If ctrlObj.InvokeRequired Then Dim d As New setTextCallback(AddressOf setText) Me.Invoke(d, New Object() {ctrlObj, value}) Else ctrlObj.Text = value End If End Sub
