UN RICHIESTA A TUTTI VOI SPECIAL ONE DI SCIPT

giorgio1960 · 28 Maggio 2023

mastrogino ha scritto:
Ciao e buona serata scusa il ritardo ma per me e cominciato la stagione
te lo spiego in un esempio

estrazione del 04/05 milano 70.13.60.82.22. somma dei 5 estratti 67.

prendo in cossiderazione il 67. che lo trovo nell'estrazione precedente a Bari in 1° posizione quella de 02/05
il 67 a Bari ci garantisce la ruota dove andremo a giocare l'ambo e terno o a scelta le ambate che escono garantite

orA CHE ABBIAMO LA RUOTA PRENDIAMO I NUMERI
che si ottengono in questo modo

il 1° di milano 70 invertito con la tavol sette. = 54.
il 5° di milano 22 invertito con la tav. sett. = 48.
ecco la previsione
67oppure 76.
abb, o ambo secco 54.48.
1° colpo Bari 54.48.
2° colpo 76.48. tt GE.

2° MODO E QUELLO DI TROVARE IL NUMERO SPIA SULLA STESSA ESTRAZIONE

ESEMPIO
ESTRAZIONE DEL 02/05 FIRENZE 88.05.55.32.87.
INVERTO CON I NUMERI SETTENARI
90.89.69.08.13. SOMMA DEI 5 ESTRATTI 89.
COME NOTI L'89 SI TROVA SULLA STESSA ESTRAZIONE
DI FIRENZE NEI NUMERI INVERTITI
PREV.
AMBATE
89. OPPURE 88.
AMBO SECCO
90.13.
OPPURE LA QUARTINA
89.88.90.13.
OKKIO ALLE SUE RUOTE DIAMETRALI O GEMELLE IN QUESTO CASO ROMA
2° COLPO
89.90.88. APPUNTO SU ROMA

SPERO DI ESSERTI STATO CHIARO ......RESTO A DISPOSIZIONE
QUESTE E UNA DELLE TANTE INTERPRETAZIONI DELLA MITICA T.S.

intanto ti ringrazio e ti faccio i complimenti per i tuoi studi, come anche a tutti i programmatori che sviluppano i relativi script
notavo che nel primo caso tu indichi come previsione 67/76.54.48 mentre lo script 52.54.58
nel secondo caso invece l ultimo numero invertito su firenze, come da tabella, deve essere 31 e non 13 per cui la somma degli estratti è
17 e non 89
ancora grazie e resto in attesa di tue nuove

mastrogino · 29 Maggio 2023

giorgio1960 ha scritto:
intanto ti ringrazio e ti faccio i complimenti per i tuoi studi, come anche a tutti i programmatori che sviluppano i relativi script
notavo che nel primo caso tu indichi come previsione 67/76.54.48 mentre lo script 52.54.58
nel secondo caso invece l ultimo numero invertito su firenze, come da tabella, deve essere 31 e non 13 per cui la somma degli estratti è
17 e non 89
ancora grazie e resto in attesa di tue nuove

ciao ho notato ci sono degli errori domani spero di spiegarti meglio

salvo50 · 29 Maggio 2023

mastrogino ha scritto:
Ciao SALVO50 e Buona Domenica a tutti
volevo chiedere a Salvo50 se poteva modificare il listato in questo modo :
se i può inserire accanto all'intera estrazione reale l'estrazione straformato in quella settenaria

BA 54.85.57.64.18 Somma 08 82.21.43.42.10. SOMMA 18.
CA 63.39.10.75.15 Somma 22 55.07.24.79.49. SOMMA 34.
FI 25.70.69.53.18 Somma 55 09.54.67.05.10. SOMMA 55.
GE 39.62.77.32.27 Somma 57 07.68.53.08.73. SOMMA 29.
MI 20.45.78.60.88 Somma 21 74.19.40.04.81. SOMMA 38.
NA 20.56.26.72.39 Somma 33 74.56.86.28.07. SOMMA 71.
PA 48.72.75.55.52 Somma 32 70.28.79.69.18. SOMMA 84.
RO 63.17.73.71.58 Somma 12 55.23.15.77.30. SOMMA 20.
TO 34.14.41.28.30 Somma 57 72.62.26.60.34. SOMMA 74.
VE 86.51.23.34.05 Somma 19 71.13.35.72.89. SOMMA 10.
NZ 82.70.06.89.17 Somma 84 51.54.76.41.23. SOMMA 62.

Ciao Mastrogino

Solo adesso ho visto la tua richiesta domani (cioè oggi) in mattinata ti faccio lo script

salvo50 · 29 Maggio 2023

Ciao a Tutti

Ciao Mastrogino

Ho fatto la modifica, mi è venuta la pensata che si potrebbe procedere anche in altri modi, con questo metodo si estrapolano i numeri procedendo in diagonale in basso a sinistra, si potrebbe procedere in diagonale in basso a destra, oppure in alto a sinistra, oppure in alto a destra, fare gli script non è difficile basta prendere questo script e cambiare gli algoritmi, appena posso li faccio, comunque in questo script nel titolo ho messo <in DBS> che vuol dire che si procede nell'estrapolazione in
Diagonale
Basso
Sinistra

Enplein, Mastrogino, Matematico, ILegend, Toon, Rudivall

Grazie

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,Clp2,Es,Salvo50,R1,P1,P2,Casi,Somma,R,Som_R
   Dim Ruo(1),Po1(3),Num(3),A(5),B(5),C(5),D(5),Som_D,Amba(1),Po2(1)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10180))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,1))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare ambo e terno?",Salvo50,9))
   Scrivi  " Chiesto Da Mastrogino Estrapolazioni nella tavola settenaria in DBS - SCRIPT SALVO50",1,,4,,3,,1
   Po2(1) = 1
   Po1(2) = 1
   Po1(3) = 1
   R1 = ScegliRuota
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Somma = Fuori90(SommaEstratti(Es,R1))
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
         If Cadenza(A(P1)) <> 1 Then
            B(P1) = Fuori90((A(P1) + 9)*13)
            B(P1) = 91 - B(P1)
         End If
         If Cadenza(A(P1)) = 1 Then
            B(P1) = Fuori90((A(P1) + 19)*13)
            B(P1) = 91 - B(P1)
         End If
      Next
      Num(1) = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
      Num(2) = B(1)
      Num(3) = B(5)
      Amba(1) = Num(1)
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
      Scrivi("Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
      Scrivi " Somma Estr. Reali " & Format2(Somma),1,,,1
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(B," ",True),1,0
      Scrivi " Somma Estrapolati " & Num(1),1,,,2
      Scrivi
      Scrivi " SOMME COL FUORI 90 IN TUTTE LE RUOTE" & Space(5),1,0,,1
      Scrivi " SOMME COL FUORI 90 DEI NUMERI ESTRAPOLATI IN TUTTE LE RUOTE",1,,,2
      Scrivi
      For R = 1 To 12
         If R = 11 Then R = 12
         Som_R = Fuori90(SommaEstratti(Es,R))
         For P2 = 1 To 5
            C(P2) = Estratto(Es,R,P2)
            If Cadenza(C(P2)) <> 1 Then
               D(P2) = Fuori90((C(P2) + 9)*13)
               D(P2) = 91 - D(P2)
            End If
            If Cadenza(C(P2)) = 1 Then
               D(P2) = Fuori90((C(P2) + 19)*13)
               D(P2) = 91 - D(P2)
            End If
            Som_D = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
         Next
         Scrivi Space(5) & SiglaRuota(R) & " " & StringaEstratti(Es,R) & "    Somma " & Format2(Som_R),1,0
         Scrivi Space(20) & SiglaRuota(R) & " " & StringaNumeri(D," ",True) & "    Somma " & Format2(Som_D),1
      Next
      Ruo(1) = TT_
      Scrivi
      ImpostaGiocata 1,Amba,Ruo,Po2,Clp1
      ImpostaGiocata 2,Num,Ruo,Po1,Clp2
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

giorgio1960 · 29 Maggio 2023

salvo50 ha scritto:

Ciao a Tutti

Ciao Mastrogino

Ho fatto la modifica, mi è venuta la pensata che si potrebbe procedere anche in altri modi, con questo metodo si estrapolano i numeri procedendo in diagonale in basso a sinistra, si potrebbe procedere in diagonale in basso a destra, oppure in alto a sinistra, oppure in alto a destra, fare gli script non è difficile basta prendere questo script e cambiare gli algoritmi, appena posso li faccio, comunque in questo script nel titolo ho messo <in DBS> che vuol dire che si procede nell'estrapolazione in
Diagonale
Basso
Sinistra

Enplein, Mastrogino, Matematico, ILegend, Toon, Rudivall

Grazie

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,Clp2,Es,Salvo50,R1,P1,P2,Casi,Somma,R,Som_R
   Dim Ruo(1),Po1(3),Num(3),A(5),B(5),C(5),D(5),Som_D,Amba(1),Po2(1)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10180))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,1))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare ambo e terno?",Salvo50,9))
   Scrivi  " Chiesto Da Mastrogino Estrapolazioni nella tavola settenaria in DBS - SCRIPT SALVO50",1,,4,,3,,1
   Po2(1) = 1
   Po1(2) = 1
   Po1(3) = 1
   R1 = ScegliRuota
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Somma = Fuori90(SommaEstratti(Es,R1))
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
         If Cadenza(A(P1)) <> 1 Then
            B(P1) = Fuori90((A(P1) + 9)*13)
            B(P1) = 91 - B(P1)
         End If
         If Cadenza(A(P1)) = 1 Then
            B(P1) = Fuori90((A(P1) + 19)*13)
            B(P1) = 91 - B(P1)
         End If
      Next
      Num(1) = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
      Num(2) = B(1)
      Num(3) = B(5)
      Amba(1) = Num(1)
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
      Scrivi("Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
      Scrivi " Somma Estr. Reali " & Format2(Somma),1,,,1
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(B," ",True),1,0
      Scrivi " Somma Estrapolati " & Num(1),1,,,2
      Scrivi
      Scrivi " SOMME COL FUORI 90 IN TUTTE LE RUOTE" & Space(5),1,0,,1
      Scrivi " SOMME COL FUORI 90 DEI NUMERI ESTRAPOLATI IN TUTTE LE RUOTE",1,,,2
      Scrivi
      For R = 1 To 12
         If R = 11 Then R = 12
         Som_R = Fuori90(SommaEstratti(Es,R))
         For P2 = 1 To 5
            C(P2) = Estratto(Es,R,P2)
            If Cadenza(C(P2)) <> 1 Then
               D(P2) = Fuori90((C(P2) + 9)*13)
               D(P2) = 91 - D(P2)
            End If
            If Cadenza(C(P2)) = 1 Then
               D(P2) = Fuori90((C(P2) + 19)*13)
               D(P2) = 91 - D(P2)
            End If
            Som_D = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
         Next
         Scrivi Space(5) & SiglaRuota(R) & " " & StringaEstratti(Es,R) & "    Somma " & Format2(Som_R),1,0
         Scrivi Space(20) & SiglaRuota(R) & " " & StringaNumeri(D," ",True) & "    Somma " & Format2(Som_D),1
      Next
      Ruo(1) = TT_
      Scrivi
      ImpostaGiocata 1,Amba,Ruo,Po2,Clp1
      ImpostaGiocata 2,Num,Ruo,Po1,Clp2
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

una domanda, il numero estrapolato di 87 è 13 o 31?
se guardo l immagine postata dice 31 se lo calcola lo script dice 13.........

salvo50 · 29 Maggio 2023

giorgio1960 ha scritto:
una domanda, il numero estrapolato di 87 è 13 o 31?
se guardo l immagine postata dice 31 se lo calcola lo script dice 13.........

Ciao Giorgio

E' evidente che non hai letto tutti i post, la tabella corrisponde solo con lo script del post 20

Gli script dei post 32 e 44 sono elaborati in modo diverso della tabella

18 numeri non corrispondono a quelli della tabella ed esattamente i numeri della tavola settenaria con cadenza 1 ed i numeri che vanno dal 82 al 90

pico2005 · 30 Maggio 2023

Scusate ma se ci atteniamo alla tabella , quando la cadenza è uguale ad 1 si ha:

B(P1) = FUORI90 ((61- A(P1))*13/10)
D(P2)= FUORI90((61-C(P2))*13/10)

entrambi senza il complemento a 91.

Chiedo scusa ancora.

salvo50 · 30 Maggio 2023

pico2005 ha scritto:
Scusate ma se ci atteniamo alla tabella , quando la cadenza è uguale ad 1 si ha:

B(P1) = FUORI90 ((61- A(P1))*13/10)
D(P2)= FUORI90((61-C(P2))*13/10)

entrambi senza il complemento a 91.

Chiedo scusa ancora.

Ciao Pico2005

Non li ho provati, ma ti credo probabilmente hai fatto delle prove
Bravo, hai trovato un algoritmo che evita il complemento a 91
Nei prossimi script se mi permetti userò il tuo algoritmo

se devo usare la tabella

mastrogino · 30 Maggio 2023

Ciao a tutti.
Grazie x gli interventi sempre nel migliorare ,X pico2005 potresti inserire il listato con la modifica o se vuole Lo chiedo a Salvo50....... Poi ho un'idea Top di grande rilievo da proporre ,al livello di fare male alla Bestia ,ma sinceramente ho paura , e non saprei come mettermi in contatto

pico2005 · 30 Maggio 2023

Certamente Salvo, non era neanche da chiedere. Comunque ti ringrazio per la tua correttezza.

pico2005 · 30 Maggio 2023

mastrogino ha scritto:
Ciao a tutti.
Grazie x gli interventi sempre nel migliorare ,X pico2005 potresti inserire il listato con la modifica o se vuole Lo chiedo a Salvo50....... Poi ho un'idea Top di grande rilievo da proporre ,al livello di fare male alla Bestia ,ma sinceramente ho paura , e non saprei come mettermi in contatto

Certamente Salvo Proporrà la sua modifica, non resta che attendere.😄

mastrogino · 30 Maggio 2023

mastrogino ha scritto:
ECCO LE FUTURE PREVISIONI DALL'ULTIMO ESTRAZIONE DI QUESTO MESE 27/05.
X 3/5 COLPI

BA 82.21.43.42.10. 18. SPIA REALE 18.
CA 55.07.24.79.49. 34. SPIA REALE 34.
FE 09.54.67.05.10. 55.
GE 07.68.53.08.73. 29.
MO 74.19.40.04.81. 38
NA 74.56.86.28.07. 71. SPIA REALE 71.
PA.70.28.79.69.18. 84.
RO 55.23.15.77.30. 20.
TO 72.62.26.60.34. 74. SPIA REALE 74.
VE 71.13.35.72.89. 10. SPIA REALE 10.
NZ 51.54.76.41.23. 65.

FUTURI ESTRATTI CON LA SPIA PRESENTE SULL'ESTRAZIONE REALE DEL 27/05.
BARI FIRENZE PRESENTI IL 18.
18.81.
82.10.09.
---------------------------------------------
CA TO.VE.PRESENTI 34.
34.43.
55.49.72.71.89.
-----------------------------------------------
NA VE PRESENTI 71.
71.17
74.07.89.
-------------------------------
TO.NA.PRESENTI 74.
74.47.
07.72.34.
----------------------------------
BA VE FI PRESENTI 10.
10.01.
71.89.82.09.-
--------------------------------
AMBI POSSIBBILI
71.89................SORTITO IL 25/05. PS. NON E DETTO CHE SI RIPETE
09.10......FORTE PROBABBILITA
72.34.
74.07......FORTE PROBABBILITA
82.10......FORTE PROBABBILITA

AMBO SECCO A COLPO 72.34. YESSSSS
Ambate E AMBO
47.72.

mastrogino · 30 Maggio 2023

Estrazione generatrice del pronostico 10243 [ 63 - 27/05/2023]
G 0001 Numeri in gioco : 79 su TT per Estratto
V N. [79 ] [TT] [NA][.. .. .. .. 79] C. 1 Estratto 10244 [ 64 - 30/05/2023]

In corso per altre 12 estrazioni
G 0002 Numeri in gioco : 79.72.34 su TT per Ambo,Terno
V N. [79.72.34 ] [TT] [BA][.. 72 34 .. ..] C. 1 Ambo 10244 [ 64 - 30/05/2023]

salvo50 · 31 Maggio 2023

Ciao a Tutti

Sempre dall'intuizione di Mastrogino ma con procedimento in basso a destra <DBD>
La ruota vincente è quella di Genova

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,Clp2,Es,Salvo50,R1,P1,P2,Casi,Somma,R,Som_R
   Dim Ruo(1),Po1(3),Num(3),A(5),B(5),C(5),D(5),Som_D,Amba(1),Po2(1)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10180))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,1))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare ambo e terno?",Salvo50,9))
   Scrivi " Chiesto Da Mastrogino Estrapolazioni nella tavola settenaria in DBD - SCRIPT SALVO50",1,,4,,3,,1
  Po2(1) = 1
  Po1(2) = 1
   Po1(3) = 1
   R1 = ScegliRuota
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Somma = Fuori90(SommaEstratti(Es,R1))
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
         If Cadenza(A(P1)) <> 0 Then
            B(P1) = Fuori90((A(P1) + 11)*13)
            
         End If
         If Cadenza(A(P1)) = 0 Then
            B(P1) = Fuori90((A(P1) + 1)*13)
            
         End If
      Next
      Num(1) = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
      Num(2) = B(1)
      Num(3) = B(5)
      Amba(1) = Num(1)
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
      Scrivi("Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
      Scrivi " Somma Estr. Reali " & Format2(Somma),1,,,1
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(B," ",True),1,0
      Scrivi " Somma Estrapolati " & Num(1),1,,,2
      Scrivi
      Scrivi " SOMME COL FUORI 90 IN TUTTE LE RUOTE" & Space(5),1,0,,1
      Scrivi " SOMME COL FUORI 90 DEI NUMERI ESTRAPOLATI IN TUTTE LE RUOTE",1,,,2
      Scrivi
      For R = 1 To 12
         If R = 11 Then R = 12
         Som_R = Fuori90(SommaEstratti(Es,R))
         For P2 = 1 To 5
            C(P2) = Estratto(Es,R,P2)
            If Cadenza(C(P2)) <> 0 Then
               D(P2) = Fuori90((C(P2) + 11)*13)
                
            End If
            If Cadenza(C(P2)) = 0 Then
               D(P2) = Fuori90((C(P2) + 1)*13)
              
            End If
            Som_D = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
         Next
         Scrivi Space(5) & SiglaRuota(R) & " " & StringaEstratti(Es,R) & "    Somma " & Format2(Som_R),1,0
         Scrivi Space(20) & SiglaRuota(R) & " " & StringaNumeri(D," ",True) & "    Somma " & Format2(Som_D),1
      Next
      Ruo(1) = TT_
      Scrivi
      ImpostaGiocata 1,Amba,Ruo,Po2,Clp1
      ImpostaGiocata 2,Num,Ruo,Po1,Clp2
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

mastrogino · 31 Maggio 2023

CIAO sempre gentilissimo ottimo lavoro

mastrogino · 1 Giugno 2023

2 colpo Terno secco più ambi

salvo50 · 7 Giugno 2023

Ciao a Tutti

Dall'intuizione di Mastrogino estrapolazione in diagonale in alto a sinistra
La ruota vincente è quella di Cagliari

Matematico Mastrogino Toon
GRAZIE

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,Clp2,Es,Salvo50,R1,P1,P2,Casi,Somma,R,Som_R
   Dim Ruo(1),Po1(3),Num(3),A(5),B(5),C(5),D(5),Som_D,Amba(1),Po2(1)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10180))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,1))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare ambo e terno?",Salvo50,9))
   Scrivi "  Da Un'idea di Mastrogino Estrapolazioni nella tavola settenaria in DAS - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi "  DAS Procedimento Estrapolazione in DIAGONALE in ALTO a SINISTRA",1,,4,,3,,1

   Po2(1) = 1
   Po1(2) = 1
   Po1(3) = 1
   R1 = ScegliRuota
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Somma = Fuori90(SommaEstratti(Es,R1))
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
         If Cadenza(A(P1)) <> 1 Then
            B(P1) = Fuori90(A(P1) + 79)
            B(P1) = 91 - B(P1)
         End If
         If Cadenza(A(P1)) = 1 Then
            B(P1) = Fuori90(A(P1) + 89)
            B(P1) = 91 - B(P1)
         End If
      Next
      Num(1) = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
      Num(2) = B(1)
      Num(3) = B(5)
      Amba(1) = Num(1)
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
      Scrivi("Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
      Scrivi " Somma Estr. Reali " & Format2(Somma),1,,,1
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(B," ",True),1,0
      Scrivi " Somma Estrapolati " & Num(1),1,,,2
      Scrivi
      Scrivi " SOMME COL FUORI 90 IN TUTTE LE RUOTE" & Space(5),1,0,,1
      Scrivi " SOMME COL FUORI 90 DEI NUMERI ESTRAPOLATI IN TUTTE LE RUOTE",1,,,2
      Scrivi
      For R = 1 To 12
         If R = 11 Then R = 12
         Som_R = Fuori90(SommaEstratti(Es,R))
         For P2 = 1 To 5
            C(P2) = Estratto(Es,R,P2)
            If Cadenza(C(P2)) <> 1 Then
            D(P2) = Fuori90(C(P2) + 79)
            D(P2) = 91 - D(P2)
         End If
         If Cadenza(C(P2)) = 1 Then
            D(P2) = Fuori90(C(P2) + 89)
            D(P2) = 91 - D(P2)
         End If

            Som_D = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
         Next
         Scrivi Space(5) & SiglaRuota(R) & " " & StringaEstratti(Es,R) & "    Somma " & Format2(Som_R),1,0
         Scrivi Space(20) & SiglaRuota(R) & " " & StringaNumeri(D," ",True) & "    Somma " & Format2(Som_D),1
      Next
      Ruo(1) = TT_
      Scrivi
      ImpostaGiocata 1,Amba,Ruo,Po2,Clp1
      ImpostaGiocata 2,Num,Ruo,Po1,Clp2
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

salvo50 · 8 Giugno 2023

Claudio8 Matematico Rudivall Toon
GRAZIE

Procedimento
DIAGONALE in ALTO a DESTRA

Le ruote vincenti sono
Genova
Milano
Nazionale

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,Clp2,Es,Salvo50,R1,P1,P2,Casi,Somma,R,Som_R
   Dim Ruo(1),Po1(3),Num(3),A(5),B(5),C(5),D(5),Som_D,Amba(1),Po2(1)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10180))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,1))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare ambo e terno?",Salvo50,9))
   Scrivi "  Da Un'idea di Mastrogino Estrapolazioni nella tavola settenaria in DAD - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi "  DAD Procedimento Estrapolazione in DIAGONALE in ALTO a DESTRA",1,,4,,3,,1
   Po2(1) = 1
   Po1(2) = 1
   Po1(3) = 1
   R1 = ScegliRuota
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Somma = Fuori90(SommaEstratti(Es,R1))
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
         If Cadenza(A(P1)) <> 0 Then
            B(P1) = Fuori90((A(P1) + 81)*7)
            'B(P1) = 91 - B(P1)
         End If
         If Cadenza(A(P1)) = 0 Then
            B(P1) = Fuori90((A(P1) + 71)* 7)
            'B(P1) = 91 - B(P1)
         End If
      Next
      Num(1) = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
      Num(2) = B(1)
      Num(3) = B(5)
      Amba(1) = Num(1)
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
      Scrivi("Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
      Scrivi " Somma Estr. Reali " & Format2(Somma),1,,,1
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(B," ",True),1,0
      Scrivi " Somma Estrapolati " & Num(1),1,,,2
      Scrivi
      Scrivi " SOMME COL FUORI 90 IN TUTTE LE RUOTE" & Space(5),1,0,,1
      Scrivi " SOMME COL FUORI 90 DEI NUMERI ESTRAPOLATI IN TUTTE LE RUOTE",1,,,2
      Scrivi
      For R = 1 To 12
         If R = 11 Then R = 12
         Som_R = Fuori90(SommaEstratti(Es,R))
         For P2 = 1 To 5
            C(P2) = Estratto(Es,R,P2)
            If Cadenza(C(P2)) <> 0 Then D(P2) = Fuori90((C(P2) + 81)* 7)
            If Cadenza(C(P2)) = 0 Then D(P2) = Fuori90((C(P2) + 71)* 7)
            Som_D = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
         Next
         Scrivi Space(5) & SiglaRuota(R) & " " & StringaEstratti(Es,R) & "    Somma " & Format2(Som_R),1,0
         Scrivi Space(20) & SiglaRuota(R) & " " & StringaNumeri(D," ",True) & "    Somma " & Format2(Som_D),1
      Next
      Ruo(1) = TT_
      Scrivi
      ImpostaGiocata 1,Amba,Ruo,Po2,Clp1
      ImpostaGiocata 2,Num,Ruo,Po1,Clp2
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

salvo50 · 10 Giugno 2023

Ciao a Tutti

Matematico, Toon
GRAZIE

Ho raggruppato in un solo script tutte e quattro le estrapolazioni,
nell'impostazione delle giocate ho messo le 4 cinquine complete
anche se non servono ho messo anche le somme col Fuori90
La ruota di Napoli va molto bene, chissà se continua

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,Clp2,Es,Salvo50,R1,P1,P2,Casi
   Dim Somma,R,Som_R,Som_B,Som_C,Som_D,Som_E
   Dim Ruo(1),Po1(3),A(5),B(5),C(5),D(5),E(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10180))
   'Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,1))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare ambo e terno?",Salvo50,3))
   Scrivi " Da Un'idea di Mastrogino Estrapolazioni nella tavola settenaria - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi " DBS = Estrapolati in Direzione DIAGONALE in BASSO a SINISTRA ",1,,3,,3,,1
   Scrivi " DAS = Estrapolati in Direzione DIAGONALE in ALTO a SINISTRA ",1,,4,,3,,1
   Scrivi " DBD = Estrapolati in Direzione DIAGONALE in BASSO a DESTRA ",1,,3,,3,,1
   Scrivi " DAD = Estrapolati in Direzione DIAGONALE in ALTO a DESTRA ",1,,4,,3,,1
   'Po1(1) = 1
   Po1(2) = 1
   Po1(3) = 1
   R1 = ScegliRuota
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Somma = Fuori90(SommaEstratti(Es,R1))
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
         If Cadenza(A(P1)) <> 1 Then
            B(P1) = Fuori90((A(P1) + 9)*13) 'DBS
            B(P1) = 91 - B(P1) 'DBS
            C(P1) = Fuori90(A(P1) + 79) 'DAS
            C(P1) = 91 - C(P1) 'DAS
         End If
         If Cadenza(A(P1)) = 1 Then
            B(P1) = Fuori90((A(P1) + 19)*13)
            B(P1) = 91 - B(P1)
            C(P1) = Fuori90(A(P1) + 89)
            C(P1) = 91 - C(P1)
         End If
         If Cadenza(A(P1)) <> 0 Then
            D(P1) = Fuori90((A(P1) + 11)*13) 'DBD
            E(P1) = Fuori90((A(P1) + 81)*7) 'DAD
         End If
         If Cadenza(A(P1)) = 0 Then
            D(P1) = Fuori90((A(P1) + 1)*13)
            E(P1) = Fuori90((A(P1) + 71)* 7)
         End If
      Next
      '
      Som_B = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
      Som_C = Fuori90(C(1) + C(2) + C(3) + C(4) + C(5))
      Som_D = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
      Som_E = Fuori90(E(1) + E(2) + E(3) + E(4) + E(5))
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
      Scrivi("Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
      Scrivi " Somma Estr. Reali " & Format2(Somma),1,,,1
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(B," ",True),1,0
      Scrivi " Somma " & Format2(Som_B) & "  Estrapolati in DBS",1,,,2
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(C," ",True),1,0
      Scrivi " Somma " & Format2(Som_C) & "  Estrapolati in DAS",1,,,2
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(D," ",True),1,0
      Scrivi " Somma " & Format2(Som_D) & "  Estrapolati in DBD",1,,,2
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(E," ",True),1,0
      Scrivi " Somma " & Format2(Som_E) & "  Estrapolati in DAD",1,,,2
      Scrivi
      Ruo(1) = R1
      Scrivi
      ImpostaGiocata 1,B,Ruo,Po1,Clp2
      ImpostaGiocata 2,C,Ruo,Po1,Clp2
      ImpostaGiocata 3,D,Ruo,Po1,Clp2
      ImpostaGiocata 4,E,Ruo,Po1,Clp2
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

mastrogino · 12 Giugno 2023

ECCOMI , SCUSATE LA MANCANZA ........lavoro

grazie Salvo 50 e a chi ha fatto visita

Salvo ti volevo chiedere se era perfezzionare il listato in questo moda

UN RICHIESTA A TUTTI VOI SPECIAL ONE DI SCIPT

Super Member >GOLD<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Super Member >GOLD<

Super Member >GOLD<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member