Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Aiuto x modifica script

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
 

bonalele

Junior Member
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
 

zetrix

Premium Member
questo script ce lo pure io lo fatto modificare da dj nomade

a te servirebbe che non sommasse i numeri fissi
 

zetrix

Premium Member
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
 

bonalele

Junior Member
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
grazie mille lo provo immediatamente
 

bonalele

Junior Member
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:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 17 aprile 2021
    Bari
    59
    61
    41
    04
    32
    Cagliari
    10
    68
    19
    11
    85
    Firenze
    41
    01
    13
    73
    47
    Genova
    44
    30
    39
    88
    90
    Milano
    67
    88
    33
    13
    32
    Napoli
    44
    41
    79
    80
    66
    Palermo
    15
    59
    04
    31
    21
    Roma
    46
    68
    56
    78
    58
    Torino
    09
    15
    84
    17
    32
    Venezia
    81
    04
    84
    42
    35
    Nazionale
    52
    16
    63
    62
    46
    Estrazione Simbolotto
    Genova
    38
    36
    41
    17
    13

Ultimi Messaggi

Alto