小柯的文章貼簿

(繼續閱讀...)

台中家商 小柯 發表在 痞客邦 留言(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) 人氣()

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

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

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

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