Novità

Aiuto x modifica script

B

bonalele

Junior Member
Buongiorno
questo script fa al caso mio ma oltre ai 2 estratti somma anche un fisso.
C'è qualcuno che è in grado di eliminare questa somma del fisso? Grazie Mille

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-8):",,0)
nmc = InputBox("Numero di mesi da considerare:",,19)
perc = InputBox("Inserisci la percentuale (0-100):",,90)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,13)
ultest = 7343 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere una sola 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 della 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 una sola 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 della 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 + 8) = 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 " & _
FormatSpace(NomeRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2)
s = s + " su " + NomeRuota(r2) + " " + 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
For i = 1 To 90
If(amb(i) > 1) Then Scrivi CStr(eval(i)) + ": previsto da " + CStr(eval(amb(i))) + " sistemi"
Next
Next
End Sub

Grazie
Raffaele
 
Buongiorno mi scuso con tutti ma vorrei chiedere a qualche esperto del forum come Mike58 e moltissimi altri se fosse possibile modificare questo script.
Lo script ricerca le migliori ambata sommando 2 estratti e un numero fisso.
Io vorrei capire come NON far sommare il numero fisso.
Grazie per l'aiuto
 
questo script ce lo pure io lo fatto modificare da dj nomade

a te servirebbe che non sommasse i numeri fissi
 
Codice: 
Sub Main()


SetColorSezione(vbBlack)

EndColorSezione



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,rv
Dim pt(1)
pt(1) = 1
'r2 = InputBox("Inserisci la Ruota di Gioco):",,1)
rv = ScegliRuota
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,5)
perc = InputBox("Inserisci la percentuale (0-100):",,99)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,0)
ultest = EstrazioneFin ' inserite qui il numero indice dell'ultima estrazione'DEL MESE ??
For r2 = rv To rv
If r2 = 11 Then r2 = 12

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(6)
Scrivi s
ColoreTesto(3)
Scrivi
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin) & " Ruota di Gioco " & NomeRuota(r2) & " Percentuale di Vincita " & perc & "%"
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 = 90 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "°" + FormatSpace(SiglaRuota(ru1),2) + " + " + CStr(eval(l)) + "°"
s = s + FormatSpace(SiglaRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2) + "............... su " + NomeRuota(r2) + " "
s = s + CStr(som(i,l,j)) + " casi " + ": " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then
s = s + " in corso"
ColoreTesto(7)
Else
ColoreTesto(1)
s = s + " x "
End If
If(som(i,l,j) >= zz) Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s,1
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1

'ImpostaGiocata 1,amb,ru1,ru2,pt,ncg,0

'Gioca es,1,,1

End If
End If
Next
Next
Next
End If
Next
End If
Next
Next
End Sub
 
zetrix ha scritto:
Codice: 
Sub Main()


SetColorSezione(vbBlack)

EndColorSezione



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,rv
Dim pt(1)
pt(1) = 1
'r2 = InputBox("Inserisci la Ruota di Gioco):",,1)
rv = ScegliRuota
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,5)
perc = InputBox("Inserisci la percentuale (0-100):",,99)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,0)
ultest = EstrazioneFin ' inserite qui il numero indice dell'ultima estrazione'DEL MESE ??
For r2 = rv To rv
If r2 = 11 Then r2 = 12

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(6)
Scrivi s
ColoreTesto(3)
Scrivi
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin) & " Ruota di Gioco " & NomeRuota(r2) & " Percentuale di Vincita " & perc & "%"
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 = 90 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "°" + FormatSpace(SiglaRuota(ru1),2) + " + " + CStr(eval(l)) + "°"
s = s + FormatSpace(SiglaRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2) + "............... su " + NomeRuota(r2) + " "
s = s + CStr(som(i,l,j)) + " casi " + ": " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then
s = s + " in corso"
ColoreTesto(7)
Else
ColoreTesto(1)
s = s + " x "
End If
If(som(i,l,j) >= zz) Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s,1
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1

'ImpostaGiocata 1,amb,ru1,ru2,pt,ncg,0

'Gioca es,1,,1

End If
End If
Next
Next
Next
End If
Next
End If
Next
Next
End Sub
Clicca per espandere...
grazie mille lo provo immediatamente
 
E' possibile visualizzare i 5 estratti di ogni caso rilevato e contare le ambate che si ripetono per stabilire i possibili abbinamenti?

Lo script somma 2 estratti, è possibile sapere come modificare per ottenere il risultato della sottrazione dei 2 estratti?

Grazie mille x l'aiuto
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto