Novità

piccolo intervento per salvo50

P

pulce50

Junior Member
Buongiorno a tutti
come sai sono un principiante, ho modificato lo script che ti allego ma una delle ricerche che ho inserito (vedi nota) produce una inutile ripetizione degli output.
Sono sicuro che mantenendomi l'esclusione voluta saprai risolvere l'inghippo.
Grazie infinite per la tua sempre pronta disponibilità. Ciao
Option Explicit
Sub Main()
Scrivi"Numero ripetuto isotopo, Ruota unica in estrz. consec. ",1
Dim n1,n2,n3,n4
Dim ambata(3),amb(3),amb1(6),abb(6),abb1(6),abb2(6),ab b3(6), abb4(6),abb5(6),lg(8)
Dim ver(1)
Dim ruote(1),posta(1),poste(2)
Dim Ini,k,k1,fin,es,co,r1,p1,p2,p3,p4
posta(1) = 1​​​​​​​poste(2) = 1
Ini = CInt(InputBox("INIZIO RICERCA ESTRAZIONE N°","INIZIO",9300))
k = CInt(InputBox("COLPI DI GIOCO ambata","COLPI",9))
k1 = CInt(InputBox("COLPI DI GIOCO ambi","COLPI",12))
fin = EstrazioneFin
For es = Ini To fin
AvanzamentoElab Ini,fin,es
co = 0
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p1 = 1 To 5
n1 = Estratto(es - 1,r1,p1): n2 = Estratto(es,r1,p1)
If n2 = n1 Then
For p3 = 1 To 5 '| Questo costrutto mi consente di rilevare se nelle medesime due estrazioni
For p4 = p3 To 5 '| di ricerca ci sono altre ripetizioni numeriche, anche non isotope. In questo caso
n3 = Estratto(es - 1,r1,p3): n4 = Estratto(es,r1,p4) '| la previsione è da escludere.
If n3 <> n1 Then '| l'inserimento dei comandi provoca però la ripetizione del pronostico
If n3 = n4 Then ver(1) = 1 Else ver(1) = 0 '| x 12 volte (11 in più)
If ver(1) = 0 Then '|


amb(1) = Fuori90(n1*2)
amb(2) = Fuori90(n1*2 -1)
amb(3) = Fuori90(n1*2 +1)


amb1(1) = Fuori90(n1*2)


abb(1) = Fuori90(n1*2)
abb(2) = Fuori90(n1*2 +90- 1)
abb(3) = Fuori90(n1*2 +1)
abb(4) = Vert(n1)

abb1(1) = Fuori90(n1*2)
abb1(2) = Fuori90(n1*2 +90- 1)
abb1(3) = Fuori90(n1*2 +1)
abb1(4) = Fuori90(n1+90-1)

abb2(1) = Fuori90(n1*2)
abb2(2) = Fuori90(n1*2+90-1)
abb2(3) = Fuori90(n1*2 +1)
abb2(4) = Fuori90(n1+1)

abb3(1) = Fuori90(n1*2)
abb3(2) = Fuori90(n1*2+90- 1)
abb3(3) = Fuori90(n1*2 +1)
abb3(4) = Fuori90(n1+90 -3)

abb4(1) = Fuori90(n1*2)
abb4(2) = Fuori90(n1*2+90- 1)
abb4(3) = Fuori90(n1*2 +1)
abb4(4) = Fuori90(n1+3)

abb5(1) = Fuori90(n1*2)
abb5(2) = Fuori90(n1*2+90- 1)
abb5(3) = Fuori90(n1*2 +1)
abb5(4) = n1

lg(1) = abb(4)':lg(2) = amb(2):lg(3) = amb(3):lg(4) = abb(4):lg(5) = abb1(4):lg(6) = abb2(4):lg(7)=abb3(4):lg(8)=abb4(4)

ruote(1) = r1

If SerieFreq(es - 10,es,amb1,ruote,1) < 3 Then
If SerieFreq(es - 5,es,amb,ruote,1) = 0 Then
If SerieFreq(es - 1,es,lg,ruote,1) = 0 Then



co = co + 1
Scrivi String(95,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " <" & Format2(n1) & ">",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " <" & Format2(n2) & ">",1
Scrivi



ImpostaGiocata 1,amb,ruote,posta,k 'Se vuoi interrompere alla 1° vincita aggiungi ,1 dopo k

ImpostaGiocata 2,abb,ruote,poste,k1,2,,1

ImpostaGiocata 3,abb1,ruote,poste,k1,2,,1

ImpostaGiocata 4,abb2,ruote,poste,k1,2,,1

ImpostaGiocata 5,abb3,ruote,poste,k1,2,,1

ImpostaGiocata 6,abb4,ruote,poste,k1,2,,1
ImpostaGiocata 7,abb5,ruote,poste,k1,2,,1

'ImpostaGiocata 7,ambo1,ruote,poste,k1,2,,1
'ImpostaGiocata 8,ambo1,ruote,posta,k1,1,,1

'ImpostaGiocata 9,lg,ruote,poste,k1

Gioca es,1
End If
End If
End If
End If
End If
Next
Next
End If
Next
Next
Next
Scrivi
ScriviResoconto
End Sub
 
Devi pigiare nel cancellino e postarlo dentro i due CODE perche ci sono delle righe incomprensibili

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/pV8HnkYD\/pippo.png"}[/IMG2]


quando appaiono i 2 code, pigia spazio, si crea uno spazio e in mezzo ai 2 code, li è dove devi inserire lo script


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/1XTqHMtY\/code.png"}[/IMG2]
 
Ultima modifica:
Codice: 
   Option Explicit
Sub Main()
Scrivi"Numero ripetuto isotopo, Ruota unica in estrz. consec. ",1
Dim n1,n2,n3,n4
Dim ambata(3),amb(3),amb1(6),abb(6),abb1(6),abb2(6),abb3(6),abb4(6),abb5(6),lg(8)
Dim ver(1)
Dim ruote(1),posta(1),poste(2)
Dim Ini,k,k1,fin,es,co,r1,p1,p2,p3,p4
posta(1) = 1:poste(2) = 1
Ini = CInt(InputBox("INIZIO RICERCA ESTRAZIONE N°","INIZIO",9300))
k = CInt(InputBox("COLPI DI GIOCO ambata","COLPI",9))
k1 = CInt(InputBox("COLPI DI GIOCO ambi","COLPI",12))
fin = EstrazioneFin
For es = Ini To fin
AvanzamentoElab Ini,fin,es
co = 0
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p1 = 1 To 5
n1 = Estratto(es - 1,r1,p1): n2 = Estratto(es,r1,p1)
If n2 = n1 Then
For p3 = 1 To 5                                        '| Questo costrutto mi consente di rilevare se nelle medesime due estrazioni
For p4 = p3 To 5                                       '| di ricerca ci sono altre ripetizioni numeriche, anche non isotope. In questo caso
n3 = Estratto(es - 1,r1,p3): n4 = Estratto(es,r1,p4)   '| la previsione è da escludere.
If n3 <> n1 Then                                       '| l'inserimento dei comandi provoca però la ripetizione del pronostico
If n3 = n4 Then ver(1) = 1 Else ver(1) = 0             '|  x 12 volte (11 in più)
If ver(1) = 0 Then '|


amb(1) = Fuori90(n1*2)
amb(2) = Fuori90(n1*2 - 1)
amb(3) = Fuori90(n1*2 + 1)


amb1(1) = Fuori90(n1*2)


abb(1) = Fuori90(n1*2)
abb(2) = Fuori90(n1*2 + 90 - 1)
abb(3) = Fuori90(n1*2 + 1)
abb(4) = Vert(n1)

abb1(1) = Fuori90(n1*2)
abb1(2) = Fuori90(n1*2 + 90 - 1)
abb1(3) = Fuori90(n1*2 + 1)
abb1(4) = Fuori90(n1 + 90 - 1)

abb2(1) = Fuori90(n1*2)
abb2(2) = Fuori90(n1*2 + 90 - 1)
abb2(3) = Fuori90(n1*2 + 1)
abb2(4) = Fuori90(n1 + 1)

abb3(1) = Fuori90(n1*2)
abb3(2) = Fuori90(n1*2 + 90 - 1)
abb3(3) = Fuori90(n1*2 + 1)
abb3(4) = Fuori90(n1 + 90 - 3)

abb4(1) = Fuori90(n1*2)
abb4(2) = Fuori90(n1*2 + 90 - 1)
abb4(3) = Fuori90(n1*2 + 1)
abb4(4) = Fuori90(n1 + 3)

abb5(1) = Fuori90(n1*2)
abb5(2) = Fuori90(n1*2 + 90 - 1)
abb5(3) = Fuori90(n1*2 + 1)
abb5(4) = n1

lg(1) = abb(4)':lg(2) = amb(2):lg(3) = amb(3):lg(4) = abb(4):lg(5) = abb1(4):lg(6) = abb2(4):lg(7)=abb3(4):lg(8)=abb4(4)

ruote(1) = r1

If SerieFreq(es - 10,es,amb1,ruote,1) < 3 Then
If SerieFreq(es - 5,es,amb,ruote,1) = 0 Then
If SerieFreq(es - 1,es,lg,ruote,1) = 0 Then



co = co + 1
Scrivi String(95,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " <" & Format2(n1) & ">",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " <" & Format2(n2) & ">",1
Scrivi



ImpostaGiocata 1,amb,ruote,posta,k 'Se vuoi interrompere alla 1° vincita aggiungi ,1 dopo k

ImpostaGiocata 2,abb,ruote,poste,k1,2,,1

ImpostaGiocata 3,abb1,ruote,poste,k1,2,,1

ImpostaGiocata 4,abb2,ruote,poste,k1,2,,1

ImpostaGiocata 5,abb3,ruote,poste,k1,2,,1

ImpostaGiocata 6,abb4,ruote,poste,k1,2,,1
ImpostaGiocata 7,abb5,ruote,poste,k1,2,,1

'ImpostaGiocata 7,ambo1,ruote,poste,k1,2,,1
'ImpostaGiocata 8,ambo1,ruote,posta,k1,1,,1

'ImpostaGiocata 9,lg,ruote,poste,k1

Gioca es,1
End If
End If
End If
End If
End If
Next
Next
End If
Next
Next
Next
Scrivi
ScriviResoconto
End Sub
rieccolo. pulce50
 
Spulciando avevo notato che c'erano delle ripetizioni numeriche, adesso dovrebbe essere a posto, comunque fai un controllo.


Codice: 
Option Explicit
Sub Main()
   Scrivi"Numero ripetuto isotopo, Ruota unica in estrz. consec. ",1
   Dim n1,n2,n3,n4,ok,Co2
   Dim ambata(3),amb(3),amb1(6),abb(6),abb1(6),abb2(6),abb3(6),abb4(6),abb5(6),lg(8)
   Dim ver(1)
   Dim ruote(1),posta(1),poste(2)
   Dim Ini,k,k1,K2,fin,es,co,r1,p1,p2,p3,p4
   posta(1) = 1:poste(2) = 1
   Ini = CInt(InputBox("INIZIO RICERCA ESTRAZIONE N°","INIZIO",9000))
   k = CInt(InputBox("COLPI DI GIOCO ambata","COLPI",9))
   k1 = CInt(InputBox("COLPI DI GIOCO ambi","COLPI",12))
   fin = EstrazioneFin
   For es = Ini To fin
      AvanzamentoElab Ini,fin,es
      co = 0
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12
         For p1 = 1 To 5
            n1 = Estratto(es - 1,r1,p1):
            n2 = Estratto(es,r1,p1)
            If n2 = n1 Then
               ok = 0
               For p3 = 1 To 5 '| Questo costrutto mi consente di rilevare se nelle medesime due estrazioni
                  For p4 = 1 To 5 '| di ricerca ci sono altre ripetizioni numeriche, anche non isotope. In questo caso
                     n3 = Estratto(es - 1,r1,p3)
                     n4 = Estratto(es,r1,p4) '| la previsione è da escludere.
                     If n3 = n4 And n4 <> n1 And n3 <> n1 Then ok = 1 : Exit For
                  Next
                  If n3 = n4 And n4 <> n1 And n3 <> n1 Then ok = 1 : Exit For
               Next
               If ok = 0 Then
                  'If n3 <> n1 Then '| l'inserimento dei comandi provoca però la ripetizione del pronostico
                  'If n3 = n4 Then ver(1) = 1 Else ver(1) = 0 '|  x 12 volte (11 in più)
                  'If ver(1) = 0 Then '|
                  amb(1) = Fuori90(n1*2)
                  amb(2) = Fuori90(n1*2 - 1)
                  amb(3) = Fuori90(n1*2 + 1)
                  amb1(1) = Fuori90(n1*2)
                  abb(1) = Fuori90(n1*2)
                  abb(2) = Fuori90(n1*2 + 90 - 1)
                  abb(3) = Fuori90(n1*2 + 1)
                  abb(4) = Vert(n1)
                  abb1(1) = Fuori90(n1*2)
                  abb1(2) = Fuori90(n1*2 + 90 - 1)
                  abb1(3) = Fuori90(n1*2 + 1)
                  abb1(4) = Fuori90(n1 + 90 - 1)
                  abb2(1) = Fuori90(n1*2)
                  abb2(2) = Fuori90(n1*2 + 90 - 1)
                  abb2(3) = Fuori90(n1*2 + 1)
                  abb2(4) = Fuori90(n1 + 1)
                  abb3(1) = Fuori90(n1*2)
                  abb3(2) = Fuori90(n1*2 + 90 - 1)
                  abb3(3) = Fuori90(n1*2 + 1)
                  abb3(4) = Fuori90(n1 + 90 - 3)
                  abb4(1) = Fuori90(n1*2)
                  abb4(2) = Fuori90(n1*2 + 90 - 1)
                  abb4(3) = Fuori90(n1*2 + 1)
                  abb4(4) = Fuori90(n1 + 3)
                  abb5(1) = Fuori90(n1*2)
                  abb5(2) = Fuori90(n1*2 + 90 - 1)
                  abb5(3) = Fuori90(n1*2 + 1)
                  abb5(4) = n1
                  lg(1) = abb(4)':lg(2) = amb(2):lg(3) = amb(3):lg(4) = abb(4):lg(5) = abb1(4):lg(6) = abb2(4):lg(7)=abb3(4):lg(8)=abb4(4)
                  ruote(1) = r1
                  If SerieFreqTurbo(es - 10,es,amb1,ruote,1) < 3 Then
                     If SerieFreq(es - 5,es,amb,ruote,1) = 0 Then
                        If SerieFreq(es - 1,es,lg,ruote,1) = 0 Then
                           co = co + 1
                           Co2 = Co2 + 1
                           Scrivi String(95,"=") & " Caso n°" & Format2(co),1
                           Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " <" & Format2(n1) & ">",1
                           Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " <" & Format2(n2) & ">",1
                           Scrivi
                           ImpostaGiocata 1,amb,ruote,posta,k 'Se vuoi interrompere alla 1° vincita aggiungi ,1 dopo k
                           ImpostaGiocata 2,abb,ruote,poste,k1,2,,1
                           ImpostaGiocata 3,abb1,ruote,poste,k1,2,,1
                           ImpostaGiocata 4,abb2,ruote,poste,k1,2,,1
                           ImpostaGiocata 5,abb3,ruote,poste,k1,2,,1
                           ImpostaGiocata 6,abb4,ruote,poste,k1,2,,1
                           ImpostaGiocata 7,abb5,ruote,poste,k1,2,,1
                           'ImpostaGiocata 7,ambo1,ruote,poste,k1,2,,1
                           'ImpostaGiocata 8,ambo1,ruote,posta,k1,1,,1
                           'ImpostaGiocata 9,lg,ruote,poste,k1
                           Gioca es,1
                        End If
                     End If
                  End If
               End If
            End If
         Next
      Next
   Next
   Scrivi " CASI TOTALI " & Co2
   ScriviResoconto
End Sub
 
Ultima modifica:
vero. ho controllato, ora va bene . molte grazie.
toglimi però una curiosità perchè servono due righe di comando uguali per rendere operativo il tutto?
Codice: 
     If n3 = n4 And n4 <> n1 And n3 <> n1 Then ok = 1 : Exit For
                  Next
                  If n3 = n4 And n4 <> n1 And n3 <> n1 Then ok = 1 : Exit For
               Next
               If ok = 0 Then

pulce50
 
Ciao ,forse non ho capito bene , ma l obbiettivo qual è?
si vuole cercare nella stessa ruota in due estrazioni successive un numero ripetuto isotopo e non devono esserne presenti altri anche se non isotopi?
È questo l obbiettivo?
 
si. lo script di salvo50 che vedi sopra lo fa. avevo solo una curiosità su comando che ho evidenziato.
tutto là. ciao. pulce50
 
pulce50;n2186380 ha scritto:
vero. ho controllato, ora va bene . molte grazie.
toglimi però una curiosità perchè servono due righe di comando uguali per rendere operativo il tutto?
Codice: 
 If n3 = n4 And n4 <> n1 And n3 <> n1 Then ok = 1 : Exit For
Next
If n3 = n4 And n4 <> n1 And n3 <> n1 Then ok = 1 : Exit For
Next
If ok = 0 Then

pulce50
[/QUOTE]

Ciao Pulce50

Io non l'ho provato solo con una riga di comando per vedere cosa succedeva, ma ho fatto un ragionamento,  dopo aver trovato un'altra ripetizione numerica deve uscire definitivamente da quel controllo che faccio con i due FOR-NEXT, quindi quando dò il comando Exit For esce dal primo FOR-NEXT quello interno, ma deve uscire anche dall'altro FOR-NEXT, per farlo uscire anche dal FOR-NEXT esterno devo dargli di nuovo il comando con la stessa motivazione, oppure questo l'avevo pensato qualche secondo prima di postarlo, la seconda riga di comando sostituirla con

If  ok = 1 Then Exit For

dovrebbe andare bene lo stesso, però dato che non avevo il tempo di provarlo, sono andato sul sicuro ripetendo la stessa riga di comando
Clicca per espandere...
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 01 agosto 2026
    Bari
    46
    54
    36
    47
    01
    Cagliari
    77
    30
    04
    79
    18
    Firenze
    84
    76
    10
    27
    44
    Genova
    32
    13
    71
    38
    46
    Milano
    10
    23
    18
    20
    03
    Napoli
    73
    36
    10
    90
    07
    Palermo
    61
    46
    24
    57
    32
    Roma
    89
    78
    23
    07
    35
    Torino
    21
    59
    34
    73
    86
    Venezia
    74
    01
    30
    46
    54
    Nazionale
    71
    65
    17
    09
    20
    Estrazione Simbolotto
    Nazionale
    03
    09
    37
    30
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto