Thema: Hilffe Visual Basics

Hey Leute stcke grad in ner Arbeit ...und ehrlich gesagt weiß ich nicht was ich machen soll ^^
Und wollte fragen ob mir da einer helfen würde
Hier die aufgaben stellung : Fußgesteuerte While-Schleife: Beispiel Würfeln


·Schreiben Sie ein Programm Würfeln.
·Das Programm generiert Zufallszahlen:
Randomize ( Zufallszahlengenerator wird initialisiert)
nWurf = Int(6 * Rnd + 1)
Rnd gibt eine Zufallszahl vom Typ Single zwischen 0 und fast 1 zurück. Diese Zufallszahl wird mit 6 multipliziert, da die 6 der höchste gewürfelte Wert sein soll. Um ganze Zahlen zu erzeugen, wird die Int-Funktion auf den Ausdruck angewandt. Da die Int-Funktion alle Nachkommastellen abschneidet, muss eine 1 hinzu addiert werden, damit auch der höchste Wert, die 6, generiert werden kann:
Int(6*0,99999 + 1) = 6.
·Das Programm soll alle Zahlen addieren und beim Würfeln einer 6 die gewürfelten Zahlen, die Summe und die Anzahl der Würfelversuche ausgeben.
·Bei erneutem Würfeln soll die Ausgabe der gewürfelten Zahlen gelöscht werden sowie die Summe und die Anzahl der Würfelversuche auf 0 zurückgesetzt werden.




Hoffe mir Hilft jemand


EDIT : HILLFFFFEEEEE
EDIT : kann das niemand ....oder will niemand ?

Warte eben bin gleich fertig...

Die ganz genauen Befehle von Visual Basic kenn ich leider nicht mehr. Aber du solltest auf Grundfunktionen zurückgreifen.

Erstmal Variablen: nWurf, Summe, W_anzahl, Zahlen() ... Alle Variablen Integer jedoch Zahlen() ein Array.
Nun die Schleiffunktion dass du würfelst until nWurf = 6 jedoch schreibst du bei jeder Loop hinein, dass:

W_anzahl=W_anzahl+1
Zahlen(W_anzahl) = nWurf
Summe= Summe+nWurf

until nWurf = 6
Danach kommt nur mehr die Ausgabe und den Array musst du von 1 bis zur derzeitigen Würfelzahl ausgeben.

Leider weiß ich übers vBasic nicht mehr soviel...^^

Selensija

Die ganz genauen Befehle von Visual Basic kenn ich leider nicht mehr. Aber du solltest auf Grundfunktionen zurückgreifen.

Erstmal Variablen: nWurf, Summe, W_anzahl, Zahlen() ... Alle Variablen Integer jedoch Zahlen() ein Array.
Nun die Schleiffunktion dass du würfelst until nWurf = 6 jedoch schreibst du bei jeder Loop hinein, dass:

W_anzahl=W_anzahl+1
Zahlen(W_anzahl) = nWurf
Summe= Summe+nWurf

until nWurf = 6
Danach kommt nur mehr die Ausgabe und den Array musst du von 1 bis zur derzeitigen Würfelzahl ausgeben.

Leider weiß ich übers vBasic nicht mehr soviel...^^

bringt nichtz mehr ....die arbeit ist abgehackt ...xD
trotzdem dankee ^^

PHP-Code:

Module Module1

    Sub Main()
        Dim Rand As Single
        Dim All As Long
        Dim i As Integer

        Console.WriteLine("Würfel - while() Schleifen verbessern")
        Console.WriteLine()
        While (True)
            Rand = Int(6 * Rnd() + 1)
            Console.Write(i)
            Console.Write("te Zahl --- ")
            Console.WriteLine(Rand)
            All = All + Rand
            i = i + 1
            If Rand = 6 Then
                Console.WriteLine()
                Console.Write("Alle Zahlen addiert bis es zu einer 6 kam: ")
                Console.WriteLine(All)
                All = 0
                i = 0
                Rand = 0
            End If

            Console.ReadKey()
            'Console.Clear()
        End While

        Console.WriteLine()
        Console.Write("Drücken sie bitte eine beliebige Taste...")
        Console.Read()
    End Sub

End Module 


Funzt, musst du nur noch verfeinern.

Hier noch die Programmausführung:

Ich bin wieder in einer Arbeit ....diesmal
Soll ich eine Tabelle mit einem For....next Befehl auslesen weiß aber nicht wie ...:S?

Wie wäre es mit Kopf anstrengen?

Im unterricht habt ihr das doch auch sicher behandelt oder? ur diAlso ich weiß aus erfahrung das ich nix verstehe wenn mir einer ne lösung vor die füße wirft.

Habs mit dem Kopfanstrengen versucht
Naja das mit dem Lernen .....
Man versteht bei ihm nix :P...Naja da der ganze Kurs abgekackt hat ist es nicht schlimm btw Ich wollte doch keine Lösung sondern nur hilfe xD