Module Module1

    Sub Main()

        stars()
        Console.WriteLine("Mathemagenesis")
        stars()
        Console.ReadKey()

        Dim character As Char
        Dim number As Integer
        character = "_"
        number = 13
        Console.WriteLine("Η μεταβλητή number στην αρχή της main {0}", number)
        stars(number, character)
        Console.WriteLine("Mathemagenesis")
        stars(13, "_")
        Console.WriteLine("Η μεταβλητή number στο τέλος της main {0}", number)

        Console.WriteLine("Προαιρετικές τιμές σε μεταβλητές")
        ektiposh()
        ektiposh(, "_")
        ektiposh(2)
        counter()
        counter()
        counter()
        counterdim()
        counterdim()
        counterdim()
        Console.ReadKey()

    End Sub
    Sub stars()
        Console.WriteLine("**************")
    End Sub
    'Sub stars()
    '    Dim count As Integer
    '    For count = 0 To 13
    '        Console.Write("*")
    '    Next
    '    Console.WriteLine("")
    'End Sub 
    Sub counterdim()
        Dim count As Integer
        count = count + 1
        Console.WriteLine("έχετε καλέσει τη διαδικασία συνολικό {0} φορές", count)

    End Sub

    Sub counter()
        Static count As Integer
        count = count + 1
        Console.WriteLine("έχετε καλέσει τη διαδικασία συνολικό {0} φορές", count)

    End Sub
    Sub ektiposh(Optional ByVal count As Integer = 14, Optional ByVal ch As Char = "*")
        Dim i As Integer
        For i = 1 To count
            Console.Write(ch)
        Next
        Console.WriteLine()
    End Sub

    Sub stars(ByRef number As Integer, ByRef character As Char)
        For count As Integer = 0 To number
            Console.Write(character)
        Next
        Console.WriteLine("")
        number = 10

        Console.WriteLine("Η μεταβλητή number μέσα στη stars {0}", number)

    End Sub




End Module
