quote:
Originally posted by cutoff
Ciao, ho modificato lo script inserendo la possibilità di scegliere la ruota da elaborare.....spero vada bene...a parte l'indentazione del codice
'Metodo LEGGE DEL TERZO
' esselotto per lottoced
' TROVARE 6 NUMERI
' CHE ABBIANO FREQUENZA 2
Sub main()
Dim ruote(1)
Dim fr(90)
Dim n(90)
Dim po ' casi positivi
Dim rt(3),pt(5),ptt(5),pte(5),ptq(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),na4(6),na5(6),na6(6),na7(6),na8(6)
pt(1) = 1
ptt(2) = 1
pte(3) = 1
ptq(4) = 1 ' pt e la posta giocata per ambata ptt e quella dell' ambo pte del terno
ruote(1) = 11
clp = 13
co = 0
ini = EstrazioneFin - 200
fin = EstrazioneFin
rs= InputBox("Quale ruota vuoi analizzare?(Bari=1,Cagliari=2 ...)","Scelta Ruota",1)
If rs = False Then Exit Sub
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
Erase fr
For J = 1 To 9
For r = rs To rs
rt(1) = r
For k = 1 To 90
For p = 1 To 5
a = Estratto(es - j,r,p)
If a = k Then fr(k) = fr(k) + 1
Next
Next
Next
Next
po = 0
For z = 1 To 90
If fr(z) = 2 Then po = po + 1
n(po) = z
Next
If po = 6 Then
co = co + 1
ColoreTesto 2
Scrivi "Previsione Nr " & co & "................................................",1
ColoreTesto 0
Scrivi "I sei numeri che hanno avuto frequenza 2 sono",1
Scrivi n(1) & " _ " & n(2) & " _ " & n(3) & " _ " & n(4) & " _ " & n(5) & " _ " & n(6),1
nu(1) = n(3)' ambate sono i centrali
nu(2) = n(4)
ImpostaGiocata 1,nu,rt,pt,clp,1 'ambata
na(1) = n(3)
na(2) = n(1)
ImpostaGiocata 2,na,rt,ptt,clp,2 ' imposta giocata ambo
na1(1) = n(3)
na1(2) = n(2)
ImpostaGiocata 3,na1,rt,ptt,clp,2 'ambata
na2(1) = n(3)
na2(2) = n(5)
ImpostaGiocata 4,na2,rt,ptt,clp,2 'ambata
na3(1) = n(3)
na3(2) = n(6)
ImpostaGiocata 5,na3,rt,ptt,clp,2 'ambata
na4(1) = n(4)
na4(2) = n(1)
ImpostaGiocata 6,na4,rt,ptt,clp,2 'ambata
na5(1) = n(4)
na5(2) = n(2)
ImpostaGiocata 7,na5,rt,ptt,clp,2 'ambata
na6(1) = n(4)
na6(2) = n(5)
ImpostaGiocata 8,na6,rt,ptt,clp,2 'ambata
na7(1) = n(4)
na7(2) = n(6)
ImpostaGiocata 9,na7,rt,ptt,clp,2 'ambata
'ImpostaGiocata 3,na1,rt,pte,clp,3 ' imposta giocata ambo
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Gioca es
End If ' If po = 6 Then...
Next
ScriviResoconto
Scrivi "°°°esselotto°°°"
End Sub
Nik