Controllate se è giusto.
Modificando rt(1),rt(2) e le ruote ai punti a e b si può provare sulle varie coppie di ruote.
Sub Main()
Dim pt(2),rt(2),nn1(2),pta(1),ambata(2),nn2(2),nn3(2),post(3),nn4(2),nn5(2),nn6(2)
pt(2) = 1
post(3) = 1
pta(1) = 1
clp = 9 'colpi di gioco
rt(1) = 2 '1a ruota di gioco
rt(2) = 3 '2a ruota di gioco
ini = EstrazioneFin - 310
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IsUltimaDelMese(es) Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a = Estratto(es,CA_,5)
b = MassimoE(es,FI_)
'------------------------------giocate
ambata(1) = Fuori90(a+b)
If ambata(1) = 0 Then
ambata(1) = 90
End If
ambata(2) = ambata(1)- 1
If ambata(2) = 0 Then
ambata(2) = 90
End If
ImpostaGiocata 1,ambata,rt,pta,clp,1
'---------------------------------
nn1(1) = ambata(1)
nn1(2) =Fuori90(a+30)
ImpostaGiocata 2,nn1,rt,pt,clp,2
'---------------------------------
nn2(1) = nn1(1)
nn2(2) = Fuori90(a+60)
ImpostaGiocata 3,nn2,rt,pt,clp,2
'--------------------------------
nn3(1) = nn1(1)
nn3(2) = a
ImpostaGiocata 4,nn3,rt,pt,clp,2
'--------------------------------
nn4(1) = ambata(2)
nn4(2) = nn1(2)
ImpostaGiocata 5,nn4,rt,pt,clp,2
'------------------------------------
nn5(1) = ambata(2)
nn5(2) = nn2(2)
ImpostaGiocata 6,nn5,rt,pt,clp,2
'------------------------------------
nn6(1) = ambata(2)
nn6(2) = a
ImpostaGiocata 7,nn6,rt,pt,clp,2
'------------------------------------
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
Function IsUltimaDelMese(idEstr)
Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd("d",gMancanti,sData)
If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function