richiesta script capogioco + decina ritardataria

[Blackmore]

mi spiace ma nemmeno io uso spaziometria

Prova così riformattato, se non va non posso farci nulla

Codice: Seleziona tutto

  Sub main()
    Dim dec(9,10) ,n(2),ruote(10),r(10,2),n2(1)
    cg=CLng(InputBox("Inserire il capogioco : "))
    n(1)=cg
    For r1=1 To 10
    Erase ruote
    ruote(1)=r1
    Scrivi "Analisi ruota di "& NomeRuota(r1)  & " degli abbinamenti al capogioco "& CStr(cg),True
    For d=0 To 8
    rrmin=5000
    Erase r
    For c=1 To 10
    Erase n
    n(1)=cg
    n(2)=(d*10) + c
    If n(1) <> n(2) Then
    n2(1) = n(2)
    rr = SerieRitardo(EstrazioneIni,EstrazioneFin,n,ruote,2)
    r(c,1) = n(2)
    r(c,2) = SerieRitardo(EstrazioneIni,EstrazioneFin,n2,ruote,1)
    If rr < rrmin Then rrmin = rr
    End If
    Next
    OrdinaMatrice r,-1,2
    Scrivi "Con decina "& CStr(d) &" ritardo "& CStr(rrmin)
    Scrivi "Numeri più ritardatari "& CStr(r(1,1)) &" - "& CStr(r(2,1)) &" - "& CStr(r(3,1)) &" - "& CStr(r(4,1)) &" - "& CStr(r(5,1))'  ,True
    Next
    Next
    End Sub

[ppaaoolloo]

ciao Blackmore
ho riprovato anche con questo secondo script
ma niente da fare, non funziona....

potresti dirmi qualche cosa del programma l'8?

l'ho scaricato ma mi dice che non è registrato,
per la registrazione andare al sito
www.lottostatistica.com
ma mannaggia mannaggia non trovo niente.....

è un programma a pagamento o free?
come ottengo il codice da inserire?

grazie

[Blackmore]

Lottodesk è il proseguio del vecchio L8+ che si trova in giro gratis (prima si trovava cercando su google, adesso non so)
Lottodesk invece è a pagamento, tu hai scaricato la versione demo di Lottodesk, per averlo l'unico modo è aquistare la licenza

[ppaaoolloo]

ciao
ho provato a cercare qualcosa su internet
ma non ho trovato niente

[Mike58]

Mi ero ripromesso di non rispondere + a richieste script, ma giusto per dare valore allo sforzo di LottoPassion e l'amico BlackMore e per far capire a te Paolo che non ci sono segreti nei codici script, ma solo ragionamenti nel metterli insieme.

Ti posto lo script funzionante per Spaziometria.

Codice: Seleziona tutto

Sub Main()
   Dim dec(9,10),n(2),ruote(10),r(10,2),n2(1)
   cg = CLng(InputBox("Inserire il capogioco : ",,4))
   n(1) = cg
   For r1 = 1 To 12
      ' Erase ruote
      ruote(1) = r1
      Scrivi "Analisi ruota di " & NomeRuota(r1) & " degli abbinamenti al capogioco " & CStr(cg),True
      For d = 0 To 8
         rrmin = 5000
         'Erase r
         For c = 1 To 10
            'Erase n
            n(1) = cg
            n(2) =(d*10) + c
            If n(1) <> n(2) Then
               n2(1) = n(2)
               rr = SerieRitardo(EstrazioneIni,EstrazioneFin,n,ruote,2)
               r(c,1) = n(2)
               r(c,2) = SerieRitardo(EstrazioneIni,EstrazioneFin,n2,ruote,1)
               If rr < rrmin Then rrmin = rr
            End If
         Next
         OrdinaMatrice r,- 1,2
         Scrivi "Con decina " & CStr(d) & " ritardo " & CStr(rrmin),0,1,,1,2
          Scrivi "Numeri più ritardatari " & CStr(r(1,1)) & " - " & CStr(r(2,1)) & " - " & CStr(r(3,1)) & " - " & CStr(r(4,1)) & " - " & CStr(r(5,1))',True
      Next
   Next
End Sub




Ciao a Tutti

[lottopassion]

Grazie Mike

[ppaaoolloo]

ciao Mike
grazie infinite sei un grande


sei tra le persone migliori
che abbia mai conosciuto nei forum

ti auguro che la tua generosità
sia generosamente contraccambiata

ciao

[ppaaoolloo]

ciao
lo script va bene, ma non sempre riesco a prendere il capogioco giusto nei primi colpi,
quando devo scegliere tra due numeri finisce sempre che prendo quello che non esce......

chiedo se è possibile poter avere questo script così come è adesso ma con la
possibilità di poter mettere due capogioco invece di uno solo

quindi due capogioco + decina ritardataria

fatemi sapere se si può fare

ringrazio anticipatamente

ciao

[ppaaoolloo]

voglio richiedere anche un altra cosa...

vorrei usare dei sistemi da 20 numeri
lo script da me richiesto richiedeva

capogioco + decina ritardo

ora vorrei invece

decina + decina ritardo


è possibile che qualche bravo script
voglia provare a farlo?






ringrazio anticipatamente chi ci proverà

fatemi sapere

ciao

[Kevin]

Ciao a tutti ....ho provato anche io questo script con l'ultima versione di Spaziometria e mi da questo errore:r(c,1)=n(2)