Novità

Qualcuno puo aiutarmi x questo script?

simon-simon

Junior Member
Ciao a chi può aiutarmi
avevo chiesto aiuto qualche giorno fa per questo script ma...
nessuno mi ha risposto
visto che qui tutti chiedono aiuto a te credo che sei tra i piu bravi..
spero tu possa aiutarmi

Vorrei che mi cercasse quale e l'ambo piu freq in dec naturale dopo num spia in stessa dec naturale

es.1 dopo il num 1 a Bari uscito 30 volte in qualsiasi posizione ha dato l'ambo 1-10 (25 volte )
es.2 dopo il num 1 a Bari uscito 15 volte in 1° posizione ha dato l'ambo 1-10 ( 14 volte) qui devo poter scegliere la posizione voluta1°-2°-3°-4°-5°
e anche quante volte poter cercare la spia voluta es. 5/6/7/8/9/10/20/30 volte

altro es.

es.1 dopo il num 21 a Milano impostato 18 uscite in qualsiasi posizione ha dato l'ambo 21-30 (15 volte )
es.2 dopo il num 21 a Milano uscito 12 volte in 4° posizione ha dato l'ambo 21-30 ( 10 volte ) qui devo poter scegliere la posizione voluta1°-2°-3°-4°-5°
e cosi via

e se possibile poter aggiungere una seconda ruota a scelta per il gioco

Grazie e spero nel tuo aiuto
saluti simon-simon
 

*blacklotto*

Super Member >PLATINUM<
Ciao,

non so a chi tu abbia rivolto la richiesta, ma ti lascio qualche listato che potrebbe interessarti.
Sono listati che ho raccolto in rete in tanti anni.

Primi 10 più frequenti usciti dopo il numero Spia ( tutti i 90 numeri - ruota a scelta )

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90,4)
Dim uscito(90,2)
Dim anum(10)
Dim nume(90,4)
my = MsgBox("1 - numeri rilevati " & Chr(13) & "2 - frequenza nei cicli dei numeri " & Chr(13) & "3 - Ritardo dei numeri rilevati " & Chr(13) & "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
r = InputBox("Su quale ruota?",,1)
colpi = InputBox("Quanti colpi?",,10)
ruote(1) = r
ini = 1
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = 1 To 90
Messaggio " Spia: " & sp & " < >"
Call AvanzamentoElab(1,90,sp)
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
num(i,4) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
If Posizione(a,r,num(n,1)) Then num(n,2) = num(n,2) + 1
frc = num(n,2)
fru = EstrattoFrequenza(r,n,es,es + colpi)
num(n,2) = frc
rit = EstrattoRitardo(r,n,Ini,fin)
rtsp = EstrattoRitardo(r,sp,Ini,fin)
num(n,3) = rit
num(n,4) = fru
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
If rtsp < 10 Then
Scrivi "_________________________________________________________________"
ColoreTesto 1
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp,0,0
ColoreTesto 7
Scrivi " ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
ColoreTesto 0
'
Else
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp
ColoreTesto 0
End If
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "
riga3 = "Ult.cc "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
anum(i) = num(i,1)
sf2 = SerieFreq(Ini,fin,anum,ruote,2)
sf3 = SerieFreq(Ini,fin,anum,ruote,3)
sr2 = SerieRitardo(Ini,fin,anum,ruote,2)
sr3 = SerieRitardo(Ini,fin,anum,ruote,3)
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 1
Scrivi riga3
ColoreTesto 0
Scrivi String(65,"-")
Scrivi"Frequenza combinazione per ambo " & sf2
Scrivi"Frequenza combinazione per terno " & sf3
Scrivi"Ritardo combinazione per ambo " & sr2
Scrivi"Ritardo combinazione per terno " & sr3
Next
End Sub


<b>ritardo attuale delle decine naturali per ambo</b>

Sub Main()
Dim n(90),n1(90),n2(90),n3(90),n4(90),n5(90),n6(90),n7(90),n8(90),n9(90),ru(1)
r = InputBox("Quale ruota vuoi analizzare ?",,5)
If r = "" Then Exit Sub
ru(1) = r
For x = 1 To 90
If DecinaNaturale(X) = 0 Then
n(X) = x
rt = SerieRitardo(1,EstrazioneFin,n,ru,2)
If rt < 0 Then rt = 0
End If
Next
Scrivi " Ruota di " & NomeRuota(r) & " : ritardo attuale delle decine naturali per ambo ",1
Scrivi
Scrivi" Numeri: " & StringaNumeri(n) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x1 = 1 To 90
If DecinaNaturale(x1) = 1 Then
n1(x1) = x1
rt1 = SerieRitardo(1,EstrazioneFin,n1,ru,2)
If rt1 < 0 Then rt1 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt1,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x2 = 1 To 90
If DecinaNaturale(x2) = 2 Then
n2(x2) = x2
rt2 = SerieRitardo(1,EstrazioneFin,n2,ru,2)
If rt2 < 0 Then rt2 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n2) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt2,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x3 = 1 To 90
If DecinaNaturale(x3) = 3 Then
n3(x3) = x3
rt3 = SerieRitardo(1,EstrazioneFin,n3,ru,2)
If rt3 < 0 Then rt3 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n3) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt3,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x4 = 1 To 90
If DecinaNaturale(x4) = 3 Then
n4(x4) = x4
rt4 = SerieRitardo(1,EstrazioneFin,n4,ru,2)
If rt4 < 0 Then rt4 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n4) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt4,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x5 = 1 To 90
If DecinaNaturale(x5) = 4 Then
n5(x5) = x5
rt5 = SerieRitardo(1,EstrazioneFin,n5,ru,2)
If rt5 < 0 Then rt5 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n5) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt5,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x6 = 1 To 90
If DecinaNaturale(x6) = 5 Then
n6(x6) = x6
rt6 = SerieRitardo(1,EstrazioneFin,n6,ru,2)
If rt6 < 0 Then rt6 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n6) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt6,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x7 = 1 To 90
If DecinaNaturale(x7) = 6 Then
n7(x7) = x7
rt7 = SerieRitardo(1,EstrazioneFin,n7,ru,2)
If rt7 < 0 Then rt7 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n7) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt7,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x8 = 1 To 90
If DecinaNaturale(x8) = 7 Then
n8(x8) = x8
rt8 = SerieRitardo(1,EstrazioneFin,n8,ru,2)
If rt8 < 0 Then rt8 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n8) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt8,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x9 = 1 To 90
If DecinaNaturale(x9) = 8 Then
n9(x9) = x9
rt9 = SerieRitardo(1,EstrazioneFin,n9,ru,2)
If rt9 < 0 Then rt9 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n9) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt9,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
End Sub

