quote:Originally posted by LuigiB
non saprei l'errore e davvero strano ..sappiate che in casi di computer particolarmente ingarbugliati (cioè quando iniziano a dare errori strani tipo questi) l'unica soluzione e riformattare e reinstallare il sistema operativo.
mi sa tanto che dovrò dare retta al consiglio di sopra:
Ho acquisito un interessante script di ESSELOTTO che ho trovato nella sezione metodi a cui ha collaborato anche Luigi lo trascrivo
così ci capiamo e penso possa inreressare anche altri
'Metodo LEGGE DEL TERZO
'questo metodo è commentato da ESSE il 1/9/2010 nella sez METODI
' TROVARE 6 NUMERI
' CHE ABBIANO FREQUENZA 2
'Metodi: Legge del Terzo ed Equilibrio Numerico
Sub main()
Dim ruote(1)
Dim fr(90)
Dim n(90)
Dim po
Dim rt(3),pt(5),ptt(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),na4(6),na5(6),na6(6),na7(6)
pt(1) = 1
ptt(2) = 1
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 'ambo
na1(1) = n(3)
na1(2) = n(2)
ImpostaGiocata 3,na1,rt,ptt,clp,2 'ambo
na2(1) = n(3)
na2(2) = n(5)
ImpostaGiocata 4,na2,rt,ptt,clp,2 'ambo
na3(1) = n(3)
na3(2) = n(6)
ImpostaGiocata 5,na3,rt,ptt,clp,2 'ambo
na4(1) = n(4)
na4(2) = n(1)
ImpostaGiocata 6,na4,rt,ptt,clp,2 'ambo
na5(1) = n(4)
na5(2) = n(2)
ImpostaGiocata 7,na5,rt,ptt,clp,2 'ambo
na6(1) = n(4)
na6(2) = n(5)
ImpostaGiocata 8,na6,rt,ptt,clp,2 'ambo
na7(1) = n(4)
na7(2) = n(6)
ImpostaGiocata 9,na7,rt,ptt,clp,2 'ambo
Gioca es
End If ' If po = 6 Then...
Next
ScriviResoconto
Scrivi "°°°esselotto°°°"
End Sub
Le prime volte che l'ho lanciato mi andava bene nel senso che i 6 numeri trovati per giocare erano giusti,nel tentativo di voler cambiare qualcosa per vedere se capivo i passaggi dello script il resoconto (di quello originale)è cambiato ora mi da sempre numeri casuali e nei vari colpi proposti nella sestina è sempre presente
il 90[?][?] sono allora andato sul post e ho copiato di nuovo ma stessa storia ..
allora LUIGI è veramente arrivato il tempo di riformattare e reinstallare il sistema operativo ?? dammi una conferma!!!