choksi tips and tricks: vb script 40 program by choksi ahmad

VBScript

v VBScript is a Microsoft scripting language.

v VBScript is the default scripting language in ASP.

v Client-side VBScript only works in Internet Explorer!!!

Program-1 Write Text Using Vbscript.

<html>
<body>

<script type="text/vbscript">
document.write("This is my first VBScript!")
</script>

</body>
</html>

Program-2 Format Text With HTML Tags.

<html>

<body>

document.write("<font color=green size=7>Hello World!</font>")

</script>

</body>

</html>

Program-3 A Function In The Head Section.

<html>

<head>

function choksi()

alert("Hello World!")

end function

</script>

</head>

<p>We usually use the head section for functions (to be sure that the functions are loaded before they are called).</p>

</body>

</html>

Program-4 A Function In The Head Section.

<html>

<head>

function choksi()

document.write("Hello World!")

end function

</script>

</head>

<body>

<p>We usually use the head section for functions (to be sure that the functions are loaded before they are called).</p>

</body>

</html>

Program-5 Create A Variable.
<html>

<body>

Dim firstname

Dim lastname

firstname="ahmad"

lastname="choksi"

document.write(firstname)

document.write("<br>")

document.write(lastname)

</script>

<p>The script above declares a variable, assigns a value to it, and displays the value. Then, it changes the value, and displays the value again.</p>

</body>

</html>

Program-6 Insert A Variable Value In A Text.
<html>

<body>

Dim name,surname

name="ahmad"

surname="choksi"

document.write("My name is: " & name &"<br>")

document.write("My surname is: " & surname)

</script>

</body>

</html>

Program-7 Create an array.

<html>

<body>

Dim famname(5)

famname(0)="Jan Egil"

famname(1)="Tove"

famname(2)="Hege"

famname(3)="Stale"

famname(4)="Kai Jim"

famname(5)="Borge"

document.write(famname(5))

</script>

</body>

</html>

Program-8 Create an array.

<html>

<body>

Dim famname(5)

famname(0)="Jan Egil"

famname(1)="Tove"

famname(2)="Hege"

famname(3)="Stale"

famname(4)="Kai Jim"

famname(5)="Borge"

For i=0 To 5

document.write(famname(i) & "<br />")

</script>

</body>

</html>

Program-9 Sub procedure.
<html>

<head>

Sub mySub()

msgbox("This is a Sub procedure")

End Sub

</script>

</head>

<body>

Call mySub()

</script>

<p>A Sub procedure does not return a result.</p>

</body>

</html>

Program-10 Function procedure.

<html>

<head>

Function myFunction()

myFunction = "BLUE"

End Function

</script>

</head>

<body>

document.write("My favorite color is " & myFunction())

</script>

<p>A Function procedure can return a result.</p>

</body>

</html>

Program-11 Use of Arithmetic or Math Operators.

<html>

<body>

dim a,b

a=50

b=15

document.write("Sum of a and b is="&(a+b)&"<br>")

document.write("Multiplication of a and b is="&(a*b)&"<br>")

document.write("Subtraction of a and b is="&(a-b)&"<br>")

document.write("Division of a and b is="&(a/b)&"<br>")

document.write("Modulus of a and b is="&(a mod b)&"<br>")

</script>

</body>

</html>

Program-12 Use of Comparison Operators.

<html>

<body>

dim a,b

a=50

b=15

document.write("a equal to b="&(a=b)&"<br>")

document.write("a greater than b="&(a>b)&"<br>")

document.write("a less than b="&(a<b)&"<br>")

document.write("a greater than or equal to b="&(a>=b)&"<br>")

document.write("a less than or equal to b="&(a<=b)&"<br>")

document.write("a not equal to b="&(a<>b)&"<br>")

</script>

</body>

</html>

Program-13 Use of Logical Operators.

<html>

<body>

dim a,b

a=50

b=15

dim x,y,z

if a>10 and b<20 then

x=true

else

x=false

end if

document.write("And operator="&(x)&"<br>")

if a<40 or b>10 then

y=true

else

y=false

end if

document.write("Or operator="&(y)&"<br>")

if not a=not y then

z=true

else

z=false

end if

document.write("NOT operator ="&(z)&"<br>")

</script>

</body>

</html>

Program-14 If statement.

<head>

dim i

i=20

If i > 18 Then

document.write("You are eligible for voting")

End If

</script>

</head>

Program-15 If statement.

<html>

<head>

dim i

i=20

If i = 20 Then

i=i+5

document.write("new value of i is="&i)

End If

</script>

</head>

</html>

Program-16 If...Then..Else statement.

<head>

dim i

i=20

If i > 18 Then

document.write("You are eligible for voting")

Else

document.write("You are not eligible for voting")

End If

</script>

</head>

Program-17 If...Then..Else statement.

<html>

<head>

dim i

i=20

If i > 18 Then

i=i+5

document.write("new value of a="&i)

Else

i=i-5

document.write("new value of a="&i)

End If

</script>

</head>

</html>

Program-18 If...Then..Elseif statement.

<html>

<body>

dim percentage

dim result

percentage=65

if percentage >70 then

result="distiction"

elseif percentage>=60 and percentage<70 then

result="first class"

elseif percentage>=50 and percentage<60 then

result="second class"

elseif percentage>=40 and percentage<50 then

result="third class"

else

result="pass class"

end if

document.write("Result is="&result)

</script>

</body>

</html>

Program-19 Select Case statement.

<html>

<body>

d=4

Select Case d

Case 1

document.write("Sleepy Sunday")

Case 2

document.write("Monday again!")

Case 3

document.write("Just Tuesday!")

Case 4

document.write("Wednesday!")

Case 5

document.write("Thursday...")

Case 6

document.write("Finally Friday!")

Case else

document.write("Super Saturday!!!!")

End Select

</script>

</body>

</html>

Program-20 For...Next Loop.

Ø Use the For...Next statement to run a block of code a specified number of times.

<html>

<body>

For i = 0 To 5

document.write("The number is " & i & "<br />")

</script>

</body>

</html>

Program-21 The Step Keyword.

Ø With the Step keyword, you can increase or decrease the counter variable by the value you specify

<html>
<body>

<script type="text/vbscript">
For i = 0 To 10 step 2
document.write("The number is " & i & "<br />")
Next
</script>

</body>
</html>

Program-22 The Step Keyword.

<html>

<body>

For i = 10 To 0 step -2

document.write("The number is " & i & "<br />")

</script>

</body>

</html>

Program-23 For Each...Next Loop.

Ø A For Each...Next loop repeats a block of code for each item in a collection, or for each element of an array.

<html>

<body>

Dim cars(2)

cars(0)="Volvo"

cars(1)="Saab"

cars(2)="BMW"

For Each x In cars

document.write(x & "<br />")

</script>

</body>

</html>

Program-24 Do...Loop.

Ø If you don't know how many repetitions you want, use a Do...Loop statement.

Ø The Do...Loop statement repeats a block of code while a condition is true, or until a condition becomes true.

<html>

<body>

i=0

Do While i < 10

document.write(i & "<br />")

i=i+1

Loop

</script>

</body>

</html>

Program-25 Do...Loop.

<html>

<body>

i=0

document.write(i & "<br />")

i=i+1

Loop While i < 10

</script>

</body>

</html>

Program-26 Do...Loop.(Until keyword)

<html>

<body>

i=0

Do Until i>= 10

document.write(i & "<br />")

i=i+1

Loop

</script>

</body>

</html>

Program-27 Do...Loop. (Until keyword)

<html>

<body>

i=0

document.write(i & "<br />")

i=i+1

Loop Until i >= 10

</script>

</body>

</html>

Program-28 Display Date and Time.

<html>

<body>

document.write("Today's date is " & Date()&"<br>")

document.write("The time is " & Time())

</script>

</body>

</html>

Program-29 Display The Days.

<html>

<body>

<p>VBScripts' function <b>WeekdayName</b> is used to get a weekday:</p>

document.write("<p>")

document.write(WeekDayName(1))

document.write("<br />")

document.write(WeekDayName(2))

document.write("</p><p>")

document.write("Get the abbreviated name of a weekday:")

document.write("<br />")

document.write(WeekDayName(1,True))

document.write("<br />")

document.write(WeekDayName(2,True))

document.write("</p><p>")

document.write("Get the current weekday:")

document.write("<br />")

document.write(WeekdayName(weekday(Date)))

document.write("<br />")

document.write(WeekdayName(weekday(Date), True))

document.write("</p>")

</script>

</body>

</html>

Program-30 Display The Months.
<html>

<body>

<p>VBScripts' function <b>MonthName</b> is used to get a month:</p>

document.write("<p>")

document.write(MonthName(1))

document.write("<br />")

document.write(MonthName(2))

document.write("</p><p>")

document.write("Here is how you get the abbreviated name of a month:")

document.write("<br />")

document.write(MonthName(1,True))

document.write("<br />")

document.write(MonthName(2,True))

document.write("</p><p>")

document.write("Here is how you get the current month:")

document.write("<br />")

document.write(MonthName(Month(Date)))

document.write("<br />")

document.write(MonthName(Month(Date),True))

document.write("</p>")

</script>

</body>

</html>

Program-31 Display the current month and day.

<html>

<body>

document.write("Today's day is " & WeekdayName(Weekday(Date)))

document.write("<br />")

document.write("The month is " & MonthName(Month(Date)))

</script>

</body>

</html>

Program-32 Format Date and Time.
<html>

<body>

document.write(FormatDateTime(Date(),vbGeneralDate))

document.write("<br />")

document.write(FormatDateTime(Date(),vbLongDate))

document.write("<br />")

document.write(FormatDateTime(Date(),vbShortDate))

document.write("<br />")

document.write(FormatDateTime(Now(),vbLongTime))

document.write("<br />")

document.write(FormatDateTime(Now(),vbShortTime))

</script>

<p>Syntax for FormatDateTime: FormatDateTime(Date,namedformat).</p>

</body>

</html>

Program-33 Is this a date?

<html>

<body>

somedate="10/30/99"

document.write(IsDate(somedate))

</script>

</body>

</html>

Program-34 Uppercase or lowercase characters?
<html>

<body>

txt="Have a nice day!"

document.write(UCase(txt))

document.write("<br />")

document.write(LCase(txt))

</script>

</body>

</html>

Program-35 Remove leading or trailing spaces from a string.
<html>

<body>

fname=" Bill "

document.write("Hello" & Trim(fname) & "Gates<br />")

document.write("Hello" & RTrim(fname) & "Gates<br />")

document.write("Hello" & LTrim(fname) & "Gates<br />")

</script>

</body>

</html>

Program-36 Reverse a string.
<html>

<body>

sometext = "Hello Everyone!"

document.write(StrReverse(sometext))

</script>

</body>

</html>

Program-37 Round a number.
<html>

<body>

i = 48.66776677

j = 48.3333333

document.write(Round(i))

document.write("<br />")

document.write(Round(j))

</script>

</body>

</html>

Program-38 Return a specified number of characters from the left or right side of a string.
<html>

<body>

sometext="Welcome to our Web Site!!"

document.write(Left(sometext,5))

document.write("<br />")

document.write(Right(sometext,5))

</script>

</body>

</html>

Program-39 Replace some characters in a string.
<html>

<body>

sometext="Welcome to this Web!!"

document.write(Replace(sometext, "Web", "Page"))

</script>

</body>

</html>

Program-40 Return a specified number of characters from a string.

<html>

<body>

sometext="Welcome to our Web Site!!"

document.write(Mid(sometext,1, 3))

</script>

</body>

</html>

choksi tips and tricks

Wednesday, 12 November 2014

vb script 40 program by choksi ahmad

No comments:

Post a Comment