'''' OEFENING 1 '''''
Module Module1

    Sub Main()

        'declaratie
        Dim keuze, teller, teller2 As Integer
        Dim lijn As String

        'invoer
        Console.WriteLine("Wat kies je?")
        Console.WriteLine(ControlChars.Tab & "1. Lijn")
        Console.WriteLine(ControlChars.Tab & "2. Stippellijn")
        Console.WriteLine(ControlChars.Tab & "3. Vierkant")
        Console.WriteLine(ControlChars.Tab & "4. Driehoek")
        Console.WriteLine(ControlChars.Tab & "5. Omgekeerde driehoek")
        Console.WriteLine(ControlChars.Tab & "9. Stoppen" & ControlChars.NewLine)
        keuze = Console.ReadLine

        'verwerking
        Select Case keuze
            Case 1
                For teller = 1 To 20
                    Console.Write("-")
                Next
            Case 2
                For teller = 1 To 10
                    Console.Write("-*")
                Next
            Case 3
                For teller = 1 To 10
                    lijn &= "*"
                Next
                For teller2 = 1 To 10
                    console.writeline(lijn)
                Next
            Case 4
                For teller = 1 To 5
                    lijn &= "*"
                    Console.WriteLine(lijn)
                Next
            Case 5
                For teller = 5 To 1 Step -1
                    For teller2 = 1 To teller
                        Console.Write("*")
                    Next
                    Console.WriteLine()
                Next
            Case 9
                Console.ReadLine()
                End
            Case Else
                Console.WriteLine("Geen geldige keuze")
        End Select

        'uitvoer

        'wacht op enter
        Console.ReadLine()

    End Sub

End Module



'''' OEFENING 2 '''''

Module Module1

    Sub Main()

        'declaratie
        Dim keuze As String
        Dim teller, teller2 As Integer

        'invoer
        Console.Write("Wens je een tekening te maken? (j/n) ")
        keuze = Console.ReadLine.ToLower

        'verwerking en uitvoer
        Do While Not keuze = "n"
            Console.WriteLine()
            Console.WriteLine("hier komt de driehoek:")
            For teller = 1 To 9
                For teller2 = 1 To teller
                    Console.Write(teller)
                Next
                Console.WriteLine()
            Next
            Console.Write("Wens je een tekening te maken? (j/n)")
            keuze = Console.ReadLine.ToLower
        Loop

            Console.Clear()

        'wachten op enter
        Console.Write("druk op enter")
        Console.ReadLine()

    End Sub

End Module