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
    giovedì 30 gennaio 2025
    Bari
    09
    62
    01
    28
    73
    Cagliari
    50
    33
    43
    10
    29
    Firenze
    04
    63
    56
    34
    90
    Genova
    51
    20
    26
    46
    59
    Milano
    37
    78
    76
    20
    86
    Napoli
    43
    04
    45
    84
    53
    Palermo
    13
    43
    50
    67
    40
    Roma
    29
    12
    84
    71
    79
    Torino
    90
    16
    25
    76
    24
    Venezia
    26
    58
    23
    20
    40
    Nazionale
    74
    07
    54
    15
    36
    Estrazione Simbolotto
    Bari
    38
    22
    35
    26
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto