Novità

Per Salvo

Serpico 90

Advanced Member >GOLD<
Buon di Salvo 50
ogni tanto ti disturbo e cortesemente ti chiedo se in questo script potresti aggiumgere
ai numeri in previsione DUE NUMERI FISSI CHE IO INDICHEREI DI VOLTA IN VOLTA
E POI PER AIUTARE LA MIA VISTA SE POTRESTI INSERIRE ACCANTO AL RISULTATO LE ESTRAZIONI SORTITE NELLA RUOTA IN ESAME
SE LO POTRESTI FARE, CON IL TUO TEMPO, TE NE SAREI MOLTO GRATO.
questo è un esempio per le estrazioni accanto alla ruota in esame
LE RUOTE SARANNO QUELLE INDICATE DALLO SCRIPT (QUELLO SOTTO E SOLO UN ESEMPIO)

N. [70.25.00.00 (I DUE NUMERI FISSI) ] [NZ] [.. 25 .. .. ..] C. 4 Estratto 10555 [198 - 20/12/2024] [79.25.38.54.72]
V N. [70.25 .00.00 ] [PA] [.. .. .. .. 25] C. 12 Estratto 10563 [206 - 03/01/2025] [55.54.67.29.25]
V N. [70.25.00.00 ] [CA] [.. .. .. .. 25] C. 13 Estratto 10564 [207 - 04/01/2025] [65.55.31.05.25


Questo lo scipt
LA STRUTTURA CICLOMETRICA A CURA di Angelo Gargiulo - con ambetti
In attesa di una tua gradita risposta ti invio cordiali saluti .
Buona giornata
Serpico
 
Ultima modifica:
Ciao a Tutti

Ciao Serpico

Non lo so se ho capito bene
Lo script alla quinta domanda ti chiede di inserire 2 numeri separati da un puntino
Poi con questi 2 numeri ho pronosticato un altro ambo con relativo ambetto
ed ho inserito la visualizzazione delle estrazioni

Fammi sapere se va bene, se non va bene lo modifico

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,Clp,Es,Cer,EsClp,Sp,R
   Dim R1,R2,P1,P2,P3,P4,Salvo50,Ambett1,Ambett2,Ambett3
   Dim DM12,DM23,DM34,DM41,Caso,Casi,Ambetti,X,N,aM
   Dim RetNum1,RetVinc1,RetNum2,RetVinc2,RetNum3,RetVinc3
   Dim Qua1(4),Qua2(4),Ruo(4),Po2(2),L(6),M(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10650))'10157 ESEMPIO NELL'ARTICOLO
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare i cerchi ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Ambetti = CInt(InputBox(" Vuoi giocare gli ambetti? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   N = InputBox("Inserisci i Due numeri separati da un puntino",,"27.39")
   aM = Split("0." & N,".")
   E = aM(1)
   F = aM(2)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & "LA STRUTTURA CICLOMETRICA a cura di ANGELO GARGIULO - SOLO DUE AMBI - SCRIPT SALVO50" & Space(1),1,,4,,3,,1
   Scrivi Space(1) & "   Con Modifica Chiesta da Serpico 90 - Pronosticare 2 Numeri Aggiunti da Esterno   " & Space(1),1,,4,,3,,1
   Po2(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A > 0 And C > 0 Then
                           If A <> C And A <> D And B <> C And B <> D Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                              DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
                              If DM12 = 9 And DM23 = 27 And DM34 = 9 And DM41 = 45 _
                                 Or DM12 = 27 And DM23 = 9 And DM34 = 45 And DM41 = 9 _
                                 Or DM12 = 9 And DM23 = 45 And DM34 = 9 And DM41 = 27 _
                                 Or DM12 = 45 And DM23 = 9 And DM34 = 27 And DM41 = 9 Then
                                 '---------------------------------
                                 If DM12 = 9 And DM23 = 27 And DM34 = 9 And DM41 = 45 Then
                                    L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
                                 End If
                                 If DM12 = 27 And DM23 = 9 And DM34 = 45 And DM41 = 9 Then
                                    L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
                                 End If
                                 If DM12 = 9 And DM23 = 45 And DM34 = 9 And DM41 = 27 Then
                                    L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
                                 End If
                                 If DM12 = 45 And DM23 = 9 And DM34 = 27 And DM41 = 9 Then
                                    L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
                                 End If
                                 L(5) = Fuori90(L(4) + 9)
                                 L(6) = Fuori90(L(5) + 27)
                                 Qua1(1) = L(4) : Qua1(2) = L(6) : Qua1(3) = E : Qua1(4) = F
                                 Qua2(1) = L(1) : Qua2(2) = L(5) : Qua2(3) = E : Qua2(4) = F
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R2
                                 MatrCasella(3,1) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 If Cer = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,,,1,1
                                    DisegnaCerchioCiclometrico L,1,1,,,1,1
                                 End If
                                 Scrivi
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = NZ_ : Ruo(4) = TT_
                                 ImpostaGiocata 1,Qua1,Ruo,Po2,Clp
                                 ImpostaGiocata 2,Qua2,Ruo,Po2,Clp
                                 Gioca Es,,,1
                               
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
 
Ultima modifica:
Riciao
Purtroppo mi sono espresso male ....
Per quanto riguarda la visualizzazione delle estrazioni e OK:
Per quanto riguarda i due numeri che inseriro io devono far parte della QUARTINA IN GIOCO .
SE PER ESEMPIO I MIEI DUE NUMERI SARANNO 27.72 LA QUARTINA IN GIOCO SARA
70.25.27.72

N. [70.25.27.72 (I DUE NUMERI FISSI) ] [NZ] [.. 25 .. .. ..] C. 4 Estratto 10555 [198 - 20/12/2024] [79.25.38.54.72]
V N. [70.25 27.72 ] [PA] [.. .. .. .. 25] C. 12 Estratto 10563 [206 - 03/01/2025] [55.54.67.29.25]
V N. [70.25.27.72 ] [CA] [.. .. .. .. 25] C. 13 Estratto 10564 [207 - 04/01/2025] [65.55.31.05.25
 
Riciao
Purtroppo mi sono espresso male ....
Per quanto riguarda la visualizzazione delle estrazioni e OK:
Per quanto riguarda i due numeri che inseriro io devono far parte della QUARTINA IN GIOCO .
SE PER ESEMPIO I MIEI DUE NUMERI SARANNO 27.72 LA QUARTINA IN GIOCO SARA
70.25.27.72

N. [70.25.27.72 (I DUE NUMERI FISSI) ] [NZ] [.. 25 .. .. ..] C. 4 Estratto 10555 [198 - 20/12/2024] [79.25.38.54.72]
V N. [70.25 27.72 ] [PA] [.. .. .. .. 25] C. 12 Estratto 10563 [206 - 03/01/2025] [55.54.67.29.25]
V N. [70.25.27.72 ] [CA] [.. .. .. .. 25] C. 13 Estratto 10564 [207 - 04/01/2025] [65.55.31.05.25
SCUSA IN SOSTANZA GIOCHERO TRE QUARTINE DUE NUMERI CHE ME LI INDICA LA PREVISIONE E DUE NUMERI CHE DI VOLTA IN VOLTA INDICHERO' IO QUINDI LO SCRIPT CHE MI HAI GENTILMENTE INVIATO E' DA MODIFICARE
FACCIO UN ESEMPIO ESTRAZIONE DEL 25.1,2025 CONCORSO 15
BA GE NAZ. PREVISIONE 19.64. I MIEI FISSI 27.72 GIOCHERO LA QUARTINA 19.64.27.72
 
OK adesso ho fatto 2 quartine, i 2 ambi che c'erano prima sono diventate 2 quartine,
per il momento ho lasciato solo il pronostico ambo, dimmi se vuoi amche il terno e la quaterna

con gli ambetti cosa facciamo, io per il momento li ho tolti, dimmi come li vuoi
se devono essere ancora sugli ambi oppure nelle quartine oppure toglierli

per il momento non mi vengono altri chiarimenti da chiederti

chiedi pure non disturbi
 
Ultima modifica:
OK adesso ho fatto 2 quartine, i 2 ambi che c'erano prima sono diventate 2 quartine,
per il momento ho lasciato solo il pronostico ambo, dimmi se vuoi amche il terno e la quaterna

con gli ambetti cosa facciamo, io per il momento li ho tolti, dimmi come li vuoi
se devono essere ancora sugli ambi oppure nelle quartine oppure toglierli

per il mpmento non mi vengono altri chiarimenti da chiederti

chiedi pure non disturbi
Salvo , Grazie è proprio quello che desideravo.
Per me va bene cosi.
Avere la situazione della previsione e accanto i numeri estratti E' FESTA PER LA MIA VISTA.
TI RINGRAZIO SEMPRE DELLA TUA GRANDE DISPONIBILITA'
Saluti da
Serpico
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11

Ultimi Messaggi

Indietro
Alto