2013 瑞法行 :: 瑞士首都 - 伯恩 Bern

其實在到達伯恩之前根本也不知道這裡的故事與特色景點
只知道他是在蘇黎世到日內瓦的中間
於是這次的瑞法行第一站就選定為 -- 瑞士首都

三個沒做什麼功課的人從蘇黎世搭火車到伯恩, 出了車站完全搞不清楚要往哪走
原來是我們提早從Schanzenstrasse這條街的出口出來, 以致出口不是在火車站的建築物內

問了一下路, 找回火車站正門口, 站內有置物櫃, 先去遊客服務中心問看看一日遊該怎麼走

Visual Studio筆記 :: VC++讀取檔案與字串分割

開啟檔案: http://goo.gl/OwS1n
分割字串: http://msdn.microsoft.com/zh-tw/library/ftsafwz3(v=vs.90).aspx

Visual Studio筆記 :: Geting OS version by APIs

VB

方法一:
MSDN: http://msdn.microsoft.com/zh-tw/library/system.environment.osversion.aspx

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Get the operating system version.
        Dim os As OperatingSystem = Environment.OSVersion
        Dim ver As Version = os.Version

        Label1.Text = os.VersionString
        Label2.Text = ver.ToString()
        Label3.Text = My.Computer.Info.OSFullName & My.Computer.Info.OSVersion
    End Sub
End Class

----
方法二:
MSDN: http://msdn.microsoft.com/zh-tw/library/vstudio/795sy883(v=vs.100).aspx

Imports System.Runtime.InteropServices

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label4.Text = "Passing OSVersionInfo as a class"

        Dim osvi As New OSVersionInfo()
        osvi.OSVersionInfoSize = Marshal.SizeOf(osvi)

        LibWrap.GetVersionEx(osvi)

        Label5.Text = "Class size:" & osvi.OSVersionInfoSize
        Label6.Text = "OS Version:" & osvi.MajorVersion & "." & osvi.MinorVersion

        Label7.Text = "Passing OSVersionInfo2 as a struct"

        Dim osvi2 As New OSVersionInfo2()
        osvi2.OSVersionInfoSize = Marshal.SizeOf(osvi2)

        LibWrap.GetVersionEx2(osvi2)
        Label8.Text = "Struct size:" & osvi2.OSVersionInfoSize
        Label9.Text = "OS Version:" & osvi2.MajorVersion & "." & osvi2.MinorVersion
    End Sub
End Class

<StructLayout(LayoutKind.Sequential)> _
Public Class OSVersionInfo
    Public OSVersionInfoSize As Integer
    Public MajorVersion As Integer
    Public MinorVersion As Integer
    Public BuildNumber As Integer
    Public PlatformId As Integer

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> _
    Public CSDVersion As String
End Class

<StructLayout(LayoutKind.Sequential)> _
Public Structure OSVersionInfo2
    Public OSVersionInfoSize As Integer
    Public MajorVersion As Integer
    Public MinorVersion As Integer
    Public BuildNumber As Integer
    Public PlatformId As Integer

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> _
    Public CSDVersion As String
End Structure

Public Class LibWrap
    Declare Ansi Function GetVersionEx Lib "kernel32" Alias _
        "GetVersionExA" (<[In], Out> ByVal osvi As OSVersionInfo) As Boolean

    Declare Ansi Function GetVersionEx2 Lib "kernel32" Alias _
        "GetVersionExA" (ByRef osvi As OSVersionInfo2) As Boolean
End Class

Visual Studio筆記 :: Shutdown API sample

VC++
MSDN: http://msdn.microsoft.com/query/dev10.query?appId=Dev10IDEF1&l=EN-US&k=k(EXITWINDOWSEX);k(DevLang-%22C%2B%2B%22)&rd=true

快快樂樂學Visual Studio之居然不用錢!

相信很多台灣人在高中大學的時候都學過程式設計吧, 而程式設計如果只是寫寫Hello World!這種Console型的主控端程式那多無聊, 一定要玩一些看的到摸的到有互動式人機界面的程式才酷啊! 於是很多人的第一次...視窗程式設計經驗就貢獻給萬惡的微軟Visual Basic系列.

2013 雪梨行 :: 推薦景點 - Taronga Zoo

到澳洲沒看無尾熊袋鼠應該算是白去了吧
雪梨附近有三座動物園, 我們這次去的 Taronga Zoo 要搭渡輪才能到
先到2號碼頭買動物園套票$52, 包含來回渡輪, 動物園內纜車, 遊園公車, 及動物園門票

2013 雪梨行 :: 雜項

:: 機場交通 ::

雪梨機場離市區還真是超乎想像的近 (其實是因為我出發前沒做功課, 一切都是到機場後再想辦法, 反正路在嘴上嘛...)
出關後找到Airport Train的指標跟著去,  搭電梯到樓上, 上樓之前都有免費WiFi所以也不用太擔心, 快到機場月台前有售票亭, 搭到中央車站15.9元(超貴...), 還沒去的可以研究一下包市區公車的套票.

一定要拿的地圖,
有全市地圖與飯店青年旅館資訊

火車路線圖