File Bari Cagliari

[demonio]

buonasera a tutti
come si aggiorna il file?
grazie mille

aiuto!!

 

[Micioselvaggio]

Ciao il File' e stato fatto dal sottoscritto ma non mio , si aggiorna manualmente , ora vi posto lo scren s x aiutarvi

 

[Alien.]

Ma...chi sarà chi ha bloccato il

Download​

mistero !!!

 

[gino 51]

Ciao il File' e stato fatto dal sottoscritto ma non mio , si aggiorna manualmente , ora vi posto lo scren s x aiutarvi

 

[Alien.]

QUANDO SI SBLOCCA ?

 

[Alberto Anderlini]

con archivio aggiornato al 5.3.22in questo mese c'è stato il terno su ca

 

[Alberto Anderlini]

con archivio aggiornato al 5.3.22in questo mese c'è stato il terno su ca

 

[LOTTO2021]

con archivio aggiornato al 5.3.22

??????????

questo mese c'è stato il terno su ca

volevi dire l'ambo.

 

[Alberto Anderlini]

??????????

volevi dire l'ambo.

la previsione è : ambate 40-39 x ambo e terno 10-11

 

[Alberto Anderlini]

non riesco a caricare il file

 

[Alberto Anderlini]

 

[Alberto Anderlini]

??????????

volevi dire l'ambo.

 

[LOTTO2021]

non riesco a caricare il file

Se vuoi caricare il file, caricarlo qui: https://we.tl/ e poi posta il link generato.
P.S. ma il 10 e l'11 da dove escono?

 

[Alberto Anderlini]

il 19esce dalla moltiplicazione del 2 di napoli e l'altro numero è il suo vertibile

 

[Alberto Anderlini]

Se vuoi caricare il file, caricarlo qui: https://we.tl/ e poi posta il link generato.
P.S. ma il 10 e l'11 da dove escono?

il 19 è il 2 na per il 2 na 11 è il vertibile del 19

 

[toon]

Ti interessa lo script per Spaziometria?
Piuttosto, posso svilupparlo come script?

 

[Alien.]

OTTIMO.

 

[toon]

Ovviamente è notevolmente migliorabile.

Option Explicit
Sub Main
ColoreTesto 2 :Scrivi "2 Ambate Ambo e Terno"
   Scrivi "Alla prima estrazione mensile"
   Scrivi "Da un'idea di Alberto Anderlini"
   ColoreTesto 0
   Dim n,Ruote(12),Numeri(5),Numero(2),Posta(4),Poste(1),num(5),R,P,E,F,D
   Ruote(1) = 1: Ruote(2) = 2':Ruote(3) = 6:Ruote(4) = 8
   Poste(1) = 1
   Posta(2) = 1
   Posta(3) = 1
   For n = 9800 To EstrazioneFin
      If IndiceMensile(n) = 1 Then
         R = BA_
         P = 4
         E = Format2(Estratto(n,R,P))
         D = CInt(Left(E,1)) : F = CInt(Right(E,1))
         num(1) = Fuori90(D + F)
         num(2) = Estratto(n,7,4)
         ColoreTesto 1:Scrivi String(110,"-")
         Numeri(1) = Fuori90(num(1) + num(2) + 23)
         Numeri(2) = Fuori90(Estratto(n,6,2) * Estratto(n,6,2))
         Numeri(3) = Fuori90(Estratto(n,9,2) + 80 + Numeri(2))
         Numeri(4) = Fuori90(Vert(Numeri(2)))
         EliminaRipetuti Numeri
         Numero(1) = Numeri(1)
         Numero(2) = Numeri(3)
         ImpostaGiocata 1,Numero,Ruote,Poste,10
         ImpostaGiocata 2,Numeri,Ruote,Posta,11
         Gioca n,1
      End If
   Next
   ScriviDistribuzioneCasiInCorso(True)
   Scrivi : ColoreTesto 0
    Scrivi "By Toon"
   ScriviResoconto
End Sub

 

[Alien.]

Bravo toon prima li modificavi adesso li fai da solo,complimenti e grazie.

 

[toon]

Faccio molti copia e incolla, cerco di arrangiarmi il meglio possibile...