Novità

Script su Metodi Antichi e Moderni

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.018
Punti reazione
50
Punti
48
Ciao a Tutti.

Ciao Master, è perfetto ho tolto le condizioni e l'ho testato per 13 colpi consecutivi, quindi consiglio a chi interessa a scaricare la tua versione, un like per te è d'obblico.
Allora ne deduco che quello che avevo letto di Rubino doveva essere diverso, perchè anche Rubino è bravissimo.

Grazie
 

joe

Advanced Member >PLATINUM<
Messaggi
1.011
Punti reazione
33
Punti
48
Buon Giorno a tutte/i.

Tipicamente ci sono alcune considerazioni da porre in evidenza.

La prima è che le estrazioni NORMALMENTE sono effettuate a distanza di alcuni giorni. (2 o 3)

Quindi se dopo 2 o 3 giorni da una estrazione ... "si entra" in nuovo mese ...

codesta estrazione è da considerarsi essere l' "ultima del mese".

Per convalidare questo calcolo si deve sapere a quale giorno appartiene l' estrazione che si sta considerando.

Ovvero, per deliberare congruamente se questa estrazione è l'ultima del mese o no ...

si deve sapere, se questa estrazione è quella del martedì del giovedì o del sabato.

Perché tra "martedì e giovedì" e tra "giovedì e sabato" trascorrono 2 giorni.

Mente tra l'estrazione di "sabato e martedì" sono presenti 3 giorni.

Cioè, le estrazioni vengono effettuate secondo uno schema ripetitivo: +2 / +2 / +3 giorni.

In sintesi ... se aggiungendo selettivamente +2giorni o +3giorni alla data di una estrazione

"si arriva" in un nuovo mese/differente da quello da cui si è partiti,

questa estrazione ... è l' "ultima del mese".

Fortunatamente Spaziometrria implementa l'algoritmo di calcolo che ho appena descritto.

Dunque c'è l'istruzione IsUltimaDelMese (idEstrazione) che restituisce Vero o Falso.

Per L8+ ed Excel bisogna redigere o rintracciare il codice per effettuare questo calcolo

ed aggiungerlo, come funzione, a questi programmi che ne sono sprovvisti.

Per la "prima estrazione" de mese, è molto semplice.

Essa ha IndiceMensile (idEstrazione) = 1

:)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.018
Punti reazione
50
Punti
48
Ciao Joe, io prima di arrendermi quando ho fatto lo script avevo impostato oltre a

IndiceMensile(Es)

avevo messo anche

IsUltimaDelMese (es)

Ma non ho saputo accoppiarli bene, e non ero riuscito a completare lo script, per questo volevo chiedere aiuto, ma dopo aver visto la risposta di Rubino (che evidentemente ho frainteso) avevo pensato che non si poteva fare niente.
 
Ultima modifica:

joe

Advanced Member >PLATINUM<
Messaggi
1.011
Punti reazione
33
Punti
48
Ciao Salvo,

Se posso ...

... Rubino è molto bravo e giustamente dice 13 estrazioni per 12 mesi = 156 estrazioni = 1 anno.

Se è una ricerca ciclica meglio avere tutti i cicli uguali di 13 estrazioni.

Se si ragiona per mesi ... ammesso che esistano ... il discorso cambia.

C'è una prima estrazione, che ha sempre l'indice 1 e l'ultima che può essere l' 11/12/13/14 esima ...

... dipende dai mesi e dal giorno in cui incomincia l'anno.

:)
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.056
Punti reazione
26
Punti
48
Conoscendo la 1a del mese basta ciclare per max 14 estrazioni mensili si ottiene la nuova 1a mese.

Dal numero di estrazione ottenuto togliere 1 e si avrà l'ultima del mese in corso d'uso.

For Estrazione = Es + 1 To Es + 14 ' ( step 1 è inutile specificarlo)
If IndiceMensile(Estrazione) = 1 Then
B = Estratto(Estrazione - 1,R1,5)
End if
Next


quindi segue il resto del costrutto.

un saluto.
 

joe

Advanced Member >PLATINUM<
Messaggi
1.011
Punti reazione
33
Punti
48
Conoscendo la 1a del mese basta ciclare per max 14 estrazioni mensili si ottiene la nuova 1a mese.

Dal numero di estrazione ottenuto togliere 1 e si avrà l'ultima del mese in corso d'uso.

For Estrazione = Es + 1 To Es + 14 ' ( step 1 è inutile specificarlo)
If IndiceMensile(Estrazione) = 1 Then
B = Estratto(Estrazione - 1,R1,5)
End if
Next


quindi segue il resto del costrutto.

un saluto.
Ciao Claudio.

NO.

Si faceva come dici tu molti anni fa,

mentre l'algoritmo che ho descritto è molto migliore.

+1 e +14 sono semplicemente un offset forse anche sbagliato.

Però il problema del metodo che hai descritto è che

le piattaforme comunemente usate per elaborare gli script

(cioè sia L8 che Spaziometria) non conoscono e riconoscono

una equazione del tipo EstrazioneFin+1 = Nuovo Mese

Dunque nel modo che hai proposto entrambi possono calcolare

se è già presente una ULTIMA ESTRAZIONE ...

SOLO SE E QUANDO ... E' GIA' AVVENUTA la prima del mese successivo.

Come ho detto ... hai descritto un modo molto vecchio

ed anche sia poco che mal funzionante.

Cioè che non è in grado di calcolare il pronostico all'ultima del mese

QUANDO E' L'ULTIMA DEL MESE.

Cioè quasi una contraddizione in termini.

Se ritieni ... puoi fare uno script adesso, molto semplice.

CON LE TUE ISTRUZIONI ...

che giochi 1 a Bari, per un colpo, alla ultima di questo settembre.

Da controllare dunque il risultato prima, della prima estrazione

del prossimo mese di ottobre.

Io farò come ho detto ... che si fa ... e vedremo quale dei 2 script,

esegue, simula, verifica la giocata in modo corretto.

:) Un caro saluto.
 

joe

Advanced Member >PLATINUM<
Messaggi
1.011
Punti reazione
33
Punti
48
Codice:
Option Explicit
Sub Main
  'Demo-Test-IsUltimaDelMese By Joe del 23/09/2019 
  'Gioca all'ultima di Settembre 2019
  Dim Es,Nu(1),Ru(1),Po(1),Co
  Nu(1) = 1 : Ru(1) = BA_ : Po(1) = 1 : Co = 1
  ImpostaGiocata 1,Nu,Ru,Po
  For Es = 9600 To 9700
    If Mese(Es) = 9 And Anno(Es) = 2019 And IsUltimaDelMese(Es) Then
      ImpostaGiocata 1,Nu,Ru,Po,Co
      Gioca Es
    End If
  Next
  ScriviResoconto
End Sub
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.056
Punti reazione
26
Punti
48
Bravo joe, vedo che ti sono rimaste una serie di pietruzze nelle scarpe. ahahaha ahahaha.
un saluto .
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.180
Punti reazione
81
Punti
48
Ciao a tutti. :)
Una versione alternativa che mi viene in mente potrebbe essere
Codice:
Dim IDestr 
Dim ncs: ncs =24 
Dim nTro 
Redim aDat(ncs,5)
Ntro=0
For idestr = estrazionefin ti 1 step -1 
If isultimadelmese (idestr) then
Ntro=ntro+1
If ntro >ncs then exit for
Adat(ntro,1)=anno(idestr)
Adat(ntro,2)=mese(idestr)
Adat(ntro,4)=idestr
'Con questa istruzione possiamo trovare la prima del mese anche se ci fossero 31 estrazioni mensili. I mesi sono collegati e non serve utilizzare e comparare i mesi di inizio e fine .
Do while indicemensile(idestr)<>1 
Idestr=idestr-1
Loop 
Adat(ntro,3)=idestr 
Adat(ntro,5)=adat(ntro, 4)-adat(ntro,3)+1
End if
Next
Scrivimatrice(adat)
Ho inserito i tag code da cell spero funzioni .
Per velocizzare si potrebbe inserire prima del ciclo while che idestr=idestr-10 nel ranger estrazioni del periodo delle tre estrazioni settimanali.
Con la matrice raccolgo i fati poi posso utilizzarli come voglio .esempio solo per determinati mesi o anni pari e dispari ...
Scritto al volo appena ho sottomano il PC lo riscrivo meglio.
Scritto così è solo per visualizzare gli ultimi casi non sapendo da che estrazione far partire la ricerca.
Sarebbe bello che anche altri scripter
Portassero un qualcosa di alternativo.

Ciao Claudio è un piacere rileggerti,
Ciao joe e salvo e tutti :)
 

joe

Advanced Member >PLATINUM<
Messaggi
1.011
Punti reazione
33
Punti
48
Ciao Claudio...

Tra le righe e neppure troppo c'era il consiglio sul come fare.

Per me è un algoritmo per te una pietruzza.

Però è vero.

Questa settimana ho provato (meglio ... DOVUTO provare) decine di soluzioni

diverse prima di far digerire una data ad un PC recalcitrante.

Di tanto in tanto ... dunque è vero che ci si toglie qualche inciampo.

:)
 

joe

Advanced Member >PLATINUM<
Messaggi
1.011
Punti reazione
33
Punti
48
I legend,

la prima estrazione, la seconda, terza ... dodicesima ... mensile,

sono facilmente selezionabili con IndiceMensile (es) = 1.2.3..... 12.

Cioè uguale al numero-indice desiderato.

Un problema come quello che hai posto è per chi volesse gestirsi un archivio particolare,

o un metodo particolare che pone in gioco il pronostico ad una estrazione particolare.

Ma questo è risolto, come detto, dalle funzioni interne ai programmi

dunque si risolve come detto.

Mentre la Funzione IsUltimaDelMese non è nel corredo del vecchio L8

e neppure di Spaziometria ... fino a qualche anno fa.

Se si vuole ricorrere con una certa precisione ed in tempo reale alla determinazione dell' ultima ...

è opportuno utilizzare una soluzione del tipo di quella che ho proposto.

Altrimenti si fa come ha scritto Claudio ... si aspetta che cambi il mese e poi si sa che con -1,

si è all'ultima del mese precedente.

:)
 
Ultima modifica:

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.180
Punti reazione
81
Punti
48
I legend,

la prima estrazione, la seconda, terza ... dodicesima ... mensile,

sono facilmente selezionabili con IndiceMensile (es) = 1.2.3..... 12.

Cioè uguale al numero-indice desiderato.

Un problema come quello che hai posto è per chi volesse gestirsi un archivio particolare,

o un metodo particolare che pone in gioco il pronostico ad una estrazione particolare
.

Ma questo è risolto, come detto, dalle funzioni interne ai programmi

dunque si risolve come detto.

Mentre la Funzione IsUltimaDelMese non è nel corredo del vecchio L8

e neppure di Spaziometria ... fino a qualche anno fa.

Se si vuole ricorrere con una certa precisione ed in tempo reale alla determinazione dell' ultima ...

è opportuno utilizzare una soluzione del tipo di quella che ho proposto.

Altrimenti si fa come ha scritto Claudio ... si aspetta che cambi il mese e poi si sa che con -1,

si è all'ultima del mese precedente.

:)
Ciao joe infatti questo era pensato per questo metodo particolare che salvo e master hanno risolto diversamente:)
Solo una proposta alternativa .
Magari potrà essere utile anche per altri tipi di ricerca :)
Ciao a tutti :)
P.s : l algiritmo dell ultima del mese al momento solo in caso di estrazioni straordinarie potrebbe fallire l aggancio , al momento è cucito addosso come un abito di alta sartoria.
Complimenti agli ideatore :)
 

joe

Advanced Member >PLATINUM<
Messaggi
1.011
Punti reazione
33
Punti
48
Giusto è teoricamente perfetto.

Solo un evento eccezionale, una forzatura, o il cambio

delle regole del gioco possono farlo "sbagliare".

:) Buona serata a tutte/i.
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.018
Punti reazione
50
Punti
48
Ciao a Tutti.

Quindi nella correzione fatta da Master, basta sostituire

IndiceMensile (es1 + 1) = 1

con

IsUltimaDelMese(Es1)

oppure c'è da cambiare altro?


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota
   Dim R1,Caso,Casi,A,B,C,P1,P2,E2,E1,Es1
   Dim FInR,IniR,AB,CaC
   Dim Ruo(1),Post1(2),Ambata(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)'57 = Estrazione 1° esempio articolo del 3° metodo, ruota VE
   Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,3)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 A 10 Per Nazionale 12 ?",Salvo50,6)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & " Memorie Utili Metodo 3 di Fedele Davenal - Script Salvo50 ",1,,4,,3,,1
   Post1(1) = 1
   Post1(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      If IndiceMensile(Es) = 1 Then
         For R1 = IniR To FInR
            If R1 = 11 Then R1 = 12
            A = Estratto(Es,R1,1)
            If A > 0 Then
               '----------------------------------Modificato Qui
               For Es1 = Es To Es + 15
                  If(Mese(Es1) = Mese(Es) And IsUltimaDelMese(Es1)) Then
                     '-------------------------------------------------
                     B = Estratto(Es1,R1,5)
                     C = Fuori90(A + B)
                     CaC = Cadenza(C)
                     If(Not Gemello(C)) And CaC <> 0 And CaC <> 9 Then
                        Ambata(1) = C
                        Ambata(2) = Vert(C)
                        Ambata(3) = Decina(C)
                        Ambata(4) = CaC
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                        If Ruota = 11 Then
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                        End If
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi " " & SiglaRuota(R1) & " ",1,0
                        For P1 = 1 To 5
                           E1 = Estratto(Es,R1,P1)
                           If E1 = A Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                        Scrivi " " & SiglaRuota(R1) & " ",1,0
                        For P2 = 1 To 5
                           E2 = Estratto(Es1,R1,P2)
                           If E2 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi Space(20) & Format2(A) & " + " & Format2(B) & " = " & Format2(Ambata(1)) & " Ambata Principale ",1,,,2
                        Ruo(1) = R1
                        EliminaRipetuti Ambata
                        Scrivi Space(20) & " Numeri in Gioco " & StringaNumeri(Ambata," ",True),1,,,1
                        Scrivi
                        ImpostaGiocata 1,Ambata,Ruo,Post1,Clp
                        Gioca Es1
                     End If
                  End If
               Next
            End If
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

joe

Advanced Member >PLATINUM<
Messaggi
1.011
Punti reazione
33
Punti
48
Ciao Salvo,

le soluzioni possono essere molte.

Questa si sviluppa su un ciclo unico e permette di calcolare il pronostico all'ultima del mese:

Codice:
Option Explicit
Sub Main
'Prima ed UltimaDelMese By Joe
   Dim Ini,Fin,Es
   Dim I,F,M
   Ini = EstrazioneFin - 500 : Fin = EstrazioneFin
   For Es = Ini To Fin
      If IndiceMensile(Es) = 1 Then I = Es : M = Mese(Es)
      If IsUltimaDelMese(Es) And Mese(Es) = M Then
         Scrivi DataEstrazione(I) & " - " & DataEstrazione(Es)
         ''' Gioca Es
      End If
   Next
End Sub
:)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.018
Punti reazione
50
Punti
48
AMBATA - La Certezza Dell'Esito a cura di Vasapollo Cosma

Ambata - Vasapollo Cosma.jpg


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota
   Dim R1,Caso,Casi,A,B,P1,P2,P3,E1
   Dim IniR,FInR,DAB,K,Sf
   Dim Ruo(1),Post1(2),Amba(2),M(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9680)
   Clp = InputBox("Per quanti colpi vuoi giocare le Ambate?",,7)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 A 10 Per Nazionale 12 ?",Salvo50,6)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & " AMBATA - La Certezza Dell'Esito di Vasapollo Cosma - SCRIPT SALVO50",1,,4,,3,,1
   Post1(1) = 1
   Post1(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         For P1 = 1 To 4
            For P2 = P1 + 1 To 4
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If A > 0 Then
                  DAB = Distanza(A,B)
                  K = 3
                  For K = 3 To 90 Step 3
                     If DAB = K Then
                        M(1) = A : M(2) = B
                        Call OrdinaMatrice(M,1)
                        Amba(1) = Fuori90(90 +(M(1) - K))
                        Amba(2) = Fuori90(M(2) + K)
                         Ruo(1) = R1
                        Sf = SerieFreq(Es,Es,Amba,Ruo,1)
                        If Amba(1) <> Amba(2) And Sf = 0 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 1
                           Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P3 = 1 To 5
                              E1 = Estratto(Es,R1,P3)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi " Distanza Ciclometrica tra i 2 estratti = " & Format2(DAB),1
                           Scrivi
                           Scrivi " 1ª Ambata = Estratto Minore   " & Format2(M(1)) & " - Distanza " & Format2(K) & " = ",1,0
                           Scrivi Format2(Amba(1)),1,,,2
                           Scrivi " 2ª Ambata = Estratto Maggiore " & Format2(M(2)) & " + Distanza " & Format2(K) & " = ",1,0
                           Scrivi Format2(Amba(2)),1,,,2
                           Scrivi
                          
                           ImpostaGiocata 1,Amba,Ruo,Post1,Clp
                           Gioca Es
                           'End If
                        End If
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.018
Punti reazione
50
Punti
48
Ambo, Terno o Quaterna a cura di Alfio Tirenni

Il metodo cerca riscontro con due ambi e una quaterna, ho messo la scelta a riguardo della quaterna, alla quarta domanda, con risposta 1 la cerca, con qualsiasi altro numero non la cerca.


Napoli,ambo terno quaterna - A. Tirenni.jpg



Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota,VertValMed
   Dim R1,Caso,Casi,IniR,FInR,ValMed,Somma,Tut
   Dim Ambo1(2),Ruo(1),Post1(2),Post2(5)
   Dim Ambo2(2),Qua(4),Tutte(1),Amb
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9650)'6639 esempio nell'articolo del 20-09-1997 RUOTA NAPOLI
   Clp = InputBox("Per quanti colpi vuoi giocare?",,7)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
   Tut = InputBox("RICERCA A TUTTE DELLA QUARTINA - PER SI METTI 1 - PER NO METTI ALTRO NUMERO",,2)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   VertValMed = 0
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Ambo, Terno o Quaterna a cura di Alfio Tirenni - SCRIPT SALVO50",1,,4,,3,,1
   Post1(2) = 1
   Post2(2) = 1
   Post2(3) = 1
   Post2(4) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         Somma = SommaEstratti(Es,R1)
         ValMed =(Somma \ 5)'VALORE MEDIO
         VertValMed = FuoriX(ValMed * 10,99)
         If Somma < 50 Then Amb = ValMed + 15 Else Amb = Fuori90(VertValMed)
         If Gemello(VertValMed) Then Amb = Cadenza(VertValMed)
         Ambo1(1) = ValMed : Ambo1(2) = Amb
         Ambo2(1) = Fuori90(ValMed + 15) : Ambo2(2) = Differenza(ValMed,15)
         Qua(1) = Ambo1(1) : Qua(2) = Ambo1(2) : Qua(3) = Ambo2(1) : Qua(4) = Ambo2(2)
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1),1,0
         Scrivi "  Somma = " & FormattaStringa(Somma,"000") & " Valore Medio " & Format2(ValMed),1
         Scrivi
         Scrivi Space(40) & " 1° AMBO = " & Format2(Ambo1(1)) & " " & Format2(Ambo1(2)),1
         Scrivi Space(40) & " 2° AMBO = " & Format2(Ambo2(1)) & " " & Format2(Ambo2(2)),1
         Scrivi
         Ruo(1) = R1
         Tutte(1) = TU_
         ImpostaGiocata 1,Ambo1,Ruo,Post1,Clp
         ImpostaGiocata 2,Ambo2,Ruo,Post1,Clp
         If Tut = 1 Then ImpostaGiocata 3,Qua,Tutte,Post2,Clp
         Gioca Es
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 16 novembre 2019
    Bari
    24
    73
    16
    32
    17
    Cagliari
    14
    17
    55
    39
    70
    Firenze
    45
    02
    07
    90
    08
    Genova
    77
    14
    61
    05
    57
    Milano
    36
    51
    04
    33
    76
    Napoli
    14
    56
    22
    06
    80
    Palermo
    42
    18
    34
    52
    38
    Roma
    73
    61
    63
    21
    15
    Torino
    74
    10
    72
    60
    32
    Venezia
    27
    50
    42
    38
    41
    Nazionale
    60
    71
    78
    84
    02
Alto