Die Community zu .NET und Classic VB.

Startseite / Tipps / VB.NET-Tipp 0031: Tabellen in der Konsole

VB.NET-Tipp 0031: Tabellen in der Konsole

Schwierigkeitsgrad:

Framework-Version(en): .NET Framework 1.0, .NET Framework 1.1, .NET Framework 2.0, .NET Framework 3.0, .NET Framework 3.5

.NET-Version(en): Visual Basic 2002, Visual Basic 2003, Visual Basic 2005, Visual Basic 2008

Download: Download des Beispielprojektes [1,3 KB]

' Dieser Quellcode stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' Projektversion:   Visual Studio 2002/2003
' Option Strict:    Aus
' Option Explicit:  An
'
' Referenzen: 
'  - System
'  - System.Data
'  - System.XML
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'  - System.Collections
'  - System.Data
'  - System.Diagnostics
'

' ##############################################################################
' ################################ modMain.vb ##################################
' ##############################################################################
Option Explicit On
Option Strict On

Imports System.Console

Public Module modMain
    Public Sub Main()
        PrintTable(13, 13)
        ReadLine()
    End Sub

    Private Sub PrintTable(ByVal intWidth As Integer, _
        ByVal intHeight As Integer)

        Dim intLine, intColumn As Integer
        For intLine = 1 To intHeight
            Write("|")
            For intColumn = 1 To intWidth
                If intColumn Mod 3 = 2 - (intLine Mod 3) Then
                    ' Oder (intColumn + (intLine Mod 3)) Mod 3 = 2.
                    Write("x")
                Else
                    Write(" ")
                End If
            Next intColumn
            WriteLine("|")
        Next intLine
    End Sub
End Module