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 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto