Novità

Per Salvo

S

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
 
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
Clicca per espandere...
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:
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
Clicca per espandere...
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
 
Ciao
Salvo come va? Spero bene.
Sono il solito Serpico mezzo accecato,ti posso chiedere la solita cortesia?
Aggiungere la scelta di due numeri fissi scelti da me..
come gentilmente hai fatto per altro metodo?
Se mi dici di si ti copio lo script.
Grazie
 
Ciao a Tutti

Serpico 90 ha scritto:
Ciao
Salvo come va? Spero bene.
Sono il solito Serpico mezzo accecato,ti posso chiedere la solita cortesia?
Aggiungere la scelta di due numeri fissi scelti da me..
come gentilmente hai fatto per altro metodo?
Se mi dici di si ti copio lo script.
Grazie
Clicca per espandere...
Metti lo script se se è alla mia portata lo faccio volentieri
 
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,Salvo50,Dist,A,B,C,D,Ss,Pi
Dim R1,R2,P2,P3,P4,P5,P6,E1,E2,Caso,Casi,Ss2
Dim CadA,CadB,CadC,CadD,FiA,FiB,FiC,FiD,Pi2
Dim DecA,DecB,DecC,DecD,A1,B1,C1,A2,B2,C2
Dim DeA_FiA,DeB_FiB,DeC_FiC,DeD_FiD
Dim CaA_FiA,CaB_FiB,CaC_FiC,CaD_FiD
Dim So1,So2,So3,So4,So5,So6,Tot1,Tot2,Tot3
Dim Amba(1),Ruo(2),Posta(1),Fi1(3),Fi2(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,10560))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,25))
Scrivi Space(4) & "Due Ruote Diametrali, Estratti 1a e 2a posizione di Filippo1963 - Script Salvo50",1,,4,,3,,1
Posta(1) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 5
A = Estratto(Es,R1,1)
B = Estratto(Es,R1,2)
CadA = Cadenza(A) : CadB = Cadenza(B)
R2 = RuotaDiametrale(R1)
C = Estratto(Es,R2,1)
D = Estratto(Es,R2,2)
CadC = Cadenza(C) : CadD = Cadenza(D)
If(Not Gemello(A)And Not Gemello(B)) And(A > 9 And B > 9)And(CadA <> 0 And CadB <> 0)And(CadA <> CadB) Then
If(Not Gemello(C)And Not Gemello(D)) And(C > 9 And D > 9)And(CadC <> 0 And CadD <> 0)And(CadC <> CadD) Then
FiA = Figura(A) : FiB = Figura(B) : FiC = Figura(C) : FiD = Figura(D)
DecA = Decina(A) : DecB = Decina(B) : DecC = Decina(C) : DecD = Decina(D)
DeA_FiA = Fuori90(DecA & FiA) : DeB_FiB = Fuori90(DecB & FiB)
CaA_FiA = Fuori90(CadA & FiA) : CaB_FiB = Fuori90(CadB & FiB)
'
DeC_FiC = Fuori90(DecC & FiC) : DeD_FiD = Fuori90(DecD & FiD)
CaC_FiC = Fuori90(CadC & FiC) : CaD_FiD = Fuori90(CadD & FiD)
If A < B Then
So1 = Fuori90(A + B)
So2 = Fuori90(DeA_FiA + DeB_FiB) : : So3 = Fuori90(CaA_FiA + CaB_FiB)
Else
So1 = Fuori90(A - B)
So2 = Fuori90((90 + DeA_FiA) - DeB_FiB) : So3 = Fuori90((90 + CaA_FiA) - CaB_FiB)
End If
A1 = Fuori90(So1 + So2) : B1 = Fuori90(So2 + So3) : C1 = Fuori90(A1 + B1)
Fi1(1) = Figura(So1) : Fi1(2) = Figura(So2) : Fi1(3) = Figura(So3)
Ss = StringaNumeri(Fi1,"",False)
Pi = Piramide(Ss,1)
Pi = Fuori90(Pi)
If A < B Then
Tot1 = Fuori90(C1 + Pi)
Else
Tot1 = Fuori90((90 + C1) - Pi)
End If
'******************************************************************************
If C < D Then
So4 = Fuori90(C + D)
So5 = Fuori90(DeC_FiC + DeD_FiD) : : So6 = Fuori90(CaC_FiC + CaD_FiD)
Else
So4 = Fuori90(C - D)
So5 = Fuori90((90 + DeC_FiC) - DeD_FiD) : So6 = Fuori90((90 + CaC_FiC) - CaD_FiD)
End If
A2 = Fuori90(So4 + So5) : B2 = Fuori90(So5 + So6) : C2 = Fuori90(A2 + B2)
Fi2(1) = Figura(So4) : Fi2(2) = Figura(So5) : Fi2(3) = Figura(So6)
Ss2 = StringaNumeri(Fi2,"",False)
Pi2 = Piramide(Ss2,1)
Pi2 = Fuori90(Pi2)
If C < D Then
Tot2 = Fuori90(C2 + Pi2)
Else
Tot2 = Fuori90((90 + C2) - Pi2)
End If
'
If Tot1 < Tot2 Then
Tot3 = Fuori90(Tot1 + Tot2)
Else
Tot3 = Fuori90((90 + Tot1) - Tot2)
End If
Amba(1) = Vert(Tot3)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P3 = 1 To 5
E2 = Estratto(Es,R2,P3)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
' Visualizzazione prima ruota
Scrivi Space(35) & NomeRuota(R1),1
Scrivi Space(10) & "decine unite con figure " & Space(10) & "Cadenze unite con figure",1
Scrivi Space(19) & Format2(DeA_FiA) & " " & Format2(DeB_FiB),1,0
Scrivi Space(29) & Format2(CaA_FiA) & " " & Format2(CaB_FiB),1
Scrivi
If A < B Then
Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(So1),1,0
Scrivi Space(11) & Format2(DeA_FiA) & " + " & Format2(DeB_FiB) & " = " & Format2(So2),1,0
Scrivi Space(10) & Format2(CaA_FiA) & " + " & Format2(CaB_FiB) & " = " & Format2(So3),1
Else
Scrivi Space(10) & Format2(A) & " - " & Format2(B) & " = " & Format2(So1),1,0
Scrivi Space(11) & Format2(DeA_FiA) & " - " & Format2(DeB_FiB) & " = " & Format2(So2),1,0
Scrivi Space(10) & Format2(CaA_FiA) & " - " & Format2(CaB_FiB) & " = " & Format2(So3),1
End If
Scrivi
Scrivi Space(22) & Format2(So1) & " " & Format2(So2) & " " & Format2(So3),1,0
Scrivi Space(17) & Ss,1
Scrivi Space(24) & Format2(A1) & " " & Format2(B1),1,0
Scrivi Space(19) & Format2(Pi),1
Scrivi Space(26) & Format2(C1),1
Scrivi
If A < B Then
Scrivi Space(33) & Format2(C1) & " + " & Format2(Pi) & " = ",1,0
Scrivi Format2(Tot1),1,,,2
Else
Scrivi Space(33) & Format2(C1) & " - " & Format2(Pi) & " = ",1,0
Scrivi Format2(Tot1),1,,,2
End If
Scrivi
Scrivi String(79,"*"),1,,,1
'**************************************************************************
' Visualizzazione seconda ruota
Scrivi
Scrivi Space(35) & NomeRuota(R2),1
Scrivi Space(10) & "decine unite con figure " & Space(10) & "Cadenze unite con figure",1
Scrivi Space(19) & Format2(DeC_FiC) & " " & Format2(DeD_FiD),1,0
Scrivi Space(29) & Format2(CaC_FiC) & " " & Format2(CaD_FiD),1
Scrivi
If C < D Then
Scrivi Space(10) & Format2(C) & " + " & Format2(D) & " = " & Format2(So4),1,0
Scrivi Space(11) & Format2(DeC_FiC) & " + " & Format2(DeD_FiD) & " = " & Format2(So5),1,0
Scrivi Space(10) & Format2(CaC_FiC) & " + " & Format2(CaD_FiD) & " = " & Format2(So6),1
Else
Scrivi Space(10) & Format2(C) & " - " & Format2(D) & " = " & Format2(So4),1,0
Scrivi Space(11) & Format2(DeC_FiC) & " - " & Format2(DeD_FiD) & " = " & Format2(So5),1,0
Scrivi Space(10) & Format2(CaC_FiC) & " - " & Format2(CaD_FiD) & " = " & Format2(So6),1
End If
Scrivi
Scrivi Space(22) & Format2(So4) & " " & Format2(So5) & " " & Format2(So6),1,0
Scrivi Space(17) & Ss2,1
Scrivi Space(24) & Format2(A2) & " " & Format2(B2),1,0
Scrivi Space(19) & Format2(Pi2),1
Scrivi Space(26) & Format2(C2),1
Scrivi
If C < D Then
Scrivi Space(33) & Format2(C2) & " + " & Format2(Pi2) & " = ",1,0
Scrivi Format2(Tot2),1,,,2
Else
Scrivi Space(33) & Format2(C2) & " - " & Format2(Pi2) & " = ",1,0
Scrivi Format2(Tot2),1,,,2
End If
Scrivi
'**********************************************************************
Scrivi String(79,"-")
Scrivi
If Tot1 < Tot2 Then
Scrivi Space(33) & Format2(Tot1) & " + " & Format2(Tot2) & " = " & Format2(Tot3),1
Else
Scrivi Space(33) & Format2(Tot1) & " - " & Format2(Tot2) & " = " & Format2(Tot3),1
End If
Scrivi
Scrivi Space(22) & " Il Vertibile di " & Format2(Tot3) & " è " & Format2(Amba(1)) & " Ambata ",1
Scrivi
Ruo(1) = R1
Ruo(2) = R2
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,7
Gioca Es,1,,1
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
 
Questa quello che hai aggiunto nel precedente script che mi hai gentilmente
in sistanza dovrei giocare il numero che prevede lo script e poi io aggiungo i miei due numeri .

N = InputBox("Inserisci i Due numeri separati da un puntino",,"00.00")<br> aM = Split("0." &amp; N,".")<br> E = aM(1)<br> F = aM(2)
 
Ultima modifica:
fammi sapere se va bene così

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,Dist,A,B,C,D,E,F,Ss,Pi
   Dim R1,R2,P2,P3,P4,P5,P6,E1,E2,Caso,Casi,Ss2,aM
   Dim CadA,CadB,CadC,CadD,FiA,FiB,FiC,FiD,Pi2
   Dim DecA,DecB,DecC,DecD,A1,B1,C1,A2,B2,C2,N
   Dim DeA_FiA,DeB_FiB,DeC_FiC,DeD_FiD
   Dim CaA_FiA,CaB_FiB,CaC_FiC,CaD_FiD
   Dim So1,So2,So3,So4,So5,So6,Tot1,Tot2,Tot3
   Dim Amba(3),Ruo(2),Posta(3),Fi1(3),Fi2(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,10560))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,25))
   N = InputBox("Inserisci i Due numeri separati da un puntino",,"00.00")
   aM = Split("0." & N,".")
   E = aM(1)
   F = aM(2)
   If E > 0 And F > 0 And E < 91 And F < 91 And E <> F Then
      Scrivi Space(4) & "Due Ruote Diametrali, Estratti 1a e 2a posizione di Filippo1963 - Script Salvo50",1,,4,,3,,1
      Scrivi Space(4) & "      Con modifica chiesta da Serpico90, aggiungere 2 numeri da tastiera",1,,4,,3,,1
      Posta(2) = 0.80
      Posta(3) = 0.20
      For Es = Ini To FIn
         Messaggio Es
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         For R1 = 1 To 5
            A = Estratto(Es,R1,1)
            B = Estratto(Es,R1,2)
            CadA = Cadenza(A) : CadB = Cadenza(B)
            R2 = RuotaDiametrale(R1)
            C = Estratto(Es,R2,1)
            D = Estratto(Es,R2,2)
            CadC = Cadenza(C) : CadD = Cadenza(D)
            If(Not Gemello(A)And Not Gemello(B)) And(A > 9 And B > 9)And(CadA <> 0 And CadB <> 0)And(CadA <> CadB) Then
               If(Not Gemello(C)And Not Gemello(D)) And(C > 9 And D > 9)And(CadC <> 0 And CadD <> 0)And(CadC <> CadD) Then
                  FiA = Figura(A) : FiB = Figura(B) : FiC = Figura(C) : FiD = Figura(D)
                  DecA = Decina(A) : DecB = Decina(B) : DecC = Decina(C) : DecD = Decina(D)
                  DeA_FiA = Fuori90(DecA & FiA) : DeB_FiB = Fuori90(DecB & FiB)
                  CaA_FiA = Fuori90(CadA & FiA) : CaB_FiB = Fuori90(CadB & FiB)
                  '
                  DeC_FiC = Fuori90(DecC & FiC) : DeD_FiD = Fuori90(DecD & FiD)
                  CaC_FiC = Fuori90(CadC & FiC) : CaD_FiD = Fuori90(CadD & FiD)
                  If A < B Then
                     So1 = Fuori90(A + B)
                     So2 = Fuori90(DeA_FiA + DeB_FiB) : : So3 = Fuori90(CaA_FiA + CaB_FiB)
                  Else
                     So1 = Fuori90(A - B)
                     So2 = Fuori90((90 + DeA_FiA) - DeB_FiB) : So3 = Fuori90((90 + CaA_FiA) - CaB_FiB)
                  End If
                  A1 = Fuori90(So1 + So2) : B1 = Fuori90(So2 + So3) : C1 = Fuori90(A1 + B1)
                  Fi1(1) = Figura(So1) : Fi1(2) = Figura(So2) : Fi1(3) = Figura(So3)
                  Ss = StringaNumeri(Fi1,"",False)
                  Pi = Piramide(Ss,1)
                  Pi = Fuori90(Pi)
                  If A < B Then
                     Tot1 = Fuori90(C1 + Pi)
                  Else
                     Tot1 = Fuori90((90 + C1) - Pi)
                  End If
                  '******************************************************************************
                  If C < D Then
                     So4 = Fuori90(C + D)
                     So5 = Fuori90(DeC_FiC + DeD_FiD) : : So6 = Fuori90(CaC_FiC + CaD_FiD)
                  Else
                     So4 = Fuori90(C - D)
                     So5 = Fuori90((90 + DeC_FiC) - DeD_FiD) : So6 = Fuori90((90 + CaC_FiC) - CaD_FiD)
                  End If
                  A2 = Fuori90(So4 + So5) : B2 = Fuori90(So5 + So6) : C2 = Fuori90(A2 + B2)
                  Fi2(1) = Figura(So4) : Fi2(2) = Figura(So5) : Fi2(3) = Figura(So6)
                  Ss2 = StringaNumeri(Fi2,"",False)
                  Pi2 = Piramide(Ss2,1)
                  Pi2 = Fuori90(Pi2)
                  If C < D Then
                     Tot2 = Fuori90(C2 + Pi2)
                  Else
                     Tot2 = Fuori90((90 + C2) - Pi2)
                  End If
                  '
                  If Tot1 < Tot2 Then
                     Tot3 = Fuori90(Tot1 + Tot2)
                  Else
                     Tot3 = Fuori90((90 + Tot1) - Tot2)
                  End If
                  Amba(1) = Vert(Tot3) : Amba(2) = E : Amba(3) = F
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi " " & SiglaRuota(R1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1,P2)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi " " & SiglaRuota(R2) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R2,P3)
                     If E2 = C Or E2 = D Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  ' Visualizzazione prima ruota
                  Scrivi Space(35) & NomeRuota(R1),1
                  Scrivi Space(10) & "decine unite con figure " & Space(10) & "Cadenze unite con figure",1
                  Scrivi Space(19) & Format2(DeA_FiA) & " " & Format2(DeB_FiB),1,0
                  Scrivi Space(29) & Format2(CaA_FiA) & " " & Format2(CaB_FiB),1
                  Scrivi
                  If A < B Then
                     Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(So1),1,0
                     Scrivi Space(11) & Format2(DeA_FiA) & " + " & Format2(DeB_FiB) & " = " & Format2(So2),1,0
                     Scrivi Space(10) & Format2(CaA_FiA) & " + " & Format2(CaB_FiB) & " = " & Format2(So3),1
                  Else
                     Scrivi Space(10) & Format2(A) & " - " & Format2(B) & " = " & Format2(So1),1,0
                     Scrivi Space(11) & Format2(DeA_FiA) & " - " & Format2(DeB_FiB) & " = " & Format2(So2),1,0
                     Scrivi Space(10) & Format2(CaA_FiA) & " - " & Format2(CaB_FiB) & " = " & Format2(So3),1
                  End If
                  Scrivi
                  Scrivi Space(22) & Format2(So1) & " " & Format2(So2) & " " & Format2(So3),1,0
                  Scrivi Space(17) & Ss,1
                  Scrivi Space(24) & Format2(A1) & " " & Format2(B1),1,0
                  Scrivi Space(19) & Format2(Pi),1
                  Scrivi Space(26) & Format2(C1),1
                  Scrivi
                  If A < B Then
                     Scrivi Space(33) & Format2(C1) & " + " & Format2(Pi) & " = ",1,0
                     Scrivi Format2(Tot1),1,,,2
                  Else
                     Scrivi Space(33) & Format2(C1) & " - " & Format2(Pi) & " = ",1,0
                     Scrivi Format2(Tot1),1,,,2
                  End If
                  Scrivi
                  Scrivi String(79,"*"),1,,,1
                  '**************************************************************************
                  ' Visualizzazione seconda ruota
                  Scrivi
                  Scrivi Space(35) & NomeRuota(R2),1
                  Scrivi Space(10) & "decine unite con figure " & Space(10) & "Cadenze unite con figure",1
                  Scrivi Space(19) & Format2(DeC_FiC) & " " & Format2(DeD_FiD),1,0
                  Scrivi Space(29) & Format2(CaC_FiC) & " " & Format2(CaD_FiD),1
                  Scrivi
                  If C < D Then
                     Scrivi Space(10) & Format2(C) & " + " & Format2(D) & " = " & Format2(So4),1,0
                     Scrivi Space(11) & Format2(DeC_FiC) & " + " & Format2(DeD_FiD) & " = " & Format2(So5),1,0
                     Scrivi Space(10) & Format2(CaC_FiC) & " + " & Format2(CaD_FiD) & " = " & Format2(So6),1
                  Else
                     Scrivi Space(10) & Format2(C) & " - " & Format2(D) & " = " & Format2(So4),1,0
                     Scrivi Space(11) & Format2(DeC_FiC) & " - " & Format2(DeD_FiD) & " = " & Format2(So5),1,0
                     Scrivi Space(10) & Format2(CaC_FiC) & " - " & Format2(CaD_FiD) & " = " & Format2(So6),1
                  End If
                  Scrivi
                  Scrivi Space(22) & Format2(So4) & " " & Format2(So5) & " " & Format2(So6),1,0
                  Scrivi Space(17) & Ss2,1
                  Scrivi Space(24) & Format2(A2) & " " & Format2(B2),1,0
                  Scrivi Space(19) & Format2(Pi2),1
                  Scrivi Space(26) & Format2(C2),1
                  Scrivi
                  If C < D Then
                     Scrivi Space(33) & Format2(C2) & " + " & Format2(Pi2) & " = ",1,0
                     Scrivi Format2(Tot2),1,,,2
                  Else
                     Scrivi Space(33) & Format2(C2) & " - " & Format2(Pi2) & " = ",1,0
                     Scrivi Format2(Tot2),1,,,2
                  End If
                  Scrivi
                  '**********************************************************************
                  Scrivi String(79,"-")
                  Scrivi
                  If Tot1 < Tot2 Then
                     Scrivi Space(33) & Format2(Tot1) & " + " & Format2(Tot2) & " = " & Format2(Tot3),1
                  Else
                     Scrivi Space(33) & Format2(Tot1) & " - " & Format2(Tot2) & " = " & Format2(Tot3),1
                  End If
                  Scrivi
                  Scrivi Space(22) & " Il Vertibile di " & Format2(Tot3) & " è " & Format2(Amba(1)),1
                  Scrivi
                  Scrivi Space(18) & " I 2 Numeri Aggiunti sono " & Format2(E) & " è " & Format2(F),1
                  Scrivi
                  Ruo(1) = R1
                  Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es,,,1
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   End If
   If E = 0 Or F = 0 Or E > 90 Or F > 90  Or e = F Then Scrivi " Non hai inserito correttamente i 2 numeri ",1,,,2,6,,1
End Sub
 
Ultima modifica:
Salvo SEI UNA GRANDE PERSONA
Lo script con questa aggiunta dei miei numeri fissi per quanto mi riguarda
E' OTTIMO
MOLTE GRAZIE
Ti saluto e non ho altre parole per ringraziarti ancora.
Buona Vita
Serpico
 
Ultima modifica:
Buon giorno Salvo
Per correttezza nei tuoi confronti e anche per gli altri ti chiedo cortesemente se nello script che ieri hai postato
puoi cancellare i due numeri fissi cioe 27 --39 -- perche sono dei numeri messi a caso per provare se andava bene lo script.
N = InputBox("Inserisci i Due numeri separati da un puntino",,"00.00".
Siccome ho visto che ci sono state tante visite ritengo opportuno chiarire che questi due numeri NON SONO DA GIOCARE
OGNUNO POTRA' INSERIRE I DUE NUMERI FISSI CHE RITIENE.
LI PUOI CANCELLARE SOLO TU
GRAZIE
BUONA GIORNATA
 
Ciao a Tutti

Ciao Serpico

Mi stupisce questa tua richiesta, possibile che non lo sai, che quei numeri li può cambiare chiuque
basta andare col cursore sui numeri cancellarli e mettere separato da un puntino qualsiasi altro numero
inferiore a 91

dato che sono in argomento mi sento in dovere di spiegarti anche gli altri 2 Inputbox
alla prima domanda ti chiede con quale estrazione vuoi iniziare, quella che io ho messo
di defoult tu la puoi cambiare a piacere, naturalmente deve essere inferiore o uguale
alla massima che hai nel tuo archivio
alla seconda domanda ti chiede per quanti colpi vuoi giocare, di defoult l'ho impostato a 25
ma come le altre puoi cambiarlo a piacere, però mi sembra che ha un limite di 150
di questo limite non sono sicuro, non ricordo bene

e alla terza domanda ti chiede quali numeri vuoi mettere
ripeto cancelli quelli che ci sono già e ne mette 2 a piacere tuo
separati da un punto

Ti chiedo scusa avevo capito male la tua richiesta
ho messo i 2 doppi zero 00.00
 
Ultima modifica:
Grazie Salvo......
questo tuo chiarimento è importante oltre che per me credo anche per tutti gli altri che hanno
copiato e incollato lo script magari erano convinti di giocare L'AMBATA CON I DUE NUMERI FISSI INSERITI PER PROVA.
Sempre grato della tua gentilezza
Buon proseguimento di giornata
Serpico
 
Lo script del post 15 è da riprendere

Ho inserito il doppio zero come da te richiesto, ma a questo punto
ho dovuto mettere la sicurezza che i numeri vengono inseriti
correttamente, altrimenti alla fine restava solo l'ambata, ma la
giocata risultava per ambo e terno
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto