Novità

piccolo intervento per salvo50

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
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

pulce50

Junior Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

pulce50

Junior Member
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
 

i legend

Premium Member
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?
 

pulce50

Junior Member
si. lo script di salvo50 che vedi sopra lo fa. avevo solo una curiosità su comando che ho evidenziato.
tutto là. ciao. pulce50
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto