Mega Code Archive
Control asp
<![CDATA[
<%@ Page Language="VB" %>
<script runat="server">
Sub Button1_Click(sender As Object, e As EventArgs)
Label3.Visible = False
Label1.Text = Int(Rnd() * 6) + 1
Label2.Text = Int(Rnd() * 6) + 1
Image2.ImageUrl = "http://www.rntsoft.com/style/logo.png"
Image3.ImageUrl = "http://www.rntsoft.com/style/logo.png"
If Label1.Text = "1" And Label2.Text = "1" Then
Label5.Text = Label4.Text
If CInt(Label5.Text) > CInt(Label6.Text) Then
Label6.Text = label5.Text
Panel1.Visible = True
End If
Label4.Text = 0
Label3.Visible = True
Else
Label4.Text = CInt(Label4.Text) + CInt(Label1.Text) + CInt(Label2.Text)
End If
End Sub
Sub Button2_Click(sender As Object, e As EventArgs)
Label6.Text = 0
End Sub
Sub Button3_Click(sender As Object, e As EventArgs)
Panel1.Visible = False
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<asp:Label id="Label1" runat="server" Height="44px" Font-Size="X-Large" Font-Names="Verdana" BorderStyle="Solid">0</asp:Label>
<asp:Label id="Label2" runat="server" Height="44px" Font-Size="X-Large" Font-Names="Verdana" BorderStyle="Solid">0</asp:Label>
</p>
<p>
<asp:Image id="Image2" runat="server"></asp:Image>
<asp:Image id="Image3" runat="server"></asp:Image>
</p>
<p>
<asp:Label id="Label3" runat="server" Visible="False">Ooops, you did it again :(</asp:Label>
</p>
<p>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Hit me baby one more time..."></asp:Button>
</p>
<p>
<asp:Label id="Label4" runat="server" Font-Size="X-Large" Font-Names="Verdana" ForeColor="Red">0</asp:Label>
</p>
<p>
Last Score:
<asp:Label id="Label5" runat="server" Font-Size="X-Large" Font-Names="Verdana" ForeColor="Red">0</asp:Label>
</p>
<p>
High Score:
<asp:Label id="Label6" runat="server" Font-Size="X-Large" Font-Names="Verdana" ForeColor="Red">0</asp:Label>
</p>
<p>
<asp:Button id="Button2" onclick="Button2_Click" runat="server" Text="Reset High Scores"></asp:Button>
</p>
<p>
<asp:Panel id="Panel1" style="Z-INDEX: 100; LEFT: 192px; POSITION: absolute; TOP: 421px" runat="server" Visible="False">
<p>
Well done, you can now submit your high score.
</p>
<p>
Name:
<asp:TextBox id="TextBox1" runat="server"></asp:TextBox>
</p>
<p>
E-mail:
<asp:TextBox id="TextBox2" runat="server"></asp:TextBox>
</p>
<p>
<asp:Button id="Button3" onclick="Button3_Click" runat="server" Text="Submit High Score"></asp:Button>
</p>
</asp:Panel>
</p>
</form>
</body>
</html>
]]>