Script per numero uguale e altro distanza 30.

[Marcorun]

scusate se non sono nella giusta sezione....sono nuovo del forum...mi piacerebbe che qualcuno di voi mi potesse modificare questo script x il 10elotto da usare nel lotto....
Sub Main()' presenze su cicli di 9 estrazioni"
ImpostaArchivio10ELotto(1)
Scrivi " Statistica rilevamento Numeri per il 10 e lotto ",1,- 1,6
Scrivi String(85,"=")
Dim ruote(1)
Dim nm(1)
periodo = CInt(InputBox("lunghezza ciclo ",,15))
zero = CInt(InputBox("ultimo ciclo lunghezza, ? ",,5))
ultima = InputBox("Estrazione ultima",,EstrazioniArchivioDL)
pres = CInt(InputBox("N° di presenza nel ciclo ",,2))
pres1 = CInt(InputBox("N° presenze ultimo ciclo ",,0))
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica per ciclo 10 e lotto - creato by Mike58 - ",1
Scrivi " Correlazione e presenze dei singoli numeri in periodi di " & periodo & " estrazioni"
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Ultimo ciclo di " & zero & " estrazioni ... presenza ... zero "
Scrivi "-------------------------------------------------------------------------"


fine = EstrazioniArchivioDL
Inizio = EstrazioniArchivioDL - 200
dal1 =(ultima + 1) - zero
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
dal6 = dal5 - periodo
al6 = dal5 - 1
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
casi = casi + 1
Scrivi "_________________________________________________ __________________" & " ( caso n°.) " & casi
Scrivi " Periodo dal...al..." & dal1 & "/" & al1 & " " & DataEstrazione(ultima) & " Presenze del nr.." & a
Scrivi " Periodo dal...al..." & dal2 & "/" & al2 & " " & DataEstrazione(dal1) & " Presenze del nr.." & b
Scrivi " Periodo dal...al..." & dal3 & "/" & al3 & " " & DataEstrazione(dal2) & " Presenze del nr.." & c
Scrivi " Periodo dal...al..." & dal4 & "/" & al4 & " " & DataEstrazione(dal3) & " Presenze del nr.." & d
Scrivi " Periodo dal...al..." & dal5 & "/" & al5 & " " & DataEstrazione(dal4) & " Presenze del nr.." & e
Scrivi " Periodo dal...al..." & dal6 & "/" & al6 & " " & DataEstrazione(dal5) & " Presenze del nr.." & f
fre = a + b + c + d + e + f
Scrivi""
ColoreTesto 2
Scrivi " ----- numero " & nm(1) & " ritardo attuale " & rit & " --- presenza" & " ---> " & fre,2
ColoreTesto 0
End If
End If
End If
End If
End If
End If
Next
ColoreTesto 1
Scrivi "_________________________________________________ __________________________________________________ ___",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati " & " numeri totali " & casi & " .... [cicli di ] : " & periodo & " estraz.",- 1,6,3
Scrivi "_________________________________________________ __________________________________________________ ___",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
Scrivi " ----- numero " & Format2(nm(1)) & " Ritardo attuale " & Format2(rit) & " --- presenza nei cicli " & " ---> " & Format2(fre) & " .... [" & a & "." & b & "." & c & "." & d & "." & e & "." & f & "]",2
End If
End If
End If
End If
End If
End If
Next
Scrivi "_________________________________________________ __________________________________________________ __",2


End Sub


grazie

 

[salvo50]

Gli ambetti puoi tirarli via?
L'ambata è solo 1 non 2.Cosi' vedo da statistica se funziona.

Il resto va bene.

Grazie mille.

Per gli ambetti ho messo un inputbox, lo decidi tu se si deve fare la ricerca o no,

Estrazione n.9539 del 16.10.2018 BA 21 59 30 39 78 30 + 39 = 69
Estrazione n.9539 del 16.10.2018 RO 37 69 30 19 74 69 + 30 = 09

Completa la Terzina Simmetrica il Numero 39 AMBATA
Completa la Terzina Simmetrica degli estratti il Numero 09.Ambo 9-39 anche a tutte.

Allora l'ambata è solo il numero mancante della terzina simmetrica ottenuta con le somme

Estrazione generatrice del pronostico 09539 [124 - 16/10/2018]
G 0001 Numeri in gioco : 39.09 su BA RO per Estratto,Ambo

Qui hai messo queste due righe senza commenti, ne ho dedotto che va bene così, cioè questa ricerca ci deve essere, anche se è in contrasto con quello che hai scritto prima che l'ambata è solo una.

Estrazione n.9541 del 20.10.2018 NA 19 47 46 83 28 19 + 47 = 66
Estrazione n.9541 del 20.10.2018 NZ 62 19 82 77 18 19 + 77 = 06

Completa la Terzina Simmetrica il Numero 36 amabata.Al 2 c naz.

Questa ok è un'altro esempio

 

[salvo50]

Ciao Marcorun, vedo che è il tuo primo post, e probabilmente sei spratico del forum, però la tua richiesta non ha nessuna attinenza con questo 3D.

 

[Marcorun]

cominciamo bene!

 

[Juri]

Per gli ambetti ho messo un inputbox, lo decidi tu se si deve fare la ricerca o no,





Allora l'ambata è solo il numero mancante della terzina simmetrica ottenuta con le somme





Qui hai messo queste due righe senza commenti, ne ho dedotto che va bene così, cioè questa ricerca ci deve essere, anche se è in contrasto con quello che hai scritto prima che l'ambata è solo una.




Questa ok è un'altro esempio

L'ambata 39-9 non c'entra.E' una.Come hai visto dagli esempi va bene.

Grazie mille.

 

[salvo50]

Ciao a Tutti.

Ho tolto l'ambata dai due numeri