您可能會喜歡......

2017年9月28日 星期四

Visual Studio

Visual basic

Visual C#

Visual C++

Visual J#

Visual studio

共同語言規範(CLS)

ASP.NET

Windows Forms

ADO.NETXML

.NET Framework類別庫(FCL)

共同語言執行環境(CLR)

作業平台

2017年9月26日 星期二

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

2017年9月21日 星期四

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

世界機器人大賽(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名結果出爐。)






2017年9月20日 星期三

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年9月9日 星期六

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

貼文照片請從此入