小柯@TCHCVS

2018年8月2日星期四

打卡送贈品--手機平板架

2018年6月6日星期三

社團經營-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

2018年5月15日星期二

華碩問題-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兩位小編解答。

2018年5月1日星期二

trashcleaner.bat

@echo off

echo 正在清除系統垃圾文件，請稍等......

del /f /s /q %systemdrive%\*.tmp

del /f /s /q %systemdrive%\*._mp

del /f /s /q %systemdrive%\*.log

del /f /s /q %systemdrive%\*.gld

del /f /s /q %systemdrive%\*.chk

del /f /s /q %systemdrive%\*.old

del /f /s /q %systemdrive%\recycled\*.*

del /f /s /q %vindir%\*.bak

del /f /s /q %vindir%\prefetch\*.

rd /s /q %vindir%\temp & md %vindir%\temp

del /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

2018年4月21日星期六

計算數字為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

2018年1月31日星期三

求最大公因數的三種表示法

一

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

2017年12月20日星期三

軟體設計丙級術科程式碼

1060301至1060305

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

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

ans &= vbNewLine

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

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

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)

TextBox5.Text = "第五題結果：" & vbNewLine & _

"[" & c(1, 1) & vbTab & c(1, 2) & "]" & vbNewLine & _

"[" & c(2, 1) & vbTab & c(2, 2) & "]"

End Sub

End Class

2017年12月13日星期三

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

ans &= vbNewLine

TextBox2.Text = ans

End Sub

11900-1060301

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

If n = n1 Then

TextBox1.Text = "第一題結果：" & n & " is a palindrome"

Else

TextBox1.Text = "第一題結果：" & n & " is not a palindrome"

End If

End Sub

2017年11月15日星期三

1115社團研習_雷射雕刻機基礎操作-手機平板架

訂閱：文章 (Atom)

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

2018年8月2日 星期四

2018年6月6日 星期三

2018年5月15日 星期二

2018年5月1日 星期二

2018年4月21日 星期六

2018年1月31日 星期三

2017年12月20日 星期三

2017年12月13日 星期三

2017年11月15日 星期三

2018年8月2日星期四

2018年6月6日星期三

2018年5月15日星期二

2018年5月1日星期二

2018年4月21日星期六

2018年1月31日星期三

2017年12月20日星期三

2017年12月13日星期三

2017年11月15日星期三