Lotto - La passione per il gioco del lotto e superenalotto sul forum di NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com

Nome utente:

Password:

Salva la password

Hai dimenticato la password?

Tutti i forum

Lotto e altri giochi a pronostico

Script da metodi

La Nazionale

Nuova discussione

Partecipa alla discussione

Versione stampabile

Autore

Discussione

drago29
Utente Nuovo

Italy
4 invii

Spedito - 23 marzo 2013 : 08:39:28

Ciao Forum
Sub main()
Dim ruote(10), posta(10), n1(4),n2(4),n3(4)
Dim rt(1),post(5)
posta(1)=1
posta(2)=0.5
posta(9)=1
posta(10)=1
post(2)=1
ruote(1)=12
ruote(2)=3
ruote(3)=8
rt(1)=11
k=12
casi=0
ini=7445
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile (es)=1 Then
a1=Estratto (es,1,1)
a2=Estratto (es-1,12,5)
For ex=es To es-20 step-1
cmx=Cadenza (Mese (ex)) : cme=Cadenza (Mese (es))
If (Distanza (cmx,cme)=1 And IndiceMensile (ex)=1) Or (cmx=9 And cme=0 And IndiceMensile (ex)=1) Then
a3=Estratto (ex,12,5)
Scrivi String (65,"=")
Scrivi DataEstrazione(es)&" "& NomeRuota(1) &" 1°("& Format2(a1)&") "& StringaEstratti (es,1)&_
"...Prima del Mese "
Scrivi DataEstrazione (es-1)&" "& NomeRuota (12)&" 5°("& Format2 (a2)&") "& StringaEstratti (es-1,12)&_
"...Ultima mese precedente"
Scrivi DataEstrazione(ex)&" "& NomeRuota(12) &" 5°("& Format2(a3)&") "& StringaEstratti (ex,12)&_
"...Prima mese precedente"
casi=casi+1:co=0
a4=Decina(a1)*Cadenza (a1)
If a1<10 Or Cadenza(a1)=0 Then a4=Fuori90(Figura(a1)*Figura(a1))
a5=Vert (a4)
co=co+1
n1(1)=Fuori90 (a2+a3) : n1(2)=Vert (n1(1))
ImpostaGiocata co,n1,ruote,posta,k
co=co+1
ImpostaGiocata co,n1,rt,post,k
n3(1)=a4:n3(2)=a5
co=co+1
ImpostaGiocata co,n3,ruote,posta,k
co=co+1
ImpostaGiocata co,n3,rt,post,k
n2(1)=n1(1)
n2(2)=n1(2)
n2(3)=a4
n2(4)=a5
co=co+1
ImpostaGiocata co,n2,ruote,post,k
co=co+1
ImpostaGiocata co,n2,rt,post,k
Gioca es
End If
Next
End If
Next
Scrivi
Scrivi "------------------"
Scrivi " Casi = " & casi
ScriviResoconto
End Sub

Ciao a TUTTI Eugenio

vinci
Utente Sfegatato