R
Roby
Guest
come da te richiesto:
Codice:
Sub Main()
ImpostaArchivio10ELotto(2)
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(2)
Dim nm(40)
Dim lun(90)
Dim anm(90)
fin = EstrazioniArchivioDL
storia = InputBox("Estrazioni Iniziale..",,fin)
lis = InputBox("verifica garanzia 2=Ambo 3=Terno 4=Quaterna 5=Cinquina 6=Sestina 7=Settina 8=Ottina 9=Novina 10=10 punti 11=11 punti 12=12 punti 13=13punti",,6)
s1 = InputBox("esamina solo presenze = 2 ",,2)
s2 = InputBox("esamina distanza (x) tra 2 estratti",,4)
s4 = InputBox("Verifica in n.colpi..",,6)
ColoreTesto 2
Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & " - " & fin & "/" & DataEstrazioneDL(fin)
Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi (script KeepSistema)"
Scrivi "_________________________________________________________________________________________________________________________________"
Scrivi
ColoreTesto 0
Ini = storia - 1
For Ini = Ini + 1 To fin
idestr = Ini
numeria = ""
numerib = ""
ok = 0
lunghetta = ""
z = z + 1
'''azzera schiere
For j = 1 To 90
anm(j) = 0
lun(j) = 0
Next
'''carica schiera con 20 numeri estratti
For h = 1 To 20
numeria = numeria & Format2(EstrattoDL(idestr - 1,h)) & " "
numerib = numerib & Format2(EstrattoDL(idestr,h)) & " "
Next
ColoreTesto 0
Scrivi "____________________________________________________________________________________________________"
Scrivi GetInfoEstrazioneDL(idestr - 1) & "...Estratti..." & numeria
Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeriB
ColoreTesto 2
''''----------------------------------------------------------------------------------------------------
num(1) = 0
num(2) = 0
''''''vede se presenze = 2 in 2 concorsi
For h = 1 To 20
num(1) = EstrattoDL(idestr,h)
pres = SerieFreqDL(idestr - 1,idestr,num,1)
If pres = 2 Then
ok = ok + 1
lun(ok) = Format2(num(1))
End If
Next
''''----------------------------------------------------------------------------------------------------
''''esamina distanza (x) tra 2 estratti
For h = 1 To 19
h1 = h
For h1 = h1 + 1 To 20
dis = EstrattoDL(idestr,h1) - EstrattoDL(idestr,h)
If Int(s2) = dis Then
num(1) = EstrattoDL(idestr,h)
num(2) = EstrattoDL(idestr,h1)
anm(num(1)) = Format2(num(1))
anm(num(2)) = Format2(num(2))
ColoreTesto 1
Scrivi "Rilevato...." & idestr & " " & DataEstrazioneDL(idestr) & "....Estratti aventi Distanza richiesta..." & dis & " ...... " & Format2(num(1)) & " - " & Format2(num(2))
End If
Next
Next
For j = 1 To 90
If anm(j) > 0 Then
ok = ok + 1
lun(ok) = anm(j)
End If
Next
''''----------------------------------------------------------------------------------------------------
EliminaRipetuti lun
ctr = 0
For j = 1 To 90
If lun(j) > 0 Then
lunghetta = lunghetta & Format2(lun(j)) & " "
ctr = ctr + 1
End If
Next
ColoreTesto 2
Scrivi "...numeri.in gioco..." & ctr & "......dal........" & idestr + 1 & "..." & lunghetta
ColoreTesto 0
'''prepara campi per lancio sviluppo del sistema ridotto
completa = lunghetta
k = s4
If Int(ctr) > 10 And Int(ctr) < 23 Then
risultati = Getridotto(completa,g,ctr,idestr,lis,k)
'''accumula punteggi del sistema
ReDim aV2(0)
Call SplitByChar(risultati,",",aV2) ' scompongo la decina
If aV2(0) > 0 Then
If Int(aV2(0)) > 0 Then die = die + Int(aV2(0))
If Int(aV2(1)) > 0 Then nov = nov + Int(aV2(1))
If Int(aV2(2)) > 0 Then ott = ott + Int(aV2(2))
If Int(aV2(3)) > 0 Then Sett = Sett + Int(aV2(3))
If Int(aV2(4)) > 0 Then sei = sei + Int(aV2(4))
If Int(aV2(5)) > 0 Then cinq = cinq + Int(aV2(5))
