Per Salvo..aiuto script aggiungere altra ruota in questo script

[simon-simon]

Ciao Salvo ..
potresti aiutarmi in questo script?
vorrei se possibile aggiungere un altra ruota per la giocata finale
la ricerca su 1 ruota e la giocata su la stessa e altra a scelta
grazie se puoi.

Scrivi "ricerca estratto e ambo"
Sub main()
Dim ru1(1)
Dim nr(1), fn(1), numeri(91)
Dim rc(200), rcc(200), nu(1), ni(91)
Dim xa(1), ruota(1), ruote(1)

ini = EstrazioneFin - 100
fin = EstrazioneFin - 0


nec = 2 'lasso di estrazioni del controllo indietro
qmin = 2 'quantita' minima delle presenze nel nec dei singoli numeri
qmax = 2 'quantita' massima delle presenze nel nec dei singoli numeri
eg = 9 'controllo giocata
ricer = 1 'controllo giocata: =1 ricerca l'estratto e superiore; =2 ricerca l'ambo e superiore
qmina = 0 'quantita' minima delle presenze nel nec dei ambi
qmaxa = 0 'quantita' massima delle presenze nel nec dei ambi

aa = InputBox("Quale ruota? Es. 1=Ba, 2=Ca, ..., 10=Ve","")
aa="0."&aa
R=Split(aa,".")
Rr = UBound(R)
EliminaRipetuti R
OrdinaMatrice R,1
rigaR=""
For a = 1 To Rr
xa(1) = 0
xa(1) = CInt(R(a))
ruota(a) = xa(1)
rigaR=rigaR+NomeRuota(ruota(a))&" "
Next

ese=InputBox("Inserisci i numeri da analizzare ","")
ese="0."&ese
Abb=Split(ese,".")
EliminaRipetuti Abb
Nab=UBound(Abb)
OrdinaMatrice Abb,1
positive= 0 : qcasi=0
For est = ini To fin
AvanzamentoElab ini, fin, est
r = ruota(1)
'Messaggio (NomeRuota (r))
cs=0 : cg=0 : sr=0 : rt1=r
ru1(1) = rt1 : ruote(1) = rt1
nr(1)=PiuRitardatario(est,rt1)
cr=SerieRitardo(est-215,est,nr,ru1,1)

'---------
For f=1 To 90
fn(1)=f
rido=SerieRitardo(est-215,est,fn,ru1,1)
sr=sr+(rido+1)
Next
cms=sr/90
'------------
'Scrivi StringaNumeri(Abb)
'---------------------------------
pres=0 : ppres=0
For j=1 To Nab
numeri(j)=Abb(j) : fn(1)=Abb(j)
pres=SerieFreq(est-(nec-1),est,fn,ru1,1)
ppres=ppres+pres
Next

'ppres=SerieFreq(est-(nec-1),est,Abb,ru1,1)
pam=SerieFreq(est-(nec-1),est,Abb,ru1,2)

If (ppres=>qmin And ppres<=qmax) And (pam=>qmina And pam<=qmaxa) Then

Scrivi "=== "&StringaNumeri(numeri),1
'-------controllo indietro-------
Scrivi " Controllo all'indietro"
rigac="" : tote=0 : ca=-(nec+1) : cg=Nab : Erase ni
For ex=est-(nec-1) To est
If ex<=EstrazioneFin Then
ca=ca+1 : rt=rt1 : cc=0
rigac=Left(SiglaRuota(rt),2)&" "
For pos=1 To 5 : numeri(cg+1)=Estratto(ex,rt,pos)
If NumeriRipetuti(numeri)=True Then
ems=0 : cc=cc+1 : tote=tote+1
ni(cc)=numeri(cg+1)
End If
Next
rigac=rigac&""& StringaNumeri(ni)

If ex=est Then
Scrivi DataEstrazione(ex)&" - "&FormatSpace(rigac,20)&" "&_
Format2(ca)&"° colpo ["&ex&"]"
Else
Scrivi DataEstrazione(ex)&" - "&FormatSpace(rigac,20)&" "&_
Format2(ca)&"° colpo ["&ex&"]"
End If
rigac="" : Erase ni
End If
Next
Scrivi
Scrivi "Nelle "&nec&" estrazioni ci sono stati "&tote&" pesci e "&pam&" bombe"
'Scrivi String(80,"*")
'---------------------------
'----controllo giocata------
Scrivi " Controllo la giocata"
'Messaggio ("sto controllando la giocata")
aaa=0 : qcasi=qcasi+1 : rigac="" : ca=0 : Erase ni
For ex=est+1 To est+eg
If ex<=EstrazioneFin Then
ca=ca+1 : rt=rt1 : cc=0
rigac=Left(SiglaRuota (rt),2)&" "
For pos=1 To 5 : numeri(cg+1)=Estratto(ex,rt,pos)
If NumeriRipetuti(numeri)=True Then
cc=cc+1 : ni(cc)=numeri(cg+1)
End If
Next
rigac=rigac&""& StringaNumeri(ni)
If cc=>ricer Then
Scrivi DataEstrazione(ex)&" - "&FormatSpace(rigac,20)&" "&_
Format2(ca)&"° colpo ["&ex&"]"
If cc=>ricer Then
aaa=aaa+1
If aaa=1 Then positive=positive+1
End If
rigac=""
Erase ni
End If
End If
Next
Scrivi String(80,"*")
Scrivi
End If
'---------------------------
Erase numeri
Next
'Scrivi
If qcasi>0 Then Scrivi "Totale casi: "&qcasi&" di cui: "&_
positive&" positivi %= "&(Round((positive/qcasi), 4)*100)
End Sub

 

[salvo50]

Ciao a Tutti.

Ciao Simon, ho dato un'occhiata e non è semplice (per me) fare la modifica che chiedi, per favore chiedi ad altri.

 

[claudio8]

Della serie "Dai un pesce a un uomo e lo nutrirai per un giorno; insegnagli a pescare e lo nutrirai per tutta la vita"
ho trovato questa riga nello script.....
Scrivi "Nelle " & nec & " estrazioni ci sono stati " & tote & " pesci e " & pam & " bombe"
molto spiritoso lo scripter sia nei termini che nel costrutto .

Tutto è possibile ma sarebbe meglio rifarlo completamente.
Lascio a te fare una richesta specifica su cosa deve ricercare lo script.
Riporta questo script dove lo hai trovato....
Saluti

 

[simon-simon]

Della serie "Dai un pesce a un uomo e lo nutrirai per un giorno; insegnagli a pescare e lo nutrirai per tutta la vita"
ho trovato questa riga nello script.....
Scrivi "Nelle " & nec & " estrazioni ci sono stati " & tote & " pesci e " & pam & " bombe"
molto spiritoso lo scripter sia nei termini che nel costrutto .

Tutto è possibile ma sarebbe meglio rifarlo completamente.
Lascio a te fare una richesta specifica su cosa deve ricercare lo script.
Riporta questo script dove lo hai trovato....
Saluti

Ciao Claudio..
tu potresti farmelo?

 

[claudio8]

Vedo che non leggi.
"Lascio a te fare una richesta specifica su cosa deve ricercare lo script."
ma prima devi cambiare software e poi cercare nel web lo script che desideri.
Io non ho tempo.
Saluti

 

[simon-simon]

Ho capito