Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

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*

Senior 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
 

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*

Senior Member
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*

Senior Member
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 >GOLD<
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 >GOLD<
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ì 14 gennaio 2021
    Bari
    09
    40
    47
    26
    49
    Cagliari
    34
    64
    43
    78
    31
    Firenze
    45
    32
    17
    65
    37
    Genova
    65
    10
    81
    28
    29
    Milano
    59
    46
    84
    58
    03
    Napoli
    84
    41
    81
    25
    04
    Palermo
    20
    58
    29
    09
    69
    Roma
    56
    73
    61
    64
    03
    Torino
    19
    01
    06
    34
    39
    Venezia
    08
    85
    30
    45
    83
    Nazionale
    65
    71
    45
    73
    35
    Estrazione Simbolotto
    Bari
    12
    13
    05
    37
    11

Ultimi Messaggi

Alto