lotto_tom75
Advanced Premium Member
E anche per festeggiare il mio primo tentativo di creazione script per il fantasmagorico eccezionale e superlativo programma Spaziometria dell'insuperabile Mago Programmatore LuigiB, che ringrazierò vita natural durante, posto qui appunto il mio primo script con relativa previsioncina a colpo. In effetti all'interno dello stesso, c'e' un concetto che, se si verificherà, potrà essere foriero di moltissime soddisfazioni in campo ludico. Buon sabato a tutti/e lotto_tom75
Un ambo spia... un'ambata antro 20 estrazioni. Possono sembrare tante... ma se si cambia punto di vista...
Probabilmente questo mio primo script conterrà uno o più errori
. In tal caso ringrazio fin da ora chiunque me li mostrerà con relativa soluzione! 
Ps: Il top comunque sarebbe un qualcosa "Plugin o quantaltro..." che riuscisse a fare tutto da sè...
Ovvero che riuscisse a trovare i valori da sommare ai valori dei numeri estratti nelle posizioni che hanno reso al 100% in un certo range di tempo quel determinato risultato... senza doverle ogni volta inserire a mano nello script o nel box della finestra di dialogo durante l'esecuzione dello stesso! Msg in the bottle per i maghi degli script di spaziometria lanciato!
Un ambo spia... un'ambata antro 20 estrazioni. Possono sembrare tante... ma se si cambia punto di vista...
Codice:
Sub Main()
ColoreTesto 1: Scrivi String(41,"*") & " Metodo di lotto_tom75 - Script By lotto_tom75 " & String(38,"*"),1
ColoreTesto 0: Scrivi
Dim ruota(1)
Dim ambata(1)
Dim ambata2(1)
Dim ambata3(1)
Dim ambata4(1)
Dim ambata5(1)
Dim posta(1)
posta(1) = 1
r1 = CInt(InputBox("RUOTA DI GIOCO?",,1))
spia = CInt(InputBox("NUMERO SPIA 1?",,33))
spia2 = CInt(InputBox("NUMERO SPIA 2?",,54))
xx = CInt(InputBox("DA QUALE ESTRAZIONE CONTROLLO?",,5534))
k = CInt(InputBox("QUANTI COLPI?",,20))
co = 0
fin = EstrazioneFin
ini = xx
For es = ini To fin
AvanzamentoElab ini,fin,es
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r1,p1)
ok = 0
If a = spia And b = spia2 Or a = spia2 And b = spia Then
'If IndiceMensile(es) = 7 Then
co = co + 1
ruota(1) = r1
ColoreTesto 1
Scrivi String(55,"*") & " Caso n°: " & CInt(co) & " " & String(54,"*"),1
ColoreTesto 2
Scrivi String(20," ") & " " & DataEstrazione(es) & " - " & NomeRuota(1) & " - " & StringaEstratti(es,1) & " NUMERO SPIA " & a & " e NUMERO SPIA " & b & " Usciti Alla " & IndiceMensile(es) & "° Estrazione del Mese"
ColoreTesto 1
Scrivi String(121,"*"),1
ColoreTesto 0
ambata(1) = Fuori90(Estratto(es,BA_,5) + 9)
ambata2(1) = Fuori90(Estratto(es,BA_,4) + 12)
ambata3(1) = Fuori90(Estratto(es,BA_,3) + 1)
ambata4(1) = Fuori90(Estratto(es,BA_,2) + 3)
ambata5(1) = Fuori90(Estratto(es,BA_,1) + 15)
ImpostaGiocata 1,ambata,ruota,posta,k,1
ImpostaGiocata 1,ambata2,ruota,posta,k,1
ImpostaGiocata 1,ambata3,ruota,posta,k,1
ImpostaGiocata 1,ambata4,ruota,posta,k,1
ImpostaGiocata 1,ambata5,ruota,posta,k,1
Gioca es
'End If
End If
Next
Next
Next
ScriviResoconto
End SubProbabilmente questo mio primo script conterrà uno o più errori
. In tal caso ringrazio fin da ora chiunque me li mostrerà con relativa soluzione! Ps: Il top comunque sarebbe un qualcosa "Plugin o quantaltro..." che riuscisse a fare tutto da sè...
Ovvero che riuscisse a trovare i valori da sommare ai valori dei numeri estratti nelle posizioni che hanno reso al 100% in un certo range di tempo quel determinato risultato... senza doverle ogni volta inserire a mano nello script o nel box della finestra di dialogo durante l'esecuzione dello stesso! Msg in the bottle per i maghi degli script di spaziometria lanciato!
Ultima modifica:
