Postcrossing-乘著明信片去旅遊

Postcrossing 乘著明信片環遊世界去 by huangangel on Scribd

VB_圖書館資訊系統

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim id, pw As String
        id = TextBox1.Text
        pw = TextBox2.Text
        If id = "jack" And pw = "luck007" Then
            MsgBox("歡迎進入圖書資訊系統", , "系統提示")
        Else
            MsgBox("帳號或密碼輸入錯誤", , "系統提示")
        End If
    End Sub

請注意：密碼欄要隱藏

文書處理快捷鍵應用 Word篇

CH1.

CTRL+SHIFT	切換輸入法
CTRL+SPACE	切換中英文輸入法
CTRL+ALT+，	開啟標點符號小鍵盤

 

CTRL+S	儲存檔案
CTRL+N	新增空白文件
CTRL+O	開啟舊檔
F12	另存新檔

 

CTRL+Z	復原
CTRL+Y	取消復原

 

CTRL+ALT+P	切換至整頁模式
CTRL+ALT+O	切換至大綱模式
CTRL+ALT+N	切換至草稿模式

 

SHIFT+TAB	提升層級
TAB	降低層級

 

BACKSPACE	刪除左方文字
DELETE	刪除右方文字

 

CTRL+，	，
CTRL+.	。
CTRL+；	；
CTRL+'	、
CTRL+SHIFT+?	？
CTRL+SHIFT+!	！
CTRL+SHIFT+[	｛
CTRL+SHIFT+]	｝
CTRL+SHIFT+(	｢
CTRL+SHIFT+)	」

 

CTRL+P	列印文件
CTRL+單按句子任一處	一段句子
SHIFT+單案文字結尾處	連續範圍
CTRL+其他範圍	不連續範圍
ALT+拖曳	矩形範圍
SHIFT、CTRL長按	連續選取物件

 

CTRL+A	全選
CTRL+C	複製
CTRL+V	貼上
CTRL+X	剪下

 

CTRL+H	尋找與取代交談窗
CTRL+SHIFT+>	放大字型大小
CTRL+SHIFT+<	縮小字型大小
CTRL+B	粗體
CTRL+I	斜體
CTRL+U	底線

 

CTRL+SHIFT+C	複製格式
CTRL+SHIFT+V	貼上格式

 

CTRL+D	開啟字型交談窗
ALT+PGUP	移至表格最上邊儲存格
ALT+PGDOWN	移至表格最下邊儲存格
ALT+HOME	移至表格最左邊儲存格
ALT+END	移至表格最右邊儲存格

 

CTRL+SHIFT+ENTER	分割表格
SHIFT+ENTER	手動換行
CTRL+ENTER	換至下一頁
CTRL+E	置中對齊
CTRL+SHIFT+ENTER	分到下一欄

0723國立科大參訪之旅

​

Visual Studio

Visual basic	Visual C#	Visual C++	Visual J#	Visual studio
共同語言規範(CLS)
ASP.NET		Windows Forms
ADO.NET及XML
.NET Framework類別庫(FCL)
共同語言執行環境(CLR)
作業平台

VB函數 春夏秋冬

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim M As Integer

        M = Val(TextBox1.Text)

        If M <= 3 Then

            MsgBox("春天")

        ElseIf M <= 6 Then

            MsgBox("夏天")

        ElseIf M <= 9 Then

            MsgBox("秋天")

        ElseIf M <= 12 Then

            MsgBox("冬天")

        Else

            MsgBox("無解")

            '當我輸入值為1-3時，產生答案為春天

            '當我輸入值為4-6時，產生答案為夏天

            '當我輸入值為7-9時，產生答案為秋天

            '當我輸入值為10-12時，產生答案為冬天

            '因為一年只有12個月份，當我輸入值超過13(含)時，產生答案為無解

        End If

    End Sub

世界機器人大賽(FRC)觀摩與培訓活動 分組競賽前3名結果出爐

http://www.twpowernews.com/home/news_pagein.php?iType=1011&n_id=129158

世界機器人大賽(FRC)觀摩與培訓活動　分組競賽前3名結果出爐

中科實中、大里高中及慈明高中師生組成隊號1705勇奪第1名

2017/09/21

【勁報記者羅蔚舟／中科報導】
由中科管理局與台中市政府教育局共同舉辦的「世界機器人大賽(FRC)觀摩與培訓」活動，日前(9/17)下午進入第2天的分組競賽，由各組團隊展示這2天課程製作機器人的成果。這次分組競賽由中科實中、大里高中及慈明高中師生組成隊號1705獲得第1名，中科管理局陳銘煌局長親自頒發10,000元獎金；第2名是隊號1704由台中高工及台北建國中學師生組成的團隊，來自澳洲團隊的 Ms. Luan Heimlich 頒發獎金5,000元；隊號1703的台中家商與桃園內壢高中師生組成的團隊獲得第3名，並由北一女陳正源老師頒發獎金3,000元。

「世界機器人大賽(FRC)觀摩與培訓」活動第2天的分組競賽，參與學校包括中科實中、台中女中、台中高工、台中家商、忠明高中、清水高中、大里高中、慈明高中、建國中學及內壢高中等中部及北部高中職校師生，共分成6組進行競賽。上午團隊各自發揮創意及合作精神完成各隊機器人，下午展開既競爭又合作的競技比賽，競賽過程戰況激烈，充滿趣味性及挑戰性，現場參賽隊伍及觀摩學員嗨到最高點。

分組競賽結束後，中科管理局陳銘煌局長特別感謝與會學校與師生，並說明會後再將中科管理局及台中市政府教育局共同聯名的結業證書及獎狀寄送至各學校。獲得前3名的隊伍也分別上台發表參加本次活動感言。

第1名代表發言的是大里高中蕭同學，提到很驚訝得到第一名，謝謝隊友們的努力，也謝謝中科實中陳思佑老師對團隊的指導；接著是獲得第2名的台中高工楊同學代表發言感謝隊友們，特別提到團隊不是全部來自同一個學校，必須各自去學習完成指定題目，並在短時間內達成活動，感謝老師在學校的指導，感謝中科提供這個機會，以及為這場活動盡心盡力的每一個人所做的努力；第3名台中家商柯同學發表感言感謝這次活動所有的老師及中科主辦這次活動，還有活動現場的大家，能配合團隊讓團隊順利完成任務，同時提到從這活動學到很多課堂上學不到的東西，特別感謝所有指導老師。

(圖由中科管理局提供／由中科管理局與台中市政府教育局共同舉辦的「世界機器人大賽(FRC)觀摩與培訓」活動，分組競賽前3名結果出爐。)

https://n.yam.com/Article/20170921978275/%E4%B8%96%E7%95%8C%E6%A9%9F%E5%99%A8%E4%BA%BA%E5%A4%A7%E8%B3%BD(FRC)%E8%A7%80%E6%91%A9%E8%88%87%E5%9F%B9%E8%A8%93%E6%B4%BB%E5%8B%95%E3%80%80%E5%88%86%E7%B5%84%E7%AB%B6%E8%B3%BD%E5%89%8D3%E5%90%8D%E7%B5%90%E6%9E%9C%E5%87%BA%E7%88%90

http://www.twpowernews.com/home/news_pagein.php?iType=1011&n_id=129158

http://news.sina.com.tw/article/20170921/23960922.html

Visual Basic 華氏轉攝氏及攝氏轉華氏數值轉換

Public Class Form1

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

        

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim h, s As Single

        h = InputBox("請輸入華氏溫度", "華氏轉攝氏")

        s = 5 / 9 * (h - 32)

        MsgBox("攝氏溫度為" & s, , "華氏轉攝氏")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim h, s As Single

        s = InputBox("請輸入攝氏溫度", "攝氏轉華氏")

        h = 9 * s / 5 + 32

        MsgBox("華氏溫度為" & h, , "攝氏轉華氏")

    End Sub

End Class

2017 WRO創客博覽會@台中教育大學

貼文照片請從此入

VR、MR、 AR 有何不同?

一.  何謂 「虛擬實境」 (Virtual Reality, VR)?
       利用電腦技術模擬出一個立體、高擬真的 3D 空間，當使用者穿戴特殊顯示裝置 (VR 眼鏡) 進入後，會 產生好像處在現實中一般的錯覺 。在這空間中，操作者可以藉由控制器或鍵盤在這個虛擬的環境下穿梭或互動!


二、何謂 「混合實境」 (Mixed Reality, MR)?
        把現實世界與虛擬世界合併在一起，從而建立出一個新的環境以及符合一般視覺上所認知的虛擬影像，在這之中現實世界中的物件能夠與數位世界中的物件共同存在並且即時的產生互動。
就是 混合實境遊戲 ( Mixed Reality Game) 所帶來的魅力， 你能感受到虛擬的回饋，也能與虛擬世界做互動 。微軟使用穿戴式全息投影配備 Project- XRay 的 demo 即是 MR 遊戲。


三、何謂 「擴增實境 ( Augmented Reality, AR)」?
        一種將虛擬資訊擴增到現實空間中的技術， 它不是要取代現實空間，而是在現實空間中添加一個虛擬物件 ，藉由攝影機的辨識技術與電腦程式的結合，當設定好的圖片出現在鏡頭裡面，就會出現對應的虛擬物件。

請看下列影片：

微軟展示混合實境平台帶給你我的未來

2016.12.18開放新中國／「虛實」結合超驚奇　混合實境「MR」夯

轉貼自：台中家商 施慧玲老師部落格