15個快樂的好習慣：
（1）心中永保「愛」、（2）抱持「一切都會變得更好」的正面想法、（3）挑戰新事物、（4）鍛鍊自己的專注力、（5）向心目中的偶像學習
（6）感受他人的心情、（7）珍惜有緣相逢的所有人事物、（8）吃飯不超過八分飽、（9）飲食不要過於神經質、（10）能走路就走路
（11）與更多的同好者享受運動時光、（12）發現更多樂趣、（13）調節壓力、（14）反身要求自己，以及（15）不要盲目非理性地遷就於習慣...等15個。
2009年，如何培養快樂好習慣？
2009年1月22日 星期四
2009年，如何培養快樂好習慣？
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月11日 星期日
學會寫程式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啟蒙範例書
‧作者： 吳進北/林文恭研究室
‧書號： 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
2009年1月4日 星期日
訂閱：
文章 (Atom)