Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [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

Numerisches Argument an SUB übergeben (für The_Muh)

Uploader:AdministratorSebastian
Datum/Zeit:08.07.2008 14:10:55

Declare Sub Muh(ByVal Maeh As Integer)

CLS
Muh 0
SLEEP

CLS
Muh 5
SLEEP

END



Sub Muh(ByVal Maeh As Integer)
    Dim i As Integer
    If Maeh < 1 Then
        Print "Fehler"
        Exit Sub
    Else
        For i = 1 To Maeh
            Locate i,i: PRINT "Hallo Welt"
        Next i
    End If
End Sub