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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto