script lotto dal 1 gennaio 2020 alla prima del mese

[Alien.]

Ciao a Tutti

Ciao Alien, probabilmente hai sbagliato qualcosa, l'ho copiato anch'io e funziona le poche modifiche che ho fatto non influisco sul funzionamento.
Non lasciarti ingannare dai terni e quaterne che escono, chiunque può farli uscire se somma dei numeri a piacere

Option Explicit
Sub Main
   Dim N
   Dim Ruota(2),Numeri1(5),Posta(4)
   Ruota(1) = 6 : Ruota(2) = 7
   Posta(2) = 4
   Posta(3) = 0.90
   Posta(4) = 0.10
   For N = 9572 To EstrazioneFin
      If IndiceMensile(N) = 1 Then
         Numeri1(1) = Fuori90(Vert(Estratto(N,3,1)) + Estratto(N,9,2) + 53)
         Numeri1(2) = Fuori90(Vert(Estratto(N,2,3)) + Estratto(N,2,5) + 8)
         Numeri1(3) = Fuori90(Estratto(N,2,4) + Estratto(N,10,1) + 23)
         Numeri1(4) = Fuori90(Diametrale(Estratto(N,1,5)) + Estratto(N,7,4) + 3)
         ImpostaGiocata 1,Numeri1,Ruota,Posta,13,3
         Gioca N
      End If
   Next
   ScriviResoconto
End Sub

scusa dove stava l'errore ?grazie.

 

[salvo50]

scusa dove stava l'errore ?grazie.

Non posso saperlo perchè io non ho visto cosa hai copiato tu, ma dato che a te (lo script) non funzionava ed a me si, ne ho dedotto che avevi sbagliato qualcosa, se vuoi sapere dove hai sbagliato devi postare la versione che hai copiato tu, almeno cercherò di capire dovè l'errore

 

[Alien.]

è uguale a quella che ha postato gabby

 

[salvo50]

Nello script postato da me ho inserito Option Explicit E poi ho inquadrato un po' meglio le righe (secondo il mio criterio) ma nella sostanza non cambia niente, cioè non influiscono nel funzionamento dello script, comunque questo che posto qua, è copiato paro, paro, senza cambiare niente, e funziona, quindi ripeto probabilmente nel copiare il tuo hai sbagliato qualcosa, dato che sono pochissime righe di programma proverò a ipotizzare quale potrebbe essere l'errore che hai fatto, nello script c'è un solo End If che va sotto la riga Gioca n, vedi se l'hai inserito sopra la riga Gioca n, se non dovesse essere così, io per capire dovè l'errore (nel tuo script) devo vedere lo script copiato da te.

Script copiato paro, paro

Sub Main()
   Dim ruota(10)
   Dim numeri1(5)
   Dim posta(4)
   posta(2) = 4
   ruota(1) = 6 : ruota(2) = 7
   posta(3) = 0.90
   posta(4) = 0.10
   For n = 9572 To EstrazioneFin
      If IndiceMensile(n) = 1 Then
         numeri1(1) = Fuori90(Vert(Estratto(N,3,1)) + Estratto(N,9,2) + 53)
         numeri1(2) = Fuori90(Vert(Estratto(N,2,3)) + Estratto(N,2,5) + 8)
         numeri1(3) = Fuori90(Estratto(N,2,4) + Estratto(N,10,1) + 23)
         numeri1(4) = Fuori90(Diametrale(Estratto(N,1,5)) + Estratto(N,7,4) + 3)
         ImpostaGiocata 1,numeri1,ruota,posta,13,3
         Gioca N
      End If
   Next
   ScriviResoconto
End Sub

 

[Alien.]

Scusami Salvo ma mi sa che l'ho cancellato visto che poi il tuo girava bene..................
si possono cambiare le cose facili ma se poi non sai perchè le fai ed a cosa servono e come andare in giro con il bastone bianco.

senti ho provato a fare uno script come quello sopra cambiando solo lo sviluppo ma in un modo diverso:
per adesso mi da errore su figura *
Vedi se poi anche gli altri numeri vanno bene. vert,decina ecc.

Numeri1(1) = Fuori90(Vert(Estratto(N,8,4)) + Estratto(N,7,1) + 28)
Numeri1(2) = Fuori90(Decina(Estratto(N,8,5)) + Estratto(N,2,2) + 87)
* Numeri1(3) = Fuori90(figura(N,1,4) + Estratto(N,12,4) + 3)
Numeri1(4) = Fuori90(diametraled(Estratto(N,5,4)) + Estratto(N,2,1) + 1)

poi forse ce ne saranno altri

per caso hai il link di come imparare a programmare che tempo.......fà era postato qua su ced ?

grazie.

 

[gabby]

al n 3 =fuori90(figura(estratto(n,1,4))+ estratto(n,12,4)+3)

 

[Alien.]

acc....cavolacci una parentesi è gli apprendisti a volte errano hahahahahah grazie,ciao

ECCO ADESSO MI DICE PREVISTA FINE ISTRUZIONE E MI EVIDENZIA IN NERO L'ULTIMA PARENTESI DOPO IL + 3

numeri1(3) = Fuori90(Figura(N,1,4)) + Estratto(N,12,4) + 3)

 

[salvo50]

acc....cavolacci una parentesi è gli apprendisti a volte errano hahahahahah grazie,ciao

ECCO ADESSO MI DICE PREVISTA FINE ISTRUZIONE E MI EVIDENZIA IN NERO L'ULTIMA PARENTESI DOPO IL + 3

numeri1(3) = Fuori90(Figura(N,1,4)) + Estratto(N,12,4) + 3)

Ciao a Tutti.

Ma perchè ti ostini a togliere la funzione Estratto che ti ha suggerito Gabby, le parentesi destre e sinistre devono essere uguali di numero, altrimenti va in errore, ma anche inserendo la parentesi sinistra, oppure togliendone una destra se è possibile, andrebbe lo stesso in errore perchè manca la funzione Estratto

 

[Alien.]

ACC.....è...........è vero corretto funziona .

Senti salvo sai dirmi come si ricava con la formula di excel : somma cifre * figura e diametrale in decina ?

grazie.
(perche il programma dovrebbe darmi terni e quaterna invece mi da solo 2 ambi-poi con lo script mi calcola numeri diversi.)



cosa dice questa riga:
io ho in gioco ba-ve
vabene o cambiata

Dim Ruota(2),Numeri1(5),Posta(4)

 

[salvo50]

ACC.....è...........è vero corretto funziona .

Senti salvo sai dirmi come si ricava con la formula di excel : somma cifre * figura e diametrale in decina ?

grazie.
(perche il programma dovrebbe darmi terni e quaterna invece mi da solo 2 ambi-poi con lo script mi calcola numeri diversi.)



cosa dice questa riga:
io ho in gioco ba-ve
vabene o cambiata

Dim Ruota(2),Numeri1(5),Posta(4)

Non posso aiutarti, excel lo uso poco e niente, anche perchè non ho la più pallida idea, di dove inserire le formule, lo uso solo come quaderno quando faccio dei calcoli a mano.

 

[Alien.]

su,su,cercami qualcuno .......................eheheheh scherzo.......vedo di recuperare tra 500 mila articoli che ho nel computer se c'è l'ho.Grazie. BUON

 

[Alien.]