rischiesta per maxma

[Roby]

gentile maxma volevo sapere se ti è possibile postare il listato per elleottopiu quello di creare la condizione per vincere l'ambo secco con un numero spia... ho visto nei topic precedenti che sono tutti positivi percioò tre lo chiesto... grazie

 

[maxma62]

Ciao gino fosse vero che sono sempre positivi a quest'ora sarei miliardario in euro . Il listato trova i 12 numeri piu' frequenti usciti in un tot di tempo stabilito, poi di questi 12 numeri trova i 12 ambi piu' usciti. Non e' detto che poi si ripetano nell'estrazione successiva al calcolo, magari fosse sempre cosi' ma si sa i numeri sono sempre numeri.

max

 

[Roby]

ok grazie maxma

 

[Roby]

quello che ti volevo chiedere è che se potevi mettere il listato per fare calcolare i numeri spia come per questo metodo: http://forum.lottoced.com/topic.asp?TOPIC_ID=87474[/url.. vdeo che è molto buono... grazie

 

[maxma62]

Ciao, con questo semplice script puoi cambiare la spia - ruota - ambi

Sub main()
Dim ruote(1),r(1),num(1),poste(2),am1(2)
poste(2)=3 

num(1)=CInt(InputBox("numero spia?",,3))
r(1)=CInt(InputBox("ruota di ricerca ?",,1))
ruote(1)=CInt(InputBox("ruota di gioco?",,1))
k=CInt(InputBox("durata gioco?",,14))
rs=InputBox("quante estrazioni controllo? ",,290)
am1a=InputBox("1° num. 1° ambo",,48)
am1b=InputBox("2° num. 1° ambo",,59)
am2a=InputBox("1° num. 2° ambo",,48)
am2b=InputBox("2° num. 2° ambo",,69)
am3a=InputBox("1° num. 3° ambo",,48)
am3b=InputBox("2° num. 3° ambo",,70)
am4a=InputBox("1° num. 4° ambo",,8)
am4b=InputBox("2° num. 4° ambo",,27)
am5a=InputBox("1° num. 5° ambo",,20)
am5b=InputBox("2° num. 5° ambo",,53)
am6a=InputBox("1° num. 6° ambo",,22)
am6b=InputBox("2° num. 6° ambo",,49)
am7a=InputBox("1° num. 7° ambo",,27)
am7b=InputBox("2° num. 7° ambo",,51)
am8a=InputBox("1° num. 8° ambo",,30)
am8b=InputBox("2° num. 8° ambo",,48)
am9a=InputBox("1° num. 9° ambo",,42)
am9b=InputBox("2° num. 9° ambo",,72)
am10a=InputBox("1° num. 10° ambo",,6)
am10b=InputBox("2° num. 10° ambo",,59)
am11a=InputBox("1° num. 11° ambo",,8)
am11b=InputBox("2° num. 11° ambo",,88)
am12a=InputBox("1° num. 12° ambo",,19)
am12b=InputBox("2° num. 12° ambo",,20)

ini=EstrazioneFin -rs
fin=EstrazioneFin
Scrivi "All'uscita della spia "&format2(num(1))&" in qualsiasi posizione su "&siglaruota(r(1))&" gioca....":scrivi

Scrivi String(25,"-")
Scrivi "ambo n° 01 = "&format2(am1a)&"."&format2(am1b)
Scrivi "ambo n° 02 = "&format2(am2a)&"."&format2(am2b)
Scrivi "ambo n° 03 = "&format2(am3a)&"."&format2(am3b)
Scrivi "ambo n° 04 = "&format2(am4a)&"."&format2(am4b)
Scrivi "ambo n° 05 = "&format2(am5a)&"."&format2(am5b)
Scrivi "ambo n° 06 = "&format2(am6a)&"."&format2(am6b)
Scrivi "ambo n° 07 = "&format2(am7a)&"."&format2(am7b)
Scrivi "ambo n° 08 = "&format2(am8a)&"."&format2(am8b)
Scrivi "ambo n° 09 = "&format2(am9a)&"."&format2(am9b)
Scrivi "ambo n° 10 = "&format2(am10a)&"."&format2(am10b)
Scrivi "ambo n° 11 = "&format2(am11a)&"."&format2(am11b)
Scrivi "ambo n° 12 = "&format2(am12a)&"."&format2(am12b)
Scrivi String(25,"-"):scrivi

Scrivi "resoconto da "& DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1):scrivi
For es =ini To fin 
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
a=0
a=SerieFreq(es,es,num,r,1)
If a>0 Then

casi=casi+1:Scrivi String(70,"="),1 
Scrivi DataEstrazione((es),1)&" " & " [" & " "& SiglaRuota(r(1)) &" "&_
StringaEstratti(es,r(1))&" "&"] sortito spia = "& Format2(num(1)) &" "
Scrivi String(58,"-")&" caso n° "&(casi):co=0

am1(1)=am1a:am1(2)=am1b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am2a:am1(2)=am2b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am3a:am1(2)=am3b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am4a:am1(2)=am4b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am5a:am1(2)=am5b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am6a:am1(2)=am6b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am7a:am1(2)=am7b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am8a:am1(2)=am8b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am9a:am1(2)=am9b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am10a:am1(2)=am10b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am11a:am1(2)=am11b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
am1(1)=am12a:am1(2)=am12b:co=co+1
ImpostaGiocata co,am1,ruote,poste,k,2
Gioca es
End If 
Next
Scrivi
ScriviResoconto
scrivi "scrip spia list by maxma62"
End Sub

max

 

[Roby]

grazie mille maxma troppo gentile.. volevo chiederti un'atra cosa ma il tuo listato che hai postato nn puo calcolarseli da solo gli ambi al posto di scriverli te?