如何轉入選擇案例

Question

問題是，我基本上在VB.NET中使用If語句編寫了一個Rock Paper Scissors遊戲，並想知道我將如何嘗試將其應用到Select Case中。

教授在教學東西很可怕，並沒有讓我們知道，直到今天，它已成爲選擇案例（其應有的明天._。）

公共類Form1中

Dim randomGenerator As New Random 


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 


    Private Sub rdoROCK_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoROCK.CheckedChanged 
     If rdoROCK.Checked = True Then 
      picROCK.Visible = True 
     Else 
      picROCK.Visible = False 
     End If 
    End Sub 

    Private Sub rdoPAPER_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoPAPER.CheckedChanged 
     If rdoPAPER.Checked = True Then 
      picPAPER.Visible = True 
     Else 
      picPAPER.Visible = False 
     End If 
    End Sub 

    Private Sub rdoSCISSORS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoSCISSORS.CheckedChanged 
     If rdoSCISSORS.Checked = True Then 
      picSCISSORS.Visible = True 
     Else 
      picSCISSORS.Visible = False 
     End If 
    End Sub 


    Private Sub btnSTART_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSTART.Click 
     Dim computerChoice As Integer 

     randomGenerator.Next(1, 4) 
     computerChoice = randomGenerator.Next(1, 4) 

     'If computerChoice = 1 Then 
     'picROCK2.Visible = True 
     'ElseIf computerChoice = 2 Then 
     'picPAPER2.Visible = True 
     'ElseIf computerChoice = 3 Then 
     'picSCISSORS2.Visible = True 
     'End If 

     If computerChoice = 1 Then 
      picROCK2.Visible = True 
      If rdoROCK.Checked = True Then 
       lbltie.Visible = True 
      ElseIf rdoPAPER.Checked = True Then 
       lblwin.Visible = True 
      ElseIf rdoSCISSORS.Checked = True Then 
       lbllose.Visible = True 
      End If 
     End If 

     If computerChoice = 2 Then 
      picPAPER2.Visible = True 
      If rdoROCK.Checked = True Then 
       lbllose.Visible = True 
      ElseIf rdoPAPER.Checked = True Then 
       lbltie.Visible = True 
      ElseIf rdoSCISSORS.Checked = True Then 
       lblwin.Visible = True 
      End If 
     End If 

     If computerChoice = 3 Then 
      picSCISSORS2.Visible = True 
      If rdoROCK.Checked = True Then 
       lblwin.Visible = True 
      ElseIf rdoPAPER.Checked = True Then 
       lbllose.Visible = True 
      ElseIf rdoSCISSORS.Checked = True Then 
       lbltie.Visible = True 
      End If 
     End If 




    End Sub 

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblwin.Click 

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     picROCK.Visible = False 
     picROCK2.Visible = False 
     picPAPER2.Visible = False 
     picPAPER.Visible = False 
     picSCISSORS.Visible = False 
     picSCISSORS2.Visible = False 
     lblwin.Visible = False 
     lbltie.Visible = False 
     lbllose.Visible = False 
     rdoROCK.Checked = False 
     rdoPAPER.Checked = False 
     rdoSCISSORS.Checked = False 

    End Sub 
End Class 

Answer 1

你可以使用重構你的代碼Select Case：

Select Case rdoROCK.Checked 
     Case True 
      picROCK.Visible = True 
     Case False 
      picROCK.Visible = False 
End Select 

或者爲了簡潔：

picROCK.Visible = rdoROCK.Checked 

到你的主，我會創建一個枚舉，以及對可讀性：

Enum RPS 
    Paper = 1 
    Rock = 2 
    Scissors = 3 
End Enum 

'now deciding what to show for win, lose or draw: 
    Select Case computerChoice 
     Case RPS.Paper 
      UpdateFormOnPaper() 
     Case RPS.Rock 
      UpdateFormOnRock() 
     Case RPS.Scissors 
      UpdateFormOnScissors() 
    End Select 

'a method to update the for Win, Lose or Draw for each choice. 
Sub UpdateFormOnRock()   
    picROCK2.Visible = True 

    Select Case True 
     Case rdoROCK.Checked 
      lbltie.Visible = True 
     Case rdoPAPER.Checked 
      lblwin.Visible = True 
     Case rdoSCISSORS.Checked 
      lbllose.Visible = True 
    End Select 
End Sub 

Answer 2

我相信你正在尋找的1，2，或3是你Select Case - 它看起來會是像：

Select Case computerChoice 
    Case 1 
     ' Do what's currently in your [if computerChoice = 1] section 
    Case 2 
     ' Do what's currently in your [if computerChoice = 2] section 
    Case 3 
     ' Do what's currently in your [if computerChoice = 3] section 
End Select