Novità

Modifica Script

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

jure

Advanced Member >PLATINUM PLUS<
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
    martedì 05 agosto 2025
    Bari
    57
    24
    52
    53
    56
    Cagliari
    43
    12
    64
    58
    22
    Firenze
    55
    05
    51
    58
    87
    Genova
    19
    80
    76
    75
    71
    Milano
    52
    44
    86
    33
    02
    Napoli
    28
    67
    29
    51
    53
    Palermo
    73
    90
    46
    51
    80
    Roma
    42
    30
    62
    02
    12
    Torino
    49
    61
    56
    11
    10
    Venezia
    66
    79
    83
    12
    07
    Nazionale
    47
    16
    32
    66
    64
    Estrazione Simbolotto
    Nazionale
    14
    05
    44
    38
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto