fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Text mit SUB ausgeben

Uploader:	Sebastian
Datum/Zeit:	04.09.2011 18:52:34

'Ganz einfaches Beispiel zur Ausgabe von Text durch ein Unterprogramm

'Als Beilage für eine Chatrunde.

'Erstellt: 04.09.2011

'Compilieren mit: FB 0.23.0



Declare Sub GibFehlertextAus ()



Print "Hallo Welt"



GibFehlerTextAus()



Print "Naechste Zeile."



For i As Integer = 1 To 3

    GibFehlerTextAus()

    Print ">> Das war die " & i & "-te Fehlerausgabe!!"

Next i



Print "Fertig."

Sleep





Sub GibFehlertextAus ()

    Dim As Integer AlteFarbe = LOWORD(COLOR)

    Color 12

    Print "FEHLER:"

    Print "Es ist ein Fehler aufgetreten, was vom Programm her so beabsichtigt war."

    Print "Fragen Sie im Zweifelsfall jemanden, der sich damit auskennt."

    Print "Viele Gruesse, das war nur ein Testprogramm zu Demonstrationszwecken."

    Color AlteFarbe

End Sub

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.