Firenze - Palermo alla 1° del mese by xxombraxx

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

Firenze - Palermo alla 1° del mese by xxombraxx

Messaggio da DjNomade » 20/12/2014, 14:29

Firenze - Palermo alla 1° del mese metodo sommativo by xxombraxx ,per le spiegazioni andate QUI

Ciauz




Codice: Seleziona tutto

Scrivi
Scrivi " Firenze - Palermo  alla 1° del mese metodo sommativo by xxombraxx",1
Scrivi
Scrivi " Listato by DjNomade",1
Scrivi

Sub main()

Dim ruota(10)
Dim n1(10),n2(10)
Dim posta(5),posta1(5),postee(5)
casi=0
ruota(1)=3
ruota(2)=7
posta1(1)=1
posta1(2)=1
posta(2)=1
postee(2)=1
postee(3)=1.8
postee(4)=.2
k=13
y=4
ini=EstrazioneFin -200
fin=EstrazioneFin

For es=ini To fin

If IndiceMensile (es)=1 Then

a=Fuori90 (Estratto (es,3,1)+2)
b=VERT(a)

c=Fuori90 (b+1)
d=Fuori90 (b+2)

e=Fuori90 (b+3)
f=Fuori90 (b+4)






n1(1)=a
n1(2)=b
ImpostaGiocata 1,n1,ruota,posta1,k,y
n1(1)=a
n1(2)=c
ImpostaGiocata 2,n1,ruota,posta,k,y
n1(1)=a
n1(2)=d
ImpostaGiocata 3,n1,ruota,posta,k,y
n1(1)=a
n1(2)=e
ImpostaGiocata 4,n1,ruota,posta,k,y
n1(1)=a
n1(2)=f
ImpostaGiocata 5,n1,ruota,posta,k,y
n1(1)=b
n1(2)=c
ImpostaGiocata 6,n1,ruota,posta,k,y
n1(1)=b
n1(2)=d
ImpostaGiocata 7,n1,ruota,posta,k,y
n1(1)=b
n1(2)=e
ImpostaGiocata 8,n1,ruota,posta,k,y
n1(1)=b
n1(2)=f
ImpostaGiocata 9,n1,ruota,posta,k,y
n2(1)=a
n2(2)=b
n2(3)=c
n2(4)=d
n2(5)=e
n2(6)=f
ImpostaGiocata 10,n2,ruota,postee,k,y

Gioca es
casi=casi+1

End If

Next
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)

ScriviResoconto
Scrivi
Scrivi " Firenze - Palermo  alla 1° del mese metodo sommativo by xxombraxx",1
Scrivi
Scrivi " Listato by DjNomade",1
End Sub 

Avatar utente
luca92
Messaggi: 3401
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: Firenze - Palermo alla 1° del mese by xxombraxx

Messaggio da luca92 » 20/12/2014, 23:58

Grazie DjNomade! :su:










Ciao
Luca

:abb:
Ultima modifica di luca92 il 25/12/2014, 23:33, modificato 1 volta in totale.
Immagine




Immagine







Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite