visual basic 2015問題 急~

happyjimmy00000

請問如果想要把下列每個熱量的數值直接總和在一個TEXTBOX 內請問要怎麼寫程式碼?
以下附件截圖為的目前執行出來的程式檔




以下是目前程式碼

1. Public Class Form1
   
2. 
   
3.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
4. 
   
5.         Dim clickedCount = 0
   
6.         If Button1.Tag <> Nothing Then
   
7.             Int32.TryParse(Button1.Tag.ToString(), clickedCount)
   
8.         End If
   
9.         clickedCount += 1
   
10.         DoSomethingAccordingToClickedCount(clickedCount)
    
11.         Button1.Tag = clickedCount
    
12.     End Sub
    
13. 
    
14.     Private Sub DoSomethingAccordingToClickedCount(clickedCount As Integer)
    
15.         'Todo:
    
16.         If clickedCount = 1 Then
    
17.             Randomize()
    
18.             Select Case Int((3) * Rnd())
    
19.                 Case Is = 0
    
20.                     Label1.Text = "麵 350大卡"
    
21.                 Case Is = 1
    
22.                     Label1.Text = "飯 370大卡"
    
23.                 Case Is = 2
    
24.                     Label1.Text = "水餃 400大卡"
    
25.             End Select
    
26. 
    
27.         End If
    
28. 
    
29.         If clickedCount = 2 Then
    
30.             Randomize()
    
31.             Select Case Int((3) * Rnd())
    
32.                 Case Is = 0
    
33.                     Label2.Text = "空心菜  150大卡"
    
34.                 Case Is = 1
    
35.                     Label2.Text = "湯匙菜  160大卡"
    
36.                 Case Is = 2
    
37.                     Label2.Text = "高麗菜  180大卡"
    
38.             End Select
    
39.         End If
    
40.         If clickedCount = 3 Then
    
41.             Randomize()
    
42.             Select Case Int((3) * Rnd())
    
43.                 Case Is = 0
    
44.                     Label3.Text = "蔥爆牛肉  250大卡"
    
45.                 Case Is = 1
    
46.                     Label3.Text = "炸排骨  280大卡"
    
47.                 Case Is = 2
    
48.                     Label3.Text = "三杯雞  260大卡"
    
49.             End Select
    
50.         End If
    
51.         If clickedCount = 4 Then
    
52.             Randomize()
    
53.             Select Case Int((3) * Rnd())
    
54.                 Case Is = 0
    
55.                     Label4.Text = "涼拌黃瓜  180大卡"
    
56.                 Case Is = 1
    
57.                     Label4.Text = "皮蛋豆腐  190大卡"
    
58.                 Case Is = 2
    
59.                     Label4.Text = "海澤皮  150大卡"
    
60.             End Select
    
61.         End If
    
62.         If clickedCount = 5 Then
    
63.             Randomize()
    
64.             Select Case Int((3) * Rnd())
    
65.                 Case Is = 0
    
66.                     Label5.Text = "南瓜湯  250大卡"
    
67.                 Case Is = 1
    
68.                     Label5.Text = "玉米濃湯  230大卡"
    
69.                 Case Is = 2
    
70.                     Label5.Text = "紫菜蛋花湯  150大卡"
    
71.             End Select
    
72.         End If
    
73.     End Sub
    
74. End Class

複製代碼

小弟真的不知道該如何修改程式碼，跪求大大解答，很急~~謝謝

...

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

sggleeee

首先, 請先Imports System.Text.RegularExpressions

再來請在您的Button1_Click 那個 Subroutine 的 Button1.Tag = clickedCount 那行底下加入如下代碼, 我想應該就能達到您的需求...

1. If clickedCount <= 5 Then
   
2.             TextBox1.Text = (Val(Regex.Replace(TextBox1.Text, "[^0-9]", "")) +
   
3.                              Val(Regex.Replace(Me.Controls("Label" & _
   
4.                              clickedCount.ToString()).Text, "[^0-9]", ""))) & "大卡"
   
5. End If

複製代碼

...

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