fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Zufallsereignis mit RND

Uploader:	Sebastian
Datum/Zeit:	10.02.2010 22:51:02

'Beilage zu

' http://forum.qbasic.at/viewtopic.php?t=6979



DIM AS INTEGER i, zaehler=0

DIM AS DOUBLE Wert



RANDOMIZE TIMER



WIDTH 80, 50

For i = 1 to 45

    Wert = RND 'Zufälliger Wert zwischen 0 und 1

    If Wert >= 0.25 Then 'von 0.25 bis 1.0

        Print "Gegner steht noch."

    Else 'von 0.0 bis 0.25

        Color 12

        Print "Gegner faellt um."

        zaehler += 1

        Color 7

    End If

Next i



i -= 1

Print "----"

Print "In " & zaehler & " von " & i & " Faellen fiel der Gegner um (Quote: " & Int(zaehler*100/i) & "%)."



Sleep

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.