Bite-Code™

Home » Archives » 05. May 2010

Prime Numbers

May 5, 2010

<html>
<body bgcolor=”pink”>
<center><font color=”white”>
<h2>The Prime Numbers inside the textboxes are:</h2>
<form name=form1>
<input type=text name=text1 size=2>
<input type=text name=text2 size=2>
<input type=text name=text3 size=2>
<input type=text name=text4 size=2>
<input type=text name=text5 size=2>
<input type=text name=text6 size=2>
<input type=text name=text7 size=2>
<input type=text name=text8 size=2>
<input type=text name=text9 size=2>
</form>
<br>
<script language=”vbscript”>
Dim TheForm
Set TheForm = document.form1
 
Dim aPrime(9)  
document.writeln(”")
x = 1
i = 3
   While i <= 30
      Prime = True
      j = 2
      While j <= i\2 And Prime
         Prime = i Mod j > 0
         j = j + 1
      Wend 
      If Prime Then
    aPrime(x) = i
TheForm.text1.Value = aPrime(1) 
TheForm.text2.Value = aPrime(2)
TheForm.text3.Value = aPrime(3)   
TheForm.text4.Value = aPrime(4)   
TheForm.text5.Value = aPrime(5)   
TheForm.text6.Value = aPrime(6)   
TheForm.text7.Value = aPrime(7)   
TheForm.text8.Value = aPrime(8)
TheForm.text9.Value = aPrime(9)       
    x = x+1
      End If
      i = i + 2
   Wend
</script>

</html>

Posted by mowllen at 9:25 am | permalink | Add comment

Zodiac Sign

<html>
<head>
<title>Zodiac Sign</title>
<script language=”vbscript”>
Sub chkSign_OnClick

        
        If show.month.value = “march” then

    If show.date.value >= 1 And show.date.value <= 20 Then
        show.Sign.value = “Aries”
    ElseIf show.date.value >= 21 And show.date.value <= 31 Then
               show.Sign.value = “Pisces”   
    Else
        show.Sign.value = ” invalid sign”

    End If
    End If

        If show.month.value = “april” Then

    If show.date.value >= 1 And show.date.value <= 20 Then
        show.Sign.value = “Aries”
    ElseIf show.date.value >= 21 And show.date.value <= 30 Then
               show.Sign.value = “Taurus”
    else
        show.Sign.value = ” invalid sign”
    End If
    End If

        If show.month.value = “may” Then

    If show.date.value >= 1 And show.date.value <= 20 Then
        show.sign.value = “Taurus”
    ElseIf show.date.value >= 21 And show.date.value <= 31 Then
               show.sign.value = “Gemini”
    Else
        show. invalid sign.value = “sign”
    End If
    End If

        If show.month.value = “june” Then

    If show.date.value >= 1 And show.date.value <= 20 Then
        show.Sign.value = “Gemini”
    ElseIf show.date.value >= 21 And show.date.value <= 30 Then
               show.Sign.value = “Cancer”
    Else
        show.Sign.value = ” invalid sign”
    End If
    End If

        If show.month.value = “july” Then

    If show.date.value >= 1 And show.date.value <= 20 Then
        show.Sign.value = “Cancer”
    ElseIf show.date.value >= 21 And show.date.value <= 31 Then
               show.Sign.value = “Leo”
    Else
        show.Sign.value = “invalid sign”
    End If
    End If

        If show.month.value = “august” Then

    If show.date.value >= 1 And show.date.value <= 20 Then
        show.Sign.value = “Leo”
    ElseIf show.date.value >= 21 And show.date.value <= 31 Then
               show.Sign.value = “Virgo”
    Else
        show.Sign.value = ” invalid sign”
    End If
    End If

        If show.month.value = “september” Then

    If show.date.value >= 1 And show.date.value <= 22 Then
        show.Sign.value = “Virgo”
    ElseIf show.date.value >= 23 And show.date.value <= 30 Then
               show.Sign.value = “Libra”
    Else
        show.Sign.value = ” invalid sign”
    End If
    End If

        If show.month.value = “october” Then

    If show.date.value >= 1 And show.date.value <= 22 Then
        show.Sign.value = “Libra”
    ElseIf show.date.value >= 23 And show.date.value <= 31 Then
               show.Sign.value = “Scorpio”
    Else
        show.Sign.value = “invalid sign”
    End If
    End If

        If show.month.value = “november” Then

    If show.date.value >= 1 And show.date.value <= 22 Then
        show.Sign.value = “Scorpio”
    ElseIf show.date.value >= 23 And show.date.value <= 30 Then
               show.Sign.value = “Saguittarius”
    Else
        show.Sign.value = ” invalid sign”
    End If
    End If

        If show.month.value = “december” Then

    If show.date.value >= 1 And show.date.value <= 20 Then
        show.Sign.value = “Saguittarius”
    ElseIf show.date.value >= 21 And show.date.value <= 31 Then
               show.Sign.value = “Capricorn”
    Else
        show.Sign.value = ” invalid sign”
    End If
    End If

        If show.month.value = “january” Then

    If show.date.value >= 1 And show.date.value <= 19 Then
        show.Sign.value = “Capricorn”
    ElseIf show.date.value >= 20 And show.date.value <= 31 Then
               show.Sign.value = “Aquarius”
    Else
        show.Sign.value = ” invalid sign”
    End If
    End If

        If show.month.value = “febuary” Then

    If show.date.value >= 1 And show.date.value <= 18 Then
        show.Sign.value = “Aquarius”
    ElseIf show.date.value >= 19 And show.date.value <= 28 Then
               show.Sign.value = “Pisces”
    Else
        show.Sign.value = “invalid sign”
   
    End If
    End If

        show.Age.value = ( 2009 - show.BirthYear.value)

End Sub

</script>
</head>
<body>
 
<form name=”show”>

<center>

<font color = “maroon”>
Enter your name <br><input type=”text” name=”pname” value = ” “size = “25″><br>

Enter your month of birth <br><input type=”text” name=”month”><br>

Enter the date you were born <br><input type=”text” name=”date”><br>

Enter the year you were born <br><input type=”text” name=”BirthYear”  value =” “><br>
<br>
<input type =”button” name = “chkSign” value = “Click me!”><br>
<br>
        <p><b>Result</b><br>
Your age is <br><input type=”text” name=”Age” ><br>

Your sign is<br><input type=”text” name=”Sign”><br>
<br></center></font>

<marquee behavior = “alternate”><font color = “red”>Find out your fortune for today!</font></marquee>

Note: Update the Date.

</form>
</body>
</html>

Posted by mowllen at 9:19 am | permalink | Add comment