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

2019年8月14日 星期三

如何利用Gmail做到合併列印及批次寄送個人化郵件功能?

前情提要:這次我研究的功能主要是為了要協助學校科主任確認各位同學的出缺勤紀錄,但因適逢假期時間,在一二梯次活動中也有外校同學,如開學後再確認,會不太方便,因此,我為了顧慮到學生的隱私,花了些時間研究了Gmail傳說中的批次寄送個人化郵件功能,說明如下:

1. 首先,請先在Gmail中,利用我們熟悉的新增郵件功能,將要傳送的內容底稿事先打好。


2. 再來,安裝兩種可以批次寄送郵件的外掛程式。
(不同的應用程式他在郵件中的語法不同,不過同樣是免費版的情況下皆只能夠傳送50封郵件/天,除非付費才能解鎖其流量限制)
Mail Merge with Attachments

Yet Another Mail Merge

3. 回到試算表中,我這次使用的是上者,因為在信件中我要分別附上所有同學的個人紀錄Word檔案,不過原則上,不管是哪款擴充功能,內容都大同小異,僅在帶入細節時語法不同而已,兩款都可以試試哦!


(因個資問題,故移除說明圖片。)

相關使用說明如下:

1. 開啟新的一份試算表。
2. 啟動Mail Merge with Attachments
3. 點選外掛程式中的Mail Merge With Attachments,下拉至Create Merge Template。



4. 選取完之後,會建立如下的空白表單。上方藍色區域為待填入個人表單區域內容,其中圖中六個欄位建議不要更動,不過可依自己的需求增加其欄位,以符合更個人化的資訊。


5. 插入附件:
在選單中點選加入附件即可,依自己的需求加入Google雲端硬碟檔案,或電腦檔案,或加入Google雲端硬碟清單(資料夾用),如果資料量大的話,建議可以在後台先在雲端硬碟上傳您要提供的檔案,以便後續快速處理。

6.選擇完畢後點選直接匯入。


7. 匯入完畢後,可以在"檔案附件"的頁面當中看到您剛剛所匯入的所有檔案。


8. 回到主頁面,鍵入您的收件者清單及您要分享的附件。


9. 確認基本資料沒有問題後,回到選單,點下Configure Mail Merge按鈕。

10. 再鍵入一次基本資料。


11. 在下方的Create Email Template的頁籤當中,輸入您要傳給收件者的信件內容。


或是,直接匯入您在Gmail當中準備好的範本(草稿)。


以本例中,您需要使用合併欄位的地方,請使用雙大括號{{Column name}}表示
請注意:該欄位建議使用全英文,經實測後,無法使用數字欄位。

12. 確定以上都沒有問題之後,可以先將範本寄到自己的信箱做測試,看是不是您想要傳達的內容。


13. 確定沒問題,再點選一次Run Mail Merge指令即可傳給您的收件者囉!

2019年8月6日 星期二

123D Design教學影片目錄 By FastLab


2019年7月16日 星期二

123D Design 免費課程 - 25 材質與右邊工具列

123D Design 免費課程 - 24 測量及文字工具介紹

123D Design 免費課程 - 23 結合功能介紹

123D Design 免費課程 -22-群組與磁鐵群組說明

123D Design 免費課程 -21-進階複製操作 - pattern

2019年7月12日 星期五

中市雲端英語學堂開課了!讓學生敢開口講英語


台中市府推動「雲端英語學堂計畫」,在清水高中、台中家商、新社高中設立雲端英語學堂,開放高中學生參加。


學生剛開始練習時很害羞,但在指導老師的引導下,對英文不再懼怕,敢勇於以英語對話。

為增進學生英語口說能力,台中市府教育局推動「雲端英語學堂計畫」,在清水高中、台中家商、新社高中設立雲端英語學堂,開放高中學生免費報名參加,學生每周上課1次,透過提供電腦及視訊設備,學生可以直接與外國老師或同學直接英語對話,提升學生興趣。

教育局長楊振昇說,學生每周上課1次、每次上課2小時,從暑假密集班到開學後常態班都有,並採小班制教學,每班30個名額,每人上課10堂,預計360名同學受惠,讓學子將書本中的英語加以活化,市府將規畫多元國際教育計畫,強化學生的外語能力、國際素養。

台中高工學生莊佑霆表示,常看英美影集,但沒有機會和外師真正用英文溝通,這個計畫讓能夠感受到語言的實用性與有趣性,老師專業又有耐心和學生溝通,學習有效率。

「第一次跟線上外師聊天,用英語溝通表達,投入在英文的世界」,台中家商學生柯永誠說,藉由課程學到全新的學習模式,老師會即時糾正發音,自己也能以過即時造句的方式,訓練了解生字的意思,加強流利的口語表達。

新社高中學生蘇信宇一開始練習時很害羞,但在指導老師的引導下,逐漸投入課程之後,對英文不再懼怕,敢勇於以英語對話。

(中時 )

中時即時╱中市雲端英語學堂開課了!讓學生敢開口講英語
https://www.chinatimes.com/realtimenews/20190712002326-260405?chdtv

中時A12╱雲端英語學堂 強化口語能力
https://www.chinatimes.com/newspapers/20190713000583-260107?chdtv

中廣新聞╱中市開辦雲端英語學堂 與外籍師生對話
http://www.bcc.com.tw/newsView.3437505

勁報╱中市府開辦雲端英語學堂  線上學習無距離
http://www.twpowernews.com/home/news_pagein.php?iType=1010&n_id=163042

指傳媒╱中市府開辦雲端英語學堂  線上學習無距離
http://www.fingermedia.tw/?p=732567

青年日報╱中市雲端英語學堂?提升外語能力
https://www.ydn.com.tw/News/343995

教育人╱雲端英語學堂上線增進學生英語口說能力
http://www.edu.game.tw/zh-tw/news_detail/1276

臺灣導報╱市府開辦雲端英語學堂 線上學習無距離
https://taiwan-reports.com/archives/400758

大宇宙新聞時報╱臺中市開辦雲端英語學堂,線上學習無距離
http://www.macrocosm.tw/indexmain.php?mmenu=18000&sid=82172&cateid=10&imp=1

市政新聞╱中市府開辦雲端英語學堂  線上學習無距離

https://www.taichung.gov.tw/1319032/post

台中市政府教育局雲端英語學堂計畫--TutorABC(tutorJunior)使用心得及活動感想

(0704)
藉由這次的課程,讓我學到了另一種全新的學習模式,第一次跟線上外師哈拉,在每天的45分鐘裡面,沉浸在英文的世界,暢談英文,並且可以跟外師線上互動了解到其他同學在課堂中所想的意思,訓練自已的英聽能力。

昨天遇到的外師是來自美國的Alexandra,平時的英文課,很少有機會可以上到全英文的課程(如果不是應外生的話),在上課的時候,老師會即時糾正我們的發音,並且讓我們透過即時造句的方式,訓練我們了解生字的意思。

希望在結束之後,能夠有更流利的口語表達。

With this course, I learned another new learning model. I chatted with online and foreign teachers for the first time. In the 45 minutes of the day, I was immersed in the English world, talked about English, and could interact with foreigners online. Train your own English listening ability to what other students think in class.

The foreign teacher I met yesterday was Alexandra from the United States. I usually have an English class. I have a few chances to go to the English course (if it is not an exogenous student). When I am in class, the teacher will correct our pronunciation immediately. And let us train us to understand the meaning of the word by means of instant sentence making.

I hope that after the end, I will be able to have a more fluent oral expression.

(0711)
隨著課堂即將進入尾聲,回顧這幾天,我覺得最大的收穫就是找回自己訓練口說的自信,縱使發音錯誤,仍然可以自在的表達自己腦海中所想的思維,將腦海裡所想的盡我的能力表達出來讓對方可以了解我的意思,也在這10天的課程當中,學到了不少更深的單字,不管是舊的單字當複習也好,還是更多沒有見過具有挑戰性的單字,希望這些在我表達時能夠更精確的表現出我所想的意思。

在課堂中,更要感謝Shirley老師以及各位同學,在這10天當中讓我能夠繼續盡我的能力為大家服務,作為一位崇尚應用外語科且渴望認識更多單字的學生,學習英文的動力在我的心中,永遠不會消失。

As the class is about to come to an end, looking back these days, I think the biggest reward is to find the confidence that I can say in my training. Even if the pronunciation is wrong, I can still express my thoughts in my mind and think about what I think. I can express my ability so that the other party can understand what I mean. In the course of this 10-day course, I have learned a lot of deeper words. Whether it is the old one, when reviewing, or more, I have never seen it challenging. I hope that these words will show me what I think more accurately when I express them.

In the classroom, I would like to thank Shirley and my classmates for allowing me to continue to do my best to serve you during these 10 days. As a student who advocates the application of foreign languages and is eager to know more words, I will learn English. In my heart, it will never disappear.

也感謝我們的Iris校長及教務主任能夠抽空來關心我們,您們的鼓勵是我們最大進步的動力。

Thanks also to our President Iris and the Academic Director for taking the time to care for us. Your encouragement is our driving force for maximum progress.

2019年5月29日 星期三

Microbit_0529

點我進入

2019年5月28日 星期二

陣列排序



Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(5) As Integer
        Dim n, temp As Integer
        n = 1
        For i = 1 To 5
            a(i) = Mid(TextBox1.Text, n, 2)
            n = n + 3
        Next
        Label2.Text = "5個陣列元素以選擇排序法排序,共需4次循環" & vbCrLf
        For x = 4 To 1 Step -1
            Label2.Text = Label2.Text & "第" & 5 - x & "循環結果為"
            For y = 1 To x
                If a(y) > a(y + 1) Then
                    temp = a(y)
                    a(y) = a(y + 1)
                    a(y + 1) = temp
                End If
            Next
            For i = 1 To 5
                Label2.Text = Label2.Text & a(i) & " "
            Next
            Label2.Text = Label2.Text & vbCrLf
        Next
    End Sub
End Class

2019年5月22日 星期三

Microbit-(阿瓦隆)數字接收並判斷任務成功或失敗

點我進入

2019年5月18日 星期六

11800-1060306



Public Class Form1

    Dim d(100, 4)
    Dim rno As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rdata()
        For i = 1 To rno
            If d(i, 4) = "" Then sp1(i)
            If d(i, 4) = "" Then sp2(i)
            If d(i, 4) = "" Then sp3(i)
        Next
        wdata()
    End Sub

    Sub rdata()
        FileOpen(1, "C:\940306.sm", OpenMode.Input)
        rno = 0
        Do While Not EOF(1)
            rno += 1
            Input(1, d(rno, 1)) : Input(1, d(rno, 2)) : Input(1, d(rno, 3))
        Loop
        FileClose()
    End Sub

    Sub sp1(ByVal i)
        Dim id = d(i, 1)
        If id Like "[A-Z]#########" Then  Else d(i, 4) = "FORMAT ERROR"
    End Sub

    Sub sp2(ByVal i)
        Dim D1S = Mid(d(i, 1), 2, 1) & d(i, 3)
        If (D1S = "1M") Or (D1S = "2F") Then  Else d(i, 4) = "SEX CODE ERROR"
    End Sub

    Sub sp3(ByVal i)
        Dim s26 = "ABCDEFGHJKLMNPQRSTUVXYWZIO"
        Dim L1 = Mid(d(i, 1), 1, 1)
        Dim X12 = InStr(s26, L1) + 9
        Dim x1 = X12 \ 10
        Dim x2 = X12 Mod 10

        Dim D1 = Mid(d(i, 1), 2, 1)
        Dim D2 = Mid(d(i, 1), 3, 1)
        Dim D3 = Mid(d(i, 1), 4, 1)
        Dim D4 = Mid(d(i, 1), 5, 1)
        Dim D5 = Mid(d(i, 1), 6, 1)
        Dim D6 = Mid(d(i, 1), 7, 1)
        Dim D7 = Mid(d(i, 1), 8, 1)
        Dim D8 = Mid(d(i, 1), 9, 1)
        Dim D9 = Mid(d(i, 1), 10, 1)

        Dim y = x1 + 9 * x2 + 8 * D1 + 7 * D2 + 6 * D3 + 5 * D4 + 4 * D5 + 3 * D6 + 2 * D7 + D8 + D9

        If y Mod 10 = 0 Then  Else d(i, 4) = "CHECK SUM ERROR"
    End Sub

    Sub wdata()
        DGV.columns.add("ID NO", "ID NO")
        DGV.Columns.Add("NAME", "NAME")
        DGV.Columns.Add("SEX", "SEX")
        DGV.Columns.Add("ERROR", "ERROR")

        For i = 1 To rno
            DGV.Rows.Add(d(i, 1), d(i, 2), d(i, 3), d(i, 4))
        Next

        DGV.Sort(DGV.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
        DGV.Columns(2).Width = 50
        DGV.Columns(3).Width = 150
        DGV.AllowUserToAddRows = False
    End Sub
End Class

20190518 漢口國中會考服務


2019年5月13日 星期一

數值轉換 二進位轉十進位


'因十進位轉二進位已張貼過,故不重複貼出。

Public Class Form1
    Dim str1 As String
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim a As Integer
        Dim tol As Integer
        str1 = InputBox("請輸入您想要計算的二進位數值")
        For i = 1 To Len(str1)
            a = Mid(str1, i, 1)
            If a = 1 Then
                tol = tol + 2 ^ (Len(str1) - i)
            Else
                tol = tol
            End If
        Next
        MsgBox(tol)
    End Sub
End Class

2019年5月8日 星期三

Microbit_貪食蛇





2019年4月25日 星期四

數值轉換 十進位轉二進位

'純數字轉換系統

Public Class Form1
    Dim D2B As String
    Dim Dec As Integer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dec = InputBox("請輸入0~255之間的任意數字")
        D2B = ""
        Do While Dec > 0
            D2B = Dec Mod 2 & D2B
            Dec = Dec \ 2
        Loop
        MsgBox(D2B)
        End
    End Sub
End Class


'將位數補齊為8位數

Public Class Form1
    Dim D2B As String
    Dim Dec As Integer
    Dim supply As String
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dec = InputBox("請輸入0~255之間的任意數字")
        D2B = ""
        Do While Dec > 0
            D2B = Dec Mod 2 & D2B
            Dec = Dec \ 2
        Loop
        checkD2B(D2B)
        MsgBox(D2B)
        End
    End Sub

    Sub checkD2B(ByRef D2B As String)
        '當二進位數字長度小於八位數時,將其數字補齊。
        If Len(D2B) < 8 Then
            For i = 1 To 8 - Len(D2B)
                supply &= "0"
            Next
        End If
        D2B = supply & D2B
    End Sub
End Class


2019年4月24日 星期三

107學年度台中市國中技藝競賽商管職群競賽_服務證明


2019年4月14日 星期日

判斷輸入的數字是否為質數,並求出該值的所有正負因數。



Public Class Form1
    Dim i
    Dim str1
    Dim str2
    Dim ans As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim n As Integer = InputBox("請輸入一個數值")
        '求正數因數
        For i = 1 To n
            If n Mod i = 0 Then
                str1 = str1 & i & "  "
            End If
        Next
        Dim factor() As String = Split(str1, "  ")
        Dim factornum As Integer = UBound(factor)
        If factornum = 2 Then
            ans = "這是一個質數。"
        Else
            ans = "這是一個合數。"
        End If

        '求負數因數
        Dim factor2() As String = Split(str1, "  ")
        For i = 0 To UBound(factor2)
            factor2(i) = "-" & factor2(i)
            str2 &= factor2(i) & "  "
        Next
        str2 = Strings.Left(str2, Len(str2) - 3)
        MsgBox(ans & vbCrLf & "這個數字的正因數包含:" & str1 & vbCrLf & "這個數字的負因數包含:" & str2)
        End
    End Sub
End Class

-------------------

另解:
        'UBound函數功能為求出該陣列的個數,因For迴圈從0開始,因此會重複迴圈一次,故,我們可以改為UBound(factor2) - 1,回歸到原陣列個數,如使用這種方式,則可以省去在最後輸出前再進行一次去尾的動作。
        Dim factor2() As String = Split(str1, "  ")
        For i = 0 To UBound(factor2) - 1
            factor2(i) = "-" & factor2(i)
            str2 &= factor2(i) & "  "
        Next

2019年4月13日 星期六

小柯茶行開張囉!



Public Class Form1
    Dim a(12) As Integer
    Dim sum(12) As Integer

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

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        a(0) = TextBox1.Text
        sum(0) = a(0) * 25
        Label10.Text = "共" & sum(0) & "元"

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        a(1) = TextBox2.Text

        sum(1) = a(1) * 30
        Label11.Text = "共" & sum(1) & "元"

    End Sub
    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        a(2) = TextBox3.Text
        sum(2) = a(2) * 25
        Label12.Text = "共" & sum(2) & "元"

    End Sub
    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
        a(3) = TextBox4.Text
        sum(3) = a(3) * 30
        Label13.Text = "共" & sum(3) & "元"
    End Sub
    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        a(4) = TextBox5.Text
        sum(4) = a(4) * 35
        Label18.Text = "共" & a(4) * 35 & "元"
    End Sub
    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
        a(5) = TextBox6.Text
        sum(5) = a(5) * 40
        Label19.Text = "共" & a(5) * 40 & "元"
    End Sub
    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
        a(6) = TextBox7.Text
        sum(6) = a(6) * 45
        Label20.Text = "共" & a(6) * 45 & "元"

    End Sub
    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged
        a(7) = TextBox8.Text
        sum(7) = a(7) * 50
        Label21.Text = "共" & a(7) * 50 & "元"
    End Sub
    Private Sub TextBox16_TextChanged(sender As Object, e As EventArgs) Handles TextBox16.TextChanged
        a(8) = TextBox16.Text
        sum(8) = a(8) * 50
        Label22.Text = "共" & sum(8) & "元"
    End Sub
    Private Sub TextBox15_TextChanged(sender As Object, e As EventArgs) Handles TextBox15.TextChanged
        a(9) = TextBox15.Text
        sum(9) = a(9) * 40
        Label23.Text = "共" & sum(9) & "元"
    End Sub
    Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles TextBox14.TextChanged
        a(10) = TextBox14.Text
        sum(10) = a(10) * 70
        Label24.Text = "共" & sum(10) & "元"
    End Sub
    Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles TextBox13.TextChanged
        a(11) = TextBox13.Text
        sum(11) = a(11) * 90
        Label25.Text = "共" & sum(11) & "元"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim tol As Integer
        For i = 0 To 11
            tol += sum(i)
        Next
        Label26.Text = "本次結帳" & vbCrLf & "共" & tol & "元"
    End Sub

End Class

2019年4月7日 星期日

FB Messenger對話框


自108/4/7起,除了本站上方"與我聯絡"頁面之外,也可以透過右下角的彈出式視窗Messenger與我直接連繫囉,歡迎您多加利用!

2019年4月6日 星期六

文章列表極速版_按標籤排序


2019年4月5日 星期五

烏臺詩案_心得報告單



台中家商與巴基斯坦學校國際交流





心得記錄:

補0403

今天又遇到新的技術問題
這又是另一種網路傳輸層面的問題了

中午的時候我陪我們學校的應外科主任在閱覽室實驗設備,主要協助台中家商師生及巴基斯坦學校(Government Girls Elementary School SHAHANI Bhakkar Punjab Pakistan)的Noureen老師互相分享健康食品和健康飲食習慣

這次我所遇到的問題是
老師所使用的軟體是Skype
(講白一點,我上次自創帳號應該是幼稚園國小的事情了)
都還不會使用
突然就變成了手機版上操作
說真的如果是國際視訊交流
Skype的確是非常常見的軟體

在交流的時候,我們這邊勉強可以聽到對方的聲音而已
聽老師說,我們只能猜對方講什麼
然後回對方簡單的回應這樣
我試過了(電腦用的)喇叭
特別括起來是因為後來組長跟我說這種線接電腦跟接手機是沒差的
所以後來我也有在想是傳輸的問題
後來,老師當下的問題反映是
跟學生借耳機麥克風希望可以聽清楚一點
因為實際操作者不是我了
所以實際結果不是很清楚\
(我們還試了藍芽喇叭+無線傳輸投影+數據分享器…)

我這次遇到的問題,後來發現其實是我們這邊的網路不夠
在當下,我跟我的老師們還以為台灣的4G網路已經夠了
又加上老師用的是吃到飽
應該會很順才對
但實際上事與願違
如果下次再遇到類似的活動
一定要改為電腦版連接網路線
它的傳輸速度跟畫質才夠

俗話說:學以致用、用以致學
在教室讀的,都是課本的理論
都是死的
只有跳脫出那個空間,實際去摸它
才知道問題所在
才知道課本為何這樣寫阿...
(有時候課本還真的沒寫,全部要你自己摸呢!)

感謝雪麗,真的又賺一次經驗了!

(經驗無價,老師能夠送我多一次的經驗,我就心滿意足了!)

(借老師的照片一用)








2019年3月28日 星期四

東大B4國文課講義資料:烏臺詩案之始末


烏臺詩案之始末
報告人:資料處理科 二年一班 柯永誠

前言:
表一:5W1H
Who

Where

When

What

Why

How


108年台中家商校內技藝競賽程式設計組參賽證明及獎狀



2019年3月22日 星期五

2019年3月21日 星期四

雷射切割理論及操作步驟

(圖片來源:網路)






一、繪製草稿
二、電腦製圖與成形模擬
三、數據測試及修正
四、量產與成形


沒有時間與數量的限制:更正為,視您的情況而定。

2019年3月19日 星期二

修平科技大學_思科網路研習(研習證書)

2019年3月18日 星期一

踩地雷(配合函數與副程式)


Public Class Form1
    Dim bomb As Integer
    Dim bomb1 As Integer
    Dim bomb2 As Integer
    Dim count As Integer

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

        Randomize()
        bomb = Int(Rnd() * 6) + 1
        For i = 1 To 10
            bomb1 = Int(Rnd() * 6) + 1
            If bomb1 <> bomb Then Exit For
        Next
        For j = 1 To 10
            bomb2 = Int(Rnd() * 6) + 1
            If bomb2 <> bomb And bomb2 <> bomb1 Then Exit For
        Next

    End Sub


    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
        Call checkBomb(1)
        If Label1.Text = "N" Then
            MsgBox("爆炸了!") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次,遊戲結束!")
        End If
    End Sub

    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
        Call checkBomb(2)
        If Label2.Text = "N" Then
            MsgBox("爆炸了!") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次,遊戲結束!")
        End If
    End Sub

    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
        Call checkBomb(3)
        If Label3.Text = "N" Then
            MsgBox("爆炸了!") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次,遊戲結束!")
        End If
    End Sub

    Private Sub Label4_Click(sender As System.Object, e As System.EventArgs) Handles Label4.Click
        Call checkBomb(4)
        If Label4.Text = "N" Then
            MsgBox("爆炸了!") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次,遊戲結束!")
        End If
    End Sub

    Private Sub Label5_Click(sender As System.Object, e As System.EventArgs) Handles Label5.Click
        Call checkBomb(5)
        If Label5.Text = "N" Then
            MsgBox("爆炸了!") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次,遊戲結束!")
        End If
    End Sub

    Private Sub Label6_Click(sender As System.Object, e As System.EventArgs) Handles Label6.Click
        Call checkBomb(6)
        If Label6.Text = "N" Then
            MsgBox("爆炸了!") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次,遊戲結束!")
        End If
    End Sub

    Sub checkBomb(ByVal x)
        If bomb = x Or bomb1 = x Or bomb2 = x Then

            Select Case x
                Case 1 : Label1.Text = "N"
                Case 2 : Label2.Text = "N"
                Case 3 : Label3.Text = "N"
                Case 4 : Label4.Text = "N"
                Case 5 : Label5.Text = "N"
                Case 6 : Label6.Text = "N"
            End Select
        End If
    End Sub
End Class

2019年3月10日 星期日

樂透彩抽獎小程式(配合函數與副程式)




Public Class Form1
    Dim n(6) As Integer
    '宣告6個位置分別讓電腦依序抽出六個號碼。


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        num()
        printnum()
    End Sub


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


    Sub num()     
        For i = 1 To 6
            n(i) = Int(Rnd() * 49) + 1
            '抽出1~49之中其中一個號碼
            For j = 1 To i - 1
                If n(j) = n(i) Then n(i) = 0 : i = i - 1
                '如果遇到與之前抽過的號碼有衝突則清空該值,重新輸入。
            Next

        Next
    End Sub


    Sub printnum()
        Label1.Text = n(1)
        Label2.Text = n(2)
        Label3.Text = n(3)
        Label4.Text = n(4)
        Label5.Text = n(5)
        Label6.Text = n(6)
        '最後利用六個Label顯示六個剛剛被抽中的號碼。
    End Sub
End Class

2019年3月3日 星期日

English_Introducing Windows 10 Transcript


2
Good morning, everybody
My name is Mark
Today, I’ll show you the greatest operating system (stop) which I have ever used.
Let’s understand it.

3
Here’s my content today

4
Windows 10, was born on 2015, is a cross-platform system which can be presented on anywhere you can think to, even TV, XBOX, and IOT device.

5
Does it an independent operating system? None. It’s working on the Internet.
So, you can do your homework from anytime, anywhere, anyway.

6
The newest start menu is combined with 7’s start menu and 8’s Metro UI.
All programs on Windows 10 will be presented as an App, like your big cellphone.

7
It’s a faster, safer system which I haven’t seen yet.
And it’s more intelligent and powerful.

8
However, it will show something uncertainly error that make you crazy. No. It will let you to know how to repair your computer.
Besides, it’s also a wonderful system.

11
At last, I introduced it to you guys because I think it’s able to be used by everyone, such as children, the elders.

12
Don’t forget to buy a legal authorization on their official site, enjoy it!

13
Here’s my presentation today, thanks for listening.

2019年2月27日 星期三

樂透彩抽獎小程式

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n(6) As Integer
        '宣告6個位置分別讓電腦依序抽出六個號碼。
        For i = 1 To 6
            n(i) = Int(Rnd() * 49) + 1
            '抽出1~49之中其中一個號碼
            For j = 1 To i - 1
                If n(j) = n(i) Then n(i) = 0 : i = i - 1
                '如果遇到與之前抽過的號碼有衝突則清空該值,重新輸入。
            Next
            MsgBox(n(i))
            '利用訊息框顯示被抽中之開獎號碼。
        Next

        Label1.Text = n(1)
        Label2.Text = n(2)
        Label3.Text = n(3)
        Label4.Text = n(4)
        Label5.Text = n(5)
        Label6.Text = n(6)
        '最後利用六個Label顯示六個剛剛被抽中的號碼。
    End Sub
End Class

2019年2月24日 星期日

五星彩開獎作業




Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n(3, 4) As Integer
        Dim a(5) As Integer

        Label1.Text = "近四期5星彩開獎號碼:"
        For i = 0 To 3
            Label1.Text = Label1.Text & vbCrLf & vbCrLf & "第" & i + 1 & "期:"
            For j = 0 To 4
                n(i, j) = InputBox("輸入第" & i + 1 & "期開獎號碼" & vbCrLf & "第" & j + 1 & "個號碼")
                Select Case n(i, j)
                    Case 0 : a(0) += 1 : Label3.Text = "0出現" & a(0) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 1 : a(1) += 1 : Label4.Text = "1出現" & a(1) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 2 : a(2) += 1 : Label5.Text = "2出現" & a(2) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 3 : a(3) += 1 : Label6.Text = "3出現" & a(3) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 4 : a(4) += 1 : Label7.Text = "4出現" & a(4) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 5 : a(5) += 1 : Label8.Text = "5出現" & a(5) & "次" : Label1.Text &= n(i, j) & Space(2)
                        '當程式碼偵測到數值符合我要的條件後,則繼續往後執行下一步驟
                    Case > 5 : MsgBox("請輸入0~5之間的數字", 16, "輸入錯誤") : n(i, j) = 0 : j = j - 1
                        '否則將其j值-1將其值清空後重新給予使用者輸入
                End Select


            Next
        Next
    End Sub

2019年2月23日 星期六

字彙即時通線上單字書

請點我進入

說明:此為有版權之單字(書面),故請確定有認真想學習之夥伴們再行申請加入班級,謝謝。
(僅限教育教學用途,如作為商業利益,請自行負責後果!)

2019年1月24日 星期四

修平科技大學_網路研習