fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Noch ein kleines Rätselprogramm von mir

Uploader:	Westbeam
Datum/Zeit:	08.10.2012 21:18:34

'Ein kleines Rätselprogramm von mir

'Wer rauskriegt, wofür die Funktion 'a' gut ist, bekommt von mir einen großen Kuchen ;)



'Tipps:

'- Warum benutzt Sleep Zufallszahlen?

'- Und wiese werden die Werte für c, sobald sie zwischen 20 und 50 sind, binär zurückgegeben?



Declare Function a(b As Integer)As Integer



Randomize Timer

Color 4

Print "Ich steh auf Rätsel :)"

Color 15

Do

    Sleep Rnd()*1000,1

    Print a(Rnd()*1000)

Loop Until Inkey=Chr(27)

End



Function a(b As Integer)As Integer

    Var c=b

    c=Rnd(b)*100 Xor Rnd(5.6)*100

    If c>20 And c<50 Then

        Return Val(Bin(c))

    End If

    Return c

End Function

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.