Novità

Per joe91 e mike58

korokoro

Super member
SFRUTTANDO QUESTI SCRIPT , SI POSSONO MODIFICARE PER FARLE CERCARE TUTTE LE DISTANZE E SOMME NELLE DIVERSE ESTRAZIONI.

CIAO E GRAZIE DA LEO



P.S.; JOE91 E MIKE58
MIKE58 E JOE91 SIETE GRANDI!!!


'Distanza Spia su Ruota Orrizontale
e

Sub main()
Dim ruote(1)
ruote(1)=r
r=InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)

gv=InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",10)
yy=CInt(InputBox("quale spia DISTANZA cerchi?(1-45)",,45))
fin=EstrazioneFin
ini=fin - gv
For es=ini To fin
AvanzamentoElab ini,fin,es
Dis = yy
'For r=12 To 12
For p= 1 To 4 : pp=p+1
a=Estratto(es,r,p):b=Estratto(es,r,pp)
For q=1 To 5
b=Estratto (es,r,q)
If Distanza (a,b)=yy Then
Messaggio " Distanza Spia "& (YY)&" Data "& DataEstrazione(es)

ColoreTesto 2
Scrivi "DISTANZA CERCATA "& (dis)&"",1
Scrivi : ColoreTesto 1
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r),3)&""&Space(5)&""& Format2(a)&_
""&Space(7)&"("&p&")",1
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r),3)&""&Space(5)&""& Format2(b)&_
""&Space(7)&"("&q&")",1 : Scrivi

End If

Next
Next
Next
'Next
End Sub




'Somma orizzontale su 1 ruota
Sub Main()
Dim anum(10),ruota(1)
ruota(1)=r1
r1=InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)

som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
ini = EstrazioneFin - nes
fin = EstrazioneFin
For es = ini To fin
Messaggio "Estrazione: " & es
'For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
ruota(1) = r1
a = Estratto(es,r1,p1)
' For r2 = r1 + 1 To 12
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p2)
If a + b = som Then
anum(1) = som
'Call VerificaEsito(anum,ruota,es + 1,1,10,,retesito,retcolpi,retestratti,retidestr)
'If p1=p2 Then 'iso
Scrivi "SOMMA CERCATA "& (som)&"",1

Scrivi String(70,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(a) & " in " &(p1) & " pos.",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) & " in " &(p2) & " pos.",1
Scrivi
ColoreTesto 2


End If
'End If
'Next
Next
Next
Next
'Next
End Sub
 
Ciao Leo, questa è la prima versione del tuo script verifica la correttezza bastava mettere un ciclo for next per le somme.




'Somma orizzontale su 1 ruota
Sub Main()
Dim anum(10),ruota(1)
ruota(1) = r1
r1 = InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)
'som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
ini = EstrazioneFin - nes
fin = EstrazioneFin
For es = ini To fin
For som = 1 To 90
Messaggio "Estrazione: " & es
'For r1 = 1 To 12
'If r1 = 11 Then r1 = 12
For p1 = 1 To 5
ruota(1) = r1
a = Estratto(es,r1,p1)
' For r2 = r1 + 1 To 12
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p2)
If Fuori90(a + b) = som Then
'anum(1) = som
'Call VerificaEsito(anum,ruota,es + 1,1,10,,retesito,retcolpi,retestratti,retidestr)
'If p1=p2 Then 'iso
ColoreTesto 2
Scrivi "SOMMA CERCATA " &(som) & "",1
ColoreTesto 0
Scrivi String(70,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(a) & " in " &(p1) & " pos.",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) & " in " &(p2) & " pos.",1
Scrivi
'ColoreTesto 2
End If
'End If
Next
Next
Next
Next
'Next
End Sub



Mentre questa è la mia VISIONE e versione dello stesso script.

'Somma orizzontale su 1 ruota
Sub Main()
Dim anum(10),ruota(1)
ruota(1) = r1
r1 = InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)
'som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",20)
Scrivi" SOMME ESTRATTI PER POSIZIONE ***** script by Mike58 ***** ",1,- 1,3
Scrivi
ini = EstrazioneFin - nes
fin = EstrazioneFin
ReDim atitoli(13)
atitoli(1) = " DATA ESTR. "
atitoli(2) = " ruota "
atitoli(3) = " estratti "
atitoli(4) = " P.1,2 "
atitoli(5) = " P.1,3 "
atitoli(6) = " P.1,4 "
atitoli(7) = " P.1,5 "
atitoli(8) = " P.2,3 "
atitoli(9) = " P.2,4 "
atitoli(10) = " P.2,5 "
atitoli(11) = " P.3,4 "
atitoli(12) = " P.3,5 "
atitoli(13) = " P.4,5 "
Call InitTabella(atitoli,1,,2,5)
For es = ini To fin
Messaggio "Estrazione: " & es
ruota(1) = r1
a = Estratto(es,r1,1)
b = Estratto(es,r1,2)
c = Estratto(es,r1,3)
d = Estratto(es,r1,4)
e = Estratto(es,r1,5)
s1 = Fuori90(a + b)
s2 = Fuori90(a + c)
s3 = Fuori90(a + d)
s4 = Fuori90(a + e)
s5 = Fuori90(b + c)
s6 = Fuori90(b + d)
s7 = Fuori90(b + e)
s8 = Fuori90(c + d)
s9 = Fuori90(c + e)
s10 = Fuori90(d + e)
ReDim avalori(13)
avalori(1) = DataEstrazione(es)
avalori(2) = NomeRuota(r1)
avalori(3) = StringaEstratti(es,r1)
avalori(4) = s1
avalori(5) = s2
avalori(6) = s3
avalori(7) = s4
avalori(8) = s5
avalori(9) = s6
avalori(10) = s7
avalori(11) = s8
avalori(12) = s9
avalori(13) = s10
Call AddRigaTabella(avalori,,,2)
Next
CreaTabella()
End Sub



Per lo script sulle distanze cerca di arrivarci utilizzando gli esempi delle somma.

Ciao
 
Somme & differenze estratti

Somme & differenze estratti

Codice:
'Somma orizzontale su 1 ruota
Sub Main()
 Dim anum(10),ruota(1)
 ruota(1) = r1
 r1 = InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)
 'som = CInt(InputBox("Somma da cercare?","Somma",90))
 nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",20)
 Scrivi" SOMME & DIFFERENZE ESTRATTI PER POSIZIONE   *****   script by Mike58  *****  ",1,- 1,3
 Scrivi
 ini = EstrazioneFin - nes
 fin = EstrazioneFin
 ReDim atitoli(23)
 'atitoli(1) = "Casi"
 atitoli(1) = " DATA ESTR. "
 atitoli(2) = " RUOTA "
 atitoli(3) = " ESTRATTI "
 atitoli(4) = " S.1,2 "
 atitoli(5) = " S.1,3 "
 atitoli(6) = " S.1,4 "
 atitoli(7) = " S.1,5 "
 atitoli(8) = " S.2,3 "
 atitoli(9) = " S.2,4 "
 atitoli(10) = " S.2,5 "
 atitoli(11) = " S.3,4 "
 atitoli(12) = " S.3,5 "
 atitoli(13) = " S.4,5 "
 atitoli(14) = " D.1,2 "
 atitoli(15) = " D.1,3 "
 atitoli(16) = " D.1,4 "
 atitoli(17) = " D.1,5 "
 atitoli(18) = " D.2,3 "
 atitoli(19) = " D.2,4 "
 atitoli(20) = " D.2,5 "
 atitoli(21) = " D.3,4 "
 atitoli(22) = " D.3,5 "
 atitoli(23) = " D.4,5 "
 Call InitTabella(atitoli,1,,2,5)
 For es = ini To fin
 
 
  Messaggio "Estrazione: " & es
  ruota(1) = r1
  
  a = Estratto(es,r1,1)
  b = Estratto(es,r1,2)
  c = Estratto(es,r1,3)
  d = Estratto(es,r1,4)
  e = Estratto(es,r1,5)
  s1 = Fuori90(a + b)
  s2 = Fuori90(a + c)
  s3 = Fuori90(a + d)
  s4 = Fuori90(a + e)
  s5 = Fuori90(b + c)
  s6 = Fuori90(b + d)
  s7 = Fuori90(b + e)
  s8 = Fuori90(c + d)
  s9 = Fuori90(c + e)
  s10 = Fuori90(d + e)
  d1 = Differenza(a,b)
  d2 = Differenza(a,c)
  d3 = Differenza(a,d)
  d4 = Differenza(a,e)
  d5 = Differenza(b,c)
  d6 = Differenza(b,d)
  d7 = Differenza(b,e)
  d8 = Differenza(c,d)
  d9 = Differenza(c,e)
  d10 = Differenza(d,e)
  ReDim avalori(23)
  
  'atitoli(1) = es
  avalori(1) = DataEstrazione(es)
  avalori(2) = NomeRuota(r1)
  avalori(3) = StringaEstratti(es,r1)
  avalori(4) = s1
  avalori(5) = s2
  avalori(6) = s3
  avalori(7) = s4
  avalori(8) = s5
  avalori(9) = s6
  avalori(10) = s7
  avalori(11) = s8
  avalori(12) = s9
  avalori(13) = s10
  avalori(14) = d1
  avalori(15) = d2
  avalori(16) = d3
  avalori(17) = d4
  avalori(18) = d5
  avalori(19) = d6
  avalori(20) = d7
  avalori(21) = d8
  avalori(22) = d9
  avalori(23) = d10
  Call AddRigaTabella(avalori,,,2)
  Call SetColoreCella(2,,1)
  Call SetColoreCella(3,,7)
  
  Call SetColoreCella(4,vbYellow)
  Call SetColoreCella(13,vbYellow)
  Call SetColoreCella(14,vbMagenta)
  Call SetColoreCella(23,vbMagenta)
 Next
 CreaTabella()
End Sub
 
Codice:
'somma orizzontale su 1 ruota
sub main()
 dim anum(10),ruota(1)
 ruota(1) = r1
 r1 = inputbox("quale ruota esaminiamo?","ruota",12)
 'som = cint(inputbox("somma da cercare?","somma",90))
 nes = inputbox("quante estrazioni vuoi controllare?","estrazioni",20)
 scrivi" somme & differenze estratti per posizione   *****   script by mike58  *****  ",1,- 1,3
 scrivi
 ini = estrazionefin - nes
 fin = estrazionefin
 redim atitoli(23)
 'atitoli(1) = "casi"
 atitoli(1) = " data estr. "
 atitoli(2) = " ruota "
 atitoli(3) = " estratti "
 atitoli(4) = " s.1,2 "
 atitoli(5) = " s.1,3 "
 atitoli(6) = " s.1,4 "
 atitoli(7) = " s.1,5 "
 atitoli(8) = " s.2,3 "
 atitoli(9) = " s.2,4 "
 atitoli(10) = " s.2,5 "
 atitoli(11) = " s.3,4 "
 atitoli(12) = " s.3,5 "
 atitoli(13) = " s.4,5 "
 atitoli(14) = " d.1,2 "
 atitoli(15) = " d.1,3 "
 atitoli(16) = " d.1,4 "
 atitoli(17) = " d.1,5 "
 atitoli(18) = " d.2,3 "
 atitoli(19) = " d.2,4 "
 atitoli(20) = " d.2,5 "
 atitoli(21) = " d.3,4 "
 atitoli(22) = " d.3,5 "
 atitoli(23) = " d.4,5 "
 call inittabella(atitoli,1,,2,5)
 for es = ini to fin
 
 
  messaggio "estrazione: " & es
  ruota(1) = r1
  
  a = estratto(es,r1,1)
  b = estratto(es,r1,2)
  c = estratto(es,r1,3)
  d = estratto(es,r1,4)
  e = estratto(es,r1,5)
  s1 = fuori90(a + b)
  s2 = fuori90(a + c)
  s3 = fuori90(a + d)
  s4 = fuori90(a + e)
  s5 = fuori90(b + c)
  s6 = fuori90(b + d)
  s7 = fuori90(b + e)
  s8 = fuori90(c + d)
  s9 = fuori90(c + e)
  s10 = fuori90(d + e)
  d1 = differenza(a,b)
  d2 = differenza(a,c)
  d3 = differenza(a,d)
  d4 = differenza(a,e)
  d5 = differenza(b,c)
  d6 = differenza(b,d)
  d7 = differenza(b,e)
  d8 = differenza(c,d)
  d9 = differenza(c,e)
  d10 = differenza(d,e)
  redim avalori(23)
  
  'atitoli(1) = es
  avalori(1) = dataestrazione(es)
  avalori(2) = nomeruota(r1)
  avalori(3) = stringaestratti(es,r1)
  avalori(4) = s1
  avalori(5) = s2
  avalori(6) = s3
  avalori(7) = s4
  avalori(8) = s5
  avalori(9) = s6
  avalori(10) = s7
  avalori(11) = s8
  avalori(12) = s9
  avalori(13) = s10
  avalori(14) = d1
  avalori(15) = d2
  avalori(16) = d3
  avalori(17) = d4
  avalori(18) = d5
  avalori(19) = d6
  avalori(20) = d7
  avalori(21) = d8
  avalori(22) = d9
  avalori(23) = d10
  call addrigatabella(avalori,,,2)
  call setcolorecella(2,,1)
  call setcolorecella(3,,7)
  
  call setcolorecella(4,vbyellow)
  call setcolorecella(13,vbyellow)
  call setcolorecella(14,vbmagenta)
  call setcolorecella(23,vbmagenta)
 next
 creatabella()
end sub

bravo mike , il risutato del tuo lavoro e fantastico, col tempo si capirà
grazie da leo
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40
Indietro
Alto