Novità

Script per Boxer60

C

Cinzia27

Premium Member
Ecco lo script.
Ciao

Codice: 
' Cinzia - Ritardi attuali e storici di un numero sommato a ripetizione a colpo su Posizione determinata
' sulle 11 ruote dall' estrazione iniziale della ruota
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),n6(1),n7(1),n8(1),n9(1),n10(1),n12(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),nn6(1),nn7(1),nn8(1),nn9(1),nn10(1),nn12(1)
Dim aa(12),mx1(12)
z=CInt(InputBox ("Quale numero vuoi sommare all'estratto determinato?",1))
f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(1)=aa(1)+1
For r1=1 To 1
n1(1)=Estratto(es,r1,x)
nn1(1)=Estratto(es-1,r1,x)
If n1(1)>0 And n1(1)=Fuori90(nn1(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos"&FormatSpace(x,5,1)&" "&_
SiglaRuota(r1)&" n. "&format2(n1(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r1)
aa(1)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(nn1(1))&" rt "&aa(1)
If aa(1)>mx Then mx=aa(1)
If aa(1)>mx1(1) Then mx1(1)=aa(1)
If aa(1)>mx1(11) Then mx1(11)=aa(1)
aa(1)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(1)
Scrivi String (20,"*")
Scrivi


f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(2)=aa(2)+1
For r2=2 To 2
n2(1)=Estratto(es,r2,x)
nn2(1)=Estratto(es-1,r2,x)
If n2(1)>0 And n2(1)=Fuori90(nn2(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos"&FormatSpace(x,5,1)&" "&_
SiglaRuota(r2)&" n. "&format2(n2(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r2)
aa(2)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(nn2(1))&" rt "&aa(2)
If aa(2)>mx Then mx=aa(2)
If aa(2)>mx1(2) Then mx1(2)=aa(2)
If aa(2)>mx1(11) Then mx1(11)=aa(2)
aa(2)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(2)

Scrivi String (20,"*")
Scrivi



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(3)=aa(3)+1
For r3=3 To 3
n3(1)=Estratto(es,r3,x)
nn3(1)=Estratto(es-1,r3,x)
If n3(1)>0 And n3(1)=Fuori90(nn3(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r3)&" n. "&format2(n3(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r3)
aa(3)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r3)&" n. "&format2(nn3(1))&" rt "&aa(3)
If aa(3)>mx Then mx=aa(3)
If aa(3)>mx1(3) Then mx1(3)=aa(3)
If aa(3)>mx1(11) Then mx1(11)=aa(3)
aa(3)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(3)

Scrivi String (20,"*")
Scrivi



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(4)=aa(4)+1
For r4=4 To 4
n4(1)=Estratto(es,r4,x)
nn4(1)=Estratto(es-1,r4,x)
If n4(1)>0 And n4(1)=Fuori90(nn4(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r4)&" n. "&format2(n4(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r4)
aa(4)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r4)&" n. "&format2(nn4(1))&" rt "&aa(4)
If aa(4)>mx Then mx=aa(4)
If aa(4)>mx1(4) Then mx1(4)=aa(4)
If aa(4)>mx1(11) Then mx1(4)=aa(11)
aa(4)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(4)

Scrivi String (20,"*")
Scrivi


f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(5)=aa(5)+1
For r5=5 To 5
n5(1)=Estratto(es,r5,x)
nn5(1)=Estratto(es-1,r5,x)
If n5(1)>0 And n5(1)=Fuori90(nn5(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r5)&" n. "&format2(n5(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r5)
aa(5)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r5)&" n. "&format2(nn5(1))&" rt "&aa(5)
If aa(5)>mx Then mx=aa(5)
If aa(5)>mx1(5) Then mx1(5)=aa(5)
If aa(5)>mx1(11) Then mx1(11)=aa(5)
aa(5)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(5)

Scrivi String (20,"*")
Scrivi



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(6)=aa(6)+1
For r6=6 To 6
n6(1)=Estratto(es,r6,x)
nn6(1)=Estratto(es-1,r6,x)
If n6(1)>0 And n6(1)=Fuori90(nn6(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r6)&" n. "&format2(n6(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r6)
aa(6)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r6)&" n. "&format2(nn6(1))&" rt "&aa(6)
If aa(6)>mx Then mx=aa(6)
If aa(6)>mx1(6) Then mx1(6)=aa(6)
If aa(6)>mx1(11) Then mx1(11)=aa(6)
aa(6)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(6)

Scrivi String (20,"*")
Scrivi





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(7)=aa(7)+1
For r7=7 To 7
n7(1)=Estratto(es,r7,x)
nn7(1)=Estratto(es-1,r7,x)
If n7(1)>0 And n7(1)=Fuori90(nn7(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r7)&" n. "&format2(n7(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r7)
aa(7)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r7)&" n. "&format2(nn7(1))&" rt "&aa(7)
If aa(7)>mx Then mx=aa(7)
If aa(7)>mx1(7) Then mx1(7)=aa(7)
If aa(7)>mx1(11) Then mx1(11)=aa(7)
aa(7)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(7)
Scrivi String (20,"*")
Scrivi



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(8)=aa(8)+1
For r8=8 To 8
n8(1)=Estratto(es,r8,x)
nn8(1)=Estratto(es-1,r8,x)
If n8(1)>0 And n8(1)=Fuori90(nn8(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r8)&" n. "&format2(n8(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r8)
aa(8)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r8)&" n. "&format2(nn8(1))&" rt "&aa(8)
If aa(8)>mx Then mx=aa(8)
If aa(8)>mx1(8) Then mx1(8)=aa(8)
If aa(8)>mx1(11) Then mx1(11)=aa(8)
aa(8)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(8)

Scrivi String (20,"*")
Scrivi


f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(9)=aa(9)+1
For r9=9 To 9
n9(1)=Estratto(es,r9,x)
nn9(1)=Estratto(es-1,r9,x)
If n9(1)>0 And n9(1)=Fuori90(nn9(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r9)&" n. "&format2(n9(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r9)
aa(9)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r9)&" n. "&format2(nn9(1))&" rt "&aa(9)
If aa(9)>mx Then mx=aa(9)
If aa(9)>mx1(9) Then mx1(9)=aa(9)
If aa(9)>mx1(11) Then mx1(11)=aa(9)
aa(9)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(9)

Scrivi String (20,"*")
Scrivi



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(10)=aa(10)+1
For r10=10 To 10
n10(1)=Estratto(es,r10,x)
nn10(1)=Estratto(es-1,r10,x)
If n10(1)>0 And n10(1)=Fuori90(nn10(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r10)&" n. "&format2(n10(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r10)
aa(10)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r10)&" n. "&format2(nn10(1))&" rt "&aa(10)
If aa(10)>mx Then mx=aa(10)
If aa(10)>mx1(10) Then mx1(10)=aa(10)
If aa(10)>mx1(11) Then mx1(11)=aa(10)
aa(10)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(10)


Scrivi String (20,"*")
Scrivi


f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(12)=aa(12)+1
For r12=12 To 12
n12(1)=Estratto(es,r12,x)
nn12(1)=Estratto(es-1,r12,x)
If n12(1)>0 And n12(1)=Fuori90(nn12(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r12)&" n. "&format2(n12(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es):pp=x:rrr=siglaruota(r12)
aa(12)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,5,1)&" "&_
SiglaRuota(r12)&" n. "&format2(nn12(1))&" rt "&aa(12)
If aa(12)>mx Then mx=aa(12)
If aa(12)>mx1(12) Then mx1(12)=aa(12)
If aa(12)>mx1(11) Then mx1(11)=aa(12)
aa(12)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(12)

Scrivi " max st assoluto in qualsiasi ruota e in qualsiasi posizione "&mx1(11)
Scrivi " max ATTUALE assoluto è "&mmxx&" a "&rrr &" in posizione "& pp,1
Scrivi " la somma di riscontro "&z,1
End Sub
 
Ciao Cinzia, scusami ancora ma sono nuovo del sito...comunque lo script che hai postato è perfetto...ho visto che hai aggiunto l'impostazioni per visualizzare la posizione e la ruota dove avviene l'evento...quindi meglio di così non potevo chiedere...complimenti e grazie infinite per la tua disponibilità. Un saluto.
 
Scusa Cinzia non riesco a comprendere bene il meccanismo di questo script esempio lo faccio girare ..... gli do il primo e unico parametro : " 49 " (mi trovo con l'archivio aggiornato al 25/7/25) ecco lo stralcio iniziale dell'output: 10687 pos 1 BA n. 29 Non esce da 2 estrazioni
10609 pos 1 BA n. 31 rt 78
10377 pos 1 BA n. 72 rt 232
10372 pos 1 BA n. 12 rt 5 Faccio questo ragionamento vado all'estrazione 10687 al primo estratto di bari trovo il num 29 che è il risultante del primo estratto di bari estraz. precedente( 10686 ) cioè 70 aggiungo il " 49 " fuori 90 e ottengo il 29 che effetivavamente ha un ritardo di 2 estraz. Analogo ragionamento per il num. 31vado all'estrazione 10609 al primo estratto di bari trovo il num 80 non 31 che lo troviamo nell'estr. precedente( 10608 ) che aggiunto il " 49 " fuori 90 e ottengo il 80 quindi il ragionamente non è = al primo. Per il 3° numero il 72 vado al 10377 1° estratto 72 +49= 31 ancora un ragionamento diverso. Per il 4° al 10372 troviamo il 12 +49 mi da 61 che troviamo al primo estratto estraz. successiva 10373 ma perchè ritardo 5 ?? Avessi l'archivio rovinato???
 
Ciao, Fillotto.

Forse li avevo messi così per dare risalto al fatto che l'ultimo risultato
era dato dal numero/risultato 29.
Per quanto riguarda i precedenti invece avevo ragionato così
il n. che ha dato esito alla 10609 è il 31
il n. che ha dato esito alla 10377 è il 72
il n. che ha dato esito alla 10372 è il 12

Sotto ti ho messo un mini script, per fare ulterioni controlli, ovviamente devi cambiare i numeri delle estrazioni.

10687 pos 1 Ba n. 29 Non esce da 3 estrazioni
10609 pos 1 Ba n. 31 rt 78
10377 pos 1 Ba n. 72 rt 232
10372 pos 1 Ba n. 12 rt 5

10687 Ba 29
10686 Ba 70

10609 Ba 80
10608 Ba 31

10377 Ba 31
10376 Ba 72

10372 Ba 61
10371 Ba 12

Codice: 
Sub main()


For es=EstrazioneFin To 10000 step -1

r=1

If es=10686 Or es=10687 Or es=10608 Or es=10609 Or es=10376 Or es=10377 Or es=10371 Or es=10372 Then

Scrivi es&" "&SiglaRuota(r)&" "&Estratto(es,r,1)

End if

Next

 


End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto