vb.net 遞增遞減問題

littlescott

我想了很久一直沒辦法圖破
設3個變數
x = 1000
y = 6
z = 100
在 Button1執行......
y是按的次數,按6下

前3下x+z遞增上去
後3下x-z遞減下去
當中x要恢復到1000.....

所以每按一次輸出一次,分別如下:
x=1100, y=5
x=1200 ,y=4
x=1300 ,y=3
x=900 ,y=2
x=800 ,y=1
x=700 ,y=0

第一次到手的問我覺得很簡單
寫的時候發現變數上有一堆疑問
...

瀏覽完整內容，請先 註冊 或 登入會員

littlescott

是y=3後x要回復到1000
前3次
x=1100,1200,1300
之後回復到1000......
後3次
x=900,800,700

補充內容 (2013-4-16 11:28 PM):
這是我寫的範例....
其實y值是將來要給使用者輸入
算是一個不定值
可能是6或5或8

所以我盡可能設想判斷式是y > y / 2而不是y>3

bauann

Click裡面去Dim y = 6，每次的Click不是都會把y設定回6嗎？那下面的判斷永遠都會是大於的..
另外Dim 後面沒有加上型別，這是不好的習慣，變數應該要明確指定他是什麼類型的...

bauann

for example

1.     Dim y As Integer = 6
   
2.     Dim x As Integer = 1000
   
3.     Dim z As Integer = 100
   
4. 
   
5.     Dim clickcount As Integer = 0
   
6. 
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If clickcount < (y \ 2) Then
   
9.             Debug.Print(x + (z * (clickcount + 1)))
   
10.         Else
    
11.             Debug.Print(x - (z * (clickcount + 1 - (y \ 2))))
    
12.         End If
    
13.         clickcount += 1
    
14.     End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

gpgpi

我的做法是，分成兩個Function下去做運算，判斷y的值選擇要用哪個Function運算。
y>=4以後的Function，計算時要先將y-3，讓y可以從1開始。
這樣就很簡單囉，我就只貼程式碼，不附上程式了!

1. Public Class Form1
   
2.     Dim y As Integer = 0
   
3.     Dim x As Integer
   
4.     Dim z As Integer = 100
   
5.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
6.         y += 1
   
7.         If y <= 3 Then
   
8.             xyz(y)
   
9.         Else
   
10.             xyz1(y)
    
11.         End If
    
12.     End Sub
    
13.     Function xyz(ByVal count)
    
14.         x = 1000 + z * y
    
15.         Debug.Print(x)
    
16.         Debug.Print(y)
    
17.         Return x
    
18.     End Function
    
19.     Function xyz1(ByVal count)
    
20.         x = 1000 - z * (y - 3)
    
21.         Debug.Print(x)
    
22.         Debug.Print(y)
    
23.         Return x
    
24.     End Function
    
25. End Class

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

littlescott

1. Public Class Form1
   
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
3.         Static x As Integer = 1000
   
4.         Static y As Integer = 6
   
5.         Dim z As Integer = 100
   
6. 
   
7.         Static Ynum As Integer
   
8.         Static num As Integer
   
9.         If num = 0 Then
   
10.             Ynum = y
    
11.             num += 1
    
12.         End If
    
13.         If Ynum / 2 >= y Then
    
14.             If num = 1 Then
    
15.                 x = x + ((Ynum - y) * z)
    
16.                 num += 1
    
17.             End If
    
18.             x = x + z
    
19.             y = y - 1
    
20.         Else '後半段遞減
    
21.             x = x - z
    
22.             y = y - 1
    
23.         End If
    
24.         ListBox1.Items.Add("x = " & x & "  y = " & y)
    
25.     End Sub
    
26. End Class

複製代碼

參考大家的意見我也自己寫了一個
...

瀏覽完整內容，請先 註冊 或 登入會員

jameswung

怎麼用這麼多static ?
是有什麼用意嗎?

littlescott

指定一或多個宣告的區域變數仍會存在，並在宣告它們的程序終止之後保持其最新的值。

以下有一些例子：
Private Sub Form_Click()
Dim A As Integer
A = A + 1
Print A
End Sub

結果：
1
1
1
1
1

Private Sub Form_Click()

Static A as Integer
A = A + 1
Print A
End Sub
結果：

...

瀏覽完整內容，請先 註冊 或 登入會員

littlescott

littlescott 發表於 2013-4-27 08:19 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

指定一或多個宣告的區域變數仍會存在，並在宣告它們的程序終止之後保持其最新的值。

以下有一些例子：

...

瀏覽完整內容，請先 註冊 或 登入會員