Option Explicit
Sub Main()
Dim r,a,b,ce,k,Ini,fin,casi,ok,es,r1,r2,p1,p2
ColoreTesto 2
Scrivi" RICERCA statistica condizione DI MAGNIC"
Scrivi" LIST by BaffoBlù"
ColoreTesto 0
Dim ruota(11)
Dim ruote(11)
Dim n1(10)
Dim n2(10)
Dim poste(10)
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",10444)' TUTTE in archivio
k = InputBox("per quanti colpi?","colpi di gioco",12)
Ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = Ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 6 To 6
For r2 = 7 To 7
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If p1 = p2 Then
'---------------------------------------------
If a = 18 And b = 81 Or a = 81 And b = 18 Then
ok = 1
'-----------------------------------------------
If ok = 1 Then
casi = casi + 1
Scrivi String(65,"=") : ColoreTesto 1
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi SiglaRuota(r2) & " " & StringaEstratti(es,r2)
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spie " & a,1
Scrivi "Su " & FormatSpace(NomeRuota(r2),10) & " Spie " & b,1
ruota(1) = 6
ruote(1) = 7
'------------------------------------
'NA *** 43.18.70.55.87.54.52.17.66.77
'
'PA *** 38.88.03.58.57.19.31.72.90.45
'------------------------------------
n1(1) = 43
n1(2) = 18
n1(3) = 70
n1(4) = 55
n1(5) = 87
n1(6) = 54
n1(7) = 52
n1(8) = 17
n1(9) = 66
n1(10) = 77
'
n2(1) = 38
n2(2) = 88
n2(3) = 3
n2(4) = 58
n2(5) = 57
n2(6) = 19
n2(7) = 31
n2(8) = 72
n2(9) = 90
n2(10) = 45
'
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,k
ImpostaGiocata 2,n2,ruote,poste,k
Gioca es,1,,1
End If
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub