none
想请教如何通过count算出该有的数量后在分割算出多余的数量 RRS feed

  • 问题

  • 我篇写了有关算出总数量后在分割算出多余数量的代码。以下是我的代码。我发现当我的extra count 方面不适用于算出多余的count的数量 想请各位指点指点。

    当数量是10/10 其他多余的数量就会算在extra 的位置

    total quantity 还是会继续的算出总数获得了多少, Extra 就会算出总数10/10 多余了多少quantity。

     

      Private Sub SumCount()

            Dim A As Double 'set a as item
            Dim c As Double = TextBox3.Text

            count = count + 1

            For i = 1 To count
                If Label3.Text = "10" Then
                    Seperate()
                Else
                    Label3.Text = CStr(count + A)

                End If
            Next i

            TextBox3.Text = count + A

        End Sub

        Private Sub Seperate()

            Dim Total As Double
            Dim ExtraQty As Double
            Total = TextBox3.Text
            ExtraQty = Label5.Text

            If Total = 10 Then
                Label5.Text = Total - ExtraQty
            Else
                Label5.Text = Total - 10
            End If

    End Sub

    希望大家指教指教


    2021年3月17日 6:14

答案

  • Hi christing,

    根据你的描述,我做了一个测试。

    看看以下代码是否对你有帮助。

        Dim count As Integer = 0
        Private Sub SumCount()
            count = count + 1
    
            If count > 10 Then
                Label3.Text = "10"
                Label5.Text = "+" & (count - 10).ToString
            Else
                Label3.Text = count
            End If
            TextBox3.Text = count
        End Sub

    如果我有任何误解或者你有任何关于此的问题,请让我知道。

    Best Regards,

    Xingyu Zhao


    Visual Basic and CLR forum will be migrating to a new home on Microsoft Q&A! (VB.NET and CLR) We invite you to post new questions in the new home on Microsoft Q&A ! For more information, please refer to the sticky post(VB.NET and CLR).

    • 已标记为答案 christing 2021年3月19日 8:53
    2021年3月19日 7:51
    版主

全部回复

  • Hi christing,

    能否详细描述你想要实现怎样的计算。

    在我的测试中出现了一些问题, 比如 Total 小于 10时会得到负数,以及为什么 Label3.Text = "1" 时才调用 Seperate()方法,Label3.Text 的值是如何减少或者等于1的。

    我们需要更多的信息进行测试以及分析你的问题。

    期待你的更新。

    Best Regards,

    Xingyu Zhao


    Visual Basic and CLR forum will be migrating to a new home on Microsoft Q&A! (VB.NET and CLR) We invite you to post new questions in the new home on Microsoft Q&A ! For more information, please refer to the sticky post(VB.NET and CLR).

    2021年3月17日 8:49
    版主
  • @Xing Yu Zhao

    感谢你的答复

    以及为什么 Label3.Text = "1" 时才调用 Separate()方法,Label3.Text 的值是如何减少或者等于1的。

    我输入错 Label3.Text = "10" 的资料。

    我的目的其实是当count值达到10/10时,多余10的会count在extra的位置lable5.text 但total 还是会继续增加

    2021年3月19日 3:43
  • Hi christing ,

    通过测试我无法完全理解你的问题,仍然有一些问题需要确认。

    count 的值是否与 Total 相关? count 的值如何设置?

    SumCount()函数会在什么情况下被使用?

    TextBox3.Text 的值是多少?(如果不设置会在 Total = TextBox3.Text 时直接报错) 

    A 代表的意义是什么?

    你可以提供完整的代码或者阐述到底想要实现怎样的功能。

    Best Regards,

    Xingyu Zhao


    Visual Basic and CLR forum will be migrating to a new home on Microsoft Q&A! (VB.NET and CLR) We invite you to post new questions in the new home on Microsoft Q&A ! For more information, please refer to the sticky post(VB.NET and CLR).

    2021年3月19日 6:18
    版主
  • hi xing yu zhao 

    感谢你的答复

    count 的值是否与 Total 相关

    》》是的

    count 的值如何设置?

    》》count 值一开始为0 ,当user click button 一下就会+1 +1 以此类推的计算

    SumCount()函数会在什么情况下被使用?

    》》当user click button 时就会使用到sum count的功能

    TextBox3.Text 的值是多少?

    》》 textbox3.text 一开始的值为0 textbox3是记录button 按了多少次的值。A 代表的意义是什么?

    》》A 只是我设置的一个dim 来实现user click了button多少次数的dim

    你可以提供完整的代码或者阐述到底想要实现怎样的功能。

    好的,抱歉是我说的不好让你不好理解。我想篇写一个button按了多少次数的program,当button按到10次以后,program会自动将10以后的次数分开+1 在并呈现在label5.text中

    并且会记录total count 是多少

    比如

    一开始我的program是 0/10

    当我click button到 10/10 时

    如果我在继续click button的话,label5.text 就会变成 +1

    total 就会变成11

    我total按了11次button。

    10/10

    extra +1

    total = 11



    2021年3月19日 7:04
  • Hi christing,

    根据你的描述,我做了一个测试。

    看看以下代码是否对你有帮助。

        Dim count As Integer = 0
        Private Sub SumCount()
            count = count + 1
    
            If count > 10 Then
                Label3.Text = "10"
                Label5.Text = "+" & (count - 10).ToString
            Else
                Label3.Text = count
            End If
            TextBox3.Text = count
        End Sub

    如果我有任何误解或者你有任何关于此的问题,请让我知道。

    Best Regards,

    Xingyu Zhao


    Visual Basic and CLR forum will be migrating to a new home on Microsoft Q&A! (VB.NET and CLR) We invite you to post new questions in the new home on Microsoft Q&A ! For more information, please refer to the sticky post(VB.NET and CLR).

    • 已标记为答案 christing 2021年3月19日 8:53
    2021年3月19日 7:51
    版主