Option Explicit
Sub Main
'''Ghio-Evol-Rubino "
Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
Dim bi,kk,jj,Ini,last,xyz,colonne,Scolonna,kw,jw,a,b,esf,ru,po,ctz,xx,ww
Dim art(10),provenrif(10,5,1),ambipos(4950,3)
Scrivi "Ghio-Evol-Rubino ",1,2,4
Scrivi "Rileva i 50 numeri di Estrazione nelle 10 Ruote",1
Scrivi "-- Verifica Numeri Usciti e Ripetuti nelle 10 Ruote",1
Scrivi "-- Verifica Ambi/terni/quaterne/cinquine Uscite e provenienza dalla Ruota e posizione ",1
Scrivi "-- Calcola Ritardo a Tutte ed a Ruota dei singoli Estratti Usciti ",1
''''
nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
esf = InputBox("dall Estraz.n.",,EstrazioneFin)
es = esf - 50
Ini = es
For jj = 1 To 10
art(jj) = jj
Next
'''''
'''''
'''carica arrays sequenza numeri estratti nell'ultima estrazione
ReDim linea(50),listapos(50)
For ru = 1 To 10
For po = 1 To 5
ctz = ctz + 1
linea(ctz) = Format2(Estratto(esf,ru,po))
listapos(ctz) = Format2(ctz)
Next
Next
For es = es + 1 To EstrazioneFin
S = 0
ReDim nr(90,2),NUMERI(60),anrpo(10)
For n = 1 To 90
rit = EstrattoRitardo(11,n,3950,es)
nr(n,1) = rit
nr(n,2) = n
If rit = 0 Then
S = S + 1
NUMERI(S) = n
End If
Next
'''
Scrivi:ColoreTesto(2)
Scrivi "Rubino-Ghio-Evol Verifica Lunghette nelle Ripetizioni Immediate ",1,,7,5
ColoreTesto(0)
Scrivi "Numeri usciti nell estrazione " & es & " / " & DataEstrazione(es) & " attesa per Ripetizione su varie ruote ",1
If es = EstrazioneFin Then
Scrivi "Sq.Posizioni " & GetTestoHtml(StringaNumeri(listapos," "),True,vbBlack,5,1)
Scrivi "Nr.Sequenza " & GetTestoHtml(StringaNumeri(linea," "),True,vbRed,5,1)
Scrivi "Nr.Ordinati " & GetTestoHtml(StringaNumeri(NUMERI,"-"),True,vbBlue,5,1) & " Tot.nr " & S,1
End If
ColoreTesto(1)
''''
If es + 1 <= EstrazioneFin Then
Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " minima dall estraz. " & es + 1 & " / " & DataEstrazione(es + 1),1
ColoreTesto(0)
ReDim ruote(1)
For h = 1 To 10
ruote(1) = h
c = 0
ReDim anrpo(10)
'''verifica esito al colpo successivo
Call VerificaEsitoTurbo(NUMERI,ruote,es + 1,nsorte,1,,retesito,,retestratti,retidestr)
'''''se negativo prova per più colpi
If retestratti = "" Then
retesito = " Neg.InCorso <<"
Call VerificaEsitoTurbo(NUMERI,ruote,es + 2,nsorte,,,retesito,,retestratti,retidestr)
If retestratti = "" Then
retesito = " Neg.InCorso <<"
retidestr = EstrazioneFin
c = 1
End If
End If
Call StatisticaFormazioneTurbo(NUMERI,ruote,2,retrit,retritmax,,retfre,3950,retidestr)
If retrit > 0 Then ColoreTesto(2) Else ColoreTesto(0) End If
If c = 1 Then ColoreTesto(7)End If
'''''''''''''''''''
If es <= EstrazioneFin Then
last = retidestr
xyz = 0
If retesito <> " Neg.InCorso <<" Then Call Provenienza(es,NUMERI,S,retestratti,last,provenrif,anrpo,xyz)
'''''''''''''''''''
'''sviluppo combinazione delle posizioni
ReDim nm(xyz)
If xyz = 2 Then
nm(1) = anrpo(1)
nm(2) = anrpo(2)
'' Scrivi StringaNumeri(nm,".")
ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
ambipos(Format2(nm(1)) & Format2(nm(2)),3) = retidestr
End If
If xyz > 2 Then
colonne = 0
colonne = SviluppoIntegrale(anrpo,2)
For kw = 1 To UBound(colonne)
Scolonna = ""
If ScriptInterrotto Then Exit For
For jw = 1 To 2
Scolonna = Scolonna & Format2(colonne(kw,jw)) & " "
nm(jw) = colonne(kw,jw)
Next
'' Scrivi StringaNumeri(nm,".")
ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
ambipos(Format2(nm(1)) & Format2(nm(2)),3) = retidestr
Next
End If
'''''''''''''''''''
Scrivi SiglaRuota(h) & " ..Rc./ Rx." & Format2(retrit) & " / " & Format2(retritmax) & " " & retidestr & " colpo " & retidestr - es & " " & retestratti & " " & retesito & " Key.Pos." & StringaNumeri(anrpo,"-"),1
Call calcolapresenzeposizioni(anrpo,ambipos,xyz)
Scrivi String(90,"*"):Scrivi
End If
Next
Scrivi String(90,"*")
End If
Next
ColoreTesto(0)
Scrivi:Scrivi "Riepilogo delle Migliori posizioni tra i 50 che hanno generato l'ambo",1
Scrivi "Periodo : da " & Ini & " / " & DataEstrazione(Ini) & " a " & esf & " / " & DataEstrazione(esf),1
Call OrdinaMatrice(ambipos,- 1,1)
For a = 1 To 49
For b = a + 1 To 50
If ambipos(Format2(a) & Format2(b),1) > 0 Then
xx = Left(ambipos(Format2(a) & Format2(b),2),2)
ww = Right(ambipos(Format2(a) & Format2(b),2),2)
Scrivi ambipos(Format2(a) & Format2(b),2) & " Pres." & ambipos(Format2(a) & Format2(b),1) & " Rc. " & FormattaStringa(esf - ambipos(Format2(a) & Format2(b),3),"000") & " Ambo Decod. " & GetTestoHtml(linea(Format2(xx)) & "." & linea(Format2(ww)),True,vbRed)
End If
Next
Next
Scrivi:Scrivi TempoTrascorso,1
End Sub
Function Provenienza(es,numeri,s,retestratti,last,provenrif,anrpo,xyz)
Dim rr,pp,MatriceEstrRitorno,ff,bi,kk,jj,rittt,ritru,progp
Dim num(5)
bi = 4 : kk = 0
For jj = 1 To 5
If Mid(retestratti,bi,2) <> ".." Then
kk = kk + 1
num(kk) = Mid(retestratti,bi,2)
End If
bi = bi + 3
Next
ColoreTesto(2)
Scrivi "Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) " & es & " " & StringaNumeri(num,"-"),1
ColoreTesto(0)
'''provenienza estratti
Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
progp = 0 : xyz = 0
For rr = 1 To 10
For pp = 1 To 5
progp = progp + 1
For ff = 1 To kk
If MatriceEstrRitorno(rr,pp) = Int(num(ff)) Then
xyz = xyz + 1
anrpo(xyz) = progp
provenrif(rr,pp,1) = num(ff)
rittt = EstrattoRitardoTurbo(11,num(ff),es - 35,last - 1)
ritru = EstrattoRitardoTurbo(rr,num(ff),es - 300,last - 1)
Scrivi es & "....." & SiglaRuota(rr) & " Pos. " & pp & " = " & Format2(num(ff)) & "== Pos.Prog." & Format2(progp) & " " & Format2(MatriceEstrRitorno(rr,pp)) & " Rit.TT " & rittt & " Rit.Ruota " & ritru,1,,,10
ColoreTesto(0)
End If
Next
Next
Next
End Function
Function calcolapresenzeposizioni(anrpo,ambipos,xyz)
Scrivi "Sviluppo Posizioni " & StringaNumeri(anrpo,"/") & " Tot.P." & xyz
End Function
