Entrar Ainda não tem acesso?
Solucionado (ver solução)
Solucionado
(ver solução)
3
respostas

logica extensa mais com mesmo resultado

Referente ao curso VB.NET com Windows Forms Parte 1, no capítulo Controle de fluxo com laços de repetição e atividade Criando uma tabuada

por Luiz Carlos de Oliveira Marinho
| 9.5k xp | 4 posts

Professor criei abaixo a logica mais extensa , com o mesmo resultado , é valido ou tenho usar a logica parecida com o seu exemplo.

Dim num1 As Integer = 1
        Dim num2 As Integer = 2
        Dim num3 As Integer = 3
        Dim contador1 As Integer = 1
        Dim contador2 As Integer = 1
        Dim contador3 As Integer = 1
        Dim resultado As String = ""
        Dim total1 As Integer
        Dim total2 As Integer
        Dim total3 As Integer



        For i As Integer = 1 To 10
            total1 = num1 * contador1
            resultado += "Numero  " + contador1.ToString + " X " + num1.ToString + " = " + total1.ToString + vbCrLf
            contador1 += 1

        Next

        For j As Integer = 1 To 10
            total2 = num2 * contador2
            resultado += "Numero  " + contador2.ToString + " X " + num2.ToString + " = " + total2.ToString + vbCrLf
            contador2 += 1
        Next
        For l As Integer = 1 To 10
            total3 = num3 * contador3
            resultado += "Numero  " + contador3.ToString + " X " + num3.ToString + " = " + total3.ToString + vbCrLf
            contador3 += 1
        Next
        MsgBox(resultado, MsgBoxStyle.Exclamation)

    End Sub
3 respostas
solução!
por Victorino Vila
| 123.6k xp | 134 posts
Instrutor Diretor de desenvolvimento

Luiz

Não importa o que você usa. Contanto que dê certo.

Programação é estilo. Da mesma maneira que um guitarrista tem seu jeito de tocar o instrumento o programador tem o seu de implementar um programa.

Tenha em mente algumas regras pétreas:

  • Sempre reaproveitar seu código. Não repetir mesmas coisas.
  • Comente sempre seu código para que você mesmo lembre do que fez.
  • Se você está programando em grupo (Desenvolvimento com equipes) se adapte as regras de programação do seu time.

Do resto é com você.

Att

Victorino. -

por Mateus Roman
| 90k xp | 102 posts

Opa, tudo bom Luiz Carlos, acabei vendo seu código, tenho algumas sugestões que podem lhe interessar.

Veja este exemplo, modifiquei algumas coisas sucintas

    Sub Main()

        CalcularTabuada()

    End Sub

    Sub CalcularTabuada()
        Dim num As Integer = 1
        Dim resultado As String = ""
        Dim total As Integer = 0

        For i As Integer = 1 To 10
            If i = 11 Then IncrementaNumZeraTotal(num, total)
            total = num * i
            resultado += $"Numero {i.ToString()} X {num.ToString()} = {total.ToString()} {vbCrLf}"
        Next

        MsgBox(resultado, MsgBoxStyle.Exclamation)

    End Sub


    Sub IncrementaNumZeraTotal(ByRef total As Integer, ByRef num As Integer)
        total = 0
        num += 1
    End Sub

Espero ter contribuído

por Mateus Roman
| 90k xp | 102 posts

Olá Luiz Carlos, tudo bom?

Se a resposta lhe ajudou ou resolveu sua dúvida, assinalar como Solucionada, afinal, outras pessoas podem estar com a mesma duvida.

Atenciosamente,

Mateus Roman