Slet al text

Er der en clear screen funktion du leder efter ?

ja det tror jeg
hvordan ???

....skriver jeg den

Det er faktisk ikke nemt.

Jeg lavede engang dette grimme stykke kode:

Imports System
Imports System.Runtime.InteropServices

Class MainClass

    <DllImport("msvcrt.dll")> _
    Public Shared Function system(ByVal cmd As String) As Integer
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine("Hello world")
        system("CLS")
    End Sub
End Class

hvor skal denne kode placeres ???

Module Module1

    Sub Main()
        Dim mere = True
        Dim tal, a, b, r, h, g As Integer
        While mere
            Console.WriteLine("")
            Console.WriteLine("1. Areal af firkant")
            Console.WriteLine("2. Areal af cirkel")
            Console.WriteLine("3. Areal af trekant")
            Console.WriteLine("4. Om...")
            Console.WriteLine("5. Exit")
            Console.WriteLine()
            tal = CInt(Console.ReadLine())

            If tal = 1 Then
                Console.WriteLine("Indtast side a: ")
                a = Int32.Parse(Console.ReadLine())
                Console.WriteLine("Indtast side b: ")
                b = Int32.Parse(Console.ReadLine())
                Console.WriteLine("Arealet er: " & a * b & " cm3")

            ElseIf tal = 2 Then
                Console.WriteLine("Indtast radius: ")
                r = Int32.Parse(Console.ReadLine())
                Console.WriteLine("Arealet af cirklen er :" & r * r * Math.PI & " cm3")

            ElseIf tal = 3 Then
                Console.WriteLine("Indtast højden: ")
                h = Int32.Parse(Console.ReadLine())
                Console.WriteLine("Indtast grundlinjen: ")
                g = Int32.Parse(Console.ReadLine())
                Console.WriteLine("Arealet af trekanten er : " & 0.5 * h * g & " cm3")

            ElseIf tal = 4 Then
                Console.WriteLine("Dette program er lavet af Peter B. Faarup")
                Console.WriteLine("(C) 2004 Peter B. Faarup, All Rights Reserved")
            ElseIf tal = 5 Then
                Console.WriteLine("Dette program er lavet af Peter B. Faarup")
                Console.WriteLine("(C) 2004 Peter B. Faarup, All Rights Reserved")
                Console.WriteLine("Tryk på en tast for at afslutte!")
                Console.ReadLine()
                End
            Else
                Console.WriteLine("Du kan kun trykke på tallene 1, 2, 3, 4, 5")
            End If


        End While
    End Sub

End Module

Imports System
Imports System.Runtime.InteropServices

Module Module1

    <DllImport("msvcrt.dll")> _
    Public Function system(ByVal cmd As String) As Integer
    End Function
   
    Sub Main()
        Dim mere = True
        Dim tal, a, b, r, h, g As Integer
        While mere
            system("CLS")
            Console.WriteLine("")
            Console.WriteLine("1. Areal af firkant")
            Console.WriteLine("2. Areal af cirkel")
            Console.WriteLine("3. Areal af trekant")
            Console.WriteLine("4. Om...")
            Console.WriteLine("5. Exit")
            Console.WriteLine()
            tal = CInt(Console.ReadLine())

            If tal = 1 Then
                Console.Write("Indtast side a: ")
                a = Int32.Parse(Console.ReadLine())
                Console.Write("Indtast side b: ")
                b = Int32.Parse(Console.ReadLine())
                Console.WriteLine("Arealet er: " & a * b & " cm3")

            ElseIf tal = 2 Then
                Console.Write("Indtast radius: ")
                r = Int32.Parse(Console.ReadLine())
                Console.WriteLine("Arealet af cirklen er :" & r * r * Math.PI & " cm3")

            ElseIf tal = 3 Then
                Console.Write("Indtast højden: ")
                h = Int32.Parse(Console.ReadLine())
                Console.Write("Indtast grundlinjen: ")
                g = Int32.Parse(Console.ReadLine())
                Console.WriteLine("Arealet af trekanten er : " & 0.5 * h * g & " cm3")

            ElseIf tal = 4 Then
                Console.WriteLine("Dette program er lavet af Peter B. Faarup")
                Console.WriteLine("(C) 2004 Peter B. Faarup, All Rights Reserved")
            ElseIf tal = 5 Then
                Console.WriteLine("Dette program er lavet af Peter B. Faarup")
                Console.WriteLine("(C) 2004 Peter B. Faarup, All Rights Reserved")
                Console.WriteLine("Tryk på en tast for at afslutte!")
                Console.ReadLine()
                End
            Else
                Console.WriteLine("Du kan kun trykke på tallene 1, 2, 3, 4, 5")
            End If
            Console.Write("Press enter to continue")
            Console.ReadLIne

        End While
    End Sub

End Module

Det ville ikke være dårligt hvis i kunne svare på mit spg om titlen på en console application

PS arne_v husk svar så du kan få dine points

svar

tak