zufall problem

Dieses Thema im Forum "Programmieren" wurde erstellt von Dark_Moon, 22. Dezember 2002.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Dark_Moon

    Dark_Moon Kbyte

    Registriert seit:
    17. Mai 2002
    Beiträge:
    251
    hi,

    Ich hab da ne frage. Ich hab zu verschiedenen variablen einen text zugewiesen. Und möchte das die halt mit einem Klick per zufall angezeigt werden. aber halt nur ein text und nicht alle auf einmal. ne zufallfunktion mit zahlen kann ich ja. ist kein problem aber mit variablen weis ich nicht weiter.

    Visual Basic 6 benutze ich

    mfg
     
  2. Progmeister

    Progmeister Kbyte

    Registriert seit:
    13. August 2002
    Beiträge:
    161
    Zufallszahl im Bereich von 1 bis 6 Wert generieren
    Wert = Int((6 * Rnd) + 1)
    \'Text zuordnen
    Select Case Wert
    Case 1
    ZufallsText = "...."
    Case 2
    ZufallsText = "...."
    .
    .
    und so weiter...
    .
    .

    Case Else
    ZufallsText = "...."
    End Select
    End Function
     
  3. rapmaster

    rapmaster Halbes Gigabyte

    Registriert seit:
    21. Juli 2002
    Beiträge:
    5.181
    ein beispiel:
    Option explicit
    const anz=6
    dim lotto()
    const max=49

    lottozahlen

    function zufallszahl()
    randomize
    zufallszahl=rnd
    zufallszahl=round(zufallszahl*100)
    end function

    sub lottozahlen()
    dim zahl, ausgabe,i,j,doppelt
    redim lotto(anz-1)
    doppelt=false
    for i=0 to anz-1
    do
    zahl=zufallszahl
    loop until zahl <=max
    for j=0 to i-1
    if lotto(j)=zahl then
    doppelt=true
    exit for
    end if
    next
    if doppelt=true then
    i=i-1
    doppelt=false
    else
    lotto(I)=zahl
    end if
    next
    ausgabe="die lotozahlen lauten: " & chr(13)
    for i=0 to anz-2
    ausgabe=ausgabe & lotto(i) & "/"
    next
    ausgabe=ausgabe & lotto(anz-1)
    msgbox ausgabe
    end sub
    und ich überlege mir auch gerade wie ich das mache.
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen