Teacher WeiJin Tang (湯偉晉老師) at 中華民國臺灣省 (Taiwan): 2008

2008年12月1日星期一

Bill Gates, Chairman and Chief Software Architect, Microsoft Corporation (photo on his home page)

2008-12-02
Bill Gates, Chairman and Chief Software Architect, Microsoft Corporation (photo on his home page)

得天獨厚的人，任重道遠。 [2008-08-14]

2008-08-14
得天獨厚的人，任重道遠。

「耶穌基督（基督教）愛人如己的教導、胸懷與情操，不斷地考驗著我們，是否真的相信，我們所相信的信念或信仰，也不斷地考驗著，我們是怎樣的一個人，在我們自己內心的深處。」

「得天獨厚的人，任重道遠。」
比爾蓋玆（Bill Gates）家族的祖訓

湯偉晉親手逐字地寫於西元 2008-08-14

得天獨厚的人，任重道遠。[2008-08-14](IR90).gif

2008年11月24日星期一

「眼前的高牆不是為了阻擋我們前進，而是讓我們有機會展現自己，確認自己有多想完成夢想。」[2008-11-24](IR89)

「眼前的高牆不是為了阻擋我們前進，而是讓我們有機會展現自己，確認自己有多想完成夢想。」[2008-11-24](IR89)

// - - Begin memo item - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //
(Memo Item created on November 24, 2008 08:41 PM)
- - - Begin title or keyword:
「眼前的高牆不是為了阻擋我們前進，而是讓我們有機會展現自己，確認自己有多想完成夢想。」

Source:
啟動學習熱情青春鍊成金
2008-11-24 今日晚報【文／李雪莉《天下》】

http://news.chinatimes.com/2007Cti/2007Cti-News/2007Cti-News-Content/0,4521,130501+132008112400664,00.html
- - - End title or keyword:

「眼前的高牆不是為了阻擋我們前進，而是讓我們有機會展現自己，確認自己有多想完成夢想。」

CMU教授蘭迪．鮑許（Randy Pausch）

啟動學習熱情青春鍊成金
2008-11-24 今日晚報【文／李雪莉《天下》】

競爭之牆築得天高，又怎麼超越這架高的藩籬？

今年秋天，卡內基美隆大學發給一千四百名新生一份禮物；新生宿舍裡，學生書桌案頭上都擺著這本禮物書──《最後的演講》（The Last Lecture）。

這本書是CMU教授蘭迪．鮑許（Randy Pausch）得知罹患胰臟癌後，決定以微笑面對癌症，為全校師生進行「最後的演講」的全文集結，這場演講感動了全世界。四十八歲的他在今年七月逝世。

鮑許從小就是個夢想家，經常在自家的牆上畫畫、塗鴨，最大的夢是進迪士尼工作；他自CMU畢業後，寄了封求職信給迪士尼，結果被退件；他卻在當了教授後，為迪士尼設計新的遊戲軟體，他培育的無數學生，更成為娛樂科技業界的搶手人才。

在最後的演講中，消瘦的鮑許透著湛藍的眼眸，指著簡報上的紅磚牆做比喻，「眼前的高牆不是為了阻擋我們前進，而是讓我們有機會展現自己，確認自己有多想完成夢想。」

是的，面對高牆，他們有數不盡的徬徨。

但家庭、教育、社會必須交付有利的工具、全面的能力、實踐夢想的自信，讓孩子跨越那面高牆。

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - End memo item - - //

2008年11月18日星期二

「凡事豈能盡如人意，但求無愧我心。」[2008-11-18]

「凡事豈能盡如人意，但求無愧我心。」[2008-11-18]

2008-10-31
「凡事豈能盡如人意，但求無愧我心。」

羅積康學長在 [師大附中] 的導師，盧毓正先生，送給他們班上所有同學的臨別贈言。

湯偉晉親手寫於西元 2008-10-31

2008-11-18
TextOnImage_「凡事豈能盡如人意，但求無愧我心。」_[2008-11-18].gif
FN_A1540C86E82247588A1BE1217F65685F.gif

Keywords:
「凡事豈能盡如人意，但求無愧我心。」[2008-11-18]

Number of attached files:
1

2008年10月2日星期四

中華民國國旗歌 (Performed by 復興中學合唱團)

中華民國國旗歌 (Performed by 復興中學合唱團).mp3

從程式勞工邁向高階架構師之路3 (代碼：1032388947) [2008-10-16].GIF

2008年9月19日星期五

上課的時間表_湯偉晉_Fall_2008_[2008-09-06]

上課的時間表_湯偉晉_Fall_2008_[2008-09-06]

2008-09-06
星期六

企業網
路規劃
職二技資四忠
財708

星期六_第一節
1350~1435 (01:50 p.m.)

星期六_第二節
1440~1525

星期六_第三節
1535~1620 (04:20 p.m.)

2008-09-06
星期日

企業網
路規劃
進二技資四忠
財702

星期日_第七節
1445~1530 (02:45 p.m.)

星期日_第八節
1535~1620

星期日_第九節
1625~1710 (05:10 p.m.)

English keywords:
Time for my class fall 2008, enterprise network planning, computer exact

Chinese keywords:

2008年9月2日星期二

Useful background highlight color [2008-08-26]

2008-08-26
Useful background highlight color [2008-08-26]

/* Useful background highlight colors; Cascading Style Sheet (css) */

/*
Light Yellow
background:#FFFF00;

Light Yellow Green
background:#CCFF33;
*/
a:hover {
background:#FFFF00;
}

post h3 a:hover {
background:#CCFF33;
}

上課的時間表_湯偉晉_Fall_2008_[2008-09-02].pdf

各學制上課時間一覽表 [2008-09-02]

星期六

星期六_第一節
1350~1435

星期六_第二節
1440~1525

星期六_第三節
1535~1620

星期六_第四節
1625~1710

星期六_第五節
1750~1835

星期六_第六節
1840~1925

星期六_第七節
1930~2015

星期六_第八節
2025~2110

星期六_第九節
2115~2200

星期日
星期日_第一節
0850~0935

星期日_第二節
0940~1025

星期日_第三節
1035~1120

星期日_第四節
1125~1210

星期日_第五節
1300~1345

星期日_第六節
1350~1435

星期日_第七節
1445~1530

星期日_第八節
1535~1620

星期日_第九節
1625~1710

2008年8月17日星期日

TeacherHelperY2008M08 [2008-08-17]

2008-08-17
Download TeacherHelperY2008M08 [2008-08-17] from Windows Live SkyDrive.

WJUsageCountHelperY2008M08 [2008-08-17-PM-03-30-25]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_08_17_PM_03_30_56] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     (著作權聲明) Copyright Statement:
'           Copyright 2000-2008, SoftHuman Corporation. All rights reserved.
'           善解科技股份有限公司
'           著作權 2000-2008。版權所有，保留一切權利。
'
'     (本段程式之目的) Purpose:
'           Object of this class can help you to manage Usage Count of an object, represented
'           by an ObjectID string.
'
'     (友善的模組名稱) Friendly name of this module:
'           [WJAtTSINT2008].[WJ Usage Count Helper Y2008M08]
'
'     (程式用模組名稱) Code name of this module:
'           WJAtTSINT2008.WJUsageCountHelperY2008M08
'
'     (本段程式是否已經在被使用中) In use: Yes
'     (程式撰寫的進度) Developing: 100% (Mandatory)
'     (程式堪用的程度) Workable: 80% (Threshold at 80%)
'     (程式的測試程度) Code tested: 80% (max 99%)
'
'     WJUsageCountHelperY2008M08 [2008-08-17-PM-03-30-25]
'
'     Version: 1.00.02
'     Last Updated: (2008 08 17 PM 03 28 20)
'     Version: 1.00.01
'     Last Updated: (2008 08 17 PM 02 32 13)
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class WJUsageCountHelperY2008M08
Private m_FriendlyApplicationName As String = "[WJUsageCountHelperY2008M08]"

Private m_ObjectIDAndUsageCount_StringDictionary As New System.Collections.Specialized.StringDictionary

    Public Function AddOneToUsageCountOfThisObject(ByVal ObjectID As String) As Integer
        ' (本段程式之目的) Purpose:
        '     Add one to usage count of this object.
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 80%
        ' (再利用的可能性) Chances of reuse: 80%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 08 17 PM 01 52 32)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Dim UsageCount As Integer

        ' wjTeach:
        If Me.m_ObjectIDAndUsageCount_StringDictionary.ContainsKey(ObjectID) Then
            UsageCount = CType(Me.m_ObjectIDAndUsageCount_StringDictionary(ObjectID), Integer)
            UsageCount += 1

            Me.m_ObjectIDAndUsageCount_StringDictionary.Item(ObjectID) = UsageCount
        Else
            UsageCount = 1
            Me.m_ObjectIDAndUsageCount_StringDictionary.Add(ObjectID, UsageCount)
        End If

    End Function ' AddOneToUsageCountOfThisObject
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function GenerateUsageCountReport() As String
        ' (本段程式之目的) Purpose:
        '     Generate usage count report.
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 80%
        ' (再利用的可能性) Chances of reuse: 80%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 08 17 PM 02 03 01)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        ' Begin_[2008_08_17_PM_02_39_12]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   Reusable sample code
        '
        Dim SB As New System.Text.StringBuilder
        Dim NumberOfObjects As Integer

        NumberOfObjects = Me.m_ObjectIDAndUsageCount_StringDictionary.Count
        Dim ObjectIDs(NumberOfObjects) As String
        Dim UsageCounts(NumberOfObjects) As String

        ' wjTeach:
        Me.m_ObjectIDAndUsageCount_StringDictionary.Values.CopyTo(UsageCounts, 0)
        Me.m_ObjectIDAndUsageCount_StringDictionary.Keys.CopyTo(ObjectIDs, 0)

        With SB
            .Append("Usage Count Report generated by " & Me.m_FriendlyApplicationName)
            .Append(vbCr)
            .Append("Number of objects I help = " & Me.m_ObjectIDAndUsageCount_StringDictionary.Count)
            .Append(vbCr)
            .Append(vbCr)
        End With

        For i As Integer = 0 To NumberOfObjects - 1
            With SB
                .Append("ObjectID = " & ObjectIDs.GetValue(i))
                .Append(vbTab)
                .Append("UsageCount = " & UsageCounts.GetValue(i))
                .Append(vbCr)
            End With
        Next

        ' Begin_[2008_08_17_PM_03_25_32]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   Obsolete code
        '
        'For i As Integer = NumberOfObjects - 1 To 0 Step -1
        '    With SB
        '        .Append("ObjectID = " & ObjectIDs.GetValue(i))
        '        .Append(vbTab)
        '        .Append("UsageCount = " & UsageCounts.GetValue(i))
        '        .Append(vbCr)
        '    End With
        'Next
        '
        ' End_[2008_08_17_PM_03_25_32]

        Return SB.ToString
        '
        ' End_[2008_08_17_PM_02_39_12]

    End Function ' GenerateUsageCountReport
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class ' WJUsageCountHelperY2008M08

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_08_17_PM_03_30_56] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

2008年8月16日星期六

Security is a serious issue! [2008-08-16]

2008年8月9日星期六

Google_{Unable to upload unsupported file type} [2008-08-10]

WJAtTSINT2008.Tools_for_WJAtTSINT2008 [2008-08-10-MM-12-44-16]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_08_10_MM_12_52_45] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
'     (友善的模組名稱) Friendly name of this module:
'           [WJAtTSINT2008].[Tools for WJAtTSINT2008]
'
'     (程式用模組名稱) Code name of this module:
'           WJAtTSINT2008.Tools_for_WJAtTSINT2008
'
'     WJAtTSINT2008.Tools_for_WJAtTSINT2008 [2008-08-10-MM-12-44-16]

'     Version: 1.00.02
'     Last Updated: (2008 08 10 PM 12 41 28)
'
'     Version: 1.00.01
'     Last Updated: (2008 04 03 PM 07 10 18)

Module Tools_for_WJAtTSINT2008
    Public Function GetStringInClipboard() As String
        ' (本段程式之目的) Purpose:
        '     Get the text content currently stored in system's clipboard.
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 85%
        ' (再利用的可能性) Chances of reuse: 90%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2005 09 01 PM 01 50 25)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim myDataObject As System.Windows.Forms.IDataObject
        Dim T As String
        myDataObject = System.Windows.Forms.Clipboard.GetDataObject()

        ' Try to return Unicode Text first, if failed, then try to return ANSI Text
        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.UnicodeText) Then
            T = myDataObject.GetData(System.Windows.Forms.DataFormats.UnicodeText)
        Else
            If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.Text) Then
                T = myDataObject.GetData(System.Windows.Forms.DataFormats.Text)
            Else
                T = String.Empty
            End If
        End If

Return T

        ' Begin: Reusable code block (2005 09 01 PM 10 26 20)
        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.Text) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.Text]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.Text]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.UnicodeText) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.UnicodeText]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.UnicodeText]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.WaveAudio) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.WaveAudio]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.WaveAudio]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.Html) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.Html]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.Html]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.Rtf) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.Rtf]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.Rtf]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.Bitmap]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.Bitmap]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.PenData) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.PenData]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.PenData]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.StringFormat) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.StringFormat]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.StringFormat]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.Serializable) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.Serializable]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.Serializable]")
        End If

        If myDataObject.GetDataPresent(System.Windows.Forms.DataFormats.Riff) Then
            MsgBox("Clipboard content is compatible with data type [System.Windows.Forms.DataFormats.Riff]")
        Else
            MsgBox("Clipboard content is    NOT      compatible with data type [System.Windows.Forms.DataFormats.Riff]")
        End If
        ' End:    Reusable code block (2005 09 01 PM 10 26 20)

    End Function ' GetStringInClipboard
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub PasteStringToClipboard(ByVal AnyString As String)
        ' (本段程式之目的) Purpose:
        '     Paste string to Clipboard.
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 80%
        ' (再利用的可能性) Chances of reuse: 90%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2004 12 06 PM 03 17 30)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     ok
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Clipboard.SetDataObject(AnyString, True)

    End Sub ' PasteStringToClipboard
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function GetStandardDateStamp_used_on_PDA() As String
        ' (本段程式之目的) Purpose:
        '     Return a time stamp like
        '               "2008-04-03"
        '     which is the default date stamp used on a PDA.
        '
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 04 03 PM 04 42 35)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Dim ThisMoment As Date
ThisMoment = Now.Today

        Dim Y As String
        Dim M As String
        Dim D As String
        Y = ThisMoment.Year.ToString.PadLeft(4, "0"c)
        M = ThisMoment.Month.ToString.PadLeft(2, "0"c)
        D = ThisMoment.Day.ToString.PadLeft(2, "0"c)

Return Y & "-" & M & "-" & D

    End Function ' GetStandardDateStamp_used_on_PDA
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function 取得在PDA上使用的時間戳記() As String
        ' Chinese version of …
        Return GetStandardDateStamp_used_on_PDA()
    End Function ' 取得在PDA上使用的時間戳記
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub 把字串貼到剪貼簿上(ByVal 任何字串 As String)
        ' Chinese version of …
        PasteStringToClipboard(任何字串)
    End Sub ' 把字串貼到剪貼簿上
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function 取得目前放在剪貼簿中的字串() As String
        ' Chinese version of …
        Return GetStringInClipboard()
    End Function
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Module ' Tools_for_WJAtTSINT2008

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_08_10_MM_12_52_45] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

Module Tools_for_WJAtTSINT2008 [2008-08-10]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_08_10_MM_12_13_29] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
'     (友善的模組名稱) Friendly name of this module:
'           [WJAtTSINT2008].[Tools for WJAtTSINT2008]
'
'     (程式用模組名稱) Code name of this module:
'           WJAtTSINT2008.Tools_for_WJAtTSINT2008
'
'     Version: 1.00.01
'     Last Updated: (2008 04 03 PM 07 10 18)

        Dim myDataObject As System.Windows.Forms.IDataObject
        Dim T As String
        myDataObject = System.Windows.Forms.Clipboard.GetDataObject()

Return T

Clipboard.SetDataObject(AnyString, True)

Dim ThisMoment As Date
ThisMoment = Now.Today

Return Y & "-" & M & "-" & D

    End Function ' GetStandardDateStamp_used_on_PDA
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

End Module ' Tools_for_WJAtTSINT2008

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_08_10_MM_12_13_29] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

DemoCode_String_Split

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_08_09_PM_08_21_32] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
    Private Sub DemoCode_String_Split()
        ' [2008-08-09-PM-08-13-04]
        ' String.Split 方法
        ' 傳回 String 陣列，其中包含這個執行個體中由指定的 Char 或 String 陣列之
        ' 元素所分隔的子字串。
        '
        Dim S2 As String
        S2 = "ABC DEF GHI"

Dim DelimitingString As String = " "

Dim Ss() As String
Ss = S2.Split(DelimitingString)

End Sub ' DemoCode_String_Split

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_08_09_PM_08_21_32] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

2008年8月5日星期二

Coding Homework [2008-08-06], designing class VersionInfoY2008M08D06

// - - Begin memo item - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //

(Memo Item created on August 6, 2008 11:10 AM)

- - - Begin title or keyword:

Coding Homework [2008-08-06], designing class VersionInfoY2008M08D06

- - - End title or keyword:

Description of this homework:

Design a class to automatically update a "Version Info String" like the following ones:

For using in other environments, like Microsoft Word:

Version: 1.00.01; Last Updated: [2008-08-06-AM-10-49-50]

Version: 1.00.01; Last Updated: [2008-08-06]

For using in a code editor, like VB's code editor:

Version: 1.00.01; Last Updated: [2008_08_06_AM_10_49_50]

Version: 1.00.01; Last Updated: [2008_08_06]

For saving some inks while printing it to a printer:

Version: 1.00.01; Last Updated: [2008 08 06 AM 10 49 50]

Version: 1.00.01; Last Updated: [2008 08 06]

We need to update the first "Version Info String" by inserting a newly updated "Version Info String" in a new paragraph right before it.

Input:

Text with one or more "Version Info String" embedded in it.

Output:

Text with a newly updated "Version Info String" inserted right before the first last updated "Version Info String".

Name of this class:

VersionInfoY2008M08D06

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - End memo item - - //

2008年8月2日星期六

如何在表單載入時顯示程式的版本編號 (Code to display the version info of your program)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 如何在表單載入時顯示程式的版本編號
        ' Code to display the version info of your program
        '
        Me.Text = Me.Text & " - " & Application.ProductVersion
    End Sub ' Form1_Load

2008年7月19日星期六

SkyDrive TWJT NetworkProgramming2008Summer [2008-07-20]

2008-07-20
SkyDrive TWJT NetworkProgramming2008Summer
Network Programming2008 Summer

NetworkProgramming2008Summer

CodingHelperSH at blogspot.com

將字串資料寫入文字檔案的範例程式 [2008-07-20]

        ' Begin_[2008_07_20_MM_12_44_29]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   將字串資料寫入文字檔案的範例程式
        '
        ' [2008-07-20-MM-12-10-10]
        ' 宣告一個類別為 [StreamWriter] 的物件，並且取名為 [myStreamWriter]
        ' Declare an instance of StreamWriter to write text to a file.
        Dim myStreamWriter As StreamWriter

        ' 路徑的名稱
        ' Folder Path
        Dim FP As String
        FP = "C:\WeiJin Tang\Output folder"

        ' 檔案名稱
        ' File Name
        Dim FN As String
        FN = "My first text file.txt"

        ' 完整的檔案名稱
        ' Full Path File Name
        Dim FPFN As String
        FPFN = System.IO.Path.Combine(FP, FN)

        ' 在記憶體中新增一個 [StreamWriter] 的物件，並且將它連結到硬碟中檔案名稱為FPFN的檔案
        ' Create an instance of StreamWriter to write text to a file.
        myStreamWriter = New StreamWriter(FPFN)

        ' Begin_[2008_07_20_MM_12_38_48]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   將資料寫入 myStreamWriter 裡面
        '
        With myStreamWriter
            .Write("The date is: ")
            .WriteLine(DateTime.Now)
            .WriteLine()

            ' Add some text to the file.
            .Write("時間就是你的生命")
            .WriteLine()
        End With
        '
        ' End_[2008_07_20_MM_12_38_48]

        ' 將 myStreamWriter 關閉，以釋放它所使用到的系統資源
        ' close myStreamWriter to fully release the resources used by this StreamWriter object
        myStreamWriter.Close()
        '
        ' End_[2008_07_20_MM_12_44_29]

StreamWriter and its 繼承階層架構 [2008-07-20]

2008-07-20
Use StreamWriter to write string to a text file

HOW TO：從檔案讀取文字
HOW TO：將文字寫入檔案

StreamWriter and its 繼承階層架構 [2008-07-20]
繼承階層架構
System..::.Object
System..::.MarshalByRefObject
System.IO..::.TextWriter
System.IO..::.StreamWriter

TextWriter 類別 [2008-07-20]

TextWriter 類別

.NET Framework 類別庫
TextWriter 類別
表示可以寫入一連串連續字元的寫入器，這個類別是抽象的。

命名空間： System.IO

TextWriter 類別 [2008-07-20]

SoftHuman Utility Programs [2008-07-20]

2008-07-20
SoftHuman Utility Programs [2008-07-20]

WeiJin_Tang_at_SoftHuman_1_1_417_(2003_05_21)(IR89).zip

WeiJinTangAtSH2005 (RV1.0.1.84) [2007-10-17].zip

SoftHuman Word Experts (Release version)[2007-11-27](IR90).zip

NP_2008_Summer_C01.減法高手Y2008M07D19 [2008-03-18-PM-07-48-23]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_07_19_PM_08_48_57] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Network Programs 2008 Summer, Class 01, Serving TSINT_2009級_進二技_篤班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     NP_2008_Summer_C01.減法高手Y2008M07D19
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -
'     NP_2008_Summer_C01.減法高手Y2008M07D19 [2008-03-18-PM-07-48-23]
'     (修改程式的人員) Revised by: 李俊毅
'
'     Version: 1.00.01
'     Last Updated: (2008 07 19 PM 08 44 44)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class 減法高手Y2008M07D19
Private m_上帝給我的錢 As Integer
Private m_我還有多少錢可以用 As Integer

    Public Sub New(ByVal 上帝給我的錢 As Integer)
        Me.m_上帝給我的錢 = 上帝給我的錢
        Me.m_我還有多少錢可以用 = 上帝給我的錢
    End Sub

    Public Sub 把這些錢花掉(ByVal 要花掉的錢 As Integer)
        Me.m_我還有多少錢可以用 = Me.m_我還有多少錢可以用 - 要花掉的錢
        If Me.m_我還有多少錢可以用 < 0 Then
            MsgBox("丫…我破產了。")
        End If
    End Sub

End Class '減法高手Y2008M07D19

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_07_19_PM_08_48_57] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

2008年7月14日星期一

Web sites used by CodingHelper SH [2008-07-15]

2008-07-15
CodingHelper SH
http://CodingHelperSH.blogspot.com/

Keywords: Blog Coding Helper SH sample code template reusable VB.NET

Web sites used by CodingHelper SH [2008-07-15]

2008年7月12日星期六

敲敲樂 [2008-07-12-PM-09-49-37]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_07_12_PM_09_50_30] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.敲敲樂
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -
'     OOP2008C01.敲敲樂 [2008-07-12-PM-09-49-37]
'
'     OOP2008C01.敲敲樂 [2008-03-18-PM-07-48-23]
'     (修改程式的人員) Revised by: 劉靜汝
'
'     Version: 1.00.02
'     Last Updated: (2008 07 12 PM 09 45 59)
'     Version: 1.00.01
'     Last Updated: (2008 03 18 PM 07 43 52)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class 敲敲樂
    ' Begin_Keywords for easily searching source code on [BlogSpot.com] :
    '
    ' 敲敲樂 Click Fun, a simple and basic class, the first class for WeiJin Tang's students
    '
    ' Begin_Keywords for easily searching source code on [BlogSpot.com] :

Private m_我幾下要反應 As Integer
Private m_我總共被拍幾下了 As Integer

    Public Sub New(ByVal 我幾下要反應 As Integer)
        Me.m_我幾下要反應 = 我幾下要反應
    End Sub

    Public Sub 懂了沒()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (程式撰寫的進度) Developing: Ongoing (80%)
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 18 PM 07 49 08)
        ' (修改程式的人員) Revised by: 劉靜汝
        '     OK
        '     Version: 1.00.02
        '     Last Updated: (2008 07 12 PM 09 44 58)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Me.m_我總共被拍幾下了 = Me.m_我總共被拍幾下了 + 1

If Me.m_我總共被拍幾下了 = Me.m_我幾下要反應 Then
MsgBox("終於懂了")

            'ElseIf (Me.m_我總共被拍幾下了 Mod Me.m_我幾下要反應) = 0 Then
            '    MsgBox("終於懂了 ; Me.m_我總共被拍幾下了 = " & Me.m_我總共被拍幾下了)
            'ElseIf Me.m_我總共被拍幾下了 = 10 Then
            '    MsgBox("終於懂了 ; Me.m_我總共被拍幾下了 = " & Me.m_我總共被拍幾下了)
        Else
            ' ffff
        End If
    End Sub
End Class ' 敲敲樂

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' [2008_07_12_PM_09_50_30] ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

訂閱：意見 (Atom)

2008年12月1日 星期一

2008年11月24日 星期一

2008年11月18日 星期二

2008年10月2日 星期四

2008年9月19日 星期五

2008年9月2日 星期二

2008年8月17日 星期日

2008年8月16日 星期六

2008年8月9日 星期六

2008年8月5日 星期二

2008年8月2日 星期六

2008年7月19日 星期六

2008年7月14日 星期一

2008年7月12日 星期六

著作人

網誌存檔

追蹤者