×
Create a new article
Write your page title here:
We currently have 3,189 articles on s23. Type your article name above or create one of the articles listed here!



    s23
    3,189Articles

    On Windows, put:

    Module HalloWelt 
    	
    	Sub Main() 
    	Console.WriteLine("Hallo, Welt!") 
    	End Sub
    
    End Module 
    

    in a textfile with any texteditor, save it as fnord.vb

    then on a cmd.exe ,type:

    C:\%SystemRoot%\Microsoft.NET\Framework\v2.0.50727\vbc.exe fnord.vb

    (or wherever you have vbc.exe, which is the visual basic compiler) (*)


    (*) If you cant find vbc.exe on your box you need to install .Net Framework, you dont need the complete SDK, that is optional.


    .. and you will have a new fnord.exe and compiled your own windows commandline executable.

    C:\fnord.exe Hallo, Welt!

    ergo: also on Windows you dont need a GUI to create applications.

    Beispiel Nettoberechnung[edit]

    ' Berechnet Nettobetrag aus Bruttobetrag und Steuersatz
    
    
    Imports System.Console
    
    Module T1
    
    	Sub Main()
    	  Dim br as Double
    	  Dim st as Double
    	  Dim netto as Double
    	  Dim nochmal as String
    	
    	WriteLine("'Programm T1' - Berechnet Nettobetrag aus Bruttobetrag und Steuersatz")
    	
    	 DO 
    	   br=0
    
    	     DO WHILE br <= 0
    	        WriteLine("Bitte einen Bruttobetrag eingeben. (Der Bruttobetrag muss > 0 sein.): ")
    	        br=ReadLine():
    	     LOOP
    	
    	   st=0
    	
    	     DO WHILE st <= 0 OR st > 100
    	        WriteLine("Bitte einen Steuersatz in Prozent eingeben (Steuer muss > 0 und <= 100 sein!) %: ")
    	        st=ReadLine():
    	     LOOP
    	
    	   netto=br-(br/100*st)
    	   Write("Der Nettobetrag ist: ")
    	   WriteLine(Netto)
    	   Write("Nochmal rechnen? (j/n): ")
    	   nochmal=ReadLine():
    	
    	 LOOP UNTIL nochmal="n"
    	
    	End Sub
    
    End Module 
    
    Cookies help us deliver our services. By using our services, you agree to our use of cookies.
    Cookies help us deliver our services. By using our services, you agree to our use of cookies.