aiuto per script complicato

[Rubino]

questo script così come fatto è obbligatorio ed indispensabile la condizione dell'indice mensile.
perchè su 12 estrazioni in 150 tot, va a ricerca solo di quelle aventi dell'indice mensile corrispondente ad ogni ciclo.

perchè troverebbe 150 estrazioni tutte valide e non 12 soltanto.
perchè tutto il resto dell'elaborazione si ripercuote su questa condizione obbligatoria.

lo puoi vedere da qua

Richiede il numero di estrazioni da considerare
numes=InputBox("Numero di estrazioni da considerare:",,150)

in altre parole non si può modificare questa impostazione, ma bisognerebbe rifare completamente lo script
una volta stabilite le nuove condizioni di cosa si vuole ottenere.

prova fare qualche ricerca, magari già esiste uno script che fa quello che vuoi, fatto da qualcuno.
per ogni estrazione


se la memoria non mi inganna, questo è un procedimento che usava claudio, alcuni anni fa.
è il suo modo di elaborare i sommativi o adattatori, e di un certo Giorgio o Giulio
dovresti provare a chiedere a loro.

 

[ghio]

Sub main()
Dim numeri(10)
Dim simp(90),spia(90)
Dim att
'richiede di inserire il numero da esaminare
num=InputBox("Inserisci il numero su cui fare la ricerca",,1)
r=InputBox("Inserisci il numro della ruota su cui fare la ricerca",,1)
ric=InputBox("Inserisci il numero di estrazioni di ricerca anteriori o posteriori",,9)
'Fase di inizializzazione
For i=1 To 10
numeri(i)=0
Next
numeri(1)=num
For i=1 To 10
ImpostaRuota i,False
Next
ImpostaRuota r,True
att=EstrazioneFin
For i=1 To 90
simp(i)=0
spia(i)=0
Next
'inizio ricerca
For i=1 To 100 'il valore "n" dopo il To indica che effettua una ricerca sulle ultime "n" volte che il numero
'su cui fare la ricerca è uscito.
n=Ritardo(att-250,att,numeri,1)
att=att-n
'ricerca i numeri spia
For sp=att-ric To att-1
For j=1 To 5
spia(Estratto(sp,r,j))=spia(Estratto(sp,r,j))+1
Next
Next
'ricerca i numeri simpatici
For si=att+1 To att+ric
For j=1 To 5
simp(Estratto(si,r,j))=simp(Estratto(si,r,j))+1
Next
Next
att=att-1
Next
'scrive i risultati
Scrivi " Ruota N1 N2 Spia Simpatico"
For k=1 To 90
Scrivi FormatSpaceR(NomeRuota(r),8)+FormatSpaceR(CStr(eval(num)),4)+FormatSpaceR(CStr(eval(k)),4)+FormatSpaceR(CStr(eval(spia(k))),5)+FormatSpaceR(CStr(eval(simp(k))),8)
Next
Scrivi "L'output va letto nel seguente modo:"
Scrivi "Ruota è ovvio, è la ruota su cui è stata effettuata la ricerca"
Scrivi "Il numero N1 è il numero su cui è effettuata la ricerca."
Scrivi "N2, spia e simpatico vanno letti così:"
Scrivi " ""Il numero N2 è uscito (valore di""Spia"") volte Prima di N1"
Scrivi " ""ed è uscito (valore di ""Simpatico"") volte dopo N1"
Scrivi " Es. Bari 1 35 48 53 si legge come"
Scrivi "Su Bari il 35 è uscito 48 volte come spia del 1 e 53 volte come simpatico del 1"
'Osservazione: per quanto riguarda il salvataggio, basta che salvi l'output dello script
End Sub

perché mi da errore rubino

 

[Alien.]

errore
ImpostaRuota i,False

 

[ghio]

infatti ma il perché?

 

[salvo50]

Ciao a Tutti.

La funzione impostaruota non esiste in Spaziometria, almeno negli aiuti non c'è.

 

[ghio]

ma non va neanche su l8

 

[Alien.]

è............ALLORA..........c'è un correttore di bozze ?????

 

[Master]

Ciao a tuti
corretto per spaziometria

Anticipazione (Spoiler)

'https://forum.lottoced.com/threads/aiuto-per-script-complicato.2179896/page-18#post-2206240
Sub Main()
Dim numeri(10),ruota(1)
Dim simp(90),spia(90)
Dim att
'richiede di inserire il numero da esaminare
num = InputBox("Inserisci il numero su cui fare la ricerca",,1)
r = InputBox("Inserisci il numro della ruota su cui fare la ricerca",,1)
ric = InputBox("Inserisci il numero di estrazioni di ricerca anteriori e posteriori",,9)
qc = InputBox("Inserisci quanti casi",,100)
'Fase di inizializzazione
ruota(1) = r
'For i = 1 To 10
'numeri(i) = 0
'Next
numeri(1) = num
'For i=1 To 10
'ImpostaRuota i,False
'Next
'ImpostaRuota r,True
att = EstrazioneFin
For i = 1 To 90
simp(i) = 0
spia(i) = 0
Next
Scrivi"Ricerca dal " & DataEstrazione(att),1,0,,2
'inizio ricerca
For i = 1 To qc 'il valore "qc" dopo il To indica che effettua una ricerca sulle ultime "n" volte che il numero
'su cui fare la ricerca è uscito.
'n=Ritardo(att-250,att,numeri,1)
n = SerieRitardo(att - 250,att,numeri,ruota,1)
att = att - n
'ricerca i numeri spia (Frequenti)
For sp = att - ric To att - 1
For j = 1 To 5
spia(Estratto(sp,r,j)) = spia(Estratto(sp,r,j)) + 1
Next
Next
'ricerca i numeri simpatici(Frequenti)
For si = att + 1 To att + ric
For j = 1 To 5
simp(Estratto(si,r,j)) = simp(Estratto(si,r,j)) + 1
Next
Next
att = att - 1
Next
'scrive i risultati
Scrivi " al " & DataEstrazione(att + 1),1,,,2
Scrivi "del N° " & num & " sulla ruota di " & NomeRuota(r) & " in " & i - 1 & " casi trovati",1,,,2
Scrivi
Scrivi "Ruota N1 N2 Spia Simpatico"
For k = 1 To 90
Scrivi FormatSpace(NomeRuota(r),8) + FormatSpace(CStr(eval(num)),4) + FormatSpace(CStr(eval(k)),4) + FormatSpace(CStr(eval(spia(k))),5) + FormatSpace(CStr(eval(simp(k))),8)
Next
Scrivi "L'output va letto nel seguente modo:"
Scrivi "Ruota è ovvio, è la ruota su cui è stata effettuata la ricerca"
Scrivi "Il numero N1 è il numero su cui è effettuata la ricerca."
Scrivi "N2, spia e simpatico vanno letti così:"
Scrivi " ""Il numero N2 è uscito (valore di""Spia"") volte Prima di N1"
Scrivi " ""ed è uscito (valore di ""Simpatico"") volte dopo N1"
Scrivi " Es. Bari 1 35 48 53 si legge come"
Scrivi "Su Bari il 35 è uscito 48 volte come spia del 1 e 53 volte come simpatico del 1 "
'Osservazione: per quanto riguarda il salvataggio, basta che salvi l'output dello script
End Sub

 

[ghio]

otttimo ma manca il valore si riferimento quante volte è uscito il numero che si va a ricercare

 

[ghio]

non corrisponde esempio mettendo ruota 1 estrazione 1 e numero 1
Ruota N1 N2 Spia Simpatico
Bari 1 1 6 6
Bari 1 2 7 7
Bari 1 3 6 9
Bari 1 4 6 4
Bari 1 5 5 8
vorebbe dire il 2
per una estrazione sarebbe uscito 7 volte prima e 7 volte dopo
non è cosi
l 1 è uscito 7 volte nell ultime 100 estraz
a bari

 

[Master]

otttimo ma manca il valore si riferimento quante volte è uscito il numero che si va a ricercare

sta scritto nello script che hai postato..100 volte

For i=1 To 100 'il valore "n" dopo il To indica che effettua una ricerca sulle ultime "n" volte che il numero
'su cui fare la ricerca è uscito.

L'ho modificato inserendo la scelta delle volte
riscarica quello sopra

 

[Master]

non corrisponde esempio mettendo ruota 1 estrazione 1 e numero 1
Ruota N1 N2 Spia Simpatico
Bari 1 1 6 6
Bari 1 2 7 7
Bari 1 3 6 9
Bari 1 4 6 4
Bari 1 5 5 8
vorebbe dire il 2
per una estrazione sarebbe uscito 7 volte prima e 7 volte dopo
non è cosi
l 1 è uscito 7 volte nell ultime 100 estraz
a bari

Significa : nelle 100 volte che il N° 1 è stato estratto
il n° 2 è uscito 7 volte nelle 1 estrazioni precedente e successiva


7 volte prima PRIMA
13.02.2018 9434 Bari 43.50.76.02.22
15.02.2018 9435 Bari 01 55 28 12 88

14.09.2017 9369 Bari 25.89.02.46.09
16.09.2017 9370 Bari 67 58 01 85 37

16.08.2017 9356 Bari 38.57.73.74.02
17.08.2017 9357 Bari 70 01 57 47 19

26.09.2015 9061 Bari 90.73.29.02.24
29.09.2015 9062 Bari 79 21 01 34 09

30.06.2015 9023 Bari 56.90.54.85.02
02.07.2015 9024 Bari 01 25 39 13 31

29.03.2014 8827 Bari 23.02.34.65.12
01.04.2014 8828 Bari 80 01 08 59 89

06.08.2011 8413 Bari 15.58.57.02.61
09.08.2011 8414 Bari 68 06 01 64 78

7 volte DOPO
03.08.2019 9664 Bari 12 61 58 01 71
06.08.2019 9665 Bari 21.77.81.02.71

05.01.2019 9574 Bari 01 30 18 25 23
08.01.2019 9575 Bari 21.04.09.63.02

29.09.2015 9062 Bari 79 21 01 34 09
01.10.2015 9063 Bari 82.72.05.24.02

22.09.2015 9059 Bari 73 15 49 01 75
24.09.2015 9060 Bari 03.66.06.25.02

30.10.2014 8919 Bari 30 47 48 35 01
03.11.2014 8920 Bari 02.38.10.08.81

23.02.2012 8499 Bari 39 33 15 26 01
25.02.2012 8500 Bari 13.02.76.73.53

30.05.2009 8071 Bari 31 62 23 08 01
03.06.2009 8072 Bari 37.04.02.78.60

buona giornata

 

[ghio]

4-7-9-11-12-13-15-16-18-20-21-22-23-25-26-29-30-31-32-33-34-37-45-47-51-54-56-57-58-60-65-66-68-70-76-77-79-82-83-87 Tot.nr 40
rnetativo terno quaterna na

 

[ghio]

Sub Main()
Dim dati(10,5)
Dim dati2(10,5,10) '''estratti UGUALIqta 2 estraz.consec.
Dim dati3(10,5,10) '''ambi qta
Dim dati4(10,5,10,5) '''estratti Posizioni Provenienza
Dim uestr(10,5) ''ritardo corr. (fine-Ult.a Estraz.Uscito)
Dim Nestr(10,5) ''numero Ult.uscito
Dim maxruote(10) '''ritardi massimi per sorti ambo/terno/quaterna/cinquina a richiesta
Dim rie(2999),very(2999,5),Nrit50(10,5),Nmax50(10,5)
Dim es,nsorte,r1,Inizio,oggi,ru,ru2,p
'''necessari
nsorte = InputBox("Calcola RitardoStorico x sorte 2,3,4,5",,2)
es = InputBox("Quante estrazioni vuoi controllare ?",,100)
'''' facoltativi
v = CInt(InputBox("Ambi Verifica in n.colpi",,3))
r1 = CInt(InputBox("Facoltativo Ruote Sel.di Gioco ",,"0"))
det = InputBox("Facoltativo Vuoi Lista ambi Usciti? S/N ",,"N")
es = CInt(es)
Inizio = EstrazioneFin - es
oggi = EstrazioneFin - v
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ColoreTesto 2
Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi "Mod. GHIO-20-Bep-RmaxeRcEstrattoRipetizioneAColpo ",1,,7,5
Scrivi "Condizione : Verifica Ambi n.colpi di gioco " & v,1
Scrivi "Condizione : Vuoi Lista degli Ambi Usciti? S/N " & det,1
If r1 > 0 Then Scrivi "Condizione : ListaParziale Ambi in Corso Ruota di " & SiglaRuota(r1),1
If r1 = 0 Then Scrivi "Condizione : ListaParziale Ambi in Corso Ruota di (Non Richiesta) ",1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''
''''calcola ritardo di colpo Sinonimo di ritardo di Ruota per le 10 ruote per la sorte richiesta
Call CalcolaRitardoStoricoCinquanta(EstrazioneFin,nsorte,Nrit50,Nmax50)
'''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Scrivi: ColoreTesto(1)
Scrivi "Tabella 1 Situazione all'Estr.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1,,1,4
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
Scrivi "Esempio: Rit1/Rc o posizione viene segnalato l'ultima estrazione che ha interessato la posizione ed il ritardo in n.colpi"
Scrivi "Esempio: n1 n2 etc. sono l'ultimo numero uscito che ha interessato la posizione"
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
For i = Inizio To EstrazioneFin
AvanzamentoElab Inizio,EstrazioneFin,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto(i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
'''calcola uscite e n.con
dati(ru,p) = dati(ru,p) + 1 '' contatori uscite
ne = EstrazioneFin - i
''''ritardo concorsi
uestr(ru,p) = i & "/" & Format2(ne) '' ultima estr.uscita
Nestr(ru,p) = Format2(es1) '''numero ult.uscito
'''
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
dati4(ru,p,ru2,p2) = dati4(ru,p,ru2,p2) + 1
'''controlla se ambo uscito a colpo
ReDim an(2),ar(2),matriceestrritorno(10,5)
For rr = 1 To 10
For w = 1 To 5
matriceestrritorno(rr,w) = Estratto(i,rr,w)
Next
Next
''''
For b = 1 To 5
an(1) = es1
an(2) = Estratto(i + 1,ru2,b)
'''verifica esito
'''''
For z1 = 1 To v ''' ncolpi
'
For z2 = 1 To 10 '''' nruote
If z2 = ru Or z2 = ru2 Then
'
ca = 0:cz = 0
For z3 = 1 To 5 ''' estratti
If Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(1)) Or Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(2)) Then
ca = ca + 1
End If
Next
If ca = 2 Then
ColoreTesto(0)
dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
cg = cg + 1
cz = 1
If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & " pos." & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " nr. " & Format2(an(1)) & "." & Format2(an(2)) & " " & i + 1 + z1 & " Colpo n." & z1 & " " & an(1) & "." & an(2),1
ColoreTesto(0)
End If
End If
Next
Next
'''''riepiloga previsioni in corso
If i >= oggi And an(1) <> an(2) Then
ar(1) = ru
ar(2) = ru2
Call StatisticaFormazioneTurbo(an,ar,2,retrit,retritmax,,,3950,EstrazioneFin)
qq = qq + 1
rie(qq) = i & " / " & i + 1 & " Ruote " & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " Nr." & es1 & "-" & es2 & " In gioco per n.colpi.." &(i + 1 + v) - EstrazioneFin & " Ambo..." & an(1) & " " & FormatSpace(an(2),5) & " Ritn.colpi " & EstrazioneFin -(i + 1)
very(qq,1) = i + 1
very(qq,2) = ru
very(qq,3) = ru2
very(qq,4) = an(1)
very(qq,5) = an(2)
End If
Next
'''''
End If
Next
Next
Next
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next
ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5 Estr/Rc Estr/Rc Estr/Rc Estr/Rc Estr/Rc n1 n2 n3 n4 n5",1,,2,5
For k = 1 To 10
Tab1 = SiglaRuota(k) & " "
Tab2 = "" : Tab3 = ""
For pp = 1 To 5
Tab1 = Tab1 & FormattaStringa(dati(k,pp),"000") & " "
Tab2 = Tab2 & uestr(k,pp) & " "
Tab3 = Tab3 & Nestr(k,pp) & " "
Next
Scrivi Tab1 & " " & Tab2 & " " & Tab3,1
Next
Scrivi:Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze, Inoltre ci indica l'esatta Provenienza Ruota/Posizione "
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
Scrivi
ColoreTesto(0)
Scrivi Space(20) & "E S T R A T T I " & Space(17) & "||| A M B I ",1,,2,5
For ru = 1 To 10
ColoreTesto(0)
Scrivi Space(13) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve" & Space(2) & "Tot. |-|" & Space(2) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|",1
ColoreTesto(1)
For p = 1 To 5
Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
FormatSpace(dati2(ru,p,1),5) + _
FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
FormatSpace(dati2(ru,p,10),4) + FormatSpace(dati(ru,p),5) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
FormatSpace(dati3(ru,p,1),5) + _
FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + FormatSpace("|",1),1,,1,4
'''''
'''''provenienza ruota e posizione
For pi = 1 To 5
ColoreTesto(2)
Scrivi FormatSpace(" >Ru.Pro.",4) + FormatSpace(pi,4) + _
FormatSpace(dati4(ru,p,1,pi),5) + _
FormatSpace(dati4(ru,p,2,pi),5) + FormatSpace(dati4(ru,p,3,pi),5) + _
FormatSpace(dati4(ru,p,4,pi),5) + FormatSpace(dati4(ru,p,5,pi),5) + _
FormatSpace(dati4(ru,p,6,pi),5) + FormatSpace(dati4(ru,p,7,pi),5) + _
FormatSpace(dati4(ru,p,8,pi),5) + FormatSpace(dati4(ru,p,9,pi),5) + _
FormatSpace(dati4(ru,p,10,pi),4) + " --- ",1
Next
ColoreTesto(0)
Scrivi String(161,"-")
Next
Scrivi String(161,"-")
Next
ColoreTesto(0)
Scrivi " Totale Ambi usciti in " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
''''' Parzializzazione con eventuale Ruota Richiesta dell'output degli Ambi
''''' Nota se non viene scelta una ruota salta il riepilogo degli ambi
''''riepilogo previsioni in corso della sola ruote scelta
If r1 > 0 Then
Scrivi
Scrivi "E l e n c o A m b i R i l e v a t i Non ancora Usciti nelle Ultime " & V & " Estrazione In Archivio ",1
For n = 1 To qq
'''controllasolo ruote sel di gioco
If Int(very(n,2)) = r1 Or Int(very(n,3)) = r1 Then
''''
key2 = Mid(rie,20,11)
If giro = 0 Then
ambilista = Left(rie,31) & " - Ambi "
End If
If key1 <> key2 And giro = 4 Then
Scrivi "----------"
Scrivi ambilista & " " & ambilista2 & " Colpo.n." & EstrazioneFin - Int(Mid(ambilista,8,4)),1
ambilista = Left(rie,31) & " - Ambi "
ambilista2 = ""
key1 = key2
giro = 0
End If
giro = giro + 1
'''prepara campi per verifica esito
ReDim ruote(2),num(2)
id = very(n,1)
ruote(1) = very(n,2)
ruote(2) = very(n,3)
num(1) = very(n,4)
num(2) = very(n,5)
Call VerificaEsitoTurbo(num,ruote,id + 1,2,,,,,retestratti,retidestr)
If retestratti = "" Then
ambilista2 = ambilista2 & Mid(rie,74,8) & " | "
Else
ColoreTesto(0)
Scrivi rie
ColoreTesto(2)
Scrivi "---- esito positivo ---- " & retidestr & " colpo n. " & retidestr - id & " " & retestratti,1
csuc = csuc + 1
ColoreTesto(0)
End If
''''
End If
Next
End If
ColoreTesto(1)
Scrivi: Scrivi " Totale Ambi in Elenco x " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & qq,1
'' Scrivi " Totali Ambi con esito positivo negli ultimi " & V & " colpi di gioco " & csuc,1
Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
End Sub
Function CalcolaRitardoStoricoCinquanta(EstrazioneFin,nsorte,nrit50,nmax50)
ColoreTesto(0)
ReDim MatriceEstrRitorno(10,5),maxruote(10),ritruote(10),ar(1)
Dim nec,ff1,ff2,vvt,retestratti,retidestr,zzz,nu,ritardo,rigaout,zzzz,wwww,rigaout2,num,uscito
Scrivi
Inizio = 3950
For nec = Inizio To EstrazioneFin - 1
Messaggio(nec)
ReDim Cinquanta(50)
Call GetEstrazioneCompleta(nec,MatriceEstrRitorno)
'''carico in arrays cinquanta i 50 estratti E calcola ritardi x estratto a colpo
vvt = 0
For ff1 = 1 To 10
For ff2 = 1 To 5
vvt = vvt + 1
Cinquanta(vvt) = Estratto(nec,ff1,ff2)
num = Estratto(nec,ff1,ff2)
uscito = EstrattoRitardoTurbo(11,num,nec,nec + 1)
If uscito = 0 Then
If nrit50(ff1,ff2) > nmax50(ff1,ff2) Then
nmax50(ff1,ff2) = nrit50(ff1,ff2)
End If
nrit50(ff1,ff2) = 0
Else
nrit50(ff1,ff2) = nrit50(ff1,ff2) + 1
End If
Next
Next
'*********************************************************************************************
Call EliminaRipetuti(Cinquanta) '' elimino i nr.ripetuti
'''verifica esito a colpo sulle 10 ruote della sorte RICHIESTA (AMBO/TERNO/QUATERNA)
For ff1 = 1 To 10
ar(1) = ff1
Call StatisticaFormazioneTurbo(Cinquanta,ar,nsorte,ritardo,,,,nec,nec + 1)
If ritardo <> 0 Then
ritruote(ff1) = ritruote(ff1) + 1 '''accumula ritardo
Else
If ritruote(ff1) > maxruote(ff1) Then
maxruote(ff1) = ritruote(ff1)
End If
ritruote(ff1) = 0 ''''Azzera ritardo corrente
End If
Next
'''utility facoltativa per controllo dati Ritardi
''''' If nec >= EstrazioneFin - 7 Then
''''' Scrivi nec & "...nr." & StringaNumeri(Cinquanta,"-")
''''' End If
'***********************************************************************************************
Next
'''' Riepilogo prospetto
Scrivi " T a b e l l a 0 - Parte 1 Relativa alle sorti Ambo-Terno-Quaterna-Cinquina ",1,,1,4
Scrivi "Riepilogo Ritardo Corrente e Massimo Storico per esito a colpo per la sorte..." & nsorte,1
Scrivi "dei Cinquanta Numeri Identificati dall'ultima estrazione n." & EstrazioneFin,1
Scrivi
Scrivi "Periodo Considerato da - a : " & Inizio & " / " & EstrazioneFin,1
Scrivi
Scrivi "Ritardo Ripetizione dell'Ambo a Colpo",1,,1,4
Scrivi
For zzz = 1 To 10
Scrivi SiglaRuota(zzz) & " Rit.Ripet. " & FormattaStringa(ritruote(zzz),"00") & " Rit.Max. " & FormattaStringa(maxruote(zzz),"000"),1
Next
'''''''
'''''riepiloga ritardo e Massimo delle 50 posizioni
Scrivi
Scrivi " T a b e l l a 0 - Parte 2 Relativa alle sorti Estratto e le 5 Posizione",1,,2,4
Scrivi "Riepilogo Ritardo Ripetizione e Massimo Storico per esito a colpo per sorte Estratto",1
Scrivi
Scrivi "Periodo Considerato da - a : " & Inizio & " / " & EstrazioneFin,1
Scrivi
Scrivi " Ritardo Ripetizione Massimo dal 1946 ",1,,2,4
Scrivi "Ru P1 P2 P3 P4 P5 | 1x 2x 3x 4x 5x ",1
For zzzz = 1 To 10
rigaout = SiglaRuota(zzzz) & " "
rigaout2 = " "
For wwww = 1 To 5
rigaout = rigaout & nrit50(zzzz,wwww) & " "
rigaout2 = rigaout2 & nmax50(zzzz,wwww) & " "
Next
Scrivi rigaout & " | " & rigaout2,1
Next
Scrivi:Scrivi
End Function


RUBINO RIPARTENDO DA QUA .
QUESTO SCRIPT FATTO DA TE CHIEDO UNA MODIFICA SE POSSIBILE ,CERCA GLI AMBI SULLE DUE RUOTE,
GIUSTO,POI SI PUO DARE I COLPI ,BENE TRA QUESTI SI POSSONO VEDERE QUELLI IN CORSO IN BASE AI COLPI
ESEMPIO
ESITO---> 9658 e 9659 pos.RO-3 / MI-2 nr. 03.55 9663 Colpo n.4 3.55
-ESITO---> 9658 e 9659 pos.VE-1 / VE-4 nr. 42.70 9661 Colpo n.2 42.70
-ESITO---> 9659 e 9660 pos.BA-1 / RO-4 nr. 60.83 9666 Colpo n.6 60.83
-ESITO---> 9659 e 9660 pos.BA-4 / RO-2 nr. 83.60 9666 Colpo n.6 83.60
-ESITO---> 9660 e 9661 pos.VE-1 / CA-5 nr. 85.05 9663 Colpo n.2 85.5

SULLA PRIMA RIGA COLPO 4 AL TERZO COLPO SAREBBE STATO IN CORSO O SBAGLIO'?

 

[vincenzo4221]

ciao a Tutti..e ? ? ? ,
mi chiedevo se era possibile fare in modo che lo script pubblicato da ghio (qui sopra) dia anche gli ambi in corso...o almeno suggeriteci se è possibile ottenere i dati cambiando qualcosina....