Algoritmo script per 10 e lotto ed extra 10 e lotto

[fabri.m]

Sarebbe molto utile che LuigiB, ci donasse il codice del plugin ,
che aveva fatto per spazio , in modo da modificarlo .
visto che non funziona , per via anche del cambio indirizzo ed altro ,
Si potrebe modificare per aagiungere gli extra .
senza faticare tanto , a farne un listato nuovo .
lavoro , saltami adosso , quando mi sono spostato .

 

[Mike58]

Certo il plugin era comodo se poi sei anche in grado da modificarlo sarebbe un bel risultato.
Sicuramente come direbbe luigi a chi interessa la cosa si deve ingegnare e mettentolo nel file di testo è allacciabile e gestibile da spaziometria.

Come ti dicevo nell'altro post in spaziolight con i codici FT rilevo qualche anomalia, sicuramente per una mio errato modo di operare, e per ora rinuncio tanto faccio le stesse cose e con più codici in vbscript.

La necessità di spaziolight nasceva per la velocità superiore e quindi in script con eleborazioni elevate poteva essere più utile, ma come detto ho delle difficotà e discordanze di dati, quindi ci rinuncio.

 

[Mike58]

Ah dimenticavo di dirti che l'archivio trasformato poi lo legge, ma come ti dicevo ho delle difficoltà coi codici
tipo SerieFrequenzaFT etc..SerieRitardoFT, non producono risultati, mentre SerieStatFT produce risultati ma discordanti con uno stesso script vbscript.

Ciao

 

[stef]

Fabri, visto che sei bravo a prelevare le estrazioni non è che riusciresti a prelevare i 10 estratti del MillionDay.
primi 1- 5 estratti millionday + 6-10 extra Millionday.
a me interesserebbe la colonna da 10 numeri però non ordinata primi 5 + secondi 5 (extra).
con le 2 scritture txt e csv.
Se riesci sarebbe una altra bella chicca.

Ciao Mike, sei poi riuscito a creare uno script per scaricare l'archivio millionday + extra?

 

[Mike58]

Ciao,Stef.

il progetto è stato abbandonato completamente.
Si era riuscito a creare un archivio manualmente, ed anche a creare uno script che potesse scaricare l'archivio nelle 2 versioni, poi causa crash PC tutti gli script e archivi sono andati persi e con loro parecchie informazioni utili ai vari scopi ed esgamotage.

Così il progetto è stato completamente abbandonato e non ho più energie e risorse per ricostruirlo.

A volte nascono le cose, sulle ali dell'entusiasmo del momento, ma se non si arriva subito, vuol dire che sono poco percorribili e poco efficaci.

Mi spiace.

P.s. poi questo forum è diventato un mormorio e brontolio del nulla...... e quindi poco motivante.

Ciao

 

[volf]

Buongiorno e buon ferragosto

Io sto impazzendo con questo script che continua a dare errori

Sub Main()

Dim Fin, Es, R1, R2

Dim nOro

Dim aOttina1(8), aOttina2(8), aOttina3(8)

Dim Ruote(1), Poste(5)



' Definizione Ruote di calcolo e di gioco (Bari e Cagliari)

R1 = BA_

R2 = CA_

Ruote(1) = R1



' Posta per sorte (Ambo, Terno, Quaterna, Cinquina)

Poste(2) = 1.00 ' Ambo

Poste(3) = 1.00 ' Terno

Poste(4) = 0.50 ' Quaterna

Poste(5) = 0.50 ' Cinquina



Fin = EstrazioneFinale



' Ciclo sulle ultime 50 estrazioni

For Es = Fin - 50 To Fin

' Condizione di attivazione: 1° estrazione del mese

If IndiceMensile(Es) = 1 Then



' --- 1. CALCOLO NUMERO ORO ---

nOro = Fuori90(Estratto(Es, R1, 1) + Estratto(Es, R2, 5) + 12)



' --- 2. PRIMA OTTINA ---

aOttina1(1) = nOro

aOttina1(2) = Fuori90(nOro + 5)

aOttina1(3) = Fuori90(nOro + 18)

aOttina1(4) = Fuori90(nOro + 27)

aOttina1(5) = Fuori90(nOro + 42)

aOttina1(6) = Fuori90(nOro + 56)

aOttina1(7) = Fuori90(nOro + 69)

aOttina1(8) = Fuori90(nOro + 81)



' --- 3. SECONDA OTTINA ---

aOttina2(1) = nOro

aOttina2(2) = Fuori90(nOro + 9)

aOttina2(3) = Fuori90(nOro + 21)

aOttina2(4) = Fuori90(nOro + 34)

aOttina2(5) = Fuori90(nOro + 48)

aOttina2(6) = Fuori90(nOro + 62)

aOttina2(7) = Fuori90(nOro + 73)

aOttina2(8) = Fuori90(nOro + 88)



' --- 4. TERZA OTTINA ---

aOttina3(1) = nOro

aOttina3(2) = Fuori90(nOro + 14)

aOttina3(3) = Fuori90(nOro + 29)

aOttina3(4) = Fuori90(nOro + 39)

aOttina3(5) = Fuori90(nOro + 51)

aOttina3(6) = Fuori90(nOro + 65)

aOttina3(7) = Fuori90(nOro + 77)

aOttina3(8) = Fuori90(nOro + 85)



' --- OUTPUT GRAFICO ---

Scrivi String(85, "=")

Scrivi "Estrazione del " & DataEstrazione(Es) & " [ Mensile N. " & IndiceMensile(Es) & " ]", True

Scrivi "NUMERO ORO CALCOLATO: " & Format2(nOro), True, , vbYellow, vbBlack

Scrivi "Ottina 1: " & StringaNumeri(aOttina1)

Scrivi "Ottina 2: " & StringaNumeri(aOttina2)

Scrivi "Ottina 3: " & StringaNumeri(aOttina3)

Scrivi String(85, "-")



' Impostazione delle 3 giocate per 9 colpi di verifica

ImpostaGiocata 1, aOttina1, Ruote, Poste, 9

ImpostaGiocata 2, aOttina2, Ruote, Poste, 9

ImpostaGiocata 3, aOttina3, Ruote, Poste, 9



Gioca Es, True

End If

Next



' Stampa resoconto statistico vincite

ScriviResoconto

End Sub

 

[DjNomade]

Cambia
Fin = EstrazioneFinale
in
Fin = EstrazioneFin

ma non mi sembra x il 10elotto