'http://lotto-mery5-e-claufont.forumfree.it/?t=61922053
ColoreTesto 2 :Scrivi String(37,32)&"LA RIPETIZIONE DEL NUMERO- SECONDO NICOSIA SALVATORE ",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
Sub main()
Dim nu1(2),nu2(4),ruote(2),ruota(1),posta(2),poste(4),num(2)
posta(1)=1:posta(2)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8486)
k=InputBox ("per quanti colpi?","colpi di gioco",4)
ini=ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 11
If r1=11 Then r1=12
For p1=1 To 4
p2=p1+1
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
For a1=1 To 39
For a2=80 To 89
If (a1=a And a2=b) Or (a1=b And a2=a) Then
d=90+Minimo(a,b)-Massimo(a,b)'numero guida
e=Massimo(a,b)-d 'ambata di ricerca su un'altra ruota
For y=0 To 3 ' RETROATTIVITA' PER RICERCA NUMERI PENTAGONALI
ex=es-y
For rr=1 To 11
If rr=11 Then rr=12 'con nazionale
For q1=1 To 5
If r1<>rr Then 'cosi'le ruote saranno diverse-togliendola possone essere uguali
c=Estratto(ex,rr,q1)
If c=e Then
casi=casi+1:Scrivi String(68,"=")&" by DjNomade",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(ex,1)&" [ "&siglaRuota(rr)& " - "&StringaEstratti(ex,rr)&_
" ] [ "&format2(c)&" ] in "&(q1)&"^ pos."
Scrivi String(68,"-")&" caso n° " & casi
ruote(1)=r1:ruote(2)=rr:co=0
n1=c
n2=Minimo(a,b)
nu1(1)=n1
nu1(2)=n2
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,2
Gioca es
End If
End If
Next:
Next:
Next
End If
Next:Next:Next:Next:Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32)&"LA RIPETIZIONE DEL NUMERO- SECONDO NICOSIA SALVATORE ",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
End Sub