Novità

aiuto

G

giluge

Super Member >PLATINUM<
chi mi puo' aiutare?

cerco statistiche o script che analizzino per statistica al 10elotto queste serie di numeri da 30 lette verticalmente
grazieeeeeeeeeeeee


1 2 3
4 5 6
7 8 9
10 11 12
13 14 15
16 17 18
19 20 21
22 23 24
25 26 27
28 29 30
31 32 33
34 35 36
37 38 39
40 41 42
43 44 45
46 47 48
49 50 51
52 53 54
55 56 57
58 59 60
61 62 63
64 65 66
67 68 69
70 71 72
73 74 75
76 77 78
79 80 81
82 83 84
85 86 87
88 89 90
 
spiego meglio la richiesta

gradirei uno script che scelga 8-9-10 e piu' numeri facenti parte di una colonna delle suddette verticali
grazie ancora
 
ciao giluge vedi se può esserti di aiuto
Codice: 
Sub MainImpostaArchivio10ELotto(2)
Dim a(30)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - 3000
'Scrivi NomeRuota(Ru(1)),1,0
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & EstrazioniArchivioDL(),1,0,6
Scrivi" ****** Per 10 e lotto 5min ******** ",1,0,3
Scrivi " totali estrazioni " &(fin - Ini) & " ",1,- 1,4
Scrivi
a(01) = "01-02-03"
a(02) = "04-05-06"
a(03) = "07-08-09"
a(04) = "10-11-12"
a(05) = "13-14-15" 
a(06) = "16-17-18"
a(07) = "19-20-21"
a(08) = "22-23-24"
a(09) = "24-26-27"
a(10) = "28-29-30"
a(11) = "31-32-33"
a(12) = "34-35-36"
a(13) = "37-38-39"
a(14) = "40-41-42"
a(15) = "43-44-45"
a(16) = "46-47-48"
a(17) = "49-50-51"
a(18) = "52-53-54"
a(19) = "55-56-57"
a(20) = "58-59-60"
a(21) = "61-62-63" 
a(22) = "64-65-66"
a(23) = "67-68-69"
a(24) = "70-71-72"
a(25) = "73-74-75"
a(26) = "76-77-78"
a(27) = "79-80-81"
a(28) = "82-83-84"
a(29) = "85-86-87"
a(30) = "88-89-90"
For n = 1 To 30 '''''''''''''''''''''''''il 30 è riferito alla quantità di formazioni da ricercare
Nu = Split("0-" & a(n),"-")
SF = SerieFreqDL(Ini,Fin,Nu,2)
Tot = Tot + SF
SRA = SerieRitardoDL(Ini,fin,nu,2)
''''''''''''''''''''''''''
SFT = SerieFreqDL(Ini,Fin,Nu,3)
TotT = TotT + SFT
SRT = SerieRitardoDL(Ini,fin,nu,3)
''''''''''''''''''''''''''


ColoreTesto 1
Scrivi StringaNumeri(Nu) & " - " & " Pres. Ambo " & Format2(SF) & " - Rit. Ambo : " & Format2(srA) & " Pres. Terno " & Format2(SFT) & " - Rit. Terno : " & Format2(sft),1
ColoreTesto 0
ImpostaGiocataDL n,nu,1,72
Next
Scrivi
Scrivi"----------------------------------- Dettaglio ultime 10 giocate ---------------------------------"
Call GiocaDL(fin - 72)
ScriviResoconto(True)
TestoInBandaPassante("listato originale joe91 - mike58 modificato da keeper > "),1,3,0
End Sub
 
errore script

1010 previsto identificatore
linea 1
colonna 32
source errore di compilazione di microsoft vbcript
 
grazie, cosi va bene, grazie tante.

preciso che la statistica la vorrei sulla colonna verticale - sulle 3 colonne verticali
 
a(01) = "01-04-07-10-13-16-19-22-25-28-31-34-37-40-43-46-49-52-55-58-61-64-67-70-73-76-79-82-85-88"

poi 02-05-08-11-14-17-20-23-26-29-32-35-38-41-44-47-50-53-56-59-62-65-68-71-74-77-80-83-86-89

03-06-09-12-15-18-21-24-27-30-33-36-39-42-45-48-51-54-57-60-63-66-69-72-75-78-81-84-87-90
queste le righe
a me interessa sapere quanti numeri di una, quanti della seconda e quanti della 3^
grazie ancora a tutti
e, se possibile magari mettere delle combinazioni piu' probabili
in classe che vi viene meglio
chiedo troppo?

p.s.10elotto 5 m
e quello serale grazie ancora
 
Ultima modifica:
allora potresti usare direttamente spaziometria combinazioni frequenti oppure creare un sistema e salvare le colonne in terzine poi dovresti caricarlo nelle formazioni e fare una statistica
 
keeper ha scritto:
allora potresti usare direttamente spaziometria combinazioni frequenti oppure creare un sistema e salvare le colonne in terzine poi dovresti caricarlo nelle formazioni e fare una statistica
Clicca per espandere...
grazie keeper per laiuto
ma in effetti non cerco statistiche su terzine, ma su tutta la riga dei 30 numeri
purtroppo non so fare come dici di usare direttamente spaziometria....
cmq grazie ugualmente
chissa' se qualcun altro che legge mi vorra' aiutare--------- riferimento puramente a mister baffoblu :)
 
Mi dispiace, ma io mi dedico solo al Lotto classico.

Tutto il resto non mi ha mai interessato veramente.....
 
Baffoblu ha scritto:
Mi dispiace, ma io mi dedico solo al Lotto classico.

Tutto il resto non mi ha mai interessato veramente.....
Clicca per espandere...

prendo atto
e' una statistica, che sia lotto classico o 5m non importa
avevo letto che facevi script a richiesta
mi sono sbagliato allora
forse nel forum passo per un .....
 
giluge ha scritto:
prendo atto
e' una statistica, che sia lotto classico o 5m non importa
avevo letto che facevi script a richiesta
mi sono sbagliato allora
forse nel forum passo per un .....
Clicca per espandere...


1°) - Non mi occupo di 10eLotto.

2°) - Il 10eLotto non mi piace affatto.

3°) - Gli script per il 10eLotto sono leggermente diversi.

4°) - Io faccio script, ma dico sempre : "Se lo so fare......".

5°) - Lo script che chiedi, io non lo so fare.

6°) - Speriamo che hai capito.......
 
keeper ha scritto:
ciao giluge vedi se può esserti di aiuto
Codice: 
Sub MainImpostaArchivio10ELotto(2)
Dim a(30)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - 3000
'Scrivi NomeRuota(Ru(1)),1,0
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & EstrazioniArchivioDL(),1,0,6
Scrivi" ****** Per 10 e lotto 5min ******** ",1,0,3
Scrivi " totali estrazioni " &(fin - Ini) & " ",1,- 1,4
Scrivi
a(01) = "01-02-03"
a(02) = "04-05-06"
a(03) = "07-08-09"
a(04) = "10-11-12"
a(05) = "13-14-15" 
a(06) = "16-17-18"
a(07) = "19-20-21"
a(08) = "22-23-24"
a(09) = "24-26-27"
a(10) = "28-29-30"
a(11) = "31-32-33"
a(12) = "34-35-36"
a(13) = "37-38-39"
a(14) = "40-41-42"
a(15) = "43-44-45"
a(16) = "46-47-48"
a(17) = "49-50-51"
a(18) = "52-53-54"
a(19) = "55-56-57"
a(20) = "58-59-60"
a(21) = "61-62-63" 
a(22) = "64-65-66"
a(23) = "67-68-69"
a(24) = "70-71-72"
a(25) = "73-74-75"
a(26) = "76-77-78"
a(27) = "79-80-81"
a(28) = "82-83-84"
a(29) = "85-86-87"
a(30) = "88-89-90"
For n = 1 To 30 '''''''''''''''''''''''''il 30 è riferito alla quantità di formazioni da ricercare
Nu = Split("0-" & a(n),"-")
SF = SerieFreqDL(Ini,Fin,Nu,2)
Tot = Tot + SF
SRA = SerieRitardoDL(Ini,fin,nu,2)
''''''''''''''''''''''''''
SFT = SerieFreqDL(Ini,Fin,Nu,3)
TotT = TotT + SFT
SRT = SerieRitardoDL(Ini,fin,nu,3)
''''''''''''''''''''''''''


ColoreTesto 1
Scrivi StringaNumeri(Nu) & " - " & " Pres. Ambo " & Format2(SF) & " - Rit. Ambo : " & Format2(srA) & " Pres. Terno " & Format2(SFT) & " - Rit. Terno : " & Format2(sft),1
ColoreTesto 0
ImpostaGiocataDL n,nu,1,72
Next
Scrivi
Scrivi"----------------------------------- Dettaglio ultime 10 giocate ---------------------------------"
Call GiocaDL(fin - 72)
ScriviResoconto(True)
TestoInBandaPassante("listato originale joe91 - mike58 modificato da keeper > "),1,3,0
End Sub
Clicca per espandere...
ciao keeper e altre anime pie

io ho modificato i numeri, le terzine e lo script mi viene, mi da il ritardo sull'ambo
guarda come modificato
Sub Main
ImpostaArchivio10ELotto(2)
Dim a(30)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - 3000
'Scrivi NomeRuota(Ru(1)),1,0
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & EstrazioniArchivioDL(),1,0,6
Scrivi" ****** Per 10 e lotto 5min ******** ",1,0,3
Scrivi " totali estrazioni " &(fin - Ini) & " ",1,- 1,4
Scrivi
a(01) = "01-04-07"
a(02) = "10-13-16"
a(03) = "19-22-25"
a(04) = "28-31-34"
a(05) = "37-40-43"
a(06) = "46-49-52"
a(07) = "55-58-61"
a(08) = "64-67-70"
a(09) = "73-76-79"
a(10) = "82-85-88"
a(11) = "02-05-08"
a(12) = "11-14-17"
a(13) = "20-23-26"
a(14) = "29-32-35"
a(15) = "38-41-44"
a(16) = "47-50-53"
a(17) = "56-59-62"
a(18) = "65-68-71"
a(19) = "74-77-80"
a(20) = "83-86-89"
a(21) = "03-06-09"
a(22) = "12-15-18"
a(23) = "21-24-27"
a(24) = "30-33-36"
a(25) = "39-42-45"
a(26) = "48-51-54"
a(27) = "57-60-63"
a(28) = "66-69-72"
a(29) = "75-78-81"
a(30) = "84-87-90"


For n = 1 To 30 '''''''''''''''''''''''''il 30 è riferito alla quantità di formazioni da ricercare
Nu = Split("0-" & a(n),"-")
SF = SerieFreqDL(Ini,Fin,Nu,2)
Tot = Tot + SF
SRA = SerieRitardoDL(Ini,fin,nu,2)
''''''''''''''''''''''''''
SFT = SerieFreqDL(Ini,Fin,Nu,3)
TotT = TotT + SFT
SRT = SerieRitardoDL(Ini,fin,nu,3)
''''''''''''''''''''''''''




ColoreTesto 1
Scrivi StringaNumeri(Nu) & " - " & " Pres. Ambo " & Format2(SF) & " - Rit. Ambo : " & Format2(srA) & " Pres. Terno " & Format2(SFT) & " - Rit. Terno : " & Format2(sft),1
ColoreTesto 0
ImpostaGiocataDL n,nu,1,72
Next
Scrivi
Scrivi"----------------------------------- Dettaglio ultime 10 giocate ---------------------------------"
Call GiocaDL(fin - 72)
ScriviResoconto(True)
TestoInBandaPassante("listato originale joe91 - mike58 modificato da keeper > "),1,3,0
End Sub


chiedo
anziche' fare 30 terzine, si possono fare 3 trentine?

cioe' queste:
01-04-07-10-13-16-19-22-25-28-31-34-37-40-43-46-49-52-55-58-61-64-67-70-73-76-79-82-85-88"
 02-05-08-11-14-17-20-23-26-29-32-35-38-41-44-47-50-53-56-59-62-65-68-71-74-77-80-83-86-89

03-06-09-12-15-18-21-24-27-30-33-36-39-42-45-48-51-54-57-60-63-66-69-72-75-78-81-84-87-90
e cercare la statistica su ambi -terni ecc
oppure solo la sestina?
scusate la mia ignoranza e se non posto in modo che si capisce, il mio quoziente arriva cosi-
grazie e scusatemi
 
Ciao, Giluge, le combinazioni dello script puoi modificarle a tuo piacimento ma in numero di max 10 per combinazione perchè altrimenti il codice GIOCA non roconosce la giocata ( che è max 10 numeri per bolletta ).
Quindi sullo script in oggetto puoi fare tutte le combinazioni che vuoi(max della matrice impostata) ricercare con un max di 10 numeri.

Tuttavia se proprio vuoi fare una ricerca statistica sui tuoi numeri in lnghette anche da 30 numeri prova questa soluzione.
lo script e impostato per il 10 e lotto classico se vuoi il 10 e lotto 5min devi impostare l'archivio con
ImpostaArchivio10ELotto(2)

Ciao.

Codice: 
Sub Main()
 ImpostaArchivio10ELotto(1)
 Dim Nn(30)
 QT = InputBox("Quanti Numeri","Numeri",6)
 ScegliNumeri(Nn)
 Ini = EstrazioniArchivioDL - 20
 Fin = EstrazioniArchivioDL
 Scrivi "........ Da " & DataEstrazioneDL(Ini) & " a " & DataEstrazioneDL(fin),1
 Scrivi
 Scrivi " Evidenzia numeri giocati sulla combinazione 10 e lotto ",1
 Scrivi"------------------------------------------------------------"
 ColoreTesto 2
 Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
 ColoreTesto 0
 Scrivi"------------------------------------------------------------"
 For Es = Ini To Fin
  tot = 0
  Scrivi DataEstrazioneDL(es) & " ",0,0
  Scrivi "[" & Es & "] ",0,0
  For P = 1 To 20
   ColoreTesto 1
   For x = 1 To Qt
    If EstrattoDL(Es,P) = Nn(x) Then
     ColoreTesto 2
     tot = tot + 1
    End If
   Next
   Scrivi Format2(EstrattoDL(Es,P)),1,0
   ColoreTesto 0
   Scrivi ".",0,0
  Next
  ColoreTesto 7
  Scrivi " - Punteggio max -> " & tot,1
  ColoreTesto 0
 Next
 Scrivi
 Scrivi"--------------------------------------------------------------"
End Sub
 
x mike58
grazie mille
faro' come dici
anche se, aspetto qualche script ed anche con possibilita' di selezionare dei numeri da mettere in gioco, i piu' probabili.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 03 giugno 2025
    Bari
    22
    06
    19
    70
    35
    Cagliari
    63
    52
    04
    64
    43
    Firenze
    77
    56
    88
    38
    21
    Genova
    40
    86
    56
    32
    74
    Milano
    36
    42
    01
    33
    67
    Napoli
    63
    06
    37
    46
    64
    Palermo
    85
    66
    17
    42
    41
    Roma
    49
    88
    03
    80
    57
    Torino
    38
    42
    43
    53
    69
    Venezia
    50
    16
    55
    31
    32
    Nazionale
    28
    11
    73
    72
    52
    Estrazione Simbolotto
    Napoli
    13
    22
    38
    33
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto