Learning: 2009

2009年7月16日星期四

文字定位控制練習

Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s = ""
        Dim a = "明天會更好"

        For i = 1 To 5
            '左下至右上()
            s = vbNewLine & Space(i * 3) & Mid(a, i, 1) & s
        Next
        For i = 1 To 5
            '左上至右下()
            s = s & vbNewLine & Space(i * 3) & Mid(a, i, 1)
        Next
        For i = 1 To 5
            '右上至左下
            s = s & vbNewLine & Space((6 - i) * 3) & Mid(a, i, 1)
        Next
        For i = 1 To 5
            '右下至左上
            s = vbNewLine & Space((6 - i) * 3) & Mid(a, i, 1) & s
        Next

MsgBox(s)
End Sub
End Class

2009年7月6日星期一

系統工程從複雜問題的總體入手

系統工程的目的是解決總體優化問題，從複雜問題的總體入手，認為總體大於各部分之和，各部分雖較劣但總體可以優化。有的問題，如電話網路，不能只研究個別電話的質量問題，必須從總體網路入手，這種思路是和笛卡兒的方法論相左的。

ref: http://zh.wikipedia.org/w/index.php?title=%E7%B3%BB%E7%BB%9F%E5%B7%A5%E7%A8%8B&variant=zh-tw

研究問題的方法分四個步驟

笛卡兒在方法論中指出，研究問題的方法分四個步驟：

永遠不接受任何我自己不清楚的真理，就是說要盡量避免魯莽和偏見，只能是根據自己的判斷非常清楚和確定，沒有任何值得懷疑的地方的真理。就是說只要沒有經過自己切身體會的問題，不管有什麼權威的結論，都可以懷疑。這就是著名的「懷疑一切」理論。例如亞里士多德曾下結論說，女人比男人少兩顆牙齒。但事實並非如此。
可以將要研究的複雜問題，盡量分解為多個比較簡單的小問題，一個一個地分開解決。
將這些小問題從簡單到複雜排列，先從容易解決的問題著手。
將所有問題解決後，再綜合起來檢驗，看是否完全，是否將問題徹底解決了

Ref : http://zh.wikipedia.org/w/index.php?title=%E6%96%B9%E6%B3%95%E8%AB%96&variant=zh-tw

2009年6月25日星期四

97技藝競賽第8題 -- VB2008版

Public Class Form1
    Dim r1Str = ""
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Test8.txt")
        Dim recArray() = Split(fileContents, vbNewLine)
        For k = 0 To recArray.Length - 1
            proc_one_rec(recArray, k)
        Next
        'MsgBox(r1Str)
        My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\result8.txt", r1Str, False)
        End
    End Sub
    Sub proc_one_rec(ByVal recArray, ByVal k)
        Dim s = recArray(k)
        Dim n = Math.Ceiling(s.length ^ 0.5)
        Dim a(n + 1, n + 1) As String
        For i = 0 To n + 1
            For j = 0 To n + 1
                If i = 0 Or i = n + 1 Or j = 0 Or j = n + 1 Then
                    a(i, j) = "X"
                Else
                    a(i, j) = "#"
                End If
            Next
        Next
        Dim sindex = 1
        Dim x = 1
        Dim y = 1
        Dim dx = 1
        Dim dy = 0
        Dim dirN = 0
        Dim prex = x
        Dim prey = y
        While sindex <= s.length
            '非空位處理，退回原位置，轉向，前進至下一位置
            If a(x, y) <> "#" Then
                x = prex
                y = prey
                dirN = dirN + 1
                dirN = dirN Mod 4
                If dirN = 0 Then
                    dx = 1
                    dy = 0
                End If
                If dirN = 1 Then
                    dx = 0
                    dy = 1
                End If
                If dirN = 2 Then
                    dx = -1
                    dy = 0
                End If
                If dirN = 3 Then
                    dx = 0
                    dy = -1
                End If
                x = x + dx
                y = y + dy
            End If
            a(x, y) = Mid(s, sindex, 1)
            '保留上次位置
            prex = x
            prey = y
            '取得下次位置，下一個字元
            x = x + dx
            y = y + dy
            sindex = sindex + 1
        End While
        '一次結果
        Dim rStr = ""
        For y = 1 To n
            For x = 1 To n
                rStr = rStr + a(x, y)
            Next
            rStr = rStr & vbNewLine
        Next
        rStr = Replace(rStr, "#", " ")
        r1Str = r1Str & rStr & vbNewLine
    End Sub
End Class

97技藝競賽第8題

Problem8：文字繞圈圈(15%)

已知有一個字串，請找出可以將此字串填入的最小正方形，而填入的方式是由正方形的左上角開始，依順時針蚊香方向由外向內填入。

輸入說明：

每組輸入包含一列字串，字串內的字元皆由英文字母及數字所組成，字串的長度最長不會超過1000個字元。

輸出說明：

對於每組測試資料，輸出填入最小正方形後的結果，每組測試資料以一列空白隔開。

輸入範例：

0123456789ABCDE

111111111111111122222222

輸出範例：

0123

BCD4

A E5

9876

11111

12221

12 21

12221

11111

Public Class Form1
    Dim i, j, ri
    Dim r1Str = ""
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Test8.txt")
        Dim recArray() = Split(fileContents, vbNewLine)

        For ri = 0 To recArray.Length - 1
            proc_one_rec(recArray)
        Next

        'MsgBox(r1Str)
        My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\result8.txt", r1Str, False)
        End
    End Sub
    Sub proc_one_rec(ByVal recArray)
        Dim s = recArray(ri)
        Dim n = Math.Ceiling(s.length ^ 0.5)

        Dim a(n + 1, n + 1) As String
        For i = 0 To n + 1
            For j = 0 To n + 1
                If i = 0 Or i = n + 1 Or j = 0 Or j = n + 1 Then
                    a(i, j) = "X"
                Else
                    a(i, j) = "#"
                End If
            Next
        Next

Dim sindex = 1

        Dim x = 1
        Dim y = 1
        Dim dx = 1
        Dim dy = 0
        Dim dirN = 0
        Dim prex = x
        Dim prey = y

        While sindex <= s.length
            '非空位處理，退回原位置，轉向，前進至下一位置
            If a(x, y) <> "#" Then
                x = prex
                y = prey
                dirN = dirN + 1
                dirN = dirN Mod 4
                If dirN = 0 Then
                    dx = 1
                    dy = 0
                End If
                If dirN = 1 Then
                    dx = 0
                    dy = 1
                End If
                If dirN = 2 Then
                    dx = -1
                    dy = 0
                End If
                If dirN = 3 Then
                    dx = 0
                    dy = -1
                End If
                x = x + dx
                y = y + dy
            End If

a(x, y) = Mid(s, sindex, 1)

            '保留上次位置
            prex = x
            prey = y

            '取得下次位置，下一個字元
            x = x + dx
            y = y + dy

sindex = sindex + 1
End While

        '一次結果
        Dim rStr = ""
        For y = 1 To n
            For x = 1 To n
                rStr = rStr + a(x, y)
            Next
            rStr = rStr & vbNewLine
        Next
        rStr = Replace(rStr, "#", " ")
        r1Str = r1Str & rStr & vbNewLine
    End Sub
End Class

2009年6月4日星期四

電子通訊錄地圖版

Public Class Form1

    Private Sub 聯絡資料BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 聯絡資料BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.聯絡資料BindingSource.EndEdit()
        Me.聯絡資料TableAdapter.Update(Me.Db1DataSet.聯絡資料)

End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 這行程式碼會將資料載入 'Db1DataSet.聯絡資料' 資料表。您可以視需要進行移動或移除。
        Me.聯絡資料TableAdapter.Fill(Me.Db1DataSet.聯絡資料)
        Label1.Text = "點按圖形可改變圖片大小"
        Label1.ForeColor = Color.Red
    End Sub

    Private Sub 地圖PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 地圖PictureBox.Click
        If 地圖PictureBox.SizeMode = PictureBoxSizeMode.CenterImage Then
            地圖PictureBox.SizeMode = PictureBoxSizeMode.StretchImage
        Else
            地圖PictureBox.SizeMode = PictureBoxSizeMode.CenterImage
        End If
    End Sub

End Class

2009年5月21日星期四

學會寫程式Visual Basic 2008 新書

作者：Idea 3小組
出版社：碁峰
出版日期：2009年05月21日
語言：繁體中文 ISBN：9789861817095
裝訂：平裝

內容簡介

top

1.學生學習的趣味性
●大量有趣的程式範例
●專章討論遊戲程式設計

2.生活應用的實用性
●大量簡單而實用的程式範例
●專章討論生活應用實際程式例

3.內容收集的豐富性
●完整收集歷屆升學考試程式設計考題
●95、96、97年程式設計比賽模擬試題

4.份量的適當性
●書不會厚到老師嫌太多教不完，學生看了會擔心

2009年5月20日星期三

VisualBasic 2008 完美的演繹

VisualBasic 2008 完美的演繹 (附Visual Studio 2008 Express 中文版)(附VCD)

作者：黃瑞祥、松橋 3小組工作室

出版社：知城
出版日期：2009年05月01日
語言：繁體中文 ISBN：9789866551222
裝訂：平裝

本書特色

書中將以一個個由淺入深的實例，詳細說明 Visual Basic 的指令語法及控制項用途，使您在學習完本書內容後，即可自行設計程式解決自已所遭遇問題。

全書配合實例應用，內容包括：

■ 程式設計基礎：建立資料結構、變數型態、運算式、運算子與基本的輸入輸出等基本觀念。
■ 重複結構：介紹FOR…NEXT與DO…LOOP迴圈的觀念與應用方法。
■ 陣列：活用Visual Basic陣列、排序與搜尋方法，撰寫程式更省事。
■ 淺顯易懂解說物件導向設計的基本概念。
■ 以繪圖實作各項輸出報表，解決 express 版本報表輸出問題。
■ 採用FireBird 資料庫實作簡易出貨單系統。
■ 精簡的 WPF 範例，使WPF 不再如此艱深。
■ 以簡易及可行安裝與部署式技巧，使專案能實際應用。

每個單元皆由淺入深、循序漸進，讓初學者由基本範例中，學習到程式設計的精神、技巧與邏輯思考能力。

2009年4月30日星期四

Shell Sort - 不定大小陣列版

'Shell Sorting 謝耳排序
'改為不定大小陣列
Public Class Form1
    Dim a() = {90, 95, 92, 93, 94, 96, 91}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i
        Dim str1 = ""
        Dim n = a.Length
        Dim d = n \ 2

        While d <> 0
            Dim isChange As Boolean = False
            For i = 0 To n - 1 - d
                If a(i) > a(i + d) Then
                    Dim t = a(i)
                    a(i) = a(i + d)
                    a(i + d) = t
                    isChange = True
                End If
            Next
            If isChange = False Then
                d = d \ 2
            End If
        End While

        For i = 0 To n - 1
            str1 = str1 & a(i) & Space(3)
        Next
        MsgBox(str1)
    End Sub
End Class

2009年4月24日星期五

迴文判斷

'迴文判斷
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rStr = ""
        Dim n() = {"12321", "1", "1221", "123454321", "12312", "12"}
        For m As Integer = 0 To UBound(n)
            Dim i = Int(Len(n(m)) / 2) + 1
            Dim isTrue = True

            Dim j = 1
            Dim k = Len(n(m))
            While j < i
                If Mid(n(m), j, 1) <> Mid(n(m), k, 1) Then isTrue = False
                j = j + 1
                k = k - 1
            End While
            rStr = rStr & n(m) & ":" & IIf(isTrue, "迴文", "非迴文") & vbNewLine
        Next
        MsgBox(rStr)
    End Sub
End Class

高中生程式解題系統

http://zerojudge.tw/

2009年4月20日星期一

尋找完全數

'尋找完全數
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim t1 As Date = Now
        Dim acct As TimeSpan

        Dim str1 = ""
        Dim c = 0
        Dim i
        Dim n = 6
        For n = 1 To 10000
            Dim s = 0
            For i = 1 To Int(n / 2)
                If n Mod i = 0 Then
                    s = s + i
                End If
            Next
            If s = n Then
                c = c + 1
                acct = Now - t1
                str1 = str1 & c & ":" & n & "-->" & acct.TotalSeconds & "sec" & vbNewLine
            End If
        Next n
        MsgBox(str1)
    End Sub
End Class

2009年4月15日星期三

字數統計

'字數統計
Public Class Form1
    '重覆計算版
    'Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    Dim str2 = ""
    '    Dim i
    '    Dim c
    '    Dim str1 = "明天會更好，後天會更好，天天更好。明天會更好，後天會更好，天天更好明天會更好，後天會更好，天天更好。明天會更好，後天會更好，天天更好"
    '    ' MsgBox("字串長度為:" & str1.ToString.Length)
    '    Dim j
    '    For j = 1 To str1.ToString.Length
    '        c = 0
    '        For i = 1 To str1.ToString.Length
    '            If Mid(str1, i, 1) = Mid(str1, j, 1) Then c = c + 1
    '        Next
    '        str2 = str2 & Mid(str1, j, 1) & "->共有：" & c & "個" & vbNewLine
    '    Next
    '    MsgBox(str2)
    'End Sub

    '不重覆計算版
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strChk = ""
        Dim str2 = ""
        Dim i
        Dim c
        Dim str1 = "明天會更好，後天會更好，天天更好。明天會更好，後天會更好，天天更好明天會更好，後天會更好，天天更好。明天會更好，後天會更好，天天更好"
        ' MsgBox("字串長度為:" & str1.ToString.Length)
        Dim j
        For j = 1 To str1.ToString.Length
            If InStr(strChk, Mid(str1, j, 1)) = 0 Then
                c = 0
                For i = 1 To str1.ToString.Length
                    If Mid(str1, i, 1) = Mid(str1, j, 1) Then c = c + 1
                Next
                str2 = str2 & Mid(str1, j, 1) & "->共有：" & c & "個" & vbNewLine
                strChk = strChk & Mid(str1, j, 1)
            End If
        Next
        MsgBox(str2)
    End Sub
End Class

產生前十個 Conway數列項

'產生第一至十個 conway數列項
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim j
        Dim str2 = "1" & vbNewLine
        j = 2
        Dim t = 1
        While j <= 10
            str2 = str2 & conway(t) & vbNewLine
            t = conway(t)
            j = j + 1
        End While
        MsgBox(str2)
    End Sub
    Function conway(ByVal n)
        Dim i, c
        Dim str1 = ""
        i = 1
        c = 0
        While i <= n.ToString.Length
            c = c + 1
            '
            If Mid(n.ToString, i, 1) <> Mid(n.ToString, i + 1, 1) Then
                str1 = str1 & c & Mid(n.ToString, i, 1)
                c = 0
            End If
            i = i + 1
        End While
        conway = str1
    End Function
End Class

2009年4月14日星期二

10 個 Internet 上的 VB 資源

MSDN Library

VBForDummies.net

Channel 9

ASP.NET Web

The Microsoft Public Newsgroups

.NET 247

Google CodeSearch

kbAlertz

CodePlex

Microsoft Google for Searching

摘自：Visual Basic 2008 FOR DUMmIES

書籍推薦

美麗程式：頂尖程式設計師的思考方式 Leading Programmers Explain How They Think

中文版：http://www.books.com.tw/exep/prod/booksfile.php?item=0010399005#catalog

2009年4月11日星期六

程式設計選手訓練測驗二參考答案

Word版參考答案，請以以下連結下載

http://210.70.76.23/jack/Shared%20Documents/選手篩選二ans.doc

2009年3月25日星期三

2008/03/25、26豫章工商研討會海報

2009年3月20日星期五

VB LEARNING: 上課教材

數字轉國字大寫 -- 精簡版

'數字轉國字大寫 -- 精簡版
Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s1 = "123450"
        Dim r1 = "拾佰仟萬拾佰仟億拾佰仟兆"
        Dim n = Len(s1)
        Dim s2 = Mid(s1, n, 1)

        Dim j = 1
        For i = n - 1 To 1 Step -1
            s2 = Mid(s1, i, 1) & Mid(r1, j, 1) & s2
            j = j + 1
        Next

        s2 = Replace(s2, "1", "壹")
        s2 = Replace(s2, "2", "貳")
        s2 = Replace(s2, "3", "參")
        s2 = Replace(s2, "4", "肆")
        s2 = Replace(s2, "5", "伍")
        s2 = Replace(s2, "6", "陸")
        s2 = Replace(s2, "7", "柒")
        s2 = Replace(s2, "8", "捌")
        s2 = Replace(s2, "9", "玖")
        s2 = Replace(s2, "0", "零")

        s2 = Replace(s2, "零拾", "零")
        s2 = Replace(s2, "零佰", "零")
        s2 = Replace(s2, "零仟", "零")

        s2 = Replace(s2, "零零零", "零")
        s2 = Replace(s2, "零零", "零")

        If Mid(s2, Len(s2), 1) = "零" Then s2 = Mid(s2, 1, Len(s2) - 1)
        If s2 = "" Then s2 = "零"

        MsgBox(s2)

    End Sub
End Class

VB LEARNING: 上課教材

井宇遊戲 - 人與電腦對戰版 2008/03/11

'井宇遊戲 - 人與電腦對戰版
' 電腦每次用亂數法，下一個尚未被使用的格子
Public Class Form1
    Dim btn(9) As Button, i As Integer
    Dim oxFlag As Boolean
    Dim sco(9) As Integer
    Dim no As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call prepare()

        no = Int(Rnd() * 9) + 1
        Call playOne()
    End Sub

:

:

VB LEARNING: 上課教材

井字遊戲 -- 二種電腦邏輯對戰版

'二種電腦邏輯對戰版
'○採用由第1至第9格，依序找一個可以下的格子就下的方法
'×採用由第1至第9格，隨機方式找一個可以下的格子就下的方法
Public Class Form1
    Dim btn(9) As Button
    Dim i
    Dim j
    Dim sco(9)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        btn(1) = Button1

:

:

VB LEARNING: 上課教材

VB LEARNING

亂數應用 - 樂透開獎與撲克牌發牌

VB LEARNING

2009年3月6日星期五

iThome online : : JavaFX下載數超過1億次

微軟副總裁Scott Guthrie表示，Silverlight 2只花4周就達到同樣數量。

iThome online : : JavaFX下載數超過1億次

2009年3月5日星期四

數字轉國字大寫 -- 精簡版

'數字轉國字大寫 -- 精簡版
Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s1 = "123450"
        Dim r1 = "拾佰仟萬拾佰仟億拾佰仟兆"
        Dim n = Len(s1)
        Dim s2 = Mid(s1, n, 1)

        Dim j = 1
        For i = n - 1 To 1 Step -1
            s2 = Mid(s1, i, 1) & Mid(r1, j, 1) & s2
            j = j + 1
        Next

        s2 = Replace(s2, "1", "壹")
        s2 = Replace(s2, "2", "貳")
        s2 = Replace(s2, "3", "參")
        s2 = Replace(s2, "4", "肆")
        s2 = Replace(s2, "5", "伍")
        s2 = Replace(s2, "6", "陸")
        s2 = Replace(s2, "7", "柒")
        s2 = Replace(s2, "8", "捌")
        s2 = Replace(s2, "9", "玖")
        s2 = Replace(s2, "0", "零")

        s2 = Replace(s2, "零拾", "零")
        s2 = Replace(s2, "零佰", "零")
        s2 = Replace(s2, "零仟", "零")

        s2 = Replace(s2, "零零零", "零")
        s2 = Replace(s2, "零零", "零")

        If Mid(s2, Len(s2), 1) = "零" Then s2 = Mid(s2, 1, Len(s2) - 1)
        If s2 = "" Then s2 = "零"

        MsgBox(s2)

    End Sub
End Class

VB LEARNING

2009年3月4日星期三

數字轉國字 -- 加位數單位

Public Class Form1
    Dim i, str1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s1 = "1234567"
        Dim s2 = "拾佰仟萬拾佰仟億"
        str1 = Mid(s1, Len(s1), 1)
        For i = Len(s1) - 1 To 1 Step -1
            str1 = Mid(s1, i, 1) & Mid(s2, Len(s1) - 1 + 1 - i, 1) & str1
        Next
        MsgBox(str1)
    End Sub
End Class

2009年3月3日星期二

一窺微軟對未來的願景（影片）

微軟製作的一支影片顯示，數年以後，若把這些新奇的科技玩意統統結合起來使用，會是什麼樣的景象。

ZDNet Taiwan - 新聞 - 企業軟體 - 一窺微軟對未來的願景（影片）

2009年3月2日星期一

如何自動化 Excel 文字轉換語音」在另一個 Office 程式中

如何自動化 Excel 文字轉換語音」在另一個 Office 程式中

如何自動化 Excel 文字轉換語音」在另一個 Office 程式中

2009年3月1日星期日

( Bridan's Blog - 4rdp, For R&D Person ): 程式設計

程式設計師很少用到高深的數學，但是沒有達到高中畢業的數學程度，恐怕有些程式是寫不出來的。

研發養成所 ( Bridan's Blog - 4rdp, For R&D Person ): 程式設計

2009年2月27日星期五

建置發行程式

依次點選「建置」、「發行 XXXX」， XXXX為程式名稱。

再選擇要發行應用程式到那個位置，如下圖

再選擇應用程式的安裝方式，我們以選擇CD-ROM或DVD-ROM為例.。

接著可選擇在哪裡更新檔案，我們選擇不檢查。

最後點選「完成」，即可得到以下的發行用安裝程式

2009年2月20日星期五

IT技術 - 起飛中的輕量型作業系統（Instant-On OS）

PC開始興起一股新風潮：安裝完正規Windows作業系統後，再嵌入一套輕量型作業系統（俗稱Instant-On OS）。

ZDNet Taiwan - 企業應用 - IT技術 - 起飛中的輕量型作業系統（Instant-On OS）

2009年2月14日星期六

糟糕的日常生活: 不識Mr.6

時間是個很殘酷的因素，三個小時就是三個小時，這麼短的時間內能學到的東西連皮毛都不算。(以初學者來說，光要搞清楚介面、功能、概念就不只要三個小時了)

糟糕的日常生活: 不識Mr.6

2009年2月11日星期三

螞蟻難撼大樹-科技新聞-新浪新聞中心

Google未來將在視頻、圖片搜索服務中向大家提供以OCR圖片文字識別技術為核心的搜索服務。

螞蟻難撼大樹-科技新聞-新浪新聞中心

2009年2月3日星期二

Windows 7為駭客敞開大門？

Window 7內的使用者帳戶管理系統(UAC)其中的一個訊息管理功能，可輕易的被惡意程式以Visual Basic編碼發送假的按鍵訊息的方式，來開啟UAC介面，然後將保護設定關閉，甚至重新開機，進而取得系統帳戶的最高權限。

udn數位資訊 - 軟體學園 - 軟體趨勢 - My God！ Windows 7為駭客敞開大門？

2009年1月22日星期四

2009年，如何培養快樂好習慣？

15個快樂的好習慣：

（1）心中永保「愛」、（2）抱持「一切都會變得更好」的正面想法、（3）挑戰新事物、（4）鍛鍊自己的專注力、（5）向心目中的偶像學習
（6）感受他人的心情、（7）珍惜有緣相逢的所有人事物、（8）吃飯不超過八分飽、（9）飲食不要過於神經質、（10）能走路就走路
（11）與更多的同好者享受運動時光、（12）發現更多樂趣、（13）調節壓力、（14）反身要求自己，以及（15）不要盲目非理性地遷就於習慣...等15個。

2009年，如何培養快樂好習慣？

九把刀－純粹的專注給我純粹的快樂快樂的15個習慣,名人讀書會

九把刀－純粹的專注給我純粹的快樂

作者：王曉玟 出處：天下雜誌 414期 2009/01

九把刀－純粹的專注給我純粹的快樂快樂的15個習慣,名人讀書會

2009年1月20日星期二

CType計算機按鈕模擬例

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button12.Click, Button11.Click, Button10.Click
        Label1.Text = Label1.Text & CType(sender, Button).Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = ""
    End Sub
End Class

2009年1月17日星期六

智慧型報價單

2009年1月11日星期日

學會寫程式VisualBasic 6.0(增修版)

學會寫程式VisualBasic 6.0(增修版)

‧作者： Idea 3小組

‧書號： AEL003231
‧出版日： 2006/03/28
‧價格： 380

‧類別：程式設計
‧開數： 18K
‧譯/著：著

‧頁數： 424
‧色彩：單色
‧附件： CD*1

‧ISBN： 986-421-923-5
‧EAN： 9789864219230

博客來

金石堂

天瓏

試讀

教學配件

本書為AEL003200之增修版書籍
書中除了內容上的修正外並增加94年程式設計比賽模擬試題實作
並將原書中93年程式設計比賽模擬實作部份收錄於書本光碟中。

入門篇
第一章：寫出第一個程式
第二章：引進物件導向概念
第三章：資料的基本概念
第四章：讓程式具有判斷力
第五章：為程式加入反覆執行功能
第六章：重要控製項與輸入輸出介面及繪圖指令
第七章：複雜資料結構的處理
第八章：程式變大後的解決辦法
實例演練篇
第九章：實用程式設計
第十章：遊戲程式設計
第十一章：程式設計比賽模擬試題實作
附錄
1、流程圖介紹
2、VB常用函數介紹索引
3、技能檢定試題實作(收錄於光碟中)
4、93年程式設計比賽模擬試題實作(收錄於光碟中)

入門。

高中、高職、技職。

歡迎光臨碁峰資訊

Visual Basic 2008啟蒙範例書

Visual Basic 2008啟蒙範例書

‧作者：吳進北/林文恭研究室

‧書號： AEL006500
‧出版日： 2008/10/20
‧價格： 420

‧類別：程式設計
‧開數： 16K
‧譯/著：著

‧頁數： 288
‧色彩：彩色
‧附件： DVD*2

‧ISBN： 9789861815503
‧EAN： 9789861815503

博客來

金石堂

天瓏

範例精采有趣
循序漸進
影音實作教學媒體

1、真正適合初學者的範例書
2、真正適合教學使用的範例導向
3、特別設計過的範例，包含程式設計的完整學習
A、基本邏輯訓練：循序、選擇、迴圈
B、基礎技巧實作：文字處理、數字處理、非文數字資料處理、陣列、副程式、物件導向、繪圖
C、常用技能加強：除錯、改寫、模組化、Help等學習資源運用
D、正確習慣養成：參數命名模式、命名技巧、精簡的格式
E、解題模式演練：問題界定、需求分析、解題方案設計、方案實作、檢討再精進

0.認識VB、安裝VB 2008 Express
1.範例一：四則運算器
2.範例二：電子佈告欄
3.範例三：小精靈吃蘋果
4.範例四：立體摩天輪 & 圖形繪圖器
5.範例五：中文打字練習程式
6.範例六：英文單字模擬考
7.附錄：繪圖指令整理、Help使用導引、程式除錯

範例完成檔
範例實作影音教學
Microsoft Visual Studio 2008 Express Editions SP1

入門。

高職、技職。

歡迎光臨碁峰資訊

2009年1月9日星期五

過去、現在、未來時間、時間的加減運算

Public Class Form1
    'A.顯示過去、現在、未來日期
    'B.過去、現在、未來時間、時間的加減運算
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim hireDay As Date = #8/16/1991#
        Dim retireDay As Date = #7/31/2016#
        Dim str1 = "聘用日期:" & hireDay
        str1 = str1 & vbNewLine & "今天日期:" & Now.Date
        str1 = str1 & vbNewLine & "預計退休日期:" & retireDay
        str1 = str1 & vbNewLine
        str1 = str1 & vbNewLine & "已工作天數:" & CInt((Now - hireDay).TotalDays)
        str1 = str1 & vbNewLine & "離退休天數:" & CInt((retireDay - Now).TotalDays)
        MsgBox(str1)

        Dim ondutyTime As DateTime = #8:00:00 AM#
        Dim offdutyTime As DateTime = #5:00:00 PM#
        Dim str2 = "上班時間：" & ondutyTime
        str2 = str2 & vbNewLine & "現在時間：" & Now.TimeOfDay.ToString
        str2 = str2 & vbNewLine & "預計下班時間：" & offdutyTime
        str2 = str2 & vbNewLine

        str2 = str2 & vbNewLine & "已上班小時數：" & CInt((Now.TimeOfDay.TotalHours - ondutyTime.TimeOfDay.TotalHours) * 100) / 100
        str2 = str2 & vbNewLine & "離下班小時數：" & CInt((offdutyTime.TimeOfDay.TotalHours - Now.TimeOfDay.TotalHours) * 100) / 100
        MsgBox(str2)
    End Sub
End Class

訂閱：文章 (Atom)

標籤雲

2009年7月16日 星期四

2009年7月6日 星期一

2009年6月25日 星期四

2009年6月4日 星期四

2009年5月21日 星期四

內容簡介

2009年5月20日 星期三

2009年4月30日 星期四

2009年4月24日 星期五

2009年4月20日 星期一

2009年4月15日 星期三

2009年4月14日 星期二

2009年4月11日 星期六

2009年3月25日 星期三

2009年3月20日 星期五

2009年3月6日 星期五

2009年3月5日 星期四

2009年3月4日 星期三

2009年3月3日 星期二

2009年3月2日 星期一

2009年3月1日 星期日

2009年2月27日 星期五

2009年2月20日 星期五

2009年2月14日 星期六

2009年2月11日 星期三

2009年2月3日 星期二

2009年1月22日 星期四

九把刀－純粹的專注給我純粹的快樂

2009年1月20日 星期二

2009年1月17日 星期六

2009年1月11日 星期日

2009年1月9日 星期五

■Inspirational Quotes

搜尋此網誌

■分類

■最新回應

■blog 存檔

■常逛的地方

總網頁瀏覽量

訪客計數

2009年7月16日星期四

2009年7月6日星期一

2009年6月25日星期四

2009年6月4日星期四

2009年5月21日星期四

2009年5月20日星期三

2009年4月30日星期四

2009年4月24日星期五

2009年4月20日星期一

2009年4月15日星期三

2009年4月14日星期二

2009年4月11日星期六

2009年3月25日星期三

2009年3月20日星期五

2009年3月6日星期五

2009年3月5日星期四

2009年3月4日星期三

2009年3月3日星期二

2009年3月2日星期一

2009年3月1日星期日

2009年2月27日星期五

2009年2月20日星期五

2009年2月14日星期六

2009年2月11日星期三

2009年2月3日星期二

2009年1月22日星期四

2009年1月20日星期二

2009年1月17日星期六

2009年1月11日星期日

2009年1月9日星期五