Novità

Per Salvo

Serpico 90

Advanced Member >GOLD<
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
 
Ciao!

Visto, vediamo se riesco a farlo, comunque chiunque può intervenire e magari avere già lo script
 
Penso di avere fatto quello che mi hai chiesto, chiedi pure se ti serve altro.

Codice:
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
 
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......
 
Serpico 90;n2071871 ha scritto:
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
 
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.

Codice:
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
 
Ultima modifica:
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
 
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>
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto