cerco scrip per estratti determinati

[keeper]

il titolo dice tutto

 

[rabberto]

Ciao Keeper io in megaraccoltascript ho messo questo pacchetto , sicuramente dovrebbe esserci quello che cerchi prova ,

http://www.mediafire.com/?3ly89r4u3nsu9b9

password : rabberto.
Ciao.

 

[keeper]

ciao rabberto ho scaricato l'archivio am nessune per determinatoquindi continuo la mia ricerca

 

[pfca]

Ciao Keeper, non ricordo se questo te lo avevo già postato:

'Ambata Determinata BA • pfca •
Sub Main
Dim numeri1(2)
Dim ruote(10)
Dim poste(10)
poste(8) = 2
ruote(2) = 1
Dim cc(1)
Dim dd(1)
es = CInt(InputBox("Quante estrazioni controllo?","pfca",100))
k = CInt(InputBox("Quanti colpi di gioco?","pfca",18))
ea = CInt(InputBox("Quale estrazione vuoi esaminare? 0=Ult. 1=Prima",pfca,0))
ini = EstrazioneFin - es
fin = EstrazioneFin

k = 12

For n = ini To fin
Messaggio & " - pfca - "
If eval(ea) = 0 Then
y = 1
Else
y = 0
End If
If IndiceMensile(n + y) = 1 Then
a = Estratto(n,1,1)
b = Figura(Estratto(n,1,1))
numeri1(1) = Fuori90(a + b)
numeri1(2) = Diametrale(Fuori90(a + b))

cc(1) = numeri1(1)
dd(1) = numeri1(2)
ra1 = SerieRitardo(ini,n,cc,ruote,1)
ra2 = SerieRitardo(ini,n,dd,ruote,1)
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra2):ColoreTesto 0
ImpostaGiocata 1,numeri1,ruote,poste,k,,1

ImpostaInterruzioni 1,0,0

Gioca n,- 1
End If
Next
ColoreTesto 1
Scrivi ""
Scrivi " • pfca • ",1
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub

Francesco

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[keeper]

si me lo avevi già dato
e ti dico di più ho perso giovedi una bella amvata determinata ovvero 82
mi hai dato anche quello su cagliare

 

[rabberto]

Mi dispiace keeper quello e tutto quello che ho , spero che qualcuno ti possa aiutare , ciao .

 

[rabberto]

Ciao keeper prova questo e un mio metodo lo script lo ha fatto il bravo genlotto


http://forum.lottoced.com/topic.asp?TOPIC_ID=136702




'x Rabberto
'http://forum.lottoced.com/topic.asp?TOPIC_ID=136702
'Genlotto 28/08/2011
Sub main()
Dim ruota(2),posta(1),poste(3)
Dim nu(1),nu1(4)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi=0
fin=EstrazioneFin
ini=fin-ee
'--------------------------------
For es=ini To fin
Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
For r1=1 To 10 :r2=r1+1
If r2=11 Then r2=12
For p1=1 To 4 2=p1+1
'For p2=p1+1 To 5
a=Estratto(es,r1,p1) :b=Estratto(es,r1,p2) :so1=Fuori90(a+b)
c=Estratto(es,r2,p1) :d=Estratto(es,r2,p2) :so2=Fuori90(c+d)
dc1=Distanza(a,b) :dm1=Abs(a-b) :dc2=Distanza(c,d) :dm2=Abs(c-d)
vr1=Fuori90(dc1+dc2) :vr2=Abs(dm1-dm2)
am=Fuori90(so1+so2)
If Distanza(so1,so2)=30 And dc1=dm1 And dc2=dm2 And (am=vr1 Or am=vr2) Then
ab1=Fuori90(vr1+vr2) :ab2=Fuori90(ab1+30) :ab3=Fuori90(ab1+60)
casi=casi+1:Scrivi String(72,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" in "&(p1)&"/"&p2&" ^ pos. ] So "&so1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" in "&(p1)&"/"&p2&" ^ pos. ] So "&so2
Scrivi "Distanza Matematica/Ciclometrica "&Format2(dm1)&"/"&Format2(dc1)&" su "&SiglaRuota(r1)
Scrivi "Distanza Matematica/Ciclometrica "&Format2(dm2)&"/"&Format2(dc2)&" su "&SiglaRuota(r2)
Scrivi Space(20)&"Verifica +|- "&Format2(vr1)&"|"&Format2(vr2)&" >["&ab1&"]"
Scrivi "Ambata "&Format2(am)&" abb. "&ab1&"."&ab2&"."&ab3
Scrivi String(61,"-")&" caso n° "&(casi)
ruota(1)=r1 :ruota(2)=r2
posta(1)=1 oste(2)=1 oste(3)=1
nu(1)=am
ImpostaGiocata 1,nu,ruota,posta,k,1
nu1(1)=am :nu1(2)=ab1
nu1(3)=ab2 :nu1(4)=ab3
ImpostaGiocata 2,nu1,ruota,poste,k
Gioca es
End If
'Next
Next
Next
Next
ScriviResoconto
End Sub






Spero sia questo quello cerchi , controlla solo l'estratto , non vedere l'ambo , ciao.