<b>RITARDO DECINE NATURALI</b>

Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),nu5(10),nu6(10),nu7(10),nu8(10),nu9(10)
Dim ru(1),n(5)
nu1(1) = 01:nu1(2) = 02:nu1(3) = 03:nu1(4) = 04:nu1(5) = 05:nu1(6) = 06:nu1(7) = 07:nu1(8) = 08:nu1(9) = 9:nu1(10) = 10
nu2(1) = 11:nu2(2) = 12:nu2(3) = 13:nu2(4) = 14:nu2(5) = 15:nu2(6) = 16:nu2(7) = 17:nu2(8) = 18:nu2(9) = 19:nu2(10) = 20
nu3(1) = 21:nu3(2) = 22:nu3(3) = 23:nu3(4) = 24:nu3(5) = 25:nu3(6) = 26:nu3(7) = 27:nu3(8) = 28:nu3(9) = 29:nu3(10) = 30
nu4(1) = 31:nu4(2) = 32:nu4(3) = 33:nu4(4) = 34:nu4(5) = 35:nu4(6) = 36:nu4(7) = 37:nu4(8) = 38:nu4(9) = 39:nu4(10) = 40
nu5(1) = 41:nu5(2) = 42:nu5(3) = 43:nu5(4) = 44:nu5(5) = 45:nu5(6) = 46:nu5(7) = 47:nu5(8) = 48:nu5(9) = 49:nu5(10) = 50
nu6(1) = 51:nu6(2) = 52:nu6(3) = 53:nu6(4) = 54:nu6(5) = 55:nu6(6) = 56:nu6(7) = 57:nu6(8) = 58:nu6(9) = 59:nu6(10) = 60
nu7(1) = 61:nu7(2) = 62:nu7(3) = 63:nu7(4) = 64:nu7(5) = 65:nu7(6) = 66:nu7(7) = 67:nu7(8) = 68:nu7(9) = 69:nu7(10) = 70
nu8(1) = 71:nu8(2) = 72:nu8(3) = 73:nu8(4) = 74:nu8(5) = 75:nu8(6) = 76:nu8(7) = 77:nu8(8) = 78:nu8(9) = 79:nu8(10) = 80
nu9(1) = 81:nu9(2) = 82:nu9(3) = 83:nu9(4) = 84:nu9(5) = 85:nu9(6) = 86:nu9(7) = 87:nu9(8) = 88:nu9(9) = 89:nu9(10) = 90
x = 0 ' <=== <=== RITARDO MINIMO
y = 10' <=== <=== RITARDO MASSIMO
fin = EstrazioneFin
ini = fin - 10 ' <=== estrazioni esaminate
Scrivi
ColoreTesto 2:Scrivi Space(1) & " Dall' estrazione n. " & ini & " all' estrazione n. " & fin,1:Scrivi
ColoreTesto 1:Scrivi Space(10) & "Ritardo minimo : " & x & " Ritardo massimo : " & y :Scrivi
ColoreTesto 0:Scrivi Space(3) & " DECINA NATURALE" & Space(7) & "RITARDO" & _
Space(3) & " RUOTA " & Space(5) & "ULTIMO AMBO ESTRATTO",1
'For r = 1 To 1 : Then ' <====================== per una sola ruota
For r = 1 To 11:If r = 11 Then r = 12 ' <====== per le 11 ruote
ru(1) = r
For es = ini To fin :Messaggio(es)
rt1 = SerieRitardo(ini,fin,nu1,ru,2)
u1 = SerieUltima(ini,fin,nu1,ru,2)
Next
If rt1 >= x And rt1 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu1) & " ",0,0
ColoreTesto 1:Scrivi Space(4) & FormatSpace(rt1,3,1) & " ",0,0
ColoreTesto 2:Scrivi Space(6) & FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u1,r,p)
If nu1(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu1(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt2 = SerieRitardo(ini,fin,nu2,ru,2)
u2 = SerieUltima(ini,fin,nu2,ru,2)
Next
If rt2 >= x And rt2 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu2) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt2,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u2,r,p)
If nu2(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu2(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt3 = SerieRitardo(ini,fin,nu3,ru,2)
u3 = SerieUltima(ini,fin,nu3,ru,2)
Next
If rt3 >= x And rt3 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu3) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt3,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u3,r,p)
If nu3(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu3(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt4 = SerieRitardo(ini,fin,nu4,ru,2)
u4 = SerieUltima(ini,fin,nu4,ru,2)
Next
If rt4 >= x And rt4 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu4) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt4,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u4,r,p)
If nu4(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu4(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt5 = SerieRitardo(ini,fin,nu5,ru,2)
u5 = SerieUltima(ini,fin,nu5,ru,2)
Next
If rt5 >= x And rt5 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu5) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt5,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u5,r,p)
If nu5(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu5(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt6 = SerieRitardo(ini,fin,nu6,ru,2)
u6 = SerieUltima(ini,fin,nu6,ru,2)
Next
If rt6 >= x And rt6 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu6) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt6,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u6,r,p)
If nu6(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu6(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt7 = SerieRitardo(ini,fin,nu7,ru,2)
u7 = SerieUltima(ini,fin,nu7,ru,2)
Next
If rt7 >= x And rt7 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu7) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt7,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u7,r,p)
If nu7(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu7(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt8 = SerieRitardo(ini,fin,nu8,ru,2)
u8 = SerieUltima(ini,fin,nu8,ru,2)
Next
If rt8 >= x And rt8 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu8) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt8,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u8,r,p)
If nu8(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu8(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt9 = SerieRitardo(ini,fin,nu9,ru,2)
u9 = SerieUltima(ini,fin,nu9,ru,2)
Next
If rt9 >= x And rt9 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu9) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt9,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u9,r,p)
If nu9(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu9(i)) & " ",0,0
Next
Next
End If
Next
End Sub

Buon studio
 

simon-simon

Junior Member
Ciao,

non so a chi tu abbia rivolto la richiesta, ma ti lascio qualche listato che potrebbe interessarti.
Sono listati che ho raccolto in rete in tanti anni.

Primi 10 più frequenti usciti dopo il numero Spia ( tutti i 90 numeri - ruota a scelta )

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90,4)
Dim uscito(90,2)
Dim anum(10)
Dim nume(90,4)
my = MsgBox("1 - numeri rilevati " & Chr(13) & "2 - frequenza nei cicli dei numeri " & Chr(13) & "3 - Ritardo dei numeri rilevati " & Chr(13) & "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
r = InputBox("Su quale ruota?",,1)
colpi = InputBox("Quanti colpi?",,10)
ruote(1) = r
ini = 1
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = 1 To 90
Messaggio " Spia: " & sp & " < >"
Call AvanzamentoElab(1,90,sp)
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
num(i,4) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
If Posizione(a,r,num(n,1)) Then num(n,2) = num(n,2) + 1
frc = num(n,2)
fru = EstrattoFrequenza(r,n,es,es + colpi)
num(n,2) = frc
rit = EstrattoRitardo(r,n,Ini,fin)
rtsp = EstrattoRitardo(r,sp,Ini,fin)
num(n,3) = rit
num(n,4) = fru
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
If rtsp < 10 Then
Scrivi "_________________________________________________________________"
ColoreTesto 1
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp,0,0
ColoreTesto 7
Scrivi " ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
ColoreTesto 0
'
Else
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp
ColoreTesto 0
End If
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "
riga3 = "Ult.cc "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
anum(i) = num(i,1)
sf2 = SerieFreq(Ini,fin,anum,ruote,2)
sf3 = SerieFreq(Ini,fin,anum,ruote,3)
sr2 = SerieRitardo(Ini,fin,anum,ruote,2)
sr3 = SerieRitardo(Ini,fin,anum,ruote,3)
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 1
Scrivi riga3
ColoreTesto 0
Scrivi String(65,"-")
Scrivi"Frequenza combinazione per ambo " & sf2
Scrivi"Frequenza combinazione per terno " & sf3
Scrivi"Ritardo combinazione per ambo " & sr2
Scrivi"Ritardo combinazione per terno " & sr3
Next
End Sub


<b>ritardo attuale delle decine naturali per ambo</b>

Sub Main()
Dim n(90),n1(90),n2(90),n3(90),n4(90),n5(90),n6(90),n7(90),n8(90),n9(90),ru(1)
r = InputBox("Quale ruota vuoi analizzare ?",,5)
If r = "" Then Exit Sub
ru(1) = r
For x = 1 To 90
If DecinaNaturale(X) = 0 Then
n(X) = x
rt = SerieRitardo(1,EstrazioneFin,n,ru,2)
If rt < 0 Then rt = 0
End If
Next
Scrivi " Ruota di " & NomeRuota(r) & " : ritardo attuale delle decine naturali per ambo ",1
Scrivi
Scrivi" Numeri: " & StringaNumeri(n) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x1 = 1 To 90
If DecinaNaturale(x1) = 1 Then
n1(x1) = x1
rt1 = SerieRitardo(1,EstrazioneFin,n1,ru,2)
If rt1 < 0 Then rt1 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt1,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x2 = 1 To 90
If DecinaNaturale(x2) = 2 Then
n2(x2) = x2
rt2 = SerieRitardo(1,EstrazioneFin,n2,ru,2)
If rt2 < 0 Then rt2 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n2) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt2,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x3 = 1 To 90
If DecinaNaturale(x3) = 3 Then
n3(x3) = x3
rt3 = SerieRitardo(1,EstrazioneFin,n3,ru,2)
If rt3 < 0 Then rt3 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n3) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt3,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x4 = 1 To 90
If DecinaNaturale(x4) = 3 Then
n4(x4) = x4
rt4 = SerieRitardo(1,EstrazioneFin,n4,ru,2)
If rt4 < 0 Then rt4 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n4) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt4,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x5 = 1 To 90
If DecinaNaturale(x5) = 4 Then
n5(x5) = x5
rt5 = SerieRitardo(1,EstrazioneFin,n5,ru,2)
If rt5 < 0 Then rt5 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n5) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt5,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x6 = 1 To 90
If DecinaNaturale(x6) = 5 Then
n6(x6) = x6
rt6 = SerieRitardo(1,EstrazioneFin,n6,ru,2)
If rt6 < 0 Then rt6 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n6) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt6,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x7 = 1 To 90
If DecinaNaturale(x7) = 6 Then
n7(x7) = x7
rt7 = SerieRitardo(1,EstrazioneFin,n7,ru,2)
If rt7 < 0 Then rt7 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n7) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt7,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x8 = 1 To 90
If DecinaNaturale(x8) = 7 Then
n8(x8) = x8
rt8 = SerieRitardo(1,EstrazioneFin,n8,ru,2)
If rt8 < 0 Then rt8 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n8) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt8,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
'----------------------------------------------------
For x9 = 1 To 90
If DecinaNaturale(x9) = 8 Then
n9(x9) = x9
rt9 = SerieRitardo(1,EstrazioneFin,n9,ru,2)
If rt9 < 0 Then rt9 = 0
End If
Next
Scrivi" Numeri: " & StringaNumeri(n9) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(rt9,3,1) & " ",1,0
ColoreTesto 0
Scrivi" estrazioni"
End Sub

<b>RITARDO DECINE NATURALI</b>

Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),nu5(10),nu6(10),nu7(10),nu8(10),nu9(10)
Dim ru(1),n(5)
nu1(1) = 01:nu1(2) = 02:nu1(3) = 03:nu1(4) = 04:nu1(5) = 05:nu1(6) = 06:nu1(7) = 07:nu1(8) = 08:nu1(9) = 9:nu1(10) = 10
nu2(1) = 11:nu2(2) = 12:nu2(3) = 13:nu2(4) = 14:nu2(5) = 15:nu2(6) = 16:nu2(7) = 17:nu2(8) = 18:nu2(9) = 19:nu2(10) = 20
nu3(1) = 21:nu3(2) = 22:nu3(3) = 23:nu3(4) = 24:nu3(5) = 25:nu3(6) = 26:nu3(7) = 27:nu3(8) = 28:nu3(9) = 29:nu3(10) = 30
nu4(1) = 31:nu4(2) = 32:nu4(3) = 33:nu4(4) = 34:nu4(5) = 35:nu4(6) = 36:nu4(7) = 37:nu4(8) = 38:nu4(9) = 39:nu4(10) = 40
nu5(1) = 41:nu5(2) = 42:nu5(3) = 43:nu5(4) = 44:nu5(5) = 45:nu5(6) = 46:nu5(7) = 47:nu5(8) = 48:nu5(9) = 49:nu5(10) = 50
nu6(1) = 51:nu6(2) = 52:nu6(3) = 53:nu6(4) = 54:nu6(5) = 55:nu6(6) = 56:nu6(7) = 57:nu6(8) = 58:nu6(9) = 59:nu6(10) = 60
nu7(1) = 61:nu7(2) = 62:nu7(3) = 63:nu7(4) = 64:nu7(5) = 65:nu7(6) = 66:nu7(7) = 67:nu7(8) = 68:nu7(9) = 69:nu7(10) = 70
nu8(1) = 71:nu8(2) = 72:nu8(3) = 73:nu8(4) = 74:nu8(5) = 75:nu8(6) = 76:nu8(7) = 77:nu8(8) = 78:nu8(9) = 79:nu8(10) = 80
nu9(1) = 81:nu9(2) = 82:nu9(3) = 83:nu9(4) = 84:nu9(5) = 85:nu9(6) = 86:nu9(7) = 87:nu9(8) = 88:nu9(9) = 89:nu9(10) = 90
x = 0 ' <=== <=== RITARDO MINIMO
y = 10' <=== <=== RITARDO MASSIMO
fin = EstrazioneFin
ini = fin - 10 ' <=== estrazioni esaminate
Scrivi
ColoreTesto 2:Scrivi Space(1) & " Dall' estrazione n. " & ini & " all' estrazione n. " & fin,1:Scrivi
ColoreTesto 1:Scrivi Space(10) & "Ritardo minimo : " & x & " Ritardo massimo : " & y :Scrivi
ColoreTesto 0:Scrivi Space(3) & " DECINA NATURALE" & Space(7) & "RITARDO" & _
Space(3) & " RUOTA " & Space(5) & "ULTIMO AMBO ESTRATTO",1
'For r = 1 To 1 : Then ' <====================== per una sola ruota
For r = 1 To 11:If r = 11 Then r = 12 ' <====== per le 11 ruote
ru(1) = r
For es = ini To fin :Messaggio(es)
rt1 = SerieRitardo(ini,fin,nu1,ru,2)
u1 = SerieUltima(ini,fin,nu1,ru,2)
Next
If rt1 >= x And rt1 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu1) & " ",0,0
ColoreTesto 1:Scrivi Space(4) & FormatSpace(rt1,3,1) & " ",0,0
ColoreTesto 2:Scrivi Space(6) & FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u1,r,p)
If nu1(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu1(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt2 = SerieRitardo(ini,fin,nu2,ru,2)
u2 = SerieUltima(ini,fin,nu2,ru,2)
Next
If rt2 >= x And rt2 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu2) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt2,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u2,r,p)
If nu2(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu2(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt3 = SerieRitardo(ini,fin,nu3,ru,2)
u3 = SerieUltima(ini,fin,nu3,ru,2)
Next
If rt3 >= x And rt3 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu3) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt3,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u3,r,p)
If nu3(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu3(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt4 = SerieRitardo(ini,fin,nu4,ru,2)
u4 = SerieUltima(ini,fin,nu4,ru,2)
Next
If rt4 >= x And rt4 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu4) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt4,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u4,r,p)
If nu4(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu4(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt5 = SerieRitardo(ini,fin,nu5,ru,2)
u5 = SerieUltima(ini,fin,nu5,ru,2)
Next
If rt5 >= x And rt5 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu5) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt5,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u5,r,p)
If nu5(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu5(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt6 = SerieRitardo(ini,fin,nu6,ru,2)
u6 = SerieUltima(ini,fin,nu6,ru,2)
Next
If rt6 >= x And rt6 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu6) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt6,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u6,r,p)
If nu6(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu6(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt7 = SerieRitardo(ini,fin,nu7,ru,2)
u7 = SerieUltima(ini,fin,nu7,ru,2)
Next
If rt7 >= x And rt7 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu7) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt7,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u7,r,p)
If nu7(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu7(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt8 = SerieRitardo(ini,fin,nu8,ru,2)
u8 = SerieUltima(ini,fin,nu8,ru,2)
Next
If rt8 >= x And rt8 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu8) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt8,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u8,r,p)
If nu8(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu8(i)) & " ",0,0
Next
Next
End If
For es = ini To fin :Messaggio(es)
rt9 = SerieRitardo(ini,fin,nu9,ru,2)
u9 = SerieUltima(ini,fin,nu9,ru,2)
Next
If rt9 >= x And rt9 <= y Then
Scrivi
ColoreTesto 0:Scrivi Space(2) & StringaNumeri(nu9) & " ",0,0
ColoreTesto 1:Scrivi FormatSpace(rt9,3,1) & " ",0,0
ColoreTesto 2:Scrivi FormatSpace(NomeRuota(r),15,0) & " ",0,0
For i = 1 To 10
For p = 1 To 5
n(p) = Estratto(u9,r,p)
If nu9(i) = n(p)Then ColoreTesto 0:Scrivi Format2(nu9(i)) & " ",0,0
Next
Next
End If
Next
End Sub

Buon studio
Grazie Blacklotto....ho chiesto a chi mi risponde...
il primo script non funziona con lottodesk gli altri si.
non era proprio quello che volevo ma.. e qualcosa grazie
Tu sei in grado di fare gli script?
se si potresti fare qualcosa di quello che chiedevo?
sei appassionato alla Previsionistica Razionale?

grazie ancora ciao
 

*blacklotto*

Super Member >PLATINUM<
Ciao,

non sono script che rispondessero alle tue esigenze, ma come ti ho scritto, script che potevano interessarti, magari facendo qualche tua modifica se ne sei in grado di farlo, per quanto riguarda far funzionare il primo script da Spaziometria in Lottodesk, chiedi, magari potresti ricevere un aiuto nella modifica. Sono certo che proprio quel listato farà al caso tuo, o comunque lo troverai molto interessante per un tuo studio.
No, non sono capace di fare listati, o meglio, riesco in alcune composizioni semplici o modificarne alcuni.
Mi sembra d'avere qualcosa per la previsionistica razionale, devo vedere, e ti farò sapere.
 

*blacklotto*

Super Member >PLATINUM<
Ti lascio questo listato, vedi se ti può interessare.

Scrivi String(36," ") & "STATISTICHE LOTTO",1
ColoreTesto 2
Scrivi String(40," ") & "by Eu-Genio",1
ColoreTesto 1
Scrivi String(78,"=") & _
"listedRobyca",1
ColoreTesto 0
Sub Main()
Dim ru(1)
Dim nm(10)
Dim frq(10)
Dim nu(1)
Dim ne(2)
ru(1) = InputBox("INSERIRE IL NUMERO DELLA RUOTA ",,1)
ini = InputBox("NUMERO ESTRAZIONE INIZIO VERIFICA." & Chr(13) & Chr(13) & _
"Tenere presente che se il numero delle estr. in verifica" & _
" è inferiore a 500, certi numeri non riescono a fare i 18 " & _
"cicli",,EstrazioneFin - 1500)
ini = CInt(ini)
fin = InputBox("NUMERO ESTRAZIONE FINE VERIFICA." & Chr(13) & Chr(13) & _
"Cmq le percentuali sono sempre riferite ai cicli riportati" & _
" nella riga di mezzo, ovvero: Pres su ??",,EstrazioneFin)
fin = CInt(fin)
For numeri = 1 To 90
nu(1) = numeri
c1 = 0
Erase frq
Messaggio numeri & " " & UCase(NomeRuota(ru(1)))
For es = fin To ini Step - 1
ex = es + 1
Rem *************************
ey = es + 9
Rem ************************
If ex > fin Then ex = fin
If ey > fin Then ey = fin
If Posizione(es,ru(1),nu(1)) > 0 Then
c1 = c1 + 1
dnu = DecinaNaturale(nu(1))
co = 0
For x = 1 To 9
For y = 0 To 9
co = co + 1
If x = dnu + 1 Then
nm(y + 1) = co
End If
Next
Next
For n = 1 To 9
ne(1) = nm(n)
ne(2) = nm(n) + 1
fr = SerieFreq(ex - 6,ey,ne,ru,1)
If fr > 0 Then frq(n) = frq(n) + 1
Next
Rem *******************
If c1 = 18 Then Exit For
Rem ********************************
End If
Next
For x = 1 To 9
riga = riga & Format2(nm(x)) & "-" & Format2(nm(x) + 1) & " "
Next
ColoreTesto 2
Scrivi "Numero : " & nu(1),1
ColoreTesto 0
Scrivi "Decina nat: " & riga
For x = 1 To 9
per =((frq(x)*100)\c1)
If per > 80 Then ColoreTesto 1
If per > 90 Then ColoreTesto 2
rige = rige & Format2(per) & " "
rigi = rigi & Format2(frq(x)) & " "
Next
Scrivi "Pres su " & c1 & ": " & rigi
Scrivi "Percent % : " & rige,1
riga = "":rige = "":rigi = ""
Scrivi
ColoreTesto 2
Next
Scrivi String(78," ") & _
"listedRobyca",1
ColoreTesto 0
End Sub
 

Master

Advanced Member >PLATINUM<
ciao
prova questo per L8

Codice:
Sub Main()
   Dim ru(2),ru2(10),n(90,2)
   Dim ambi(4005,6),ambi1(4005,6),ambi2(4005,6)
   Dim nn(2),nn1(2),nn2(2)
   Dim INI,FIN,ES,R,ESs,casi,Cont,C,CC,co,x,y,n1,d
   Dim DC,DC1,DC2,Riga
   n1 = CInt(InputBox("QUALE NUMERO?","NUMERO SPIA",21))
   R = InputBox("RUOTA ?","RUOTA",5)
   C = CInt(InputBox("QUANTI COLPI?","COLPI",10))
   Cont = CInt(InputBox("Quanti CASI controllo?","CASI",18))
   DC = DecinaNaturale(n1): DC1 = DC*10 + 1 : DC2 = DC1 + 9
   For i = 1 To 4005
      ambi(i,4) = 0 : ambi(i,1) = 0 : ambi(i,2) = 0 : ambi(i,3) = 0
   Next
   casi = 0
   FIN = EstrazioneFin :
   INI = EstrazioneFin - Cont
   Scrivi "Spia " & CInt(n1) & " su " & NomeRuota(R) & " - Ambi stessa decinaN più frequenti, " & C & " colpi, " & _
   CInt(Cont) & " casi",1
   Scrivi
   For ES = EstrazioneFin To 1 Step - 1
      Messaggio " Spia  " & CInt(n1) & " su " & NomeRuota(R)
      If casi < Cont Then
         If Posizione(ES,R,n1) > 0 Then
            ESs = ES + C
            casi = casi + 1 :
            For x = ES + 1 To ESs
               CC = 0
               For pp = 1 To 5
                  d = Estratto(x,R,pp)
                  If DC = DecinaNaturale(CInt(d)) Then
                     n(d,1) = d
                     n(d,2) = n(d,2) + 1
                     CC = 1
                  End If
               Next
            Next
            co = 0
            For x = DC1 To DC2
               For y = x + 1 To DC2
                  co = co + 1
                  ambi(co,1) = co : ambi1(co,1) = co : ambi2(co,1) = co
                  ambi(co,2) = x : ambi1(co,2) = x : ambi2(co,2) = x
                  ambi(co,3) = y : ambi1(co,3) = y : ambi2(co,3) = y
                  nn(1) = x : nn(2) = y : ru(1) = R
                  nn1(1) = x : nn1(2) = y
                  nn2(1) = x : nn2(2) = y : ru2(1) = 11
                  ambi(co,4) = ambi(co,4) + SerieFreq(ES + 1,ESs,nn,ru,2)
                  ambi1(co,5) = ambi1(co,5) + SerieFreq(ES + 1,ESs,nn1,ru,1)
                  ambi2(co,6) = ambi2(co,6) + SerieFreq(ES + 1,ESs,nn2,ru2,2)
               Next
            Next
            Scrivi DataEstrazione(ES) & "  " & ES & " " & NomeRuota(R) & "  " & _
            StringaEstratti(ES,R) & "  --> al " & DataEstrazione(ES + C) & "  " & ES + C
         End If
      End If
   Next
   OrdinaMatrice n,- 1,2
   OrdinaMatrice ambi,- 1,4
   OrdinaMatrice ambi1,- 1,5
   OrdinaMatrice ambi2,- 1,6
   Scrivi
   ColoreTesto 1
   Scrivi "Num.Ruota| Ambi a Ruota| Ambo x Ambata| Ambi a tutte",1
   ColoreTesto 2
   Scrivi String(2," ") & "n° Fr  | Ambo    Fr  | Ambo    Fr   | Ambo   Fr"
   ColoreTesto 0
   For x = 1 To 10
      Riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & _
      Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & String(3,"...") & Format2(ambi(x,4)) & "  | " & _
      Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & String(3,"...") & Format2(ambi1(x,5)) & "   |" & _
      Format2(ambi2(x,2)) & "-" & Format2(ambi2(x,3)) & String(3,"...") & Format2(ambi2(x,6))
      Scrivi Riga
      Riga = ""
   Next
   Scrivi String(70,"_")
End Sub
 

Master

Advanced Member >PLATINUM<
Ciao
prova questo
spia in posizione e seconda ruota per L8


Codice:
Sub Main()
   Dim ru(2),ru2(10),n(90,2)
   Dim ambi(4005,6),ambi1(4005,6),ambi2(4005,6)
   Dim nn(2),nn1(2),nn2(2)
   Dim INI,FIN,ES,R,ESs,casi,Cont,C,CC,co,x,y,n1,d
   Dim R1,R2,DC,DC1,DC2,xx,RR,Riga
   n1 = CInt(InputBox("QUALE NUMERO?","NUMERO SPIA",21))
   psx = CInt(InputBox("POSIZIONE SPIA ?","POSIZIONE",4))
   R = InputBox("RUOTA SPIA ?","RUOTA SPIA",5)
   R1 = CInt(R) : R2 = CInt(InputBox("SECONDA RUOTA ?","RUOTA",6))
   C = CInt(InputBox("QUANTI COLPI?","COLPI",10))
   Cont = CInt(InputBox("Quanti CASI controllo?","CASI",12))
   DC = DecinaNaturale(n1): DC1 = DC*10 + 1 : DC2 = DC1 + 9
   For i = 1 To 4005
      ambi(i,4) = 0 : ambi(i,1) = 0 : ambi(i,2) = 0 : ambi(i,3) = 0
   Next
   casi = 0
   FIN = EstrazioneFin :
   INI = EstrazioneFin - Cont
   Scrivi "Spia " & CInt(n1) & " su " & NomeRuota(R) & _
   " in " & psx & "^pos  - " & C & " colpi   - " & Cont & " casi",1
   Scrivi"Ruote ricerca  " & NomeRuota(R1) & " - " & NomeRuota(R2),1
   Scrivi
   For ES = EstrazioneFin To 1 Step - 1
      Messaggio " Spia  " & CInt(n1) & " su " & NomeRuota(R)
      If casi < Cont Then
         If Posizione(ES,R,n1) = psx Then
            ESs = ES + C
            Scrivi DataEstrazione(ES) & "  " & ES & " " & NomeRuota(R) & "  " & _
            StringaEstratti(ES,R) & "  --> al " & DataEstrazione(ES + C) & "  " & ES + C
            casi = casi + 1 :
            For xx = ES + 1 To ESs
               For RR = 1 To 10
                  If RR = R1 Or RR = R2 Then
                     For pp = 1 To 5
                        CC = 0
                        d = Estratto(xx,RR,pp)
                        If DC = DecinaNaturale(d) Then
                           n(d,1) = d
                           n(d,2) = n(d,2) + 1
                           CC = CC + 1
                        End If
                     Next
                  End If
               Next
            Next
            co = 0
            For x = 1 To 89
               For y = x + 1 To 90
                  If DC = DecinaNaturale(x) And DC = DecinaNaturale(y) Then
                     co = co + 1
                     ambi(co,1) = co : ambi1(co,1) = co : ambi2(co,1) = co
                     ambi(co,2) = x : ambi1(co,2) = x : ambi2(co,2) = x
                     ambi(co,3) = y : ambi1(co,3) = y : ambi2(co,3) = y
                     nn(1) = x : nn(2) = y : ru(1) = R2 : ru(2) = R1
                     nn1(1) = x : nn1(2) = y
                     nn2(1) = x : nn2(2) = y : ru2(1) = 11
                     ambi(co,4) = ambi(co,4) + SerieFreq(ES + 1,ESs,nn,ru,2)
                     ambi1(co,5) = ambi1(co,5) + SerieFreq(ES + 1,ESs,nn1,ru,1)
                     ambi2(co,6) = ambi2(co,6) + SerieFreq(ES + 1,ESs,nn2,ru2,2)
                  End If
               Next
            Next
         End If
      End If
   Next
   OrdinaMatrice n,- 1,2
   OrdinaMatrice ambi,- 1,4
   OrdinaMatrice ambi1,- 1,5
   OrdinaMatrice ambi2,- 1,6
   Scrivi
   ColoreTesto 1
   Scrivi "Num.Ruota| Ambi a Ruota| Ambo x Ambata|Ambi a tutte",1
   ColoreTesto 2
   Scrivi String(2," ") & "n° Fr  | Ambo    Fr  | Ambate  Fr   |Ambo    Fr"
   ColoreTesto 0
   For x = 1 To 10
      Riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & _
      Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & String(3,"...") & Format2(ambi(x,4)) & "  | " & _
      Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & String(3,"...") & Format2(ambi1(x,5)) & "   |" & _
      Format2(ambi2(x,2)) & "-" & Format2(ambi2(x,3)) & String(3,"...") & Format2(ambi2(x,6))
      Scrivi Riga
      Riga = ""
   Next
   Scrivi String(70,"_")
End Sub
 

simon-simon

Junior Member
Ciao
prova questo
spia in posizione e seconda ruota per L8


Codice:
Sub Main()
   Dim ru(2),ru2(10),n(90,2)
   Dim ambi(4005,6),ambi1(4005,6),ambi2(4005,6)
   Dim nn(2),nn1(2),nn2(2)
   Dim INI,FIN,ES,R,ESs,casi,Cont,C,CC,co,x,y,n1,d
   Dim R1,R2,DC,DC1,DC2,xx,RR,Riga
   n1 = CInt(InputBox("QUALE NUMERO?","NUMERO SPIA",21))
   psx = CInt(InputBox("POSIZIONE SPIA ?","POSIZIONE",4))
   R = InputBox("RUOTA SPIA ?","RUOTA SPIA",5)
   R1 = CInt(R) : R2 = CInt(InputBox("SECONDA RUOTA ?","RUOTA",6))
   C = CInt(InputBox("QUANTI COLPI?","COLPI",10))
   Cont = CInt(InputBox("Quanti CASI controllo?","CASI",12))
   DC = DecinaNaturale(n1): DC1 = DC*10 + 1 : DC2 = DC1 + 9
   For i = 1 To 4005
      ambi(i,4) = 0 : ambi(i,1) = 0 : ambi(i,2) = 0 : ambi(i,3) = 0
   Next
   casi = 0
   FIN = EstrazioneFin :
   INI = EstrazioneFin - Cont
   Scrivi "Spia " & CInt(n1) & " su " & NomeRuota(R) & _
   " in " & psx & "^pos  - " & C & " colpi   - " & Cont & " casi",1
   Scrivi"Ruote ricerca  " & NomeRuota(R1) & " - " & NomeRuota(R2),1
   Scrivi
   For ES = EstrazioneFin To 1 Step - 1
      Messaggio " Spia  " & CInt(n1) & " su " & NomeRuota(R)
      If casi < Cont Then
         If Posizione(ES,R,n1) = psx Then
            ESs = ES + C
            Scrivi DataEstrazione(ES) & "  " & ES & " " & NomeRuota(R) & "  " & _
            StringaEstratti(ES,R) & "  --> al " & DataEstrazione(ES + C) & "  " & ES + C
            casi = casi + 1 :
            For xx = ES + 1 To ESs
               For RR = 1 To 10
                  If RR = R1 Or RR = R2 Then
                     For pp = 1 To 5
                        CC = 0
                        d = Estratto(xx,RR,pp)
                        If DC = DecinaNaturale(d) Then
                           n(d,1) = d
                           n(d,2) = n(d,2) + 1
                           CC = CC + 1
                        End If
                     Next
                  End If
               Next
            Next
            co = 0
            For x = 1 To 89
               For y = x + 1 To 90
                  If DC = DecinaNaturale(x) And DC = DecinaNaturale(y) Then
                     co = co + 1
                     ambi(co,1) = co : ambi1(co,1) = co : ambi2(co,1) = co
                     ambi(co,2) = x : ambi1(co,2) = x : ambi2(co,2) = x
                     ambi(co,3) = y : ambi1(co,3) = y : ambi2(co,3) = y
                     nn(1) = x : nn(2) = y : ru(1) = R2 : ru(2) = R1
                     nn1(1) = x : nn1(2) = y
                     nn2(1) = x : nn2(2) = y : ru2(1) = 11
                     ambi(co,4) = ambi(co,4) + SerieFreq(ES + 1,ESs,nn,ru,2)
                     ambi1(co,5) = ambi1(co,5) + SerieFreq(ES + 1,ESs,nn1,ru,1)
                     ambi2(co,6) = ambi2(co,6) + SerieFreq(ES + 1,ESs,nn2,ru2,2)
                  End If
               Next
            Next
         End If
      End If
   Next
   OrdinaMatrice n,- 1,2
   OrdinaMatrice ambi,- 1,4
   OrdinaMatrice ambi1,- 1,5
   OrdinaMatrice ambi2,- 1,6
   Scrivi
   ColoreTesto 1
   Scrivi "Num.Ruota| Ambi a Ruota| Ambo x Ambata|Ambi a tutte",1
   ColoreTesto 2
   Scrivi String(2," ") & "n° Fr  | Ambo    Fr  | Ambate  Fr   |Ambo    Fr"
   ColoreTesto 0
   For x = 1 To 10
      Riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & _
      Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & String(3,"...") & Format2(ambi(x,4)) & "  | " & _
      Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & String(3,"...") & Format2(ambi1(x,5)) & "   |" & _
      Format2(ambi2(x,2)) & "-" & Format2(ambi2(x,3)) & String(3,"...") & Format2(ambi2(x,6))
      Scrivi Riga
      Riga = ""
   Next
   Scrivi String(70,"_")
End Sub
Molte grazie
e quello che cercavo
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto