Un FAVORE

[mastrogino]

Ciao a tutti voi
vi chiedo per favore se esiste un listato
che cerca l'ambo Bivalente tramite inserendo
il mese
esempio se inserisco il mese di Agosto
ricerca indietro tutti gli ambi bivalenti
sortiti in quel mese
grazie

 

[joe]

Non ho uno script specifico e ne ho molti che fanno ... cose simili.

Adattandone uno alla richiesta,

risulterebbero 920 Ambi bivalenti ad Agosto.

Ti sembra un numero ragionevole ?

 

[mastrogino]

Non ho uno script specifico e ne ho molti che fanno ... cose simili.

Adattandone uno alla richiesta,

risulterebbero 859 Ambi bivalenti ad Agosto.

Ti sembra un numero ragionevole ?

ciao no d certo e se la riduciamo negli ultimi 5 anni?

 

[mastrogino]

e su ruote in comune ?
diametrali , consecutive , gemmelli?

 

[joe]

Non ne ho idea.

Però se le ruote sono 10-11 e 45-55 le coppie di queste .

Nel rispetto della matematica e con l'alea

che può spostare alcuni ambi da una coppia di ruote all'altra ...

I numeri in gioco dovrebbero essere questi.

Questo script è molto veloce ed i suoi risultati sono facilmente controllabili.

Basta inserire un filtro capace di selezionare la parte dei risultati voluti.

Esattamente come ho fatto per limitare la ricerca al Mese che hai chiesto.

Option Explicit
Sub Main
'Ambi Bivalenti By Joe
   Dim Es,Sp,Coppia,Ambo,N
   For Es = 1 To EstrazioneFin
      If Mese(Es) = 8 Then 'INSERISCI QUI IL N° DEL MESE DESIDERATO
         If GetAmbiUguali(Es,Ambo) > 0 Then
            Sp = True 'Gestione Spaziatura
            For Each Coppia In Ambo
               N = N + 1
               Scrivi FormatSpace(N,4,1) & ") " & DataEstrazione(Es) & " ",0,0
               Scrivi Format2(Coppia.clsNumero(1).Numero) & "." & Format2(Coppia.clsNumero(2).Numero),1,0
               Scrivi " Ambo Biv. " & SiglaRuota(Coppia.clsNumero(1).Ruota) & "-" & SiglaRuota(Coppia.clsNumero(3).Ruota)
            Next
         End If
         If Sp Then Scrivi String(40,"-") : Sp = False 'Separa Date Differenti
      End If
   Next
End Sub

 

[mastrogino]

Perfetto funziona ,
e molto se ti chiedo di uìinserire anche il numero dell'estrazione
tipo quello di questo anno parte del 9959?

 

[joe]

Option Explicit
Sub Main
   'Ambi Bivalenti By Joe
   Dim Es,Coppia,Ambo,N,R,Ru(2)
   Scrivi Space(12) & "Ambi Bivalenti" ,True : Scrivi
   For Es = 1 To EstrazioneFin
      If IndiceAnnuale(Es) = 1 Then Scrivi Chr(10) & String(35,"=") & Space(2) & Anno(Es) & Chr(10),True
      If Mese(Es) = 8 Then 'INSERISCI QUI IL N° DEL MESE DESIDERATO
         If GetAmbiUguali(Es,Ambo) > 0 Then

            For Each Coppia In Ambo
               N = N + 1
               Scrivi FormatSpace(N,4,1) & ") [" & Es & "] " & DataEstrazione(Es) & " ",0,0
               Scrivi Format2(Coppia.clsNumero(1).Numero) & "." & Format2(Coppia.clsNumero(2).Numero),1,0
               Scrivi " " & SiglaRuota(Coppia.clsNumero(1).Ruota) & "-" & SiglaRuota(Coppia.clsNumero(3).Ruota)
            Next
         End If

      End If
   Next
End Sub

 

[mastrogino]

Ti ringrazio , veramente super

 

[mastrogino]

AMBO BIVALENTE DEL MESE DI AGOSTO
AMBATE SU RUOTA X AMBO A TT
NEL MESE DI AGOSTO ANCORA NON SONO SORTITE IN
QUESTE RUOTE QUESTI NUMERI
CI PROVIAMO ??
33. 85. AMBATE EMBO SU RUOTE BA.CA.FI.NZ
33.85.AMBO A TT
COLPI 2

 

[joe]

L' 85 si regge su un ritardo a tutte di 7 estrazioni,

facendo registrare la sua ultima uscita a Venezia.

Alle stesse condizioni c'è il 57 della Nazionale.

Vederemo se le due ricerche trovano risultato

in questo numero che le accomuna.

 

[mastrogino]

L' 85 si regge su un ritardo a tutte di 7 estrazioni,

facendo registrare la sua ultima uscita a Venezia.

Alle stesse condizioni c'è il 57 della Nazionale.

Vederemo se le due ricerche trovano risultato

in questo numero che le accomuna.

ottima analisi a me sfuggita , stsera 85 è andato a genova , si va per l'ultimo colpo

 

[mastrogino]

Ciao Joe , ciao a tutti voi
ti volevo chiedere ( forse l'impossibbile )
esiste un listato , "oppure modificare quello sopra" in modo che mi ricerca
due ambi bivalenti sortiti nell'arco di 5 estrazioni o se vogliamo chiamarli ambi freguenti
inserendo i numeri , egli fa la ricerca esempio
l'ambo bivalente sortito sabato 30.51. nel passato son sortiti nell'arco di poche estrazioni

 

[joe]

Ciao.

È un esempio di quello che volevo-intendevo fare,
con quello che ho chiesto tempo fa a Luigi,

e che ha portato al programma parallelo in VB6.

Si è possibile però tranne in qualche cosa simile fatto da me in passato,

non ricordo di aver visto nulla.

 

[mastrogino]

AMBO BIVALENTE DEL MESE DI AGOSTO
AMBATE SU RUOTA X AMBO A TT
NEL MESE DI AGOSTO ANCORA NON SONO SORTITE IN
QUESTE RUOTE QUESTI NUMERI
CI PROVIAMO ??
33. 85. AMBATE EMBO SU RUOTE BA.CA.FI.NZ
33.85.AMBO A TT
COLPI 2

SE QUESTO AMBO O ALMENO LE AMBATE NON ESCONO MARTEDI DOVREMMO ASPETTATE LUGLIO PER METTERLE DI NUOVO IN GIOCO