伊莉討論區

標題: 厲害的來看一下 到底哪邊錯了Q.Q [打印本頁]
作者: 復仇刺    時間: 2020-4-30 02:25 PM     標題: 厲害的來看一下 到底哪邊錯了Q.Q

厲害的來看一下 到底哪邊錯了Q.Q
為什會跑錯誤

我照書做 為什有錯誤Q.Q

Public Class Timer
    'Timer控制項範例
    Dim min As Integer = 0 : Dim sec As Integer
    Dim a As Integer = 0 : Dim b As Integer = 0

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Timer1.Interval = 10
        b += 1
        If b = 10 Then
            b = 0
            a += 1
            If a = 10 Then
                a = 0
                sec += 1
                TrackBar1.Value += 1
                If TrackBar1.Value = 60 Then
                    TrackBar1.Value = 0
                    If sec = 60 Then
                        sec = 0
                        min += 1
                    End If
                End If
            End If
        End If
        TextBox1.Text = min & "分" & sec & "秒" & a & b

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        min = 0 : sec = 0 : a = 0 : b = 0 : TrackBar1.Value = 0
        TextBox1.Text = min & "分" & sec & "秒" & a & b
    End Sub
End Class
[attach]131480251[/attach]

[attach]131480252[/attach]

[attach]131480254[/attach]

[attach]131480255[/attach]



作者: tryit244178    時間: 2020-5-1 08:10 AM

我複製你的程式碼來跑，完全沒問題耶…
從你的錯誤訊息來看是TrackBar1.Value加到61了…
作者: 復仇刺    時間: 2020-5-1 12:38 PM

tryit244178 發表於 2020-5-1 08:10 AM
我複製你的程式碼來跑，完全沒問題耶…
從你的錯誤訊息來看是TrackBar1.Value加到61了… ...

你好啊感謝您的回答@@"我註解掉那兩行 還是會在即時運算視窗出現這個警示
可程式會跑了@@"
但會有以下的警示 不知是正常現象@@?
第一個可能發生的例外狀況類型 'System.ArgumentOutOfRangeException' 發生於 System.Windows.Forms.dll
第一個可能發生的例外狀況類型 'System.ArgumentOutOfRangeException' 發生於 System.Windows.Forms.dll




Public Class Timer
    'Timer控制項範例
    Dim min As Integer = 0 : Dim sec As Integer
    Dim a As Integer = 0 : Dim b As Integer = 0

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Timer1.Interval = 10
        b += 1
        If b = 10 Then
            b = 0
            a += 1
            If a = 10 Then
                a = 0
                sec += 1
                'TrackBar1.Value = 1
                If TrackBar1.Value = 60 Then
                    'TrackBar1.Value = 0
                    If sec = 60 Then
                        sec = 0
                        min += 1
                    End If
                End If
            End If
        End If
        TextBox1.Text = min & "分" & sec & "秒" & a & b

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        min = 0 : sec = 0 : a = 0 : b = 0 : TrackBar1.Value = 0
        TextBox1.Text = min & "分" & sec & "秒" & a & b
    End Sub
End Class

作者: tryit244178    時間: 2020-5-1 02:26 PM

復仇刺 發表於 2020-5-1 12:38 PM
你好啊感謝您的回答@@"我註解掉那兩行 還是會在即時運算視窗出現這個警示
可程式會跑了@@"
但會有以下的 ...

你設定TrackBar1.Value的值時，會觸發 TrackBar.ValueChanged事件
  1. If TrackBar1.Value = 60 Then
  2.    TrackBar1.Value = 0
  3.    If sec = 60 Then
  4.       sec = 0
  5.       min += 1
  6.    End If
  7. End If
複製代碼
把這段程式碼改寫在ValueChanged事件裡試試

補充內容 (2020-5-1 02:27 PM):
不需要把TrackBar1.Value +=1 和 TrackBar1.Value = 0 註解掉
作者: tvmateiii    時間: 2020-5-1 05:37 PM

TrackBar1.Maximum = 60
你應該是上面的值沒有去設定到~
所以才會這樣~
作者: 復仇刺    時間: 2020-5-1 11:21 PM

tryit244178 發表於 2020-5-1 02:26 PM
你設定TrackBar1.Value的值時，會觸發 TrackBar.ValueChanged事件把這段程式碼改寫在ValueChanged事件裡 ...

Public Class Timer
    'Timer控制項範例
    Dim min As Integer = 0 : Dim sec As Integer
    Dim a As Integer = 0 : Dim b As Integer = 0

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Timer1.Interval = 10
        b += 1
        If b = 10 Then
            b = 0
            a += 1
            If a = 10 Then
                a = 0
                sec += 1
                TrackBar1.Value += 1
            End If
        End If
        TextBox1.Text = min & "分" & sec & "秒" & a & b

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        min = 0 : sec = 0 : a = 0 : b = 0 : TrackBar1.Value = 0
        TextBox1.Text = min & "分" & sec & "秒" & a & b
    End Sub

    Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
        If TrackBar1.Value = 60 Then
            TrackBar1.Value = 0
            If sec = 60 Then
                sec = 0
                min += 1
            End If
        End If
    End Sub
End Class
作者: tryit244178    時間: 2020-5-2 10:58 AM

復仇刺 發表於 2020-5-1 11:21 PM
Public Class Timer
    'Timer控制項範例
    Dim min As Integer = 0 : Dim sec As Integer

如果還是不行的話，你可以去掉TrackBar1_ValueChanged()
然後把Timer1_Tick()改為
  1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

  3.    Timer1.Interval = 10
  4.    b += 1
  5.    If b = 10 Then
  6.       b = 0
  7.       a += 1
  8.       If a = 10 Then
  9.          a = 0
  10.          sec += 1
  11.          If sec = 60 Then
  12.             sec = 0
  13.             min += 1
  14.          End If
  15.       End If
  16.    End If
  17.    TrackBar1.Value = sec
  18.    TextBox1.Text = min & "分" & sec & "秒" & a & b

  20. End Sub
複製代碼
作者: tyfbbs    時間: 2020-5-2 06:31 PM

TrackBar1的Maximun等於60
修改一下判斷式就可以
TrackBar1.Value += 1
If TrackBar1.Value = 60 Then

改成
If TrackBar1.Value < 60 Then
    TrackBar1.Value += 1
Else
    TrackBar1.Value = 0
    '以下程式碼自行複製
End if
作者: 復仇刺    時間: 2020-5-2 06:43 PM

tryit244178 發表於 2020-5-2 10:58 AM
如果還是不行的話，你可以去掉TrackBar1_ValueChanged()
然後把Timer1_Tick()改為

先感謝師傅0.0.......
為什執行後滑鼠右鍵要改變顏色 不給右鍵....點了沒反應....是系統有問題還是....




Public Class ContextMenu
    '功能:快顯功能表範例
    Private Sub 綠色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 綠色ToolStripMenuItem.Click
        RichTextBox1.ForeColor = Color.Green '選擇「綠色」前景顏色變更

    End Sub

    Private Sub 黑色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 黑色ToolStripMenuItem.Click
        RichTextBox1.ForeColor = Color.Black '選擇「黑色」前景顏色變更
    End Sub

    Private Sub 黃色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 黃色ToolStripMenuItem.Click
        RichTextBox1.ForeColor = Color.Yellow '選擇「黃色」前景顏色變更

    End Sub

    Private Sub 紅色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 紅色ToolStripMenuItem.Click
        RichTextBox1.ForeColor = Color.Red '選擇「紅色」前景顏色變更
    End Sub
End Class
[attach]131528007[/attach]

[attach]131528009[/attach]

[attach]131528015[/attach]


作者: 復仇刺    時間: 2020-5-2 10:06 PM

tyfbbs 發表於 2020-5-2 06:31 PM
TrackBar1的Maximun等於60
修改一下判斷式就可以
TrackBar1.Value += 1

已改好
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 10
        b += 1
        If b = 10 Then
            b = 0
            a += 1
            If a = 10 Then
                a = 0
                sec += 1
                If TrackBar1.Value < 60 Then
                    TrackBar1.Value += 1
                Else
                    TrackBar1.Value = 0
                    '以下程式碼自行複製
                End If
                If sec = 60 Then
                    sec = 0
                    min += 1
                End If
            End If
        End If
        TextBox1.Text = min & "分" & sec & "秒" & a & b

    End Sub
作者: tryit244178    時間: 2020-5-2 11:06 PM

本帖最後由 tryit244178 於 2020-5-2 11:07 PM 編輯
復仇刺 發表於 2020-5-2 06:43 PM
先感謝師傅0.0.......
為什執行後滑鼠右鍵要改變顏色 不給右鍵....點了沒反應....是系統有問題還是....

你有把快顯選單設到 Form1.ContextMenuStript 裡嗎？
[attach]131531688[/attach]

作者: 復仇刺    時間: 2020-5-3 12:44 AM

tryit244178 發表於 2020-5-2 11:06 PM
你有把快顯選單設到 Form1.ContextMenuStript 裡嗎？

多謝師傅了@.@
設定後可以正常執行右鍵也可以更改顏色了@@感恩@@
[attach]131532189[/attach]

[attach]131532190[/attach]




作者: tryit244178    時間: 2020-5-3 01:52 AM

復仇刺 發表於 2020-5-3 12:44 AM
多謝師傅了@.@
設定後可以正常執行右鍵也可以更改顏色了@@感恩@@

RichTextBox裡也有那個屬性，設在那就只會出現在RichTextBox之上
作者: tryit244178    時間: 2020-5-4 11:49 PM

本帖最後由 tryit244178 於 2020-5-5 12:40 AM 編輯

閒著沒事，來點別的寫法
  1. Public Class Form1
  2.     Private microSecond As New Limit(10), milliSecond As New Limit(10)
  3.     Private sec As New Limit(60), min As New Limit(60)
  4.     Private carry10 As New Carrier(10)
  5.     Private carry60 As New Carrier(60)

  7.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  8.         milliSecond = 0
  9.         microSecond = 0
  10.         sec = 0
  11.         min = 0
  12.     End Sub

  14.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  15.         Timer1.Enabled = Not Timer1.Enabled
  16.     End Sub

  18.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  19.         milliSecond += 1
  20.         carry10.CheckCarry(microSecond, milliSecond)
  21.         carry10.CheckCarry(sec, microSecond)
  22.         carry60.CheckCarry(min, sec)
  23.         Label1.Text = CUInt(min) & "分：" & CUInt(sec) & "秒：" & CUInt(microSecond) & CUInt(milliSecond)
  24.     End Sub
  25. End Class

  27. Public Class Carrier
  28.     Private _carry As UInteger

  30.     Public Sub New(ByVal carry As UInteger)
  31.         _carry = carry
  32.     End Sub

  34.     Public Sub CheckCarry(ByRef highOrder As Limit, ByRef lowOrder As Limit)
  35.         If CUInt(lowOrder) = _carry Then
  36.             lowOrder = 0
  37.             highOrder += 1
  38.         End If
  39.     End Sub
  40. End Class

  42. Public Structure Limit
  43.     Private Shared _min As UInteger
  44.     Private Shared _max As UInteger
  45.     Private _value As UInteger

  47.     Public Sub New(ByVal Max As UInteger)
  48.         _min = 0
  49.         _max = Max
  50.     End Sub

  52.     Public Sub New(ByVal Min As UInteger, ByVal Max As UInteger)
  53.         _min = Min
  54.         _max = Max
  55.     End Sub

  57.     Public Shared Widening Operator CType(ByVal l As Limit) As UInteger
  58.         Return l._value
  59.     End Operator

  61.     Public Shared Narrowing Operator CType(ByVal value As UInteger) As Limit
  62.         If value < _min Or value > _max Then
  63.             'Throw New ArgumentOutOfRangeException(value & "超出範圍")
  64.             value = 0
  65.         End If

  67.         Dim result As New Limit(_min, _max)
  68.         result._value = value
  69.         Return result
  70.     End Operator

  72.     Public Shared Operator +(ByVal first As Limit, ByVal second As Limit) As Limit
  73.         Dim result As New Limit(_min, _max)
  74.         result = first._value + second._value
  75.         Return result
  76.     End Operator
  77. End Structure
複製代碼
作者: 復仇刺    時間: 2020-5-6 02:34 PM

本帖最後由 復仇刺 於 2020-5-6 02:38 PM 編輯
tryit244178 發表於 2020-5-3 01:52 AM
RichTextBox裡也有那個屬性，設在那就只會出現在RichTextBox之上

[attach]131595390[/attach]

[attach]131595395[/attach]

[attach]131595408[/attach]
[attach]131595745[/attach]
[attach]131595747[/attach]
[attach]131595753[/attach]

痾老實說我不知道他要寫在哪個事件裡@.@"
一般我都是click兩下去找事件= ="然後寫在裡面= =

然後由於沒有範例檔= =只好自己截圖做範例的圖= =
如果照範例步驟= =感覺.....


    Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
        '不知道程式碼不知道要寫在哪個事件

            Select Case ToolBar1.Buttons.indexof(e.Button)  '這行不明= =
            Case 0
                RichTextBox1.Font = New Font("新細明體", 12, FontStyle.Bold)
            Case 1
                RichTextBox1.Font = New Font("新細明體", 12, FontStyle.Italic)
            Case 2
                RichTextBox1.Font = New Font("新細明體", 12, FontStyle.Underline)
        End Select
    End Sub
[attach]131596138[/attach]
[attach]131596139[/attach]
[attach]131596140[/attach]
[attach]131596141[/attach]

[attach]131596143[/attach]
[attach]131596144[/attach]
[attach]131596145[/attach]
[attach]131596146[/attach]
[attach]131596147[/attach]
[attach]131596149[/attach]





作者: tryit244178    時間: 2020-5-6 03:16 PM

復仇刺 發表於 2020-5-6 02:34 PM
痾老實說我不知道他要寫在哪個事件裡@.@"
一般我都是click兩下去找事件= ="然後寫在裡面= =

事件可以從最上面的下拉式選單來選，像這樣
[attach]131596467[/attach]

關於不懂的部份…
Select Case…
http://it-easy.tw/selectcase/
這種教學，比起看微軟的文件，不如去看網友大大們的教學，會比較容易懂

e.Button…
簡單的說被點過的ToolBar會透過變數e傳給ToolStrip1的ItemClicked事件

然後再透過ToolBar1.Buttons.indexof(e.Button)得到被點選的物件的索引編號
如果是0就執行…如果是1就執行…如果是2就執行…


最後…如果貼圖超過10張…看的人好像會被扣點數…
回文的我不知道會不會扣就是…




歡迎光臨 伊莉討論區 (http://mail01.wahas.com/) Powered by Discuz!