Novità

Script per Boxer60

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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
Indietro
Alto