X Mike58: modifica suo script x Ambetto...

miki55 · 21 Settembre 2018

Ciao Mike58, approfitto per la tua gentilezza per chiederti se questo script da te
gentilmente presentato per ricerca Terzine AMBETTO con 2 capigioco, possiamo
modificarlo stavolta su DUE RUOTE? Grazie anticipate...

Sub Main
Dim Nu(3),Ru(1),Abb1(2),Abb2(2),abb3(2),abb4(2),Gruppo Formazione
Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),A bb11(2),Abb12(2)
Dim T,V
Ini = 1
fin = EstrazioneFin
r = InputBox("Scelta Ruota",,3)
cG1 = InputBox("Capogioco 1",,82)
cG2 = InputBox("Capogioco 2",,42)
ResetTimer
Scrivi "Ricerca Statistica Per Ambetto su AmboCapogioco Conosciuto (" & cG1 & "." & cG2 & ")",1,,,1,3,,1
Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
Scrivi
Ru(1) = r
T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit. Max","Freq.","UL Sortita","ID Sortita","Esito")
Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambr ia")
For abb = 1 To 90
Nu(1) = cG1
Nu(2) = cG2
If abb = cG1 Then abb = 0
If abb = cG2 Then abb = 0
Nu(3) = abb
'--------------ambetti----------------------
Abb1(1) = Nu(1)
Abb1(2) = Nu(2) + 1
Call AddNumeriToGruppoStatistico(Abb1,r)
Abb2(1) = Nu(1)
Abb2(2) = Fuori90(Nu(2) - 1)
Call AddNumeriToGruppoStatistico(Abb2,r)
abb3(1) = Nu(1)
abb3(2) = Fuori90(Nu(3) + 1)
Call AddNumeriToGruppoStatistico(abb3,r)
abb4(1) = Nu(1)
abb4(2) = Fuori90(Nu(3) - 1)
Call AddNumeriToGruppoStatistico(abb4,r)
abb5(1) = Nu(2)
abb5(2) = Fuori90(Nu(1) + 1)
Call AddNumeriToGruppoStatistico(abb5,r)
abb6(1) = Nu(2)
abb6(2) = Fuori90(Nu(1) - 1)
Call AddNumeriToGruppoStatistico(abb6,r)
abb7(1) = Nu(2)
abb7(2) = Fuori90(Nu(3) + 1)
Call AddNumeriToGruppoStatistico(abb7,r)
abb8(1) = Nu(2)
abb8(2) = Fuori90(Nu(3) - 1)
Call AddNumeriToGruppoStatistico(abb8,r)
abb9(1) = Nu(3)
abb9(2) = Fuori90(Nu(1) + 1)
Call AddNumeriToGruppoStatistico(abb9,r)
Abb10(1) = Nu(3)
Abb10(2) = Fuori90(Nu(1) - 1)
Call AddNumeriToGruppoStatistico(Abb10,r)
Abb11(1) = Nu(3)
Abb11(2) = Fuori90(Nu(2) + 1)
Call AddNumeriToGruppoStatistico(Abb11,r)
Abb12(1) = Nu(3)
Abb12(2) = Fuori90(Nu(2) - 1)
Call AddNumeriToGruppoStatistico(Abb12,r)
'................................................. ...........................
Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
Call AvanzamentoElab(1,90,abb)
Call StatisticaGruppoFormazioni(2,rit,max,fre,GruppoFor mazione,Ini,fin)
Ambetto = VerificaAmbetto(Nu,r,(fin - rit),retNumeri,retVincita)
For clp = 1 To EstrazioniArchivio - EstrazioneFin
If VerificaAmbetto(Nu,r,fin + clp,retnumr1,rVincitar1) > 0 Then '
colpo = clp
Exit For
Else
colpo = " "
End If
Next
esit = colpo & "° -> " & retnumr1
V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit ,max,fre,retNumeri,GetInfoEstrazione(fin - rit),esit)
Call AddRigaTabella(V)
Next
Call SetTableWidth("100%")
Call SetTableHeight("100%")
CreaTabellaOrdinabile(4)
Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
End Sub

miki55

Mike58 · 21 Settembre 2018

Ciao Miki, avevo letto la tua richiesta anche nell'altro trhead e devo dirti in merito che non è così immediato, c'è una difficoltà oggettiva in quanto ci sono codici che agiscono solo per Ruota e non per VettoriRuote e quindi c'è bisogno di sperimentare una soluzione, penso fattibile con dei cicli For, ma va verificata.

Poi essendo impegnato questa settimana lavorativamente con turni notturni mi manca il tempo per sperimentare.
Debbo aggiungere che poi uno per uno script per Terzine con un Capogioco il discorso si complica ancor di più per i tempi di elaborazione.

Per ora mi serve tempo per sperimentare una soluzione.

Ciao

miki55 · 21 Settembre 2018

Mike58;n2131703 ha scritto:
Ciao Miki, avevo letto la tua richiesta anche nell'altro trhead e devo dirti in merito che non è così immediato, c'è una difficoltà oggettiva in quanto ci sono codici che agiscono solo per Ruota e non per VettoriRuote e quindi c'è bisogno di sperimentare una soluzione, penso fattibile con dei cicli For, ma va verificata.

Poi essendo impegnato questa settimana lavorativamente con turni notturni mi manca il tempo per sperimentare.
Debbo aggiungere che poi uno per uno script per Terzine con un Capogioco il discorso si complica ancor di più per i tempi di elaborazione.

Per ora mi serve tempo per sperimentare una soluzione.

Ciao

Aspetterò e grazie x aver risposto.

Mike58 · 21 Settembre 2018

Miki,Nikor, (se Leggi) mi potete verificare qualche dato se corrispondono con i vostri.

Provate e fate sapere.

2 capogiochi con abbinamento.

Codice:

Sub Main
   Dim Nu(3),Abb1(2),Abb2(2),abb3(2),abb4(2),GruppoFormazione
   Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),Abb11(2),Abb12(2)
   Dim T,V
   Ini = 1
   fin = EstrazioneFin
   'r = InputBox("Scelta Ruota",,3)
   ReDim Ru(12)
   r = ScegliRuote(Ru)
   cG1 = InputBox("Capogioco 1",,82)
   cG2 = InputBox("Capogioco 2",,42)
   ResetTimer
   Scrivi "Ricerca Statistica Per Ambetto su AmboCapogioco Conosciuto (" & cG1 & "." & cG2 & ")",1,,,1,3,,1
   Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
   Scrivi
   Scrivi StringaRuote(Ru)
   'Ru(1) = r
   T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit. Max","Freq.","UL Sortita","ID Sortita","Esito")
   Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambr ia")
   For rr = 1 To r
   'Ru(r) = rr
   For abb = 1 To 90
      Nu(1) = cG1
      Nu(2) = cG2
      If abb = cG1 Then abb = 0
      If abb = cG2 Then abb = 0
      Nu(3) = abb
      '--------------ambetti----------------------
      Abb1(1) = Nu(1)
      Abb1(2) = Nu(2) + 1
      Call AddNumeriToGruppoStatistico(Abb1,Ru(rr))
      Abb2(1) = Nu(1)
      Abb2(2) = Fuori90(Nu(2) - 1)
      Call AddNumeriToGruppoStatistico(Abb2,Ru(rr))
      abb3(1) = Nu(1)
      abb3(2) = Fuori90(Nu(3) + 1)
      Call AddNumeriToGruppoStatistico(abb3,Ru(rr))
      abb4(1) = Nu(1)
      abb4(2) = Fuori90(Nu(3) - 1)
      Call AddNumeriToGruppoStatistico(abb4,Ru(rr))
      abb5(1) = Nu(2)
      abb5(2) = Fuori90(Nu(1) + 1)
      Call AddNumeriToGruppoStatistico(abb5,Ru(rr))
      abb6(1) = Nu(2)
      abb6(2) = Fuori90(Nu(1) - 1)
      Call AddNumeriToGruppoStatistico(abb6,Ru(rr))
      abb7(1) = Nu(2)
      abb7(2) = Fuori90(Nu(3) + 1)
      Call AddNumeriToGruppoStatistico(abb7,Ru(rr))
      abb8(1) = Nu(2)
      abb8(2) = Fuori90(Nu(3) - 1)
      Call AddNumeriToGruppoStatistico(abb8,Ru(rr))
      abb9(1) = Nu(3)
      abb9(2) = Fuori90(Nu(1) + 1)
      Call AddNumeriToGruppoStatistico(abb9,Ru(rr))
      Abb10(1) = Nu(3)
      Abb10(2) = Fuori90(Nu(1) - 1)
      Call AddNumeriToGruppoStatistico(Abb10,Ru(rr))
      Abb11(1) = Nu(3)
      Abb11(2) = Fuori90(Nu(2) + 1)
      Call AddNumeriToGruppoStatistico(Abb11,Ru(rr))
      Abb12(1) = Nu(3)
      Abb12(2) = Fuori90(Nu(2) - 1)
      Call AddNumeriToGruppoStatistico(Abb12,Ru(rr))
      '................................................. ...........................
      Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
      Call AvanzamentoElab(1,90,abb)
      Call StatisticaGruppoFormazioniTurbo(2,rit,max,fre,GruppoFormazione,Ini,fin)
      Ambetto = VerificaAmbetto(Nu,Ru(rr),(fin - rit),retNumeri,retVincita)
      For clp = 1 To EstrazioniArchivio - EstrazioneFin
         If VerificaAmbetto(Nu,Ru(rr),fin + clp,retnumr1,rVincitar1) > 0 Then '
            colpo = clp
            Exit For
         Else
            colpo = " "
         End If
      Next
      esit = colpo & "° -> " & retnumr1
      V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit,max,fre,retNumeri,GetInfoEstrazione(fin - rit),esit)
      Call AddRigaTabella(V)
   Next
   Next
   Call SetTableWidth("100%")
   Call SetTableHeight("100%")
   CreaTabellaOrdinabile(4)
   Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
End Sub

Mike58 · 21 Settembre 2018

Questa altro script è un pochetto spartano e dato un capogioco su ruota abbinato ad altri 2 numeri ( 3 Numero step 3) forma una terzina e ne verifica la sorte di ambetto con relativo Ritardo.

Verificate i dati poi vediamo

Codice:

Sub Main
   Dim nu(3)
   Ini = EstrazioneFin - 360
   fin = EstrazioneFin
   n = 13 ' capogioco
   r = 8 ' ruota
   Scrivi "Numero CapoGioco " & " ( " & n & " )"  & " Ruota di : " & NomeRuota(r),1,,,1,3,,1
   Scrivi
   ResetTimer
   For es = Ini To fin 'Step - 1
      For x = 1 To 89 Step 1
         For y = x + 1 To 90 Step 3
            nu(1) = n
            nu(2) = x
            nu(3) = y
            ambetto = VerificaAmbetto(nu,r,es,RetNumeri,RetVincita)
            If ambetto > 0 Then
            Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
            Call AvanzamentoElab(Ini,fin,es)
               Scrivi StringaNumeri(nu,,1) & vbTab & RetNumeri & vbTab & fin - es
            End If
         Next
      Next
   Next
End Sub

Nikor · 21 Settembre 2018

Mike58;n2131712 ha scritto:
Miki,Nikor, (se Leggi) mi potete verificare qualche dato se corrispondono con i vostri.

Provate e fate sapere.

2 capogiochi con abbinamento.

Ciao Mike.. tranquillo che non scappa niente, se dovrai fare il turno di notte riposa ... la salute e la forma in primo piano poi penseremo all'hobby!

Guardaci con calma , per il messaggio # 4 il listato mi da questo errore:

Per quello del # 5 gira bene ma ci devo guardare e riscontro errori.... su tutti i ritardi > a 300

Si avvicina il weekend magari troveremo un po di tempo a disposizione, ciao e grazie per quello che stai facendo!

Nikor.

Mike58 · 21 Settembre 2018

Nikor, tranquillo, come sempre tiriamo la carretta finche possiamo.

Lo script postato da Miki non gira perché postato male non con i code specifici e si staccano le variabili pena errori basta unificare le variabili in errore.
poi e lo stesso script che già dovresti possedere quello con la modifica di Claudio.

Ciao intanto fammi le verifiche del caso ( gli errori sono dietro l'angolo).

Nikor · 21 Settembre 2018

Questa altro script è un pochetto spartano e dato un capogioco su ruota abbinato ad altri 2 numeri ( 3 Numero step 3) forma una terzina e ne verifica la sorte di ambetto con relativo Ritardo.

Verificate i dati poi vediamo

Ho verificato i primi 5 in ordine decrescente che risultano dallo script:

Numero CapoGioco ( 13 ) Ruota di : Roma

13.16.23 RO-16.24[16.23+1] 360 ...... Rit. Att. - 056
13.16.50 RO-16.51[16.50+1] 360 ...... Rit. Att. - 051
13.17.24 RO-24.16[24.17-1] 360 ...... Rit. Att. - 111
13.17.51 RO-51.16[51.17-1] 360 ...... Rit. Att. - 003
13.23.51 RO-51.24[51.23+1] 360 ...... Rit. Att. - 003

Se dovesse servire metto le date dell'ultimo sfaldamento......

Con capo gioco 13 su Roma , nessuna terzina supera le 280 estrazioni di ritarso per la sola sorte Ambetto! e se servono posto le prime 5 !

Ciao, Nikor.

Mike58 · 21 Settembre 2018

Ciao Carissimo, ottimo hai perfettamente Ragione, è solo un errore di concetto il mio nel conteggiare, infatti nello script viene mostrato una sorte di elenco e quindi il ritardo altro che non è un elenco di sortita.

come vedi l'ultimo ritardo è esattamente 56

Numero CapoGioco ( 13 ) Ruota di : Roma
13.16.23 [09398] [139] 21.11.2017 RO-23.14[23.13+1] 130 23.77.14.56.89
13.16.23 [09408] [149] 14.12.2017 RO-13.17[13.16+1] 120 17.12.13.40.47
13.16.23 [09453] [ 38] 29.03.2018 RO-16.12[16.13-1] 75 16.07.12.64.05
13.16.23 [09472] [ 57] 12.05.2018 RO-13.15[13.16-1] 5613.15.10.34.19

devo rivederlo però l strada è buona

Mike58 · 21 Settembre 2018

Stasera prima di andare al lavoro vi lascio altro script spartano rivisitato.

Fate le dovute verifiche.

Codice:

Sub Main
   Dim nu(3),kk(1),kkk(1),ru(1)
   Ini = EstrazioneFin - 150
   fin = EstrazioneFin
   n = 13 ' capogioco
   r = 8 ' ruota
   Scrivi "Numero CapoGioco " & " ( " & n & " )" & " Ruota di : " & NomeRuota(r),1,,,1,3,,1
   Scrivi
   ResetTimer

      For x = 1 To 89 Step 1
       For y = x + 3 To 90
       For es = fin To Ini Step - 1
      nu(1) = n
      nu(2) = x
      nu(3) = y
      ru(1) = r
      'sf = SerieRitardo(Ini,fin,nu,ru,2)
      ambetto = VerificaAmbetto(nu,r,es,RetNumeri,RetVincita)
      If ambetto > 0 Then

         k = k + 1
         Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
         Call AvanzamentoElab(Ini,fin,es)
         'If k > 1 Then Exit For
         If ambetto < 2 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(21) & Format2(fin - es) & vbTab & StringaEstratti(es,r)

         If ambetto > 1 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(3) & format2(fin - es) & vbTab & StringaEstratti(es,r)
     ' Scrivi sf
      End If
      'If k > 1 Then Exit For

      'End If
      Next
      Scrivi
      Next
   Next
End Sub

Nikor · 21 Settembre 2018

Ciao Mike.. in primis scusami se nel topic # .6. sono apparso alterato, ma di solito quando inserisco un listato e non gira per un qualsiasi motivo mi trasformo subito in alter ego!

Lo cestino di primo acchito e non se ne parla più , considerando che l’ambiente Windows mi è sempre stato ostico ed antipatico per miei motivi personali, non vado a controllare dove può esserci l’errore di sintassi od eventuali spazi che vanno a generare l’errore! ed è questo il motivo che avevo postato l’immagine……

Torniamo al problema, l’ultimo listato che hai postato va come una scheggia ma non si riesce a trovare i congrui più ritardati…. forse avrò fatto solo una verifica superficiale….

Posto uno stralcio, nel caso dovesse tornarti utile per quanto stai mettendo a fuoco con tanta parsimonia e bravura , solo come supporto per tuoi eventuali controlli:

Roma Capo Gioco (13) sorte solo Ambetto!

13-62-63 ...... Rit. - 280 - solo 8 ambi valevoli per Ambetto!
13-01-12 ...... Rit. - 253 - solo 8 ambi valevoli per Ambetto!
13-52-78 ...... Rit. - 237 - 12 Ambi validi!
13-10-78 ...... Rit. - 237 - 12 Ambi validi!
13-52-60 ...... Rit. - 201 - 12 Ambi validi!
............ a scendere < di 176 ....

Quando rimetterai mano al complesso flusso ed iter del codice , potrai fare le tue opportune verifiche….. con i dati che ho postato come riscontro.

( tieni sempre ben presente che un errore lo potrei avere commesso pure io… stilando queste veloci bozze! )

A domani , Nikor.

Mike58 · 22 Settembre 2018

13.62.63 [09520] [105] 01.09.2018 RO-13.62[13.63-1] 08 13.21.62.84.07
13.62.63 [09514] [ 99] 18.08.2018 RO-13.62[13.63-1] 14 13.08.32.56.62
13.62.63 [09436] [ 21] 17.02.2018 RO-13.63[13.62+1] 92 06.71.88.13.63

Ciao Nikor per quanto riguarda l'ambetto della succitata Terzina il Ritardo sarebbe = 8 su Roma con 3 frequenze su 150 estrazioni.

mentre ad esempio la 2° 13.1.12 io ho questi ritardi
13.01.12 [09524] [109] 11.09.2018 RO-01.12[01.13-1] 04 01.77.40.12.08
con 1 presenza

Per ora è una sorte di elenco poi vedo cosa posso inventarmi per filtrare in output il solo ritardo corrente.

Codice:

[/FONT]


Sub Main
   Dim nu(3),kk(1),kkk(1),ru(1)
   Ini = EstrazioneFin - 150
   fin = EstrazioneFin
   n = 13 ' capogioco
   r = 8 ' ruota
   Scrivi "Numero CapoGioco " & " ( " & n & " )" & " Ruota di : " & NomeRuota(r),1,,,1,3,,1
   Scrivi
   ResetTimer

      For x = 1 To 89 Step 1
       For y = x + 1 To 90
       For es = fin To Ini Step - 1
      nu(1) = n
      nu(2) = x
      nu(3) = y
      ru(1) = r
      'sf = SerieRitardo(Ini,fin,nu,ru,2)
      ambetto = VerificaAmbetto(nu,r,es,RetNumeri,RetVincita)
      If ambetto > 0 Then

         k = k + 1
         Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
         Call AvanzamentoElab(Ini,fin,es)
         'If k > 1 Then Exit For
         If ambetto < 2 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(21) & Format2(fin - es) & vbTab & StringaEstratti(es,r)

         If ambetto > 1 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(3) & Format2(fin - es) & vbTab & StringaEstratti(es,r)
     ' Scrivi sf
      End If
      'If k > 1 Then Exit For

      'End If
      Next
      Scrivi
      Next
   Next
End Sub







[FONT=courier new]

ciao a dopo (ora a nanna)

miki55 · 22 Settembre 2018

Bravo Mike58, ci hai presentato in questi giorni, una
gran carrellata di script molto interessanti x l'Ambetto.
Vedrai che alla distanza frutteranno un gran nr di esiti.
Complimenti!

Mike58 · 22 Settembre 2018

prova filtro solo ritardo corrente.

Codice:

Sub Main
   Dim nu(3),kk(1),kkk(1),ru(1)
   Ini = EstrazioneFin - 150
   fin = EstrazioneFin
   n = 13 ' capogioco
   r = 8 ' ruota
   Scrivi "Numero CapoGioco " & " ( " & n & " )" & " Ruota di : " & NomeRuota(r),1,,,1,3,,1
   Scrivi
   ResetTimer

      For x = 1 To 89 Step 1
       For y = x + 1 To 90
       For es = fin To Ini Step - 1
      nu(1) = n
      nu(2) = x
      nu(3) = y
      ru(1) = r
      'sf = SerieRitardo(Ini,fin,nu,ru,2)
      ambetto = VerificaAmbetto(nu,r,es,RetNumeri,RetVincita)
      If ambetto > 0 Then

         k = k + 1
         Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
         Call AvanzamentoElab(Ini,fin,es)
         If k = 1 Then Exit For
         If ambetto < 2 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(21) & Format2(fin - es) & vbTab & StringaEstratti(es,r)

         If ambetto > 1 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(3) & Format2(fin - es) & vbTab & StringaEstratti(es,r)
     ' Scrivi sf
          k = 0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
      End If
      If ScriptInterrotto Then Exit For

      'End If
      Next
      'If k = 1 Then Exit For
      'Scrivi
      Next
   Next
End Sub

Mike58 · 22 Settembre 2018

Ciao Miki, grazie a dopo adesso veramente nanna.

buona giornata.

miki55 · 22 Settembre 2018

Suggerirei se possibile in quest'ultimo script, visto che la
lista è lunga, di evidenziarli di colore rosso solo quelli che
vanno oltre un certo limite di ritardo.
Fai con calma e buon riposo...

Nikor · 22 Settembre 2018

Ciao Mike.. anche per me la mattinata è terminata e sono tornato al mio paesello , fino a Lunedi si stacca la spina!

Ritornando al tema , comprendo che sia difficile entrare nel merito anche se di esempi ne avevo fatti tanti che potrebbero esserti sfuggiti.

Facciamo una distinzione sui 2 giochi relativi all’Ambetto:
Si potrà per qualunque sequela optare per 2 scelte distinte, la prima Gioco [ di Ambo & Ambetto ]
La seconda [ solo gioco Ambetto ] tutti i casi e gli scroll che avevo postato fanno esplicito riferimento al solo gioco [ Ambetto ] le matrici che avevo costruito sono pertinenti solo a questo caso che si può porre in essere con un solo Euro, mentre il gioco Ambo & ambetto comporta una spesa di 2 Euro!

Nel caso delle terzine il primo gioco pagherà poco più di 83 volte la posta al lordo se dovessero uscire 2 elementi nella terzina base , mentre il nel caso solo Ambetto se dovessero uscire 2 elementi della terzina base e nessun adiacente si rimarrebbe a bocca asciutta!!!

Qualche esempio del perché i ritardi non collimano con i tuoi:

mentre ad esempio la 2° 13.1.12 io ho questi ritardi
13.01.12 [09524] [109] 11.09.2018 RO-01.12[01.13-1] 04 01.77.40.12.08
con 1 presenza

Avevo in precedenza postato la 2^ posizione ritardataria su Roma con capo gioco 13! ( 13-01-12 = 253 )
Il ritardo per Ambetto è di 253 estrazioni , nel tuo scritto quotato rilevi che è di 4 estrazioni……
Ma certo che è di 4 estrazioni [ ma relativo al gioco di ambo in terzina e non di solo ambetto Ambetto ! ]
Proviamo con un esempio:
13-01-12 - Ambetti sviluppati :
01-11
01-14
12-90
02-12
12-14
13-90
02-13
11-13
Sono 8 ambi sviluppati e se avessimo puntato un solo Euro sulla terzina ( per Ambetto ) 4 estrazioni fa non avremmo vinto niente , perché erano usciti 01-12 non pertinenti al gioco Ambetto !

Quando Miki55 aveva aperto i thread di richieste aveva fatto uno specifico riferimento al solo gioco Ambetto da giocarsi su 2 ruote che avrebbe pagato circa il doppio nei confronti ambata di 2 numeri su una ruota, ebbene se Miki55 avesse tenuto in considerazione anche il gioco Ambo , la proporzione dei premi si suddivide in altre 2 soluzioni e nel caso facesse solo Ambetto anche se di pochi centesimi di differenza in meno Miki55 vincerebbe di meno che non giocare 2 numeri su una ruota per Ambata…….. e non ci sarebbe più lo scopo del raddoppio, comprendo che ci vuole un momento ad entrare nell’ottica … comunque tutti i dati che avevo postato fino a questo momento sono esclusivamente relativi al solo gioco [ Ambetto ! ]

Buona risoluzione, stai facendo un grande lavoro Nikor.

Mike58 · 22 Settembre 2018

Ciao Nikor, sulla sviluppo delle formazioni qualsiasi, per il gioco di ambetto infatti io preferisco sempre svlipparli in distanza 3, esempio 11,14,17 in modo da non avere ambetti doppi ed avere sempre 12 ambi sviluppati.

Poi non so se nel caso della terzina 13.1.12 l'ambetto 1.12 (1 >13-1) non viene pagato e non sia valido.non saprei bisognerebbe vedere se il gioco stesso lo accetta facendo le debite proporzioni di quota.(oggi provo a giocarlo, e faccio sapere)

Comunque suggerirei di scartare tali combinazioni in modo da avere sempre ambetti reali che sviluppano tutte le combinazioni della formazione stessa, mettendo come sopra il controllo della distanza 3.

Il codice ambetto questo non può saperlo lui analizza il solo capogioco e fa l'operazione +/- 1 degli altri 2 numeri.

Ciao, e debbo dire che siamo un ottima squadra ed è stata stuzzicata la mia fantasia scriptica.

Mike

Nikor · 22 Settembre 2018

Ti posso dire con assoluta certezza che se sulla terzina 13-01-12 andrai ad obliterare il solo gioco ambetto , nel caso dovesse uscire ambo
( 13-01 ) - ( 13-12 ) - ( 01-12 ) il gestore non pagherebbe perchè nello sviluppo che avevo postato nel precedente topic si evince che questi 3 ambi non sono considerati!

Ciao, Nikor.

Mike58 · 22 Settembre 2018

Ok Nikor ne prendo atto.

quindi avrei sviluppato diversamente le terzine sperando di aver scartato quelle non valide.

Lo script non può essere messo in Tabella in quanto lo sviluppo comporta mole combinazioni e per la Tabella c'è un limite di scrittura.
Neanche per l'ordinamento si può fare molto in quanto il contatore è sempre = 1 (con exit for) e quindi non possibile ordinare per ritardo.

Tuttavia ho colorato i ritardi considerevoli
Accontentiaoci.

Codice:

Sub Main
   Dim nu(3),ru(1)
   Ini = EstrazioneFin - 360
   fin = EstrazioneFin
   n = 13 ' capogioco
   r = 8 ' ruota
   st = CInt(1) ' step distanza
   Scrivi "Numero CapoGioco " & " ( " & n & " )" & " Ruota di : " & NomeRuota(r),1,,,1,3,,1
   Scrivi
   ResetTimer
   For n = n To n
      For x = 1 To 89 'Step 1
         For y = x + 1 To 90
            If Differenza(n,x) > 2 And Differenza(x,y) > 2 And Differenza(n,y) > 2 Then
               If n <> x And n <> y Then          
               kk = kk + 1
                  For es = fin To Ini Step - 1
                     nu(1) = n
                     nu(2) = x
                     nu(3) = y
                     ru(1) = r
                     ambetto = VerificaAmbetto(nu,r,es,RetNumeri,RetVincita)
                     If ambetto > 0 Then
                        k = k + 1
                        ReDim Preserve Rit(k)
                        Rit(k) = fin-es

                        Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso & Space(10) & nu(2) & "-" & nu(3))
                        Call AvanzamentoElab(Ini,fin,es)
                        If k = 1 Then Exit For
                        Call OrdinaMatrice(Rit,1,1)
                        If Rit(k) > 100 Then ' controllo colore ritardo
                        ColoreTesto 2
                        If ambetto < 2 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(21) & Format2(Rit(k)) & vbTab & StringaEstratti(es,r),1
                        If ambetto > 1 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(3) & Format2(Rit(k)) & vbTab & StringaEstratti(es,r),1
                        Else
                        ColoreTesto 0
                        If ambetto < 2 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(21) & Format2(Rit(k)) & vbTab & StringaEstratti(es,r)
                        If ambetto > 1 Then Scrivi StringaNumeri(nu,,1) & vbTab & GetInfoEstrazione(es) & vbTab & RetNumeri & Space(3) & Format2(Rit(k)) & vbTab & StringaEstratti(es,r)
                        End If
                        k = 0
                     End If
                     If ScriptInterrotto Then Exit For
                  Next
               End If
            End If
         Next
      Next
   Next
   Scrivi
   Scrivi "Terzine sviluppate : " & kk,1
End Sub

X Mike58: modifica suo script x Ambetto...

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<