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ì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto