Как упростить сложный 4k строк, если блок? - PullRequest
Новая
       13

Как упростить сложный 4k строк, если блок?

0 голосов
/ 02 июля 2018

Я пробовал дело, но мне не понравилось может быть белый "передний цикл или время"
Я использую Visual Basic 2016

У меня есть 10 флажков, 3 случайных числа от 0 до 9,
Если 3 флажка белого цвета, проверяются те же 3 числа, что и «случайно сгенерированные», текстовое поле становится "то же число, что и 3 числа"

это изображение флажка и текстового поля: Ссылка
Это огромное упрощение 

        If primoR = 0 Then
        If CheckBox10.Checked Then
            If secondoR = 1 Then
                If CheckBox1.Checked Then
                    If terzoR = 2 Then
                        If CheckBox2.Checked Then
                            TextBox1.BackColor = Color.Green
                        End If
                    ElseIf terzoR = 3 Then
                        If CheckBox3.Checked Then
                            TextBox1.BackColor = Color.Green
                        End If
                    Else
                        TextBox1.BackColor = Color.Black
                    End If
                End If
            End If

        End If
    ElseIf primoR = 1 Then
        If secondoR = 1 Then
            If CheckBox1.Checked Then
                If terzoR = 2 Then
                    If CheckBox2.Checked Then
                        TextBox1.BackColor = Color.Green
                    End If
                ElseIf terzoR = 3 Then
                    If CheckBox3.Checked Then
                        TextBox1.BackColor = Color.Green
                    End If
                Else
                    TextBox1.BackColor = Color.Black
                End If
            End If
        ElseIf secondoR = 2 Then

            If CheckBox2.Checked Then
                If terzoR = 2 Then
                    If CheckBox2.Checked Then
                        TextBox1.BackColor = Color.Green
                    End If
                ElseIf terzoR = 3 Then
                    If CheckBox3.Checked Then
                        TextBox1.BackColor = Color.Green
                    End If
                Else
                    TextBox1.BackColor = Color.Black
                End If
            End If
        End If
    ElseIf primoR = 2 Then
        'ecc...
    Else
        TextBox1.BackColor = Color.Black
    End If
    'checkbox10 = 0 , checkbox1 = 1, checkbox1 = 2

Вот полный код

Ответы [ 2 ]

0 голосов
/ 08 июля 2018 
Private randomNumbers As New Random
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim randomNumber1 As Integer = randomNumbers.Next(0, 10)
    Dim randomNumber2 As Integer = randomNumbers.Next(0, 10)
    Dim randomNumber3 As Integer = randomNumbers.Next(0, 10)
    Label1.Text = (randomNumber1 + 1).ToString
    Label2.Text = (randomNumber2 + 1).ToString
    Label3.Text = (randomNumber3 + 1).ToString

    Dim checkA = CType(Me.Controls.Item($"CheckBox{randomNumber1 + 1}"), CheckBox)
    Dim checkB = CType(Me.Controls.Item($"CheckBox{randomNumber2 + 1}"), CheckBox)
    Dim checkC = CType(Me.Controls.Item($"CheckBox{randomNumber3 + 1}"), CheckBox)

    If checkA.Checked AndAlso checkB.Checked And checkC.Checked Then
        TextBox1.BackColor = Color.Green
    Else
        TextBox1.BackColor = Color.Black
    End If
End Sub
0 голосов
/ 03 июля 2018

Вы не говорите, что это за язык, поэтому я не знаю, является ли это VBA (из приложения Office), VB6 или VB.Net или что-то еще. Так что это может не сработать из коробки - но это должно дать вам отправную точку для работы. 

  Green = False
  For primoR = 0 To 9
      If CType(Me.Controls("Checkbox" & IIf(primoR = 0, 10, primoR)), CheckboxBox).Checked Then
      For secondoR = 1 To 9
          If CType(Me.Controls("Checkbox" & IIf(secondoR = 0, 10, secondoR)), CheckboxBox).Checked Then
          For terzoR = 0 To 9
              If CType(Me.Controls("Checkbox" & IIf(terzoR = 0, 10, terzoR)), CheckboxBox).Checked Then
                  Green = True
              End If
          Next
      End If
  Next
  TextBox1.BackColor = IIf(Green, Color.Green, Color.Black)
...