< Lotterie 1 >

Verschiedene Zufallszahlen mit WMLScript erzeugen und sortieren.

WAP-Standard: 1.1+

Lotterie 2: Mit Eingabemöglichkeit.
Lotterie 3: Animierte Ausgabe.

lotterie1.wml

<?xml version="1.0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
      "http://www.wapforum.org/DTD/wml_1.1.xml">

<wml>

  <card id="c1" title="Lotterie 1">
    <p>
      <a href="lotterie1.wmls#L()">Los</a>
    </p>
  </card>

  <card id="c2" title="Lotterie 1">
    <p>$(z0) $(z1) $(z2) $(z3) $(z4) $(z5)
      <br/>Zusatzzahl: $(z6)</p>
    <p>
      <a href="lotterie1.wmls#L()">Los</a>
    </p>
  </card>

</wml>

Über 'Los' wird die Lotteriefunktion L() aufgerufen.

lotterie1.wmls

extern function L() {
  var i,r,k,x,z,lz = "1";
  for(i=2;i<50;i++) lz += " "+i;
  // i, r, k und x sind Hilfsvariablen.
  // z ist das Array für die gezogenen Zahlen.
  // lz = "1 2 3 ... 49" ist das Array der Lotterie-Zahlen. 

  //Zahlen ziehen
  for(i=0;i<7;i++) {
    r = Lang.random(48-i);
    if(i>0) z += " "+val(lz,r);
    else z = val(lz,r);
    lz = String.removeAt(lz,r," ");
  }

  //Zahlen in die richtige Reihenfolge bringen
  for(i=0;i<5;i++) {
    for(k=i+1;k<6;k++) {
      if(val(z,i)>val(z,k)) {
        x = val(z,i);
        z = rep(z,i,val(z,k));
        z = rep(z,k,x);
      }
    }
  }

  //Ergebnis dem WMLBrowser bekannt machen
  for(i=0;i<7;i++) WMLBrowser.setVar("z"+i, val(z,i));

  //Ergebnis anzeigen
  WMLBrowser.go("lotterie1.wml#c2");
}

//Mit rep() wird im Array a der i-te Wert durch v ersetzt.
function rep(a,i,v) {
  return String.replaceAt(a,v,i," ");
}

//Mit val() wird im Array a der i-te Wert ausgelesen.
function val(a,i) {
  return Lang.parseInt(String.elementAt(a,i," "));
}

Download  Lotterie.zip (Versionen 1-3 ca. 4 kb)

Copyright © 2002-2003 by wmlscript.de - Alle Rechte vorbehalten
Impressum | Datenschutz | eMail

Die Lotteriezahlen im
WAP-Browser:

Card c2 zeigt die Zahlen an. (Ohne Gewähr)

Alle angebotenen Scripts können Sie mit einem WAP- und WMLScript-fähigen Entgerät auf

www.wmlscript.de/wap

testen.