grazie della risposta, l'ho scaricato, ti volevo chiedere, se nelloscript quando dice "che ruota", io voglio le due ruote (es. BA-MI) cosa devo fare perchè mi appaiono contemporaneamente senza fare due ricerche? Spero di essermi spiagato, ma sicuramente ho chiesto una castronata
non c'è problema per la nuova modifica, se c'è qualcosa di buono tu l'hai sempre segnalata, grazie e buonanotte
ciao Roberto prova in questo modo ti ricordo che la 1° ruota che segni e quellla dove fa il calcolo
poui invertirli x consentire di trovare delle convergenze
sinceramente vi era un'altro modo per accorciasre i tempi e quella di ordinare alloscript
di fare i conteggi sia della 1° che della 2° ruota
ma sinceramente non lo so fare
ciaoo
Sub Main()
Dim ruota(1),es,ini,fin,ce,k,ruote(11)
Dim n(5),ee(5),aa(5),bb(1),cc(1)
Dim posta(1),poa(2),pot(3),poq(4)
posta(1) = 3
poa(2) = 1
pot(2) = 1
pot(3) = .5
poq(2) = 1.5
poq(3) = 1
poq(4) = .5
ruote(1) = ScegliRuota
ruota(1) = ScegliRuota
ce = CInt(InputBox("DI QUANTE ESTRAZIONI VUOI TORNARE INDIETRO? "," ID Estrazione ",52))
k = CInt(InputBox(" Per quanti colpi?"," Colpi di gioco ",13))
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
For pos = 1 To 5
ee(pos) = Estratto(es,ruota(1),pos)
Next
casi = casi + 1
Scrivi String(67,"=") & " caso n° " &(casi)
ColoreTesto 1
ss1 = SommaEstratti(es,ruota(1))
s1 = Fuori90(ss1)
For x = 1 To 5
aa(x) = Fuori90(s1 + ee(x))
Next
s2 = StringaNumeri(aa)
s4 =(aa(1) + aa(2) + aa(3) + aa(4) + aa(5))
s5 = Fuori90(s4)
s3 = Fuori90(s1 + s5)
s6 = Fuori90(s3*2)
s7 = Vert(s6)
n(1) = s6
n(2) = s7
bb(1) = Fuori90(s4/3)
cc(1) = Fuori90(s1 + s5)
'---imposta giocate-------------------
l1 = Array(n(1),n(2))
l2 = Array(n(1),bb(1))
l3 = Array(n(1),n(2),bb(1))
l4 = Array(n(1),n(2),bb(1),cc(1))
'-------------------------------------
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,ruota(1)) & " - Somma intera " & ss1 & " - Somma Fuori90 ... " & s1
Scrivi DataEstrazione(es) & " " & StringaNumeri(aa) & " - Somma inetra " & s4 & " - Somma Fuori90 ... " & s5
Scrivi "1° Abbinamento... " & bb(1)
Scrivi "2° Abbinamento... " & cc(1)
ColoreTesto 2
Scrivi "Numero doppio ... e suo vertibile ... " & StringaNumeri
,1
ColoreTesto 0
Scrivi String(77,"-")
ImpostaGiocata 1,l1,ruota,posta,k
ImpostaGiocata 2,l2,ruota,poa,k
ImpostaGiocata 3,l3,ruota,pot,k
ImpostaGiocata 4,l4,ruota,poq,k
ImpostaGiocata 5,l2,ruote,poa,k
ImpostaGiocata 6,l3,ruote,pot,k
ImpostaGiocata 7,l4,ruote,poq,k
Gioca es,1
ColoreTesto 1
Scrivi "Spesa............" & GetSpesa(True),1' con true si ha il resoconto parziale con false il resoconto progressivo
ColoreTesto 2
Scrivi "Vincita.........." & GetVincita(True),1
ColoreTesto 0
Scrivi "Guadagno........." & GetGuadagno(True),1
If GetGuadagno(True) > 0 Then Call Scrivi(" Giocata in ATTIVO ",True,True,3,0,3)
If GetGuadagno(True) < 0 Then Call Scrivi(" giocata in Negativo ",True,True,2,4,3)
If ScriptInterrotto Then Exit For
Next
Scrivi String(52,"=") & "",1
ScriviResoconto
End Sub