|
|
13 VBScript arpominen
Ohjelmoinnissa yksi tärkeä osa on satunnaisgeneraattorin tekeminen. Tässä onkin pieni esimerkki lähinnä lottoa ajatellen. Ohjelma arpoo lukuja väliltä 1-39.
<SCRIPT LANGUAGE="vbscript">
Dim MyValue, Response
Randomize
Do Until Response = vbNo
MyValue = Int((39 * Rnd) + 1)
MsgBox MyValue
Response = MsgBox ("Kerran vielä? ", vbYesNo)
Loop
</SCRIPT>
|
Tässä sovellus, joka kysyy nimen ja arpoo onnenpäivän henkilölle
<SCRIPT LANGUAGE="vbscript">
Dim nimi, arpa
randomize
nimi = InputBox("Mikä on nimesi: ")
arpa = Int((7 * Rnd) + 1)
document.write("Terve " & nimi & " onenpäiväsi on: ")
select case arpa
case 1
document.write("Sunnuntai")
case 2
document.write("Maanantai")
case 3
document.write("Tiistai")
case 4
document.write("Keskiviikko")
case 5
document.write("Torstai")
case 6
document.write("Perjantai")
case else
document.write("Launtai")
end select
</SCRIPT>
|
14) Tee sivu, jossa sivulle tultaessa esiintyy aina uusi mietelause. Tässä muutamia mietelauseita malliksi. Mietelauseita pitää olla vähintäänkin 7.
"Pienet huolet puhuvat, suuret ovat mykkiä. (Seneca) "
"Tärkeä on, miten hyvin elät, ei se miten kauan. (Seneca)"
"Kosto on tuskan tunnustamista. (Seneca)"
15) tee sivu, jonne tultaessa esiintyy aina uusi kuva sattumanvaraisesti
|