Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

SUB-Beispiel für yussuf

Uploader:AdministratorSebastian
Datum/Zeit:31.03.2012 19:33:58

Declare Sub Hauptschleife ()
Declare Sub ProgA ()
Declare Sub ProgB ()

Hauptschleife()
End

'Ende des Hauptprogramms


'Ab hier Unterprogramme:

Sub Hauptschleife ()
    Dim z As Integer
    Do
        Cls
        Print "Hallo und willkommen im Hauptmenue."
        Print
        Print "Welche Aktion ausfuehren?"
        Print "(1) Lorem Ipsum"
        Print "(2) Hallo Welt"
        Print "(3) Beenden"
        Print
        Input "Bitte hier Zahl eingeben: ", z
        If (z = 1) Then
            ProgA()
        ElseIf (z = 2) Then
            ProgB()
            'Hierhin kehrt der Programmfluss zurueck, sobald ProgB() fertig
            'ausgefuehrt wurde. Der IF-Block wird verlassen und das Programm
            'gelangt zu LOOP. Von da aus wird zurueck hoch zu DO gesprungen
            'und das Hauptmenue wird erneut angezeigt.
            'Ganz ohne, dass das Unterprogramm das Hauptmenue noch mal haette
            'aufrufen muessen.
        ElseIf (z = 3) Then
            Exit Sub
        End If
    Loop
End Sub


Sub ProgA ()
    Cls
    Print "~~ Lorem Ipsum ~~"
    Print "================="
    Print
    Print "Lorem ipsum dolor sit amet, consectetur adipisici elit, sed eiusmod tempor incidunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquid ex ea commodi consequat. Quis aute iure reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint obcaecat cupiditat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
    Print
    Print "Beliebige Taste druecken, um zum Hauptmenue zurueckzukehren."
    Sleep
End Sub


Sub ProgB ()
    Dim i As Integer
    Dim colorOld As Integer = LOWORD(COLOR())
    Cls
    For i = 1 To 15
        Color i
        Locate i, i*3
        Print "Hallo Welt"
    Next i
    Color colorOld
    Print
    Print "Beliebige Taste druecken, um zum Hauptmenue zurueckzukehren."
    Sleep
End Sub