[vbs2] Re: [vbs2] Re: [vbs2] nytt forsøk lektion 16A Birgit /Yrja
- From: "Birgit" <birgit.jacobsen@xxxxxxxxx>
- To: <vbs2@xxxxxxxxxxxxx>
- Date: Sun, 15 Mar 2009 14:48:23 +0100
Jeg har ikke rettet denne, for egentlig har jeg sent 3 stykker av samme lektion.
Den siste står det - endda en lektion 16A - Denne tror jeg er tilnærmelsesvis
det du skriver her.
Så jeg venter til du evt. har sett på den.
Hilsen birgit
----- Original Message -----
From: YRJA på VBScript.dk
To: vbs2
Sent: Saturday, March 14, 2009 1:27 AM
Subject: [vbs2] Re: [vbs2] nytt forsøk lektion 16A Birgit
Hej Birgit!
Ta det lugnt och ta en sak i taget.
Här hänvisar du till 3 subbar - och dessutom 2 ggr till samma (ett) - det
blir kaos i scriptet.
th=setTimeOut("ett",30)
th2=setTimeOut ("b2",130)
th3=setTimeOut("b3", 230)
ett
Till att börja med ska du bara hänvisa till en enda sub - och i den subben
ska du ha 3 meddelanden att skifta emellan.
Inte som här försöka få dom att växa fram ett ord i taget.
Det kan du göra sen - men först måste du förstå hur if-then-else fungerar
ordentligt.
:-)
sub ett()
clearTimeOut(th)
window.status=mv
if mv="" then
mv="Her"
elseIf mv="Her" then
mv="Her er"
elseIf mv="Her er" then
mv="Her er en"
elseIf mv="Her er en" then
mv="Her er en rose"
elseIf mv="Her er en rose" then
mv="Her er en rose til"
elseIf mv="Her er en rose til" then
mv="Her er en rose til deg"
elseIf mv="Her er en rose til deg" then
mv=" ~ ~ script fra birgit ~ ~ "
else mv=""
end if
th=setTimeOut("b2", 2000) - här är ett problem som gör att det inte fungerar
- vilken sub måste köras igen för att det ska bli en förändring??
end sub
Börja nu med att använda tre olika texter att skifta emellan.
Det går jättebra att sätta ett litet räkneverk om du vill - det behöver inte
vara på det här sättet som din sub ser ut.
T.ex. en text när mv=1 - en annan när mv=2 osv.
Lycka till!
/YRJA
> lektion 16A
> ----- Original Message -----
> From: Birgit
> To: vbs
> Sent: Wednesday, March 11, 2009 12:30 PM
> Subject: [vbs2] nytt forsøk lektion 16A Birgit
>
>
>
>
>
>
------------------------------------------------------------------------------
>
>
>
> No virus found in this incoming message.
> Checked by AVG - www.avg.com
> Version: 8.0.237 / Virus Database: 270.11.10/1995 - Release Date: 03/11/09
08:28:00
>
Other related posts:
- » [vbs2] Re: [vbs2] Re: [vbs2] nytt forsøk lektion 16A Birgit /Yrja - Birgit
