#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Apr 2017
    Posts
    2
    Rep Power
    0

    For Loop Right Triangles using Visual Basic 2015


    Hello everyone,
    I am working on a mini project to display four right triangles in a text box as such:

    Pattern A
    B
    BB
    BBB
    BBBB
    BBBBB
    BBBBBB
    BBBBBBB
    BBBBBBBB
    BBBBBBBBB
    BBBBBBBBBB
    BBBBBBBBBBB
    BBBBBBBBBBBB
    BBBBBBBBBBBBB
    BBBBBBBBBBBBBB
    BBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBBB
    Pattern B
    BBBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBB
    BBBBBBBBBBBBBB
    BBBBBBBBBBBBB
    BBBBBBBBBBBB
    BBBBBBBBBBB
    BBBBBBBBBB
    BBBBBBBBB
    BBBBBBBB
    BBBBBBB
    BBBBBB
    BBBBB
    BBBB
    BBB
    BB
    B
    Pattern C
    BBBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBB
    BBBBBBBBBBBBBB
    BBBBBBBBBBBBB
    BBBBBBBBBBBB
    BBBBBBBBBBB
    BBBBBBBBBB
    BBBBBBBBB
    BBBBBBBB
    BBBBBBB
    BBBBBB
    BBBBB
    BBBB
    BBB
    BB
    B
    Pattern D
    B
    BB
    BBB
    BBBB
    BBBBB
    BBBBBB
    BBBBBBB
    BBBBBBBB
    BBBBBBBBB
    BBBBBBBBBB
    BBBBBBBBBBB
    BBBBBBBBBBBB
    BBBBBBBBBBBBB
    BBBBBBBBBBBBBB
    BBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBBB

    It can't be any more than 50 lines of code. My problem is between lines 17 to 30. I think it may be something simple as my math but I am not sure.

    PHP Code:
    Public Class Form1
        
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
            
    For 1 To 22
                
    For 1 To n
                    TextBox1
    .Text TextBox1.Text "B"
                
    Next
                TextBox1
    .Text TextBox1.Text vbNewLine
            Next
            TextBox1
    .Text TextBox1.Text vbNewLine
            
    For 22 To 1 Step -1
                
    For 1 To n
                    TextBox1
    .Text TextBox1.Text "B"
                
    Next
                TextBox1
    .Text TextBox1.Text vbNewLine
            Next
            TextBox1
    .Text TextBox1.Text vbNewLine
            
    For 22 To 1 Step -1
                
    For 1 To n
                    TextBox1
    .Text TextBox1.Text "B"
                
    Next
                TextBox1
    .Text TextBox1.Text vbNewLine
            Next
            TextBox1
    .Text TextBox1.Text vbNewLine
            
    For 22 To 1 Step -1
                
    For 22 To 1 Step -1
                    TextBox1
    .Text TextBox1.Text "B"
                
    Next
                TextBox1
    .Text TextBox1.Text vbNewLine
            Next
            TextBox1
    .Text TextBox1.Text vbNewLine
        End Sub
        
    Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
            TextBox1
    .Text ""
        
    End Sub
        
    Private Sub Button3_Click(sender As ObjectAs EventArgsHandles Button3.Click
            Me
    .Close()
        
    End Sub
    End 
    Class 
    I found and have used something similar in the forums; however, it is not specific enough to help me out fully. Thank you in advance for any and all help passed my way.
  2. #2
  3. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Apr 2017
    Posts
    2
    Rep Power
    0

    Smile Solved my own issue :)


    Originally Posted by ejholmes
    Hello everyone,
    I am working on a mini project to display four right triangles in a text box as such:

    Pattern A
    B
    BB
    BBB
    BBBB
    BBBBB
    BBBBBB
    BBBBBBB
    BBBBBBBB
    BBBBBBBBB
    BBBBBBBBBB
    BBBBBBBBBBB
    BBBBBBBBBBBB
    BBBBBBBBBBBBB
    BBBBBBBBBBBBBB
    BBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBBB
    Pattern B
    BBBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBB
    BBBBBBBBBBBBBB
    BBBBBBBBBBBBB
    BBBBBBBBBBBB
    BBBBBBBBBBB
    BBBBBBBBBB
    BBBBBBBBB
    BBBBBBBB
    BBBBBBB
    BBBBBB
    BBBBB
    BBBB
    BBB
    BB
    B
    Pattern C
    BBBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBB
    BBBBBBBBBBBBBB
    BBBBBBBBBBBBB
    BBBBBBBBBBBB
    BBBBBBBBBBB
    BBBBBBBBBB
    BBBBBBBBB
    BBBBBBBB
    BBBBBBB
    BBBBBB
    BBBBB
    BBBB
    BBB
    BB
    B
    Pattern D
    B
    BB
    BBB
    BBBB
    BBBBB
    BBBBBB
    BBBBBBB
    BBBBBBBB
    BBBBBBBBB
    BBBBBBBBBB
    BBBBBBBBBBB
    BBBBBBBBBBBB
    BBBBBBBBBBBBB
    BBBBBBBBBBBBBB
    BBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBB
    BBBBBBBBBBBBBBBBBBBBBB

    It can't be any more than 50 lines of code. My problem is between lines 17 to 30. I think it may be something simple as my math but I am not sure.

    PHP Code:
    Public Class Form1
        
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
            
    For 1 To 22
                
    For 1 To n
                    TextBox1
    .Text TextBox1.Text "B"
                
    Next
                TextBox1
    .Text TextBox1.Text vbNewLine
            Next
            TextBox1
    .Text TextBox1.Text vbNewLine
            
    For 22 To 1 Step -1
                
    For 1 To n
                    TextBox1
    .Text TextBox1.Text "B"
                
    Next
                TextBox1
    .Text TextBox1.Text vbNewLine
            Next
            TextBox1
    .Text TextBox1.Text vbNewLine
            
    For 22 To 1 Step -1
                
    For 1 To n
                    TextBox1
    .Text TextBox1.Text "B"
                
    Next
                TextBox1
    .Text TextBox1.Text vbNewLine
            Next
            TextBox1
    .Text TextBox1.Text vbNewLine
            
    For 22 To 1 Step -1
                
    For 22 To 1 Step -1
                    TextBox1
    .Text TextBox1.Text "B"
                
    Next
                TextBox1
    .Text TextBox1.Text vbNewLine
            Next
            TextBox1
    .Text TextBox1.Text vbNewLine
        End Sub
        
    Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
            TextBox1
    .Text ""
        
    End Sub
        
    Private Sub Button3_Click(sender As ObjectAs EventArgsHandles Button3.Click
            Me
    .Close()
        
    End Sub
    End 
    Class 
    I found and have used something similar in the forums; however, it is not specific enough to help me out fully. Thank you in advance for any and all help passed my way.
    To solve the problem I had to change the font used in the TextBox1 to lucida console. Then I removed some code and added some new ones.
    PHP Code:
    Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
            
    For 1 To 22
                
    For 1 To n
                    RichTextBox1
    .Text RichTextBox1.Text "B"
                
    Next
                RichTextBox1
    .Text RichTextBox1.Text vbNewLine
            Next
            RichTextBox1
    .Text RichTextBox1.Text vbNewLine
            
    For 22 To 1 Step -1
                
    For 1 To n
                    RichTextBox1
    .Text RichTextBox1.Text "B"
                
    Next
                RichTextBox1
    .Text RichTextBox1.Text vbNewLine
            Next
            RichTextBox1
    .Text RichTextBox1.Text vbNewLine
            offset 
    0
            
    For 22 To 1 Step -1
                
    If (offset 0Then
                    
    For 1 To offset
                        RichTextBox1
    .Text RichTextBox1.Text " "
                    
    Next
                End 
    If
                For 
    1 To n
                    RichTextBox1
    .Text RichTextBox1.Text "B"
                
    Next
                
    If (offset 21Then
                    offset 
    += 1
                End 
    If
                
    RichTextBox1.Text RichTextBox1.Text vbNewLine
            Next
            RichTextBox1
    .Text RichTextBox1.Text vbNewLine
            
    For 22 To 1 Step -1
                
    If (offset 0Then
                    
    For 1 To offset
                        RichTextBox1
    .Text RichTextBox1.Text " "
                    
    Next
                End 
    If
                For 
    22 To 1 Step -1
                    RichTextBox1
    .Text RichTextBox1.Text "B"
                
    Next
                offset 
    -= 1
                RichTextBox1
    .Text RichTextBox1.Text vbNewLine
            Next
            RichTextBox1
    .Text RichTextBox1.Text vbNewLine
        End Sub 

IMN logo majestic logo threadwatch logo seochat tools logo