Comment convertir mon code ASP et ASP.Net ?

Version imprimable

Bonjour,

j'ai fais ça dans un fichier ASP

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
<html>
<head>
<body>
 
<form methot="GET">
<INPUT type=text value="<%=Request.QueryString("i")%>" name="i">
<input type="submit" name="btnSubmit" value="OK">
</form>
<table border="1" cellspacing="2">
<%
dim tabl(5000,5000)
dim i, j
 
' Initialisation
 
For i=0 to Request.QueryString("i")
tabl(i,0)=i
tabl(0,i)=i
Next
 
' Calcul
 
For i=0 to Request.QueryString("i")
For j=1 to i
tabl(i,j)=tabl(i,j-1)+tabl(i-1,j)
tabl(j,i)=tabl(i,j-1)+tabl(i-1,j)
Next
Next
 
' Affichage
 
For i=0 to Request.QueryString("i")
response.write "<tr>"
For j=0 to Request.QueryString("i")
response.write "<td>" & tabl(i,j) & "</td>"
Next
response.write "</tr>"
Next
%>
</body>
</html>

Mais maintenant on me demmande de faire la meme chose en ASP.NET dans le Visual Web Developer 2005 Express Edition. C'est la premiere dois que je l'utilise. Vous pouvez m'aider ?

Merci.

21/07/2006, 17h26
Arthis

a aprt la declaration des tableaux ca devrait passer je pense ... je suis ne suis pas un specialiste du vb.net, mais as tu essaye de l'ouvrir tout simplement sous visual studio pour voir ce qu'il en dit?
25/07/2006, 15h22
yushkoya

Citation:

Envoyé par Arthis

a aprt la declaration des tableaux ca devrait passer je pense ... je suis ne suis pas un specialiste du vb.net, mais as tu essaye de l'ouvrir tout simplement sous visual studio pour voir ce qu'il en dit?

Oui, j'ai essayé.
J'ai reussi a le faire calculer, mais il ne me fait pas le tableau. Il me fait tout en une seule ligne :cry:

Resolu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Partial Class _Default
    Inherits System.Web.UI.Page
 
 
    Protected Sub chiffre_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chiffre.TextChanged
        Dim tabl(500, 500) As Double
        Dim i As Decimal
        Dim j As Integer
        i = chiffre.Text
 
        For i = 0 To CType(chiffre.Text, Integer)
            tabl(i, 0) = i
            tabl(0, i) = i
        Next
 
        For i = 0 To CType(chiffre.Text, Integer)
            For j = 1 To i
                tabl(i, j) = tabl(i, j - 1) + tabl(i - 1, j)
                tabl(j, i) = tabl(i, j - 1) + tabl(i - 1, j)
            Next
        Next
 
        Response.Write("<table border=1 cellspacing=2>")
        For i = 0 To CType(chiffre.Text, Integer)
            Response.Write("<tr ALIGN=right VALIGN=middle>")
            For j = 0 To CType(chiffre.Text, Integer)
                Response.Write("<td ALIGN=right VALIGN=middle>" & tabl(i, j) & "</td>")
            Next
            Response.Write("</tr>")
        Next
        Response.Write("</table>")
 
    End Sub
 
    Protected Sub okButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles okButton.Click
    End Sub
End Class