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
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
Indietro
Alto