bauman
Junior Member
Buonasera Mike58, un saluto a tutti, sono nuovo del forum, volevo chiederti una cortesia, puoi completare questo script per la ricerca dei terni dopo l'uscita di un numero spia su ruota, io purtroppo non conosco il linguaggio script, ti posto di seguito il listato,
rinnovo i saluti e ti ringrazio,
Bauman
Sub Main()
Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,2)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,82))
'ee = InputBox("Estrazioni da controllare",,200)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8950'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y
nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub
rinnovo i saluti e ti ringrazio,
Bauman
