Novità

x chi può fare una modifica

BEPPA51

Advanced Member >PLATINUM<
se è possibile modificare per 3 ambi somma uguale isotopi. grazie
Sub Main
Dim ruote(10)
Dim ruota(10)
Dim ruotee(10)
Dim n(10):Dim n1(10)
Dim poste(3)
Dim posta(1)
'posta(1) = 1
poste(2) = 1
poste(3) = 1
co = 0
so = CInt(InputBox("INSERISCI LA SOMMA DEI 2 AMBI ISOTOPI",,40))
ii = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA",,9000)
kk = InputBox("INSERISCI I COLPI DI GIOCO",,13)
ini = ii
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab Ini,fin,es
Messaggio " " & DataEstrazione(es) & " '[ Ambi somma 90 isotopi °Metodo di ananda - Script By Blackmore°]"
For r1 = 1 To 10 ' la 1°ruota cerca la condizione da bari a venezia
For r2 = r1 + 1 To 12 ' la 2°ruota dalla successiva (della 1° ruota)fino alla nazionale
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p1)
d = Estratto(es,r2,p2)
If a + b = so Then
If c + d = so Then
co = co + 1
casi = casi + 1
Scrivi String(110,"*") & " Caso n° " & Format2(casi),1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " - " & Format2(a) & "-" & Format2(b) & " = Somma " & so & " Isotopa",1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " - " & Format2(c) & "-" & Format2(d) & " = Somma " & so & " Isotopa",1
ColoreTesto 0
'ruote(1) = r1 : ruote(2) = r2
ruotee(1) = BA_ : ruotee(2) = PA_ :ruotee(3) = TU_
'ruota(4) = BA_ 'Se vuoi giocare gli ambi anche a tutte togli l'apice all'inizio della rig
n(1) = Figura(a)
n(2) = Figura(c)
n(3) = Fuori90(b - n(1) + d - Figura(c))
n(4) = Fuori90(Estratto(es,FI_ ,2)+0)
ImpostaGiocata 1,n,ruotee,poste,kk
Gioca es',1 ' se usate L8 o Lottodesk togliete la virgola e l'1 dopo gioca es
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
 
Ciao Beppa, ho modificato aggiungendo il terzo ambo sullla terza ruota..
se ho capito bene :)

Sub Main
Dim ruote(10)
Dim ruota(10)
Dim ruotee(10)
Dim n(10):Dim n1(10)
Dim poste(3)
Dim posta(1)
'posta(1) = 1
poste(2) = 1
poste(3) = 1
co = 0
so = CInt(InputBox("INSERISCI LA SOMMA DEI 2 AMBI ISOTOPI",,40))
ii = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA",,9000)
kk = InputBox("INSERISCI I COLPI DI GIOCO",,13)
ini = ii
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab Ini,fin,es
Messaggio " " & DataEstrazione(es) & " '[ Ambi somma 90 isotopi °Metodo di ananda - Script By Blackmore°]"
For r1 = 1 To 9 ' la 1°ruota cerca la condizione da bari a venezia
For r2 = r1 + 1 To 10 ' la 2°ruota dalla successiva (della 1° ruota)fino alla nazionale
For r3 = r2 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p1)
d = Estratto(es,r2,p2)
e= Estratto(es,r3,p1)
f= Estratto(es,r3,p2)
If a + b = so Then
If c + d = so Then
If e + f = so Then
co = co + 1
casi = casi + 1
Scrivi String(110,"*") & " Caso n° " & Format2(casi),1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " - " & Format2(a) & "-" & Format2(b) & " = Somma " & so & " Isotopa",1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " - " & Format2(c) & "-" & Format2(d) & " = Somma " & so & " Isotopa",1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r3) & " - " & StringaEstratti(es,r3) & " - " & Format2(e) & "-" & Format2(f) & " = Somma " & so & " Isotopa",1

ColoreTesto 0
'ruote(1) = r1 : ruote(2) = r2
ruotee(1) = BA_ : ruotee(2) = PA_ :ruotee(3) = TU_
'ruota(4) = BA_ 'Se vuoi giocare gli ambi anche a tutte togli l'apice all'inizio della rig
n(1) = Figura(a)
n(2) = Figura(c)
n(3) = Fuori90(b - n(1) + d - Figura(c))
n(4) = Fuori90(Estratto(es,FI_ ,2)+0)
ImpostaGiocata 1,n,ruotee,poste,kk
Gioca es',1 ' se usate L8 o Lottodesk togliete la virgola e l'1 dopo gioca es
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub

Gio.
 
Ciao Gio.sarebbe possibile mettere in automatico la ricerca di qualsiasi somma?,grazie,semplificherebbe tanto
 
ciao Gio
il listato va bene
pero c è un problema,hò modiicato un listato di somma 90 isotopi che forse non era adato
xchè mi fa la somma con i numeri fino a 40.ti faccio un esempio 82+48 =130-90 =40 nn li conteggia.
comunque grazie ?
 
Ciao Beppa, puoi ricercare entrambe le somme, prima la somma 40 e poi la somma 130.. o meglio ancora puoi usare la funzione Multi Script di Spaziometria inserendo lo stesso script per 2 volte.. una volta lanciati con il classico Fulmine, in uno metti somma 40 e nell'altro 130.. così hai i 2 listati pronti e puoi passare da uno all'altro, cliccandoci sopra..

Gio.
 
Ciao Gio.sarebbe possibile mettere in automatico la ricerca di qualsiasi somma?,grazie,semplificherebbe tanto

Ciao a Tutti.

Ho modificato lo script del post 2, le somme uguali sono col fuori90, quindi ci sono anche quelle che superano 90, lo impostato per tutte le 90 somme, per questo motivo lo script è molto lento

Codice:
Sub Main
   Dim ruote(10)
   Dim ruota(10)
   Dim ruotee(10)
   Dim n(10):Dim n1(10)
   Dim poste(3)
   Dim posta(1)
   'posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   co = 0
   ii = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA",,9720)
   kk = InputBox("INSERISCI I COLPI DI GIOCO",,13)
   ini = ii
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab Ini,fin,es
      'Messaggio " " & DataEstrazione(es) & " '[ Ambi somma 90 isotopi °Metodo di ananda - Script By Blackmore°]"
      For r1 = 1 To 9 '
         For r2 = r1 + 1 To 10 
            For r3 = r2 + 1 To 12
               If r2 = 11 Then r2 = 12
               For p1 = 1 To 4
                  For p2 = p1 + 1 To 5
                     a = Estratto(es,r1,p1)
                     b = Estratto(es,r1,p2)
                     c = Estratto(es,r2,p1)
                     d = Estratto(es,r2,p2)
                     e = Estratto(es,r3,p1)
                     f = Estratto(es,r3,p2)
                     For so = 1 To 90
                        ab = Fuori90(a + b)
                        cd = Fuori90(c + d)
                        ef = Fuori90(e + f)
                        If ab = so And cd = so And ef = so Then
                           co = co + 1
                           casi = casi + 1
                           Scrivi String(110,"*") & " Caso n° " & Format2(casi),1
                           ColoreTesto 1
                           Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " - " & Format2(a) & "-" & Format2(b) & " = Somma " & so & " Isotopa",1
                           Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " - " & Format2(c) & "-" & Format2(d) & " = Somma " & so & " Isotopa",1
                           Scrivi DataEstrazione(es) & " - " & SiglaRuota(r3) & " - " & StringaEstratti(es,r3) & " - " & Format2(e) & "-" & Format2(f) & " = Somma " & so & " Isotopa",1
                           ColoreTesto 0
                           'ruote(1) = r1 : ruote(2) = r2
                           ruotee(1) = BA_ : ruotee(2) = PA_ :ruotee(3) = TU_
                           'ruota(4) = BA_ 'Se vuoi giocare gli ambi anche a tutte togli l'apice all'inizio della rig
                           n(1) = Figura(a)
                           n(2) = Figura(c)
                           n(3) = Fuori90(b - n(1) + d - Figura(c))
                           n(4) = Fuori90(Estratto(es,FI_,2) + 0)
                           ImpostaGiocata 1,n,ruotee,poste,kk
                           Gioca es',1 ' se usate L8 o Lottodesk togliete la virgola e l'1 dopo gioca es
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 04 luglio 2025
    Bari
    08
    45
    67
    28
    03
    Cagliari
    70
    57
    26
    88
    80
    Firenze
    83
    77
    22
    86
    67
    Genova
    04
    20
    78
    36
    47
    Milano
    12
    53
    34
    18
    57
    Napoli
    07
    19
    35
    75
    10
    Palermo
    06
    65
    11
    07
    23
    Roma
    01
    53
    48
    80
    46
    Torino
    30
    44
    71
    05
    21
    Venezia
    45
    67
    14
    44
    40
    Nazionale
    22
    27
    05
    18
    67
    Estrazione Simbolotto
    Nazionale
    12
    31
    32
    04
    44
Indietro
Alto