Novità

Modifica Script

  • Creatore Discussione Creatore Discussione jure
  • Data di inizio Data di inizio
J

jure

Premium Member
Chi mi può inserire nel calcolo delle 10 Ruote anche la
Ruota NAZIONALE ?
di questo Metodo Sommativo?

Sub Main()
Dim som(5,5,90)
Dim estr(2,5)
Dim Val(5,5,90)
Dim amb(90)
r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,1)
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,15)
perc = InputBox("Inserisci la percentuale (0-100):",,90)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,8)

ultest = 8014 ' inserite qui il numero indice dell'ultima estrazione

n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If(((eval(es) = 0) And(n = ultest)) Or((IndiceMensile(n) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(n + 1) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
Scrivi s
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin)
For ru1 = 1 To 10
For ru2 = ru1 To 10
Messaggio " Elaboro la ruota n° " & CInt(ru1) & " con la n° " & CInt(ru2)
z = 0
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
som(i,l,j) = 0
Val(i,l,j) = True
Next
Next
Next
For j = 1 To 2
For i = 1 To 5
estr(j,i) = 0
Next
Next
valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
' Attenzione questa sotto deve essere tutta una riga
If(((es = 0) And(n = ultest)) Or((IndiceMensile(m) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(m) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
For i = 1 To 5
estr(1,i) = Estratto(n,ru1,i)
estr(2,i) = Estratto(n,ru2,i)
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
If eval(ncg) = 0 Then
k2 = 9
If(IndiceMensile(n + 12) = eval(es)) Then
k2 = 8
End If
Else
k2 = eval(ncg)
End If
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
For l = 1 To 5
k = Estratto(nv,r2,i) - estr(1,j) - estr(2,l)
While k <= 0
k = k + 90
Wend
If Val(j,l,k) = True Then
som(j,l,k) = som(j,l,k) + 1
Val(j,l,k) = False
End If
Next
Next
Next
Next
End If
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(ru1),8) + " + " + CStr(eval(l)) + "° di "
s = s + FormatSpace(NomeRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2) + " su " + NomeRuota(r2) + " "
s = s + CStr(som(i,l,j)) + " su " + CStr(eval(z)) + ": " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then s = s + " in corso" Else s = s + " già uscito"
If(som(i,l,j) >= zz) Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
End If
End If
Next
Next
Next
Next
Next
End Sub
 
spero sia esatto!
controlla

Sub Main()
Dim som(5,5,90),estr(2,5),Val(5,5,90),amb(90)
Dim r2,es,nmc,perc,ncg,ultest,n,z,nn,s,ru1,l,i,ru2,trovato,j,Valido,m,k2,k3,k,nv,zz
r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1-12):",,1)
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,15)
perc = InputBox("Inserisci la percentuale (0-100):",,90)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,8)
ultest = 8014 ' inserite qui il numero indice dell'ultima estrazione
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If(((eval(es) = 0) And(n = ultest)) Or((IndiceMensile(n) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(n + 1) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
ColoreTesto(1)
Scrivi s,1
ColoreTesto(2)
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin) & " Ruota di Gioco " & NomeRuota(r2),1
Scrivi
ColoreTesto(0)
For ru1 = 1 To 12
If ru1 <> 11 Then
For ru2 = ru1 To 12
If ru2 <> 11 Then
Messaggio " Elaboro la ruota n° " & CInt(ru1) & " con la n° " & CInt(ru2)
z = 0
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
som(i,l,j) = 0
Val(i,l,j) = True
Next
Next
Next
For j = 1 To 2
For i = 1 To 5
estr(j,i) = 0
Next
Next
Valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
' Attenzione questa sotto deve essere tutta una riga
If(((es = 0) And(n = ultest)) Or((IndiceMensile(m) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(m) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
For i = 1 To 5
estr(1,i) = Estratto(n,ru1,i)
estr(2,i) = Estratto(n,ru2,i)
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
If eval(ncg) = 0 Then
k2 = 9
If(IndiceMensile(n + 12) = eval(es)) Then
k2 = 8
End If
Else
k2 = eval(ncg)
End If
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
For l = 1 To 5
k = Estratto(nv,r2,i) - estr(1,j) - estr(2,l)
While k <= 0
k = k + 90
Wend
If Val(j,l,k) = True Then
som(j,l,k) = som(j,l,k) + 1
Val(j,l,k) = False
End If
Next
Next
Next
Next
End If
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(SiglaRuota(ru1),8) + " + " + CStr(eval(l)) + "° di "
s = s + FormatSpace(SiglaRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2) + "............... su " + NomeRuota(r2) + " "
s = s + CStr(som(i,l,j)) + " su " + CStr(eval(z)) + ": " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then
s = s + " in corso"
ColoreTesto(1)
Else
ColoreTesto(0)
s = s + " già uscito"
End If
If(som(i,l,j) >= zz) Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
End If
End If
Next
Next
Next
End If
Next
End If
Next
End Sub
Clicca per espandere...
 
Il listato è perfetto solo che tro vato alla 3° linea
deve essere unito "trovato"
 
Ultima modifica:
e possibile avere realizzato lo stesso sommativo per la ricecra di ambo

e possibile avere realizzato lo stesso sommativo per la ricecra di ambo

jure ha scritto:
Il listato è perfetto solo che tro vato alla 3° linea
deve essere unito "trovato"
Clicca per espandere...



per favore se
e possibile avere realizzato lo stesso sommativo per la ricerca di ambo invece
che solo di ambata grazie


mamma mia nessuno mi posta uno script anche fac simile
abbiamo tanti bravi scriptologici e nessuno ci si avvicina grazie per chi lo fara.'
 
Ultima modifica:
Una buona giornata a tutti voi

da qualche tempo uso il listato modificato sopra riportato , principalmente ,per convergenze
ed a volte ci coglie, quanto meno te lo aspetti.
volevo chiedere al gentilissimo Mrgreen, o chi se la sente ,se fosse possibile modificare
l'algoritmo di ricerca ,attualmente ,l'indice mensile, con la somma estratti della ruota di ricerca:
tipo:
""
a = SommaEstratti(es,r)
If a = (x= sommaimpostata nell'inputbox) Then
""

eventuale ulteriore aggiunta come cigliegina sulla torta:

"""
Alla 3° estrazione del mese per 7 colpi:
Statistica dal 07.09.2013 al 07.06.2014 Ruota di Gioco Firenze PERCENTUALE 99% MESI 10
AAAAAAAAAAATTENZIONE PARAMETRI OTTIMIZZATI PER VINCITE NEI 7 COLPI AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

1° di BA + 3° di GE + 25............... su Firenze 9 su 10: 69 in corso
1° di CA + 5° di CA + 44............... su Firenze 9 su 10: 45 in corso
1° di CA + 5° di RO + 33............... su Firenze 9 su 10: 48 in corso
4° di FI + 2° di PA + 85............... su Firenze 9 su 10: 36 in corso
5° di FI + 2° di TO + 42............... su Firenze 9 su 10: 43 in corso
5° di FI + 3° di NZ + 49............... su Firenze 9 su 10: 9 in corso
3° di GE + 4° di VE + 45............... su Firenze 9 su 10: 43 in corso
4° di GE + 2° di NZ + 38............... su Firenze 9 su 10: 52 in corso
5° di MI + 2° di NA + 10............... su Firenze 9 su 10: 7 in corso
4° di MI + 5° di PA + 30............... su Firenze 9 su 10: 42 in corso"""

oltre all'output attuale qui sopra riportato

anche nella forma :69.45.48.36.43.9.43.52.7.42

per consentire di fare la verifica con altro listato dove si fornirebbe l'input direttamente
con un semplice copia/incolla senza dover ridigitare i singoli numeri

ringrazio anticipatamente per l'attenzione

ed auguro buon proseguimento
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 20 giugno 2026
    Bari
    90
    24
    74
    14
    75
    Cagliari
    79
    37
    32
    44
    27
    Firenze
    07
    56
    79
    29
    44
    Genova
    17
    24
    43
    89
    22
    Milano
    69
    51
    28
    27
    70
    Napoli
    08
    75
    73
    35
    22
    Palermo
    58
    42
    78
    59
    09
    Roma
    88
    78
    84
    68
    53
    Torino
    61
    34
    65
    59
    27
    Venezia
    37
    23
    76
    89
    86
    Nazionale
    72
    18
    63
    22
    33
    Estrazione Simbolotto
    Napoli
    22
    29
    25
    24
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto