TORINO ROMA 1^estrazione del mese by Ombra

Rispondi
Avatar utente
DjNomade
Messaggi: 563
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

TORINO ROMA 1^estrazione del mese by Ombra

Messaggio da DjNomade » 26/02/2014, 21:17

TORINO ROMA 1^estrazione del mese by Ombra ,per le spiegazioni andate QUI

Ciauz


Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=22&p=22752&sid=af53ae06af855966e6fff475fea97a97#p22752
'Metodo TORINO ROMA  1^estrazione del mese by Ombra
ColoreTesto 2:Scrivi String(10,"-")&"Metodo TORINO ROMA  1^estrazione del mese by Ombra",1
Sub main()
Dim ruote(2)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10)
Dim posta(5) 
Dim poste(5)
posta(1)=1 
poste(2)=1 

es=InputBox("Quante estrazioni vuoi analizzare?",,100)
im=InputBox("Pronostico dall'estrazione mensile numero? (0=ultima estrazione)",,1)
cp=InputBox("Per quanti colpi vuoi giocare?",,13)


'r=ScegliRuota
'ruote(1)=r
'ruote(2)=r+1
ruote(1)=8
ruote(2)=9
ini=EstrazioneFin-eval(es)
fin=EstrazioneFin
For n=ini To fin
If(((IndiceMensile(n)=eval(im)And(eval(im)>0))Or((IndiceMensile(n+1)=1)And(eval(im)=0))))Then
Messaggio DataEstrazione (n)

x=Estratto(n,9,1) 



 ColoreTesto 2 :Scrivi "--"&im&"°estrazione del mese---------------------------",1





a=Fuori90(x+5)
b=90-a'  AMBATA
c=Fuori90(90+b-10)' 1° ABBINAMENTO 

d=Fuori90(b+10)' 2° ABBINAMENTO 


numeri2(1)=b
numeri2(2)=b

ImpostaGiocata 1,numeri2,ruote,posta,eval(cp),3
numeri1(1)=b
numeri1(2)=c
ImpostaGiocata 2,numeri1,ruote,poste,eval(cp),2
numeri1(1)=b
numeri1(2)=d

ImpostaGiocata 3,numeri1,ruote,poste,eval(cp),3

numeri1(1)=c
numeri1(2)=d
ImpostaGiocata 4,numeri1,ruote,poste,eval(cp),3
numeri1(1)=b
numeri1(2)=Fuori90(c+1)
ImpostaGiocata 5,numeri1,ruote,poste,eval(cp),3

numeri1(1)=b
numeri1(2)=Fuori90(90+c-1)
ImpostaGiocata 6,numeri1,ruote,poste,eval(cp),2
numeri1(1)=Fuori90(90+b-1)
numeri1(2)=c
ImpostaGiocata 7,numeri1,ruote,poste,eval(cp),3

numeri1(1)=Fuori90(b+1)
numeri1(2)=c
ImpostaGiocata 8,numeri1,ruote,poste,eval(cp),3
numeri1(1)=b
numeri1(2)=Fuori90(d+1)
ImpostaGiocata 9,numeri1,ruote,poste,eval(cp),3

numeri1(1)=b
numeri1(2)=Fuori90(90+d-1)
ImpostaGiocata 10,numeri1,ruote,poste,eval(cp),2
numeri1(1)=Fuori90(90+b-1)
numeri1(2)=d
ImpostaGiocata 11,numeri1,ruote,poste,eval(cp),3

numeri1(1)=Fuori90(b+1)
numeri1(2)=d
ImpostaGiocata 12,numeri1,ruote,poste,eval(cp),3

numeri1(1)=c
numeri1(2)=Fuori90(d+1)
ImpostaGiocata 13,numeri1,ruote,poste,eval(cp),3

numeri1(1)=c
numeri1(2)=Fuori90(90+d-1)
ImpostaGiocata 14,numeri1,ruote,poste,eval(cp),2
numeri1(1)=Fuori90(90+c-1)
numeri1(2)=d
ImpostaGiocata 15,numeri1,ruote,poste,eval(cp),3

numeri1(1)=Fuori90(c+1)
numeri1(2)=d
ImpostaGiocata 16,numeri1,ruote,poste,eval(cp),3


Gioca n
End If
Next
Scrivi

ScriviResoconto
Scrivi String(50,"-")&"listato by DjNomade. ",1 
ColoreTesto 1





End Sub


Avatar utente
xxombraxx
Messaggi: 625
Iscritto il: 27/10/2011, 21:56
Località: macerata
Contatta:

Re: TORINO ROMA 1^estrazione del mese by Ombra

Messaggio da xxombraxx » 27/02/2014, 16:15

grazieeeeeeeeeee :abb: :abb:
http://ombra.forumattivo.it
Il gioco è vietato ai minori di anni 18. Giocare troppo può causare dipendenza patologica.

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite