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
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto