nuovo metodo, magari è quello giusto

[membro cancellato]

metodo fare script:
in qualsiasi estrazione bisogna rintracciare la sortita di un numero ripetuto su qualsiasi ruota, rigorosamente in prima posizione.
verificatesi questa condizione, ricavare l'ambata da giocare su bari e cagliari x 6 estrazioni, moltiplicando la decina con l'unità del 3° estratto di bari + il fisso 7

abbinamenti:
alla decina del 1° estratto di napoli sommeremo il fisso +84

moliplicare x3 il 4° estratto di nazionale sommando il fisso +61


grazie x l'aiuto

 

[stupl]

Prova questo:

Option Explicit
'In qualsiasi estrazione bisogna rintracciare la sortita di un numero ripetuto su qualsiasi ruota, rigorosamente in prima posizione.
'Verificatesi questa condizione, ricavare l'ambata da giocare su bari e cagliari x 6 estrazioni,
'moltiplicando la decina con la cadenza del 3° estratto di bari + il fisso 7
'Abbinamenti:
'Alla decina del 1° estratto di Napoli sommeremo il fisso +84
'Moliplicare x3 il 4° estratto di Nazionale sommando il fisso +61
Sub Main
Dim Ini,Fin,Es,Co,Clp,k
Dim Ruote(2),Ru(1),R1,R2,N1,N2
Dim Posta(1),Poste(2),EstrBA,EstrNA
Dim Ambata(1),Ambo1(2),Ambo2(2)
Posta(1) = 1
Poste(2) = 1
Ruote(1) = BA_ : Ruote(2) = CA_
k = CInt(InputBox("Quante estrazioni controllare?",,200))
Clp = CInt(InputBox("Quanti colpi di gioco?",,6))
Ini = EstrazioneFin - k
Fin = EstrazioneFin
For Es = Ini To Fin
Call AvanzamentoElab(Ini,Fin,Es)
For R1 = 1 To 10
For R2 = R1 +1 To 11
If R2 = 11 Then R2 = 12
N1 = Estratto(Es,R1,1)
N2 = Estratto(Es,R2,1)
If N1 = N2 Then
Co = Co + 1
EstrBA = Estratto(Es,BA_,3)
EstrNA = Estratto(Es,NA_,1)
Ambata(1) = Fuori90((Decina(EstrBA) * Cadenza(EstrBA)) + 7)
Ambo1(1) = Ambata(1)
Ambo1(2) = Fuori90(Decina(EstrNA) + 84)
Ambo2(1) = Ambata(1)
Ambo2(2) = Fuori90((Estratto(Es,NZ_,4) * 3) + 61)
ColoreTesto 1
Scrivi String(85,"=") & " Caso n°" & Co,1,,,2,3
Scrivi " " & DataEstrazione(Es) & " - " & SiglaRuota(R1) & " [" & StringaEstratti(Es,R1) & "] - Nr° Ripetuto in 1ªPosizione",1
Scrivi " " & DataEstrazione(Es) & " - " & SiglaRuota(R2) & " [" & StringaEstratti(Es,R2) & "] -             ",1,0
Scrivi N2,1,,,3,,,1
Scrivi String(106,"="),1,,,2
ColoreTesto 0
ImpostaGiocata 1,Ambata,Ruote,Posta,Clp
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp
Gioca Es,True
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub

Non sono uno scripter ho fatto solo dei copia e incolla di un'altro script e modificato quel poco che capisco di script.
"La vita e tutto uno script"

 

[claudio8]

Bravo stupl, impara l'arte e mettila da parte, "stupl"

 

[guerryno74]

Buon metodo....un esempio x il primo abbinamento???...grazie x eventuali risposte