1 |
Rem Attribute
VBA_ModuleType=VBADocumentModule |
2 |
Option
VBASupport 1 |
3 |
Const MOSSE = 50 |
4 |
Const RIGA = 3 |
5 |
Const COLONNA =
16 |
6 |
Dim m_passo As
Integer |
7 |
|
8 |
Private Sub
avanti_Click() |
9 |
If
m_passo < RIGA
Then |
10 |
m_passo = RIGA |
11 |
End
If |
12 |
|
13 |
If
m_passo = MOSSE
Then |
14 |
MsgBox "Partita
conclusa.",
vbInformation |
15 |
Else |
16 |
ThisComponent.Sheets(0).GetCellByPosition(COLONNA,
m_passo-1).string
= "v" |
17 |
m_passo =
m_passo + 1 |
18 |
End
If |
19 |
End Sub |
20 |
|
21 |
Private Sub
indietro_Click() |
22 |
If
m_passo >= RIGA
Then |
23 |
m_passo =
m_passo - 1 |
24 |
ThisComponent.Sheets(0).GetCellByPosition(COLONNA,
m_passo-1).string
= "" |
25 |
End
If |
26 |
End Sub |
27 |
|
28 |
Private Sub
inizio_Click() |
29 |
Dim i
As Integer |
30 |
|
31 |
For i
= m_passo - 1 To
RIGA Step -1 |
32 |
ThisComponent.Sheets(0).GetCellByPosition(COLONNA,
i-1).string = "" |
33 |
Next |
34 |
|
35 |
m_passo = RIGA |
36 |
End Sub |
37 |
|
38 |
Private Sub
fine_Click() |
39 |
Dim i
As Integer |
40 |
|
41 |
m_passo = MOSSE |
42 |
|
43 |
For i
= RIGA To
m_passo - 1 |
44 |
ThisComponent.Sheets(0).GetCellByPosition(COLONNA,
i-1).string =
"v" |
45 |
Next |
46 |
End Sub |
1 |
Pedone bianco da
e2 ad e4 |
2 |
Pedone nero da
e7 ad e5 |
3 |
Cavallo bianco
da g1 a f3 |
4 |
Cavallo nero da
b8 a c6 |
5 |
Alfiere bianco
da f1 a c4 |
6 |
Alfiere nero da
f8 a c5 |
7 |
Pedone bianco da
b2 a b4 |
8 |
Alfiere nero da
c5 a b4 cattura
Pedone bianco |
9 |
Pedone bianco da
c2 a c3 |
10 |
Alfiere nero da
b4 ad a5 |
11 |
Pedone bianco da
d2 a d4 |
12 |
Pedone nero da
e5 a d4 cattura
Pedone bianco |
13 |
Arrocco bianco:
Re da e1 a g1 e
Torre da h1 a f1 |
14 |
Pedone nero da
d4 a d3 |
15 |
Regina bianca da
d1 a b3 |
16 |
Regina nera da
d8 a f6 |
17 |
Pedone bianco da
e4 a e5 |
18 |
Regina nera da
f6 a g6 |
19 |
Torre bianca da
f1 a e1 |
20 |
Cavallo nero da
g8 a e7 |
21 |
Alfiere bianco
c1 ad a3 |
22 |
Pedone nero da
b7 a b5 |
23 |
Regina bianca da
b3 a b5 cattura
Pedone nero |
24 |
Torre nera da a8
a b8 |
25 |
Regina bianca da
b5 ad a4 |
26 |
Alfiere nero da
a5 a b6 |
27 |
Cavallo bianco
da b1 a d2 |
28 |
Alfiere nero da
c8 a b7 |
29 |
Cavallo bianco
da d2 ad e4 |
30 |
Regina nera da
g6 a f5 |
31 |
Alfiere bianco
da c4 a d3
cattura Pedone
nero |
32 |
Regina nera da
f5 ad h5 |
33 |
Cavallo bianco
da e4 a f6 fa
scacco |
34 |
Pedone nero da
g7 a f6 cattura
Cavallo bianco |
35 |
Pedone bianco da
e5 a f6 cattura
Pedone nero |
36 |
Torre nera da h8
a g8 |
37 |
Torre bianca da
a1 a d1 |
38 |
Regina nera da
h5 a f3 cattura
Cavallo bianco |
39 |
Torre bianca da
e1 ad e7 cattura
Cavallo nero e
fa scacco |
40 |
Cavallo nero da
c6 ad e7 cattura
Torre bianca |
41 |
Regina bianca da
a4 a d7 cattura
Pedone nero e fa
scacco |
42 |
Re nero da e8 a
d7 cattura
Regina bianca |
43 |
Alfiere bianco
da d3 a f5 fa
scacco |
44 |
Re nero da d7 ad
e8 |
45 |
Alfiere bianco
da f5 a d7 fa
scacco |
46 |
Re nero da e8 a
f8 |
47 |
Alfiere bianco
da e3 ad e7
cattura Cavallo
nero e fa scacco
matto! |
|
|
|
|
|
|