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
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto