Legge del Terzo + Script rivolto a Tutti

[LuigiB]

cancella la riga coi puntini di netto ! se ti riferivi a questa

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 

[worki]

si mi riferivo a quella che diventa colore giallo

ho visto che cè più di uno script sono uguali?

 

[esselotto]

quote:Originally posted by LuigiB

ehi Esse ... mi sa che tra le mani piu che un libro di vba ti ritrovi un manuale di fisica eheheheh ciao !

hai ragione luigi. Appunto.... Appunti di fisica. La fisica se non ci fosse, bisognerebbe
inventarla.

esselotto

 

[esselotto]

Lo script è una specie di software, open source, chiunque lo può modificare.
il copia e incolla, e accesso libero al codice, molte volte e causa di malfunzionamento.

posto listato ripulito per non confondere, lasciate le parole in verde sono commenti,
per un futuro.


'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 
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

ringrazio inoltre luigi e cutoff per aver risolto i problemi al mio posto.


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a 
che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°

 

[LuigiB]

quote:

hai ragione luigi. Appunto.... Appunti di fisica. La fisica se non ci fosse, bisognerebbe
inventarla.

esselotto

eheh parole sante e purtroppo riferito al lotto ci sono persone che pensano non esista ... infatti il moto delle palline
dentro la venus è per l'appunto regolato da leggi fisiche ben conosciute ed incontrovertibili il che non lascia spazio a nessun tipo
di fantasie ... , è banale ma se ci si pensa niente ci è ignoto del perche i numeri escono casualmente

 

[worki]

GRAZIE ESSELOTTO ORA FUNZIONA GRAZIE CIAO