- 12月 03 週一 201808:07
20180612/0815 OPEN分享活動-焦糖果醬機器人
- 12月 03 週一 201807:41
20181109 台中二中來訪 台中家商自造實驗室X幸福創客工坊
很久沒有寫部落格文章了
來補一下最近的動態...
感謝台中二中同學的熱情，以及渴望的態度，今天利用下午他校的社課時間，成功的把二中同學們帶到台中家商，進行一個不可能的任務，因為這是第一次以不同的軟體進行雷射切割教學，尤其是兩天前臨時決定要更換軟體，一個很不熟悉的軟體，感謝二中科技應用社社長及公關這段時間負責聯絡及安排統籌，讓今天的課程，能夠順利在時間內圓滿結束。至於照片嗎...請學妹上傳再幫我標註吧..."實現您的夢想"，這句話，我去年放在我的講義教材的封面，作為期許自己及社團同學的勉勵，這句話，曾經是Slogan，今天，我可以很開心的公開。我！實！現！了！謝謝這兩年來因為緣分相遇的朋友們，小弟感激不盡，因為你們，成就了今天的柯永誠！二中X家商 合作成功
感謝阿哲及翎凱姐姐的協助。
忙了幾天，終於有辦法坐下來寫真實的心得了很感謝禮拜五台中二中科技應用社安排學生公假來本校幸福創客工坊參觀其中更要感謝林佩蓉跟他們社團的公關同學以訊息的方式跟我確認細節才能夠這麼順利的進行我也很給力的應他們老師的需求放棄了我原本常用的建模工具(Illustrator)轉而使用他們社團平時在教學的免費軟體(Inkscape)課後，我還在擔心我有沒有教到真的實用的東西因為決定要更換軟體是課前兩天臨時決定的並且重新開課程菜單是一個非常不可能的任務
其實，我在禮拜五的課堂上教給同學的，不僅僅是單純的技術而是同學真正實用的電腦技能如果同學有仔細聽的話並且實踐他就會有更方便有效的管理檔案以及課堂筆記不過我覺得還蠻開心的是能夠跟同學們分享真走過的痕跡這是我這幾年真的體驗過的”人生哲學”期許同學們能夠真正的實現他們心中所種下的理想只有真走過，才能證明枯燥的理論共勉之。
最後，再一次感謝台中二中科技應用社給我這次的教學機會！
- 8月 02 週四 201812:12
打卡送贈品--手機平板架
- 6月 06 週三 201820:48
社團經營-3D列印社106學年度社團評鑑資料檢討
3D列印社這次的社團評鑑我們拿到了87分微高分 至少已經贏了一半的社團 首先，先感謝各為這一年的付出與參與 不想說感性的話，以下就這次的社團評鑑檔案進行小檢討。 這次我們準備的社團評鑑大綱如下： 一、社團介紹 二、願景 三、組織章程、規章 四、幹部執掌 五、作品集 六、課堂講義 七、活動紀錄 八、資料E 化 九、SWOT 分析 十、收支表 十一、展望未來 大至上架構還算完整，前後的資料整理加編檔共花了3天(5/11~5/13)，5/14完稿，個人覺得時間尚且不充裕，以至於資料整理不夠齊全，茲以以下幾點作為檢討，供下屆幹部提前改善及優化。 1. 準備時間宜再提前，不能用這麼短的時間作準備。 2. 講義資料要更進一步編檔，相關主題或進度分類，亦可按照上課時間下去安排頁面，如未備份(電子檔)記得要跟指導老師索取。 3. 幹部需定期整理所有活動照片(包含招生迎新、上課活動、課後課外活動)，並利用資料夾以日期命名，如怕忘記可大概寫一下memo提醒自己，作為評鑑資料的介紹頁。 4. 善用社團帳號(club3d@tchcvs.tw)，定期建檔，包括社團簡介及社章等，應定期更新，並非用百年老文章，須因時而宜。 5. 社團帳號部份，列為歷屆社長進行傳承交接的資訊之一，並可利用此帳號名義發信給他校社團進行交流等動作。 6. 資料必須務實，我們不是大社團，不能年年拿優等，但至少基本資料一定要把握住，因為這是同學們學習的歷程。 以上幾點作為參考，期許社團能夠更臻完善。
前社長 柯永誠 筆
107.6.6
前社長 柯永誠 筆
107.6.6
- 5月 15 週二 201811:35
華碩問題-Zenfone Max Plus(M1) 導航列無法在某程式中隱藏解決方式
困惑多天的華碩問題終於解決了
我先表示一下，我是個高中學生
因為之前家父的推薦，所以我的第一支真正擁有的手機就是華碩品牌，服役了1年8個月，系統還沒有壞掉，只有實體按鍵失效而已(2016年出的Zenfone Go TV)
今年三月，我入手華碩去年底發表的Zenfone Max Plus(M1)
原本要等4 Max
不過後來經過考量，還是這支好(虛擬按鍵損毀機率更低)
小弟入手這支，打算要撐過統測結束(2年後)
進入正題，我前幾周在ASUS論壇上發表了一篇文章
是針對LINE應用程式的導航鍵無法隱藏的問題
接下來，小弟在這裡說明我自己發現的功能
因為平時時間沒時間在玩手機設定，所以拿到之後，直接開始使用，沒做太多個人化設定
不影響傳訊息就好
我的手機目前版本：WW_14.02.1804.57_20180416，為華碩該型號最新版
LINE版本為8.5.3
日前我在論壇上發表的文章連結如下：
https://www.asus.com/zentalk/tw/thread-334057-1-1.html
我就說奇了怪了，按理講更新之後她說有隱藏功能
那為什麼唯獨LINE在按下某按鈕之後，卻無法隱藏了(小弟會在下面說明)
我的問題原文如下：
手機型號:ASUS_X018D
記憶體:3G 韌體版本:WW_Phone-14.02.1804.57-20180416
是否有Root:沒有
出現頻率:第一次
APP名稱:LINE
錯誤截圖:
本帖最後由 mark45397 於 2018/5/1 11:39 編輯
請問一下，我的手機是asus zenfone max plus，今天剛執行完更新，
他可以讓我隱藏下面的切換鍵，但是我在最近使用程式那邊點line的時候，
X旁邊還有一個按鈕，我點下去之後變成在line上無法隱藏，
請問這樣要怎麼設定才能讓他自行隱藏？謝謝。
※20180501更新圖片截圖。
本主題由 Bill2_ASUS 於 2018/4/30 14:08 分類
Screenshot_20180501-112752_1.jpg (161.94 KB, 下載次數: 0)
詳細說明：上圖圈選的該功能最主要是可以釘選導航列避免在該畫面可以隱藏，但是在小弟上方的說明LINE截圖中是沒有出現的，為什麼呢？
因為在最近的應用程式畫面中在更新後還出現了一個特異功能，就是可以縮放APP畫面，
如下：(在X的左方)
按下之後就會得到我在問題敘述中截下的畫面了。
在這裡，如您需要重新開啟的話，請從設定APP中更改設定值哦！
路徑：
進來之後，需要特別注意，因為更新之後大部分APP皆可支援全螢幕了，唯獨一些程式可以讓使用者設定，在上圖中，只要將拉霸啟動，就可以重新回到文中小編回復的截圖了！
以上說明，供小編參考，感謝EMI跟BILI2兩位小編解答。
我先表示一下，我是個高中學生
因為之前家父的推薦，所以我的第一支真正擁有的手機就是華碩品牌，服役了1年8個月，系統還沒有壞掉，只有實體按鍵失效而已(2016年出的Zenfone Go TV)
今年三月，我入手華碩去年底發表的Zenfone Max Plus(M1)
原本要等4 Max
不過後來經過考量，還是這支好(虛擬按鍵損毀機率更低)
小弟入手這支，打算要撐過統測結束(2年後)
進入正題，我前幾周在ASUS論壇上發表了一篇文章
是針對LINE應用程式的導航鍵無法隱藏的問題
接下來，小弟在這裡說明我自己發現的功能
因為平時時間沒時間在玩手機設定，所以拿到之後，直接開始使用，沒做太多個人化設定
不影響傳訊息就好
我的手機目前版本：WW_14.02.1804.57_20180416，為華碩該型號最新版
LINE版本為8.5.3
日前我在論壇上發表的文章連結如下：
https://www.asus.com/zentalk/tw/thread-334057-1-1.html
我就說奇了怪了，按理講更新之後她說有隱藏功能
那為什麼唯獨LINE在按下某按鈕之後，卻無法隱藏了(小弟會在下面說明)
我的問題原文如下：
請問一下，我的手機是asus zenfone max plus，今天剛執行完更新，
他可以讓我隱藏下面的切換鍵，但是我在最近使用程式那邊點line的時候，
X旁邊還有一個按鈕，我點下去之後變成在line上無法隱藏，
請問這樣要怎麼設定才能讓他自行隱藏？謝謝。
※20180501更新圖片截圖。
本主題由 Bill2_ASUS 於 2018/4/30 14:08 分類
Screenshot_20180501-112752_1.jpg (161.94 KB, 下載次數: 0)
詳細說明：上圖圈選的該功能最主要是可以釘選導航列避免在該畫面可以隱藏，但是在小弟上方的說明LINE截圖中是沒有出現的，為什麼呢？
因為在最近的應用程式畫面中在更新後還出現了一個特異功能，就是可以縮放APP畫面，
如下：(在X的左方)
按下之後就會得到我在問題敘述中截下的畫面了。
在這裡，如您需要重新開啟的話，請從設定APP中更改設定值哦！
路徑：
進來之後，需要特別注意，因為更新之後大部分APP皆可支援全螢幕了，唯獨一些程式可以讓使用者設定，在上圖中，只要將拉霸啟動，就可以重新回到文中小編回復的截圖了！
以上說明，供小編參考，感謝EMI跟BILI2兩位小編解答。
- 5月 01 週二 201814:32
trashcleaner.bat
@echo offecho 正在清除系統垃圾文件，請稍等......del /f /s /q %systemdrive%\*.tmpdel /f /s /q %systemdrive%\*._mpdel /f /s /q %systemdrive%\*.logdel /f /s /q %systemdrive%\*.glddel /f /s /q %systemdrive%\*.chkdel /f /s /q %systemdrive%\*.olddel /f /s /q %systemdrive%\recycled\*.*del /f /s /q %vindir%\*.bakdel /f /s /q %vindir%\prefetch\*.rd /s /q %vindir%\temp & md %vindir%\tempdel /f /q %userprofile%\cookies\*.*del /f /q %userprofile%\recent\*.*del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"del /f /s /q "%userprofile%\Local Settings\Temp\*.*"del /f /s /q "%userprofile%\recent\*.*"echo 清除系統垃圾完成！echo. & pause
- 4月 21 週六 201815:16
計算數字為2的？次方或求2的n次方 程式碼
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Integer
n = TextBox1.Text
Label1.Text = 2 ^ TextBox1.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim m As Integer
m = TextBox2.Text
Dim ans As Integer
Do Until m = 1
ans += 1
m /= 2
Loop
Label2.Text = ans
End Sub
End Class
- 1月 31 週三 201815:44
求最大公因數的三種表示法
一
Function GCD(ByVal a%, ByVal b%)
Do Until a = b
If a > b Then a -= b
If a < b Then b -= a
Loop
GCD = a
End Function
二
Function GCD(ByVal a%, ByVal b%)
GCD = If(b = 0, a, GCD(b, a Mod b))
End Function
三
Function GCD(ByVal a%, ByVal b%)
If b = 0 Then
GCD = a
Else
GCD = GCD(b, a Mod b)
End If
End Function
- 12月 20 週三 201709:12
軟體設計丙級術科程式碼
Public Class Form1
'*******************************
'* 11900-1060301 Program Start *
'*******************************
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Long
FileOpen(1, "c:\1060301.txt", OpenMode.Input
)
Input(1, n)
FileClose()
Dim Q, n1 As Long
Q = n
For i = 1 To 9
n1 = n1 * 10 + Q Mod 10
Q = Q \ 10
If Q = 0 Then Exit For
Next
If n = n1 Then
TextBox1.Text = "第一題結果：" & n & " is a palindrome."
Else
TextBox1.Text = "第一題結果：" & n & " is not a palindrome."
End If
End Sub
'*******************************
'* 11900-1060302 Program Start *
'*******************************
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim n As Integer
FileOpen(1, "C:\1060302.txt", OpenMode.Input
)
Input(1, n)
FileClose()
Dim i, j As Integer
Dim ans As String
ans = "第二題結果：" & vbNewLine
For i = 1 To n
For j = 1 To i
ans &= j
Next
ans &= vbNewLine
Next
TextBox2.Text = ans
End Sub
'*******************************
'* 11900-1060303 Program Start *
'*******************************
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim n As Integer
FileOpen(1, "C:\1060303.txt", OpenMode.Input
)
Input(1, n)
FileClose()
Dim c = 0
For i = 2 To n ^ 0.5
If n Mod i = 0 Then c += 1
Next
If c = 0 Then
TextBox3.Text = "第三題結果：" & n & " is a prime number."
Else
TextBox3.Text = "第三題結果：" & n & " is not a prime number."
End If
End Sub
'*******************************
'* 11900-1060304 Program Start *
'*******************************
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim i, h, w As Integer
Dim bmi, min As Integer
min = Integer.MaxValue
FileOpen(1, "C:\1060304.txt", OpenMode.Input
)
For i = 1 To 3
Input(1, h) : Input(1, w)
bmi = w / (h / 100) ^ 2
If bmi < min Then min = bmi
Next
FileClose()
Dim ans As String
If min >= 20 And min <= 25 Then ans = "正常" Else ans = "不正常"
TextBox4.Text = "第四題結果：最小 BMI 值=" & min & "，" & ans
End Sub
'*******************************
'* 11900-1060305 Program Start *
'*******************************
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim a(2, 2), b(2, 2), c(2, 2) As Integer
FileOpen(1, "C:\1060305.txt", OpenMode.Input
)
Input(1, a(1, 1)) : Input(1, a(1, 2))
Input(1, a(2, 1)) : Input(1, a(2, 2))
Input(1, b(1, 1)) : Input(1, b(1, 2))
Input(1, b(2, 1)) : Input(1, b(2, 2))
FileClose()
For i = 1 To 2
For j = 1 To 2
c(i, j) = a(i, j) + b(i, j)
Next
Next
TextBox5.Text = "第五題結果：" & vbNewLine & _
"[" & c(1, 1) & vbTab & c(1, 2) & "]" & vbNewLine & _
"[" & c(2, 1) & vbTab & c(2, 2) & "]"
End Sub
End Class
- 12月 13 週三 201709:48
11900-1060302
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim n As Integer FileOpen(1, "c:\1060302.txt", OpenMode.Input) Input(1, n) FileClose() Dim i, j As Integer Dim ans As String ans = "第二題結果：" & vbNewLine For i = 1 To n For j = 1 To i ans &= j Next ans &= vbNewLine Next TextBox2.Text = ans End Sub
研究報告 (6)