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
    giovedì 06 marzo 2025
    Bari
    31
    41
    69
    20
    34
    Cagliari
    28
    79
    66
    24
    70
    Firenze
    66
    89
    84
    74
    31
    Genova
    32
    09
    63
    61
    17
    Milano
    39
    68
    71
    79
    83
    Napoli
    44
    64
    06
    57
    13
    Palermo
    30
    80
    01
    87
    74
    Roma
    59
    47
    06
    05
    28
    Torino
    51
    23
    22
    31
    52
    Venezia
    83
    71
    28
    34
    26
    Nazionale
    34
    83
    53
    81
    14
    Estrazione Simbolotto
    Firenze
    24
    29
    14
    16
    45
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto