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 22 novembre 2025
    Bari
    82
    08
    24
    45
    37
    Cagliari
    07
    16
    67
    74
    35
    Firenze
    76
    32
    44
    06
    51
    Genova
    22
    77
    19
    27
    89
    Milano
    46
    81
    56
    29
    85
    Napoli
    68
    90
    80
    06
    47
    Palermo
    31
    07
    43
    83
    19
    Roma
    08
    68
    17
    12
    57
    Torino
    87
    17
    61
    60
    58
    Venezia
    27
    05
    17
    72
    50
    Nazionale
    70
    76
    56
    81
    15
    Estrazione Simbolotto
    Torino
    26
    34
    10
    42
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto