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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
<SCRIPT LANGUAGE="VBScript">
Dim cellChar(15,15)
cellChar(1,1) = "NA1": cellChar(1,2) = "OB": cellChar(1,3) = "RC": cellChar(1,4) = "VD": cellChar(1,5) = "EE":cellChar(1,6) = "GF": cellChar(1,7) = "EG": cellChar(1,8) = " ": cellChar(1,9) = " ": cellChar(1,10) = "UJ": cellChar(1,11) = "LK": cellChar(1,12) = "RL": cellChar(1,13) = "IM": cellChar(1,14) = "KN": cellChar(1,15) = "AO"
<!--toutes les cellules sont liste ici jusqu'à 15 -->
cellChar(15,1) = "R15": cellChar(15,2) = "O00": cellChar(15,3) = "U00": cellChar(15,4) = "G00": cellChar(15,5) = "E00": cellChar(15,6) = "N00": cellChar(15,7) = "T00": cellChar(15,8) = "E00": cellChar(15,9) = "R00": cellChar(15,10) = "R00": cellChar(15,11) = "E00": cellChar(15,12) = "M00": cellChar(15,13) = "E00": cellChar(15,14) = "N00": cellChar(15,15) = "T00"
Document.write ("<body bgcolor='#ceb55a' background='images/bg2.gif' bottommargin=100% leftmargin=1% rightmargin=1% bgproperties='fixed'>")
Document.Write ("<form name='f1' method='POST' align='center'>")
Document.Write ("<h1 align='center' style='width: 100%; )'><b>Mot croisé</font></b></h1>")
Document.Write ("</div>")
Document.Write ("<div align='center' style='height: 1'><center>")
Document.Write ("<table id='table1' border='0' width='500' height='500' cellspacing='1'>")
idF = 0
for i = 1 to 15
Document.Write ("<tr>")
Document.Write ("<td width='5' valign='middle' align='center' height='5' border='0'> </td>")
for j = 1 to 15
idF = idF + 1
numID = mid(cellChar(i,j),2,2)
bgCol = "white"
ftCol = "#632121"
inCol = "#ffffff"
if asc(cellChar(i,j)) = 32 then bgCol="black" : ftCol="#000000" : inCol="#000000" : end if
if numID = "00" then ftCol="#ffffff" end if
Document.Write ("<td bgcolor=" & bgCol & " width='5' valign='bottom' align='center' height='5' style='border-style: solid; border-width: 1'>")
Document.Write ("<p valign='top' align = 'left'><font face = 'Arial' size = '2' color = '" & ftCol & "'><sup>" & numID & "</sup></font>")
Document.Write ("<input type = 'text' name ='charAns" & idF & "' onChange='' size = '1' style = 'font-size:10pt; text-tranform:suppercase; background-color:" & inCol & ";font-weight:bold; text-align:center; border-style:solid; border-color=" & inCol & "; maxlength='1'></p>")
Document.Write ("</td>")
next
Document.Write ("<td width='5' valign='bottom' align='center' height='5' border='0'> </td>")
Document.Write ("</tr>")
next
Document.Write ("</table></center>")
Document.Write ("</div></form>")
Document.Write ("</tr></table><p></p>")
Document.Write ("<table align=center width=500>")
Document.Write ("<center><tr>")
Document.Write ("<td width=33%><p id='p1' align='center' style='filter: ; font-family: arial; font-variant: small-caps; font-weight: bold; font-size: 16; cursor: hand; color: #632121' ><font onMouseOver=p1.style.color='#000000' onMouseOut=p1.style.color='#632121' onclick = 'reLoadPage()' >Essayer de<br>nouveau</legend></td>")
Document.Write ("<td width=33%><p id='p3' align='center' style='filter: ; font-family: arial; font-variant: small-caps; font-weight: bold; font-size: 16; cursor: hand; color: #632121'><font onMouseOver=p3.style.color='#000000' onMouseOut=p3.style.color='#632121' onclick = 'chkBoard()' >Vérifier vos<br>réponses !</td>")
Document.Write ("<td width=33%><p id='p2' align='center' font-family: arial; style='filter: ; font-variant: small-caps; font-weight: bold; font-size: 16; cursor: hand; color: #632121'><font onMouseOver=p2.style.color='#000000' onMouseOut=p2.style.color='#632121' onclick = 'prvPage()' >Quitter</td>")
Document.Write ("</tr></table><p></p>")
Document.Write ("<table border=0 cellpadding=4 cellspacing=0 width=><tr valign=top>")
Document.Write ("<td align=center></td>")
Document.Write ("</td></tr></table>")
Document.Write ("<table align=center border=0 width=600>")
Document.Write ("<tr>")
Document.Write ("<td width=50% height='0' border='0' ><b><font face='arial' size='4' color='#632121'>Horizontalement</font></b></td><td width=50% ><b><font face='arial' size='4' color='#632121'>Verticalement</font></b></td></tr>")
Document.Write ("<tr><td border='0' valign='top'><font face='arial' size='-1' color='#000000'><b>")
Document.Write ("1-A Pays Scandinave.<br>" )
<!--plein d'autre questions ici -->
Document.Write ("</p></td>")
Document.Write ("<td width='50%' valign='top'><font face='arial' size='-1' color='#000000'><b>")
Document.Write ("A-1 Mois du naufrage.<br>")
<!--plein d'autre questions ici -->
Document.Write ("</p></td>")
Document.Write ("</tr></table><p></p>")
Sub wrtVal()
i = 1
for j = 6 to 15
MsgBox " la police est " & f1(2).value & "." & mid(cellChar(i,j),1,1)
next
End sub
Sub prvPage()
window.history.back 1
End sub
Sub chkBoard()
k = 1
for i = 1 to 15 : for j = 1 to 15 : k = k + 1
if mid(cellChar(i,j),1,1) <> " " then
retVal = strComp(f1(k).value, mid(cellChar(i,j),1,1), 1)
if retVal <> 0 then MsgBox " vous n'avez pas trouvé toutes les bonnes réponses", 48 : exit sub : end if
end if
y = y + 1
<!-- MsgBox " Current number is " & y & " " & f1(k).value-->
next : next
if y = 81 then MsgBox " !!! BRAVO !!! ", 64 : end if
End sub
Sub reLoadPage()
document.url="motcroise.asp"
End sub
window.status ="Concours mot croisé Gunni le Gauche"
<!-- window.open "http://www.edvlb.com/diandelacombe", "MSwindow", "toolbar=no", "resizeable=no" -->
<!-- MsgBox " " & navigator.appName & " " & navigator.appVersion & " " -->
</Script> |
tchoune 
Mot croisé en JavaScript, VBScript et DHTML*
Répondre avec citation
Partager