小柯的文章貼簿

資料來源：九號空間 阿里哥

活動剪影

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

很久沒有寫部落格文章了
來補一下最近的動態...

感謝台中二中同學的熱情，以及渴望的態度，今天利用下午他校的社課時間，成功的把二中同學們帶到台中家商，進行一個不可能的任務，因為這是第一次以不同的軟體進行雷射切割教學，尤其是兩天前臨時決定要更換軟體，一個很不熟悉的軟體，感謝二中科技應用社社長及公關這段時間負責聯絡及安排統籌，讓今天的課程，能夠順利在時間內圓滿結束。

至於照片嗎...請學妹上傳再幫我標註吧...

"實現您的夢想"，這句話，我去年放在我的講義教材的封面，作為期許自己及社團同學的勉勵，這句話，曾經是Slogan，今天，我可以很開心的公開。我！實！現！了！

謝謝這兩年來因為緣分相遇的朋友們，小弟感激不盡，因為你們，成就了今天的柯永誠！

二中X家商 合作成功
感謝阿哲及翎凱姐姐的協助。

忙了幾天，終於有辦法坐下來寫真實的心得了

很感謝禮拜五台中二中科技應用社安排學生公假來本校幸福創客工坊參觀

其中更要感謝林佩蓉跟他們社團的公關同學以訊息的方式跟我確認細節

才能夠這麼順利的進行

我也很給力的應他們老師的需求

放棄了我原本常用的建模工具(Illustrator)

轉而使用他們社團平時在教學的免費軟體(Inkscape)

課後，我還在擔心我有沒有教到真的實用的東西

因為決定要更換軟體是課前兩天臨時決定的

並且重新開課程菜單

是一個非常不可能的任務

其實，我在禮拜五的課堂上

教給同學的，不僅僅是單純的技術

而是同學真正實用的電腦技能

如果同學有仔細聽的話並且實踐他就會有更方便有效的管理檔案

以及課堂筆記

不過我覺得還蠻開心的是

能夠跟同學們分享真走過的痕跡

這是我這幾年真的體驗過的”人生哲學”

期許同學們能夠真正的實現他們心中所種下的理想

只有真走過，才能證明枯燥的理論

共勉之。

最後，再一次感謝台中二中科技應用社給我這次的教學機會！

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

困惑多天的華碩問題終於解決了
我先表示一下，我是個高中學生
因為之前家父的推薦，所以我的第一支真正擁有的手機就是華碩品牌，服役了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兩位小編解答。

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

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

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

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

        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

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()

台中家商 小柯 發表在 痞客邦 留言(0) 人氣()