Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 ambo e terno
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore  Discussione Discussione successiva

qantonio
Utente Nuovo

10 invii

Spedito - 07 luglio 2019 :  11:04:13  Mostra profilo  Rispondi con citazione
per favore script: 1 estrzione del mese :1 di milano +2 / vert della somma /somma dei due numeri ottenuti/ ruota di gioco bari per 13 volte ( ambo e terno) grazie

franca46
Amministratore

Italy
20149 invii

Spedito - 17 luglio 2019 :  07:45:21  Mostra profilo  Rispondi con citazione
ciao qantonio ecco lo script

Sub main() 
Dim ruote(10)
Dim ruota(1) 
Dim numeri(2)
Dim numeri1(3) 
Dim poste(5)
Dim posta(5) 
poste(1)=1
poste(2)=1
posta(2)=1
posta(3)=1 
casi=0 
ruote(1)=1 
'ruote(2)=2
ruota(1)=11 
For n=9500 To EstrazioneFin 
If IndiceMensile(n)=1 Then 
Scrivi "------------------------------------------------------------------" 
Scrivi Left(NomeRuota(r1),2)&" "&n1&"  "&Left(NomeRuota(r2),2)&" "&n2 

numeri(1)=Fuori90(Estratto(n,5,1)+2) 
numeri(2)=Vert(numeri(1)) 
ImpostaGiocata 1,numeri,ruote,poste,12,0
'ImpostaGiocata 2,numeri,ruota,posta,12
numeri1(1)=numeri(1)
numeri1(2)=numeri(2)
numeri1(3)=Fuori90(numeri(1)+(numeri(2)))
ImpostaGiocata 3,numeri1,ruote,posta,12
ImpostaGiocata 4,numeri1,ruota,posta,12
Gioca n 
casi=casi+1 
End If 
Next 
Scrivi 
Scrivi "Numero Totale casi analizzati: "&casi 
'ScriviResoconto 
End Sub 



buona giornata

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

qantonio
Utente Nuovo

10 invii

Spedito - 17 luglio 2019 :  11:46:38  Mostra profilo  Rispondi con citazione
grazie tt ok
Vai ad inizio pagina

franca46
Amministratore

Italy
20149 invii

Spedito - 18 luglio 2019 :  07:15:15  Mostra profilo  Rispondi con citazione
ciao qantonio scusa se ti ho fatto aspettare , ma me ne ero dimenticata.

buona giornata

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
   Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000