Per Rubino script non corrispondente

[sorujoe]

Script

 

[sorujoe]

Ti ringrazio per l'aiuto che mi dai

 

[Rubino]

inserisci tu la cinquina o mi dai il nr.estrazione della cinquina estratta?

se devo calcolare i ritardi ho bisogno dell'estrazione di rilevamento.


esempio:

Ricerca Estratti nelle posizioni richieste
Posizione..1
Posizione..2
Posizione..3
Ruota Richiesta..Bari
Estrazione n.9600 / 07.03.2019
Estratti..88 - 84 - 18
888418
64
Numero Piramidato e suo vertibile ...64.46
NA / VE Estratti 64.46 Ritardi.Estratto.012 Ambo..0075


puoi controllare i numeri piramidati che fa spaziometria?

 

[sorujoe]

metto io il numero dell'estrazione

 

[Rubino]

vabbe non posso usare l'istruzione di spaziometria perchè lavora in modo diverso.

88 84 18​

88+84 (-90) =82 ....​

84+12(-90) =12 o 84+18-(90) = ?????​

82+12 94 (-90) = 04​

okey

 

[Rubino]

esempio:

puoi controllarla?

 Ricerca Estratti nelle posizioni richieste
Posizione..1
Posizione..2
Posizione..3
Ruota Richiesta..Bari
Estrazione n.9600 / 07.03.2019
Estratti..88 - 84 - 18
88.84.18
82 12
04 Vert.40
Numero Piramidato e suo vertibile ...04.40
BA / FI  Estratti  04.40  Ritardi.Estratto.019  Ambo..0209
BA / GE  Estratti  04.40  Ritardi.Estratto.013  Ambo..0099
BA / MI  Estratti  04.40  Ritardi.Estratto.014  Ambo..0206
BA / VE  Estratti  04.40  Ritardi.Estratto.012  Ambo..0514
FI / GE  Estratti  04.40  Ritardi.Estratto.013  Ambo..0099
FI / MI  Estratti  04.40  Ritardi.Estratto.014  Ambo..0206
FI / VE  Estratti  04.40  Ritardi.Estratto.012  Ambo..0209
GE / MI  Estratti  04.40  Ritardi.Estratto.013  Ambo..0099
GE / VE  Estratti  04.40  Ritardi.Estratto.012  Ambo..0099
MI / VE  Estratti  04.40  Ritardi.Estratto.012  Ambo..0206

 

[Rubino]

quindi BARI e una alla volta le altre 10

 

[Rubino]

se hai sottomano qualche condizione giusta che si possa controllare, io ho fatto delle prove a capocchian ,
ma non ne trovo di recenti

Option Explicit
Sub Main
   '''''
   '''''script valido per 3 posizioni immesse altrimenti errore
   '''' esclude numeri piramidati uguali a gemello o cadenza(9)
   '''''
   Scrivi "Byron-20",1
   Dim r,es,n,p,e,j,Classe,clssvil,acol,retrit,retritmax,rite,rita,a,b,c,ct
   Dim ar(11),an(2)
   ''
   r = InputBox("Inserisci Ruota ",,1)
   p = InputBox("Inserisci posizioni",,"1-2-3")
   es = InputBox("Estrazione n.",,EstrazioneFin)
   '''
   '''rileva estratti e piramidati si ottiene un numero che con il suo vertibile sono l'ambata e l'ambo
   '''
   Scrivi " Ricerca Estratti nelle posizioni richieste",1
   ReDim av(3)
   Call SplitByChar(p,"-",av)
   For e = 0 To UBound(av)
      Scrivi "Posizione.." & av(e),1
   Next
   ''''''
   ColoreTesto(2)
   Scrivi "Ruota Richiesta.." & NomeRuota(r),1
   Scrivi "Estrazione n." & es & " / " & DataEstrazione(es),1
   ColoreTesto(0)
   ''''''
   Scrivi "Estratti.." & Format2(Estratto(es,r,av(0))) & " - " & Format2(Estratto(es,r,av(1))) & " - " & Format2(Estratto(es,r,av(2))),1
   Scrivi
   '''' sviluppa le 11 ruote in coppia
   Set clssvil = GetMotoreSviluppoIntegrale
   ''prepara arrays ruote
   For j = 1 To 11
      ar(j) = j
   Next
   '''prepara arrays estratti
   Scrivi Format2(Estratto(es,r,av(0))) & "." & Format2(Estratto(es,r,av(1))) & "." & Format2(Estratto(es,r,av(2)))
   a = Fuori90(Estratto(es,r,av(0)) + Estratto(es,r,av(1)))
   b = Fuori90(Estratto(es,r,av(1)) + Estratto(es,r,av(2)))
   c = Fuori90(a + b)
   Scrivi Format2(a) & " " & Format2(b)
   Scrivi Format2(c) & " Vert." & Vert(Format2(c)),1
   an(1) = Format2(c)
   an(2) = Vert(Format2(c))
   ColoreTesto(2)
   Scrivi
   Scrivi "Numero Piramidato e suo vertibile ..." & an(1) & "." & an(2),1
   ColoreTesto(0)
   Scrivi
   ar(1) = r
   For j = 1 To 11
      If j = 11 Then j = 12
      ar(2) = j
      Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,,3950,es)
      rite = retrit
      Call StatisticaFormazioneTurbo(an,ar,2,retrit,retritmax,,,3950,es)
      rita = retrit
      If rite >= 11 Then
      ct = ct + 1
         If ar(1) = 11 Then ar(1) = 12
         If ar(2) = 11 Then ar(2) = 12
         Scrivi SiglaRuota(acol(1)) & " / " & SiglaRuota(acol(2)) & "  Estratti  " & Format2(an(1)) & "." & Format2(an(2)) & "  Ritardi....Estratto." & FormattaStringa(rite,"000") & "  Ambo.." & FormattaStringa(rita,"0000"),1
      End If
   Next
   If ct = 0 Then
   Scrivi "La previsione non puo' essere giocata perchè i ritardi non rientrano nella condizione minima imposta  ",1
   End If
End Sub

 

[Rubino]

la lo script deve da una certa estrazioni rilevare ad ogni estrazione gli estratti piramidati e controllati gli esiti per (x colpi) e poi passare alla successiva estrazioni?
un altre parole vuoi un listato degli estratti in certe posizioni che risultati hanno avuto nel passato, fino a giungere ad oggi?

perchè allora non ho capito bene,
il nr.estrazione che inserisci è l'inizio del periodo di ricerca?

o è

la sola estrazione che viene esaminata?

 

[sorujoe]

L'estrazione che metti è quella a partire da ...cioè dalla data in cui avviene il calcolo sino ad arrivare all'ultimo concorso in archivio

 

[sorujoe]

La data che metti è la data di inizio elaborazione
NON quella unica da esaminare

 

[Rubino]

Non riesco a capire perchè non mi esce quella 9636 na-ba 14 41

per esempio questa com'è, ti risulta o è sbagliata anche questa?

9646 / 22.06.2019  Rilevati.. 54.36.70
90 16
16 Vert.61
Numero Piramidato e suo vertibile ...16.61
NA / BA  Estratti  16.61  Ritardi....Estratto.012  Ambo..0038
NA / FI  Estratti  16.61  Ritardi....Estratto.012  Ambo..0038
NA / GE  Estratti  16.61  Ritardi....Estratto.011  Ambo..0011
NA / MI  Estratti  16.61  Ritardi....Estratto.012  Ambo..0015
NA / NA  Estratti  16.61  Ritardi....Estratto.012  Ambo..0038
NA / RO  Estratti  16.61  Ritardi....Estratto.011  Ambo..0038

 

[Rubino]

9643 / 15.06.2019  Rilevati.. 56.49.40   Nelle Posiz.1-3-5
15 89
14 Vert.41
Numero Piramidato e suo vertibile ...14.41
Estr.n.9654  colpo n. 11   NA / BA  Estratti  14.41  Ritardi....Estratto.013  Ambo..0670
Estr.n.9654  colpo n. 11   NA / RO  Estratti  14.41  Ritardi....Estratto.014  Ambo..0164
Estr.n.9654  colpo n. 11   NA / TO  Estratti  14.41  Ritardi....Estratto.011  Ambo..0072
Estr.n.9654  colpo n. 11   NA / VE  Estratti  14.41  Ritardi....Estratto.012  Ambo..0670

 

[Rubino]

questo è lo script, fammi sapere

Option Explicit
Sub Main
   '''''
   '''''script valido per 3 posizioni immesse altrimenti errore
   '''' esclude numeri piramidati uguali a gemello o cadenza(9)
   '''''
   ColoreTesto(1)
   Scrivi "Byron-20",1
   ColoreTesto(0)
   Dim r,es,n,p,e,j,retrit,retritmax,rite,rita,a,b,c,ct,ctr,nc,ini,ctv
   Dim an(2)
   ''
   r = CInt(InputBox("Inserisci Ruota ",,6))
   p = InputBox("Inserisci posizioni",,"1-3-5")
   es = InputBox("Estrazione n.",,EstrazioneFin)
   nc = CInt(InputBox("n.Colpi ",,13))
   '''
   '''rileva estratti e piramidati si ottiene un numero che con il suo vertibile sono l'ambata e l'ambo
   '''
   Scrivi "Ricerca Estratti nelle posizioni richieste",1
   ReDim av(3)
   Call SplitByChar(p,"-",av)
  ''''''
   ColoreTesto(2)
   Scrivi "Ruota Richiesta.." & NomeRuota(r),1
   Scrivi "dall Estrazione n." & es + 1 & " / " & DataEstrazione(es + 1),1
   Scrivi "Posizioni Richieste.." & p,1
   ColoreTesto(0)
   ''''''
   '''''loop
   ini = es
   Scrivi "---------------------------------------------------------------------------------------------",1
   For es = es + 1 To EstrazioneFin - 1
      ctr = ctr + 1
      Messaggio(es)
      '''prepara arrays estratti
      Scrivi es & " / " & DataEstrazione(es) & "  Rilevati.. " & Format2(Estratto(es,r,av(0))) & "." & Format2(Estratto(es,r,av(1))) & "." & Format2(Estratto(es,r,av(2))) & "   Nelle Posiz." & p,1
      a = Fuori90(Estratto(es,r,av(0)) + Estratto(es,r,av(1)))
      b = Fuori90(Estratto(es,r,av(1)) + Estratto(es,r,av(2)))
      c = Fuori90(a + b)
      Scrivi Format2(a) & " " & Format2(b)
      Scrivi Format2(c) & " Vert." & Vert(Format2(c)),1
      an(1) = Format2(c)
      an(2) = Vert(Format2(c))
      ColoreTesto(2)
      Scrivi "Numero Piramidato e suo vertibile ..." & Format2(an(1)) & "." & Format2(an(2)),1
      ColoreTesto(0)
      '''''
         ReDim ar(2)
         ar(1) = r
         For j = 1 To 11
            If j <> r Then
               If j = 11 Then j = 12
               ar(2) = j
               rite = RitardoCombinazioneTurbo(ar,an,1,EstrazioneFin)
               rita = RitardoCombinazioneTurbo(ar,an,2,EstrazioneFin)
               If rite >= 11 Then
                        ctv = ctv + 1
                        ColoreTesto(1)
                     Scrivi "Estr.n." & EstrazioneFin & "  colpo n. " & EstrazioneFin - es & "   " & SiglaRuota(ar(1)) & " / " & SiglaRuota(ar(2)) & "  Estratti  " & Format2(an(1)) & "." & Format2(an(2)) & "  Ritardi....Estratto." & FormattaStringa(rite,"000") & "  Ambo.." & FormattaStringa(rita,"0000"),1
                        ColoreTesto(0)
               End If
            End If
         Next
         If ctv = 0 Then
            ColoreTesto(0)
            Scrivi "La previsione non rientra nei limiti del ritardo minimo impostato  ",1
            ColoreTesto(0)
         End If
      Scrivi "---------------------------------------------------------------------------------------------",1
   Next
   Scrivi "Totale combinazioni calcolate " & ctr,1
   Scrivi "Totale Combinazioni valide..  " & ctv,1
End Sub

 

[Rubino]

non ho escluso i gemelli o i cadenza 9

perchè se esce 90 vert 09 cosa devo fare?

poi eventualmente lo facciamo

 

[sorujoe]

• Esatto vertibile di 90 è 9 e viceversa
• Gemelli e cadenza 9 da eliminare.
• Così come non si devono vedere le previsioni che non hanno una vita residua di almeno 11 colpi (io questo intendevo con ritardo almeno 11 ...In pratica sono in gioco da almeno 11 concorsi e non hanno ancora dato esito)

Post scriptum
...Una gentilezza:
Al posto di metterla a mano io la ruota di base una per volta, potresti fare in modo che li processi uno ad uno lo script in automatico Nazionale inclusa????
Mi faresti una GRANDISSIMA COSA.
Grazie

 

[sorujoe]

Puoi farlo?

 

[sorujoe]

Sinceramente questo script non lo capisco??????

Ricerca Estratti nelle posizioni richieste
Ruota Richiesta..Cagliari dall Estrazione n.9637 / 01.06.2019
Posizioni Richieste..1-3-5
9637 / 01.06.2019 Rilevati.. 59.81.58
Nelle Posiz.1-3-5 50 49 09 Vert.90 Numero Piramidato e suo vertibile ...09.90


Estr.n.9655 colpo n. 18 CA / PA Estratti 09.90 Ritardi....Estratto.011 Ambo..0074
Estr.n.9655 colpo n. 18 CA / RO Estratti 09.90 Ritardi....Estratto.011 Ambo..0074
Estr.n.9655 colpo n. 18 CA / VE Estratti 09.90 Ritardi....Estratto.011 Ambo..0074
Estr.n.9655 colpo n. 18 CA / NZ Estratti 09.90 Ritardi....Estratto.011 Ambo..0024

In realtà non la dovrebbe segnare affato poiche al 3° colpo esce il 9 a cagliari

 

[sorujoe]

mi spiego meglio

indico 3 posizioni
si fa la piramide
il numero finale (che non deve essere gemelli o cadenza 9) e il suo vertibile; è l'ambata e ambo (vertibile 9 è 90 e viceversa) ---> FIN QUI e' CORRETTO

1. Indico il numero di concorso di rilevamento
2. indico 1 ruota (RUOTA DI BASE) ...se si automatizzasse tale step come descritto sotto sarebbe ideale.
3. indico i colpi di gioco (di default 13)

• lo script fa girare la ruota da me indicata singolarmente con le altre 10 ruote (nazionale inclusa)
• lo script deve visualizzare SOLO le previsioni che sono in gioco da 11 colpi e non hanno dato ancora esito ....il valore 11 devo poterlo modificare io.

Possibilmente (COSA MOLTO UTILE) Al posto di metterla a mano io la ruota di base una per volta, dovresti fare in modo che li processi uno ad uno lo script in automatico Nazionale inclusa.
Altrimenti devo processare prima Bari; poi ripetere e riavviare lo script per Cagliari ...poi per Firenze e cosi via sino ad arrivare alla Nazionale, ....quindi 11 operazioni manuali.

Cosa anche IMPORTANTE è fare girare per ogni ruota tutte le combinazioni possibili delle 3 posizioni quindi 1°-2°3°; 2°-1°-3°; 3°-1°-2°; 1°-2°-4° e cosi via.....

Scusami ma mi sono spiegato male io ma l'intenzione del mio script è stata sempre questa.