Per Salvo

Serpico 90 · 14 Giugno 2025

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

salvo50 · 14 Giugno 2025

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

Serpico 90 · 14 Giugno 2025

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

Serpico 90 · 14 Giugno 2025

Serpico 90 ha scritto:
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

salvo50 · 14 Giugno 2025

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

Serpico 90 · 14 Giugno 2025

salvo50 ha scritto:
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

Cerca

Cerca

Per Salvo

Serpico 90

Advanced Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Serpico 90

Advanced Member >GOLD<

Serpico 90

Advanced Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Serpico 90

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi