R
Roby
Guest
Qualcuno mi sa dire se c'è un manuale in cui posso studiare come si creano gli script?
Il lotto dev'essere un piacere, non un problema!!!
Il lotto dev'essere un piacere, non un problema!!!
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
quote:Originally posted by fillotto
Interesserebbe anche me Metusperchè non provi a rispondere a quello che ho postato in spaziomeria 10° post questa sera?
Ad ogni buon fine lo riscrivo:
Ciao Luigi o chi x lui sono Fillotto sto cercando di imparare un poco di script ho la versione 1.1.32 è normale che l'help funzioni mi dice "file help non tovato!" ? ho provato questo script:
si tratta di un sommativo sulla ruota di BARI potresti completare il commento dato che è la 1^ volta che provo. Dopo l'apice ho messo quello che ho capito o meglio credo di aver capito, oppure " ? " per lumi .Considerato che è abbastanza piccolo potresti commentarlo dove ci sono i "?" scusate l'imbranataggine ma forse può esse utile anche ad altri GRAZIE!!
Sub main()
Dim ruote(10) '? INDICA IL NUMERO MASSIMO GESTIBILE DELLE RUOTE
Dim numeri1(10)'?INDICA IL NUMERO MASSIMO DI NUMERI1 GESTIBILI
Dim numeri2(10)'?IN QUESTO LISTATO NON SERVE A NIENTE, MA COME SOPRA
Dim poste(5)'?INDICA IL NUMERO DI POSTE GESTIBILI, IN QUESTO CASO 5
Dim posta(5)'?IN QUESTO LISTATO NON SERVE A NIENTE, MA COME SOPRA
poste(1) = 1 '?SUDDIVIDE LE 5 POSTE, 1 FRA PARENTESI SIGNIFICA L'AMBATA
poste(2) = 1'?COME SOPRA MA IL 2 FRA PARENTESI INDICA L'AMBO
poste(3) = 0'?IN QUESTO LISTATO NON SERVONO, SERVE IN CASO DI GIOCATE MULTIPLE CON ESITI DIVERSI DA POSTE
poste(4) = 0
ruote(1) = 1 'la ruota deve essere quella di BARI
For n = 8100 To EstrazioneFin 'deve cominciare dall'estraz 8100 fino all'ultima che vede
If IndiceMensile = 1 Then 'quindi quando incontra l'indice mensile 1 ovvero la 1^ estr del mese allora deve calcolare le operazioni sottostanti
numeri1(1) = Fuori90(Estratto(n,6,2) +(Estratto(n,7,5) + 40))'?INDICA CHE CALCOLA IL FUORI90 DELL'ESTRATTO NELL'ESTRAZIONE(N) DELLA RUOTA
'DI PALERMO(6) AL SECONDO POSTO(2) + L'ESTRATTO DELL'ESTRAZIONE(N)DELLA RUOTA DI BARI(1) AL QUARTO POSTO(4) IL TUTTO +53- IDEM QUELLI SOTTO
numeri1(2) = Fuori90(Estratto(n,1,3) +(Estratto(n,1,4) + 53))'?
numeri1(3) = Fuori90(Estratto(n,1,3) +(Estratto(n,3,4) + 56))'?
numeri1(4) = Fuori90(Estratto(n,1,3) +(Estratto(n,6,5) + 67))'?
numeri1(5) = Fuori90(Estratto(n,1,4) +(Estratto(n,9,5) + 84))'?
ImpostaGiocata 1,numeri1,ruote,poste,6,2 '?IMPOSTA LA GIOCATA NUMERO 1, GIOCA I NUMERI1,SULLA RUOTA DI BARI(RUOTE(1), GIOCA LE POSTE PER 6 COLPI
CON INTERRUZIONE ALL'USCITA DI UN AMBO(2)
Gioca n '?METTE IN GIOCO L'ESTRAZIONE
End If 'chiude il ciclo if
Next'SERVE PER IL FOR
ScriviResoconto ' scrive il tipo di output quello progettato da te
End Sub
quote:Originally posted by LuigiB
Ciao Mastrogino , attendiamo altri consensi ..comunque mi sa che qualcosa la faccio piu che altro perche penso sia utile cosi non dovete piu subbissare di richieste i poveri scripter di turno se non per chiedergli magari qualche consiglio invece di chiedere listati interi