Novità

Adattare Script x 10elotto serale

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

jure

Advanced Member >PLATINUM PLUS<
Nel mio Archivio ho trovato questo listato qualcuno potrebbe Adattarlo per il 10elotto Serale.

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 = 8830 ' 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
 
Buonanotte ,
Listato Modificato .

Codice: 
Sub Main()
Call ImpostaArchivio10ELotto(01)
Dim som(10,10,90)
Dim estr(2,10)
Dim Val(10,10,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):",,95)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,8)
ultest = EstrazioniArchivioDL ' inserite qui il numero indice dell'ultima estrazione
n = EstrazioneFinDL
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If(((eval(es) = 0) And(n = ultest)) Or((IndiceMensileDL(n) = eval(es) And(eval(es) > 0)) _
Or((IndiceMensileDL(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 " + DataEstrazioneDL(nn) + " al " + DataEstrazioneDL(EstrazioneFinDL)
Messaggio " Elaborazione in corso "
z = 0
For i = 1 To 10
For l = 1 To 10
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 10
estr(j,i) = 0
Next
Next
valido = False
For n = nn To EstrazioneFinDL
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((IndiceMensileDL(m) = eval(es) And(eval(es) > 0)) _
Or((IndiceMensileDL(m) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
For i = 1 To 10
estr(1,i) = EstrattoDL(n,i)
estr(2,i) = EstrattoDL(n,i)
Next
For i = 1 To 10
For l = 1 To 10
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
If eval(ncg) = 0 Then
k2 = 9
If(IndiceMensileDL(n + 12) = eval(es)) Then
k2 = 8
End If
Else
k2 = eval(ncg)
End If
k3 = n + k2
If k3 > EstrazioneFinDL Then k3 = EstrazioneFinDL
For nv = n + 1 To k3
For i = 1 To 10
For j = 1 To 10
For l = 1 To 10
k = EstrattoDL(nv,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 10
For l = 1 To 10
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° + " + CStr(eval(l)) + "° + "
s = s + FormatSpace(CStr(eval(j)),2) + " "
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 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 Sub

Controllare Sempre .
Salvo Errori ed Omissis .
 
Ultima modifica di un moderatore:
Grazie Magia. Per la previsione finale si potrebbero mettere i numeri a scalare in base alle preferenze es. 15 su 15 - 14 su 15 - 13 su 15 ecc.
ciioe' in base ai mesi inpostati es. 12 su 12 - 11 su 12 - 10 su 12 ecc.
 
Ciao Alien lo script All'origine era ideato solo per il lotto io ho chiesto di poterlo
adattare per il 10elotto.
 
Ciao Magia il procedimento secondo la mia intenzione doveva essere lasciato svilupparsi sulle Ruote poi
la statistica doveva essere fatta sull'archivio del 10elotto.
es. 1° Bari + 3° di Milano su Bari 13 su 15 = 87 il risultato dovra' essere fatta la statistica sull'archivio del 10elotto.
 
Buonanotte,
Salutando gli intervenuti .
Postiamo il listato , modificato , per le sole 1 e 2 posizione .

Codice: 
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):",,70)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,12)
ultest = EstrazioniArchivio ' 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 11
If ru1 = 11 Then ru1 = 12
For ru2 = ru1 To 11
If ru2 = 11 Then ru2 = 12
AvanzamentoElab 01,11,ru1
Messaggio " Elaboro la ruota " & NomeRuota(ru1) & " con la " & NomeRuota(ru2) & " sulla ruota " & NomeRuota(r2)
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 2
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),10) + " + " + CStr(eval(l)) + "° di "
s = s + FormatSpace(NomeRuota(ru2),10) + " + " + 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
Controllare Sempre .
Salvo Errori ed Omissis .
 
jure;n2054301 ha scritto:
Ciao Alien lo script All'origine era ideato solo per il lotto io ho chiesto di poterlo
adattare per il 10elotto.
Clicca per espandere...

acc...perdonami non ho copiato il primo script non me ne ero accorto,grazie.
 
IL LISTATO PER IL LOTTO ....CREDO..CHE.....SE NON è AGGIORNATO TI DA AMBI E TERNI....,A POI SE AGGIORNI DOPO TI DA SOLO AMBATA DA METTERE IN GIOCO,QUINDI,,,BARA ? HO NON SO INTERPRETARLO ?:p
 
Ciao Magia Si potrebbe ad ogni previsione inserire la quantità' del numero che è
ripetuto ?
Magari sotto o sopra la previsione evidenziare i numeri in base alla quantita'.
es. 90=4 58=4 38=3 26=3 52=3 ecc.
Ti Ringrazio

All'ultima° estrazione del mese per 12 colpi:
Statistica dal 29.10.2016 al 25.03.2017
2° di Bari + 4° di Bari + 89 su Nazionale 5 su 6: 90 in corso=4
4° di Bari + 4° di Cagliari + 61 su Nazionale 5 su 6: 58 in corso=4
4° di Bari + 4° di Firenze + 72 su Nazionale 5 su 6: 79 in corso
1° di Bari + 1° di Palermo + 36 su Nazionale 5 su 6: 35 in corso
2° di Bari + 3° di Torino + 1 su Nazionale 5 su 6: 56 in corso
4° di Bari + 4° di Torino + 4 su Nazionale 5 su 6: 31 in corso
1° di Bari + 4° di Venezia + 14 su Nazionale 5 su 6: 38 in corso=3
2° di Bari + 1° di Venezia + 77 su Nazionale 5 su 6: 26 in corso
5° di Bari + 5° di Nazionale + 3 su Nazionale 5 su 6: 27 in corso
1° di Cagliari + 4° di Cagliari + 53 su Nazionale 5 su 6: 90 in corso
2° di Cagliari + 5° di Cagliari + 44 su Nazionale 5 su 6: 85 in corso
2° di Cagliari + 2° di Firenze + 87 su Nazionale 5 su 6: 77 in corso
3° di Cagliari + 4° di Firenze + 41 su Nazionale 5 su 6: 26 in corso
1° di Cagliari + 3° di Milano + 60 su Nazionale 5 su 6: 66 in corso
3° di Cagliari + 2° di Milano + 86 su Nazionale 5 su 6: 43 in corso
2° di Cagliari + 3° di Palermo + 10 su Nazionale 5 su 6: 61 in corso
5° di Cagliari + 3° di Palermo + 14 su Nazionale 5 su 6: 18 in corso
2° di Cagliari + 1° di Roma + 63 su Nazionale 5 su 6: 52 in corso=3
1° di Cagliari + 3° di Venezia + 40 su Nazionale 5 su 6: 15 in corso
5° di Cagliari + 5° di Venezia + 3 su Nazionale 5 su 6: 26 in corso
1° di Cagliari + 2° di Nazionale + 64 su Nazionale 5 su 6: 79 in corso
5° di Cagliari + 4° di Nazionale + 4 su Nazionale 5 su 6: 83 in corso
5° di Firenze + 5° di Genova + 42 su Nazionale 5 su 6: 76 in corso
2° di Firenze + 1° di Napoli + 68 su Nazionale 5 su 6: 65 in corso
3° di Firenze + 4° di Napoli + 49 su Nazionale 5 su 6: 14 in corso
ecc.
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto