Per Salvo

[Serpico 90]

Ciao...ti chiedo aiuto se cortesemente potresti elaborare questo script........ti faccio subito degli esempi ,perchè cosi evito di sbagliarmi .....nella esposizione scritta.
una piccola introduzione.....si va alla ricerca degli estratti 45 ------- 90 ------ solo in questi casi avviene l'elaborazione.
concorso n.54 del 06.05.2017
cagliari 84 33 47 09 45 si devono rintracciare i numeri diametrali dei quattro estratti di cagliari
in questo caso si rintraccia il n.2 che è il diametrale del 47...sulla ruota di milano
..ATTENZIONE IL N.2 DEVE ESSERE ISOTOPO AL 47 O AL N.45
AL MOMENTO TUTTO QUI LO SCRIPT CHE GENTILMENTE CHIEDO.....
Per maggior chiarimenti faccio altri esempi
conc.58
cagliari 77 60 9 40 45
tra i quattro numeri si rintraccia il 32
32 ruota di FIRENZE isotopo al 77....ecco cosa mi deve evidenziare lo script

concorso 60
FIRENZE 72 8 37 90 4
unico diametrale trovato
53 sulla ruota di Genova diametrale del numero 8 ....anche qui lo script lo deve evidenziare , in questo caso il 53 è isotopo al 90 quindi ok ...
se ti è possibile farlo te ne sarei tanto grato
in attesa di una tua gradita risposta
saluti
Serpico

 

[salvo50]

Ciao!

Visto, vediamo se riesco a farlo, comunque chiunque può intervenire e magari avere già lo script

 

[salvo50]

Penso di avere fatto quello che mi hai chiesto, chiedi pure se ti serve altro.

Option Explicit
Sub Main
    Dim fin,es,esq,col,esqcol,idestr
    Dim r1,r2,caso,casi
    Dim estra1,estra2,estra3,estra4,estra5,estrb1,estrb2,estrb3,estrb4,estrb5
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9000)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,300))
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        Messaggio es
        AvanzamentoElab esq,esqcol,es
        For r1 = 1 To 10
            estra1 = Estratto(es,r1,1)
            estra2 = Estratto(es,r1,2)
            estra3 = Estratto(es,r1,3)
            estra4 = Estratto(es,r1,4)
            estra5 = Estratto(es,r1,5)
            If estra1 = 45 Or estra2 = 45 Or estra3 = 45 Or estra4 = 45 Or estra5 = 45_
                Or estra1 = 90 Or estra2 = 90 Or estra3 = 90 Or estra4 = 90 Or estra5 = 90 Then
                For r2 = 1 To 12
                If r2 = 11 Then r2 = 12
                    estrb1 = Estratto(es,r2,1)
                    estrb2 = Estratto(es,r2,2)
                    estrb3 = Estratto(es,r2,3)
                    estrb4 = Estratto(es,r2,4)
                    estrb5 = Estratto(es,r2,5)
                    If estrb1 = Diametrale(estra1) Or estrb2 = Diametrale(estra2)_
                        Or estrb3 = Diametrale(estra3) Or estrb4 = Diametrale(estra4)_
                        Or estrb5 = Diametrale(estra5) Then
                        casi = casi + 1
                        Scrivi String(90,"*") & " Casi Totali  N " & Format2(casi)
                        Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                        Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
                        Scrivi Space(35) & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),2
                    End If
                Next
            End If
        Next
    Next
End Sub

 

[Serpico 90]

Grazie Salvo per lo script e per la velocità in cui lo hai elaborato.........
mi hai scritto che potevo chiedere ......e allora ne approfitto della tua bontà......
è possibile che trovata la condizione restino solo i tre numeri che interessano la ricerca?
oppure
se è difficoltoso magari i numeri che interessano la ricerca vengano evidenziati in rosso in modo che vengano subito individuati......

 

[salvo50]

Grazie Salvo per lo script e per la velocità in cui lo hai elaborato.........
mi hai scritto che potevo chiedere ......e allora ne approfitto della tua bontà......
è possibile che trovata la condizione restino solo i tre numeri che interessano la ricerca?
oppure
se è difficoltoso magari i numeri che interessano la ricerca vengano evidenziati in rosso in modo che vengano subito individuati......

Ci provo

 

[salvo50]

Per il momento non riesco a fare di meglio, l'ideale sarebbe colorare di rosso i tre numeri, senza doppiare i numeri, se qualcuno vuole intervenire è ben accetto.

Option Explicit
Sub Main
    Dim fin,es,esq,col,esqcol,idestr
    Dim r1,r2,caso,casi,q5,novanta
    Dim estra1,estra2,estra3,estra4,estra5,estrb1,estrb2,estrb3,estrb4,estrb5
    q5 = 45
    novanta = 90
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9000)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,300))
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        Messaggio es
        AvanzamentoElab esq,esqcol,es
        For r1 = 1 To 10
            estra1 = Estratto(es,r1,1)
            estra2 = Estratto(es,r1,2)
            estra3 = Estratto(es,r1,3)
            estra4 = Estratto(es,r1,4)
            estra5 = Estratto(es,r1,5)
            If estra1 = 45 Or estra2 = 45 Or estra3 = 45 Or estra4 = 45 Or estra5 = 45_
                Or estra1 = 90 Or estra2 = 90 Or estra3 = 90 Or estra4 = 90 Or estra5 = 90 Then
                For r2 = 1 To 12
                    If r2 = 11 Then r2 = 12
                    estrb1 = Estratto(es,r2,1)
                    estrb2 = Estratto(es,r2,2)
                    estrb3 = Estratto(es,r2,3)
                    estrb4 = Estratto(es,r2,4)
                    estrb5 = Estratto(es,r2,5)
                    If estrb1 = Diametrale(estra1) Or estrb2 = Diametrale(estra2)_
                        Or estrb3 = Diametrale(estra3) Or estrb4 = Diametrale(estra4)_
                        Or estrb5 = Diametrale(estra5) Then
                        casi = casi + 1
                        Scrivi String(90,"*") & " Casi Totali  N " & Format2(casi)
                        Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                        Scrivi "  " & Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1),2
                        Scrivi Space(35) & Left(NomeRuota(r2),3) & " " & StringaEstratti(es,r2),2
                        ColoreTesto 1
                        Scrivi String(90,"-")
                        ColoreTesto 2
                        If estra1 = Diametrale(estrb1) Then Scrivi Space(38) & Format2(estra1) & " " & Format2(estrb1)
                        If estra2 = Diametrale(estrb2) Then Scrivi Space(38) & Format2(estra2) & " " & Format2(estrb2)
                        If estra3 = Diametrale(estrb3) Then Scrivi Space(38) & Format2(estra3) & " " & Format2(estrb3)
                        If estra4 = Diametrale(estrb4) Then Scrivi Space(38) & Format2(estra4) & " " & Format2(estrb4)
                        If estra5 = Diametrale(estrb5) Then Scrivi Space(38) & Format2(estra5) & " " & Format2(estrb5)
                        ColoreTesto 0
                    End If
                Next
            End If
        Next
    Next
End Sub

 

[Serpico 90]

Buon giorno.......grazie Salvo....per me è OTTIMO.
i numeri diametrali già si individuano con il colore rosso ed è quello che mi interessava per le mie ricerche.....( e per la mia vista)..
ti ringrazio tanto
spero di poter ricambiare la tua gentile cortesia
per il momento ti auguro una buona e serena Domenica
Saluti
Serpico

 

[salvo50]

Ciao!

Grazie, sei gentile, buona domenica anche a te.

 

[salvo50]

Ciao a Tutti!

Serpico, se ti può interessare nell'ultimo script ho modificato la lunghezza del nome ruota, perchè ho notato che sia la ruota di Napoli che la ruota Nazionale non si distinguono perche per tutti e due la sigla è <Na>