Novità

Script x AMBETTO

Nikor

Premium Member
Beh… ciao ragazzi, credo si stia perdendo il filo del concetto!
Esempio questo intervento:
non so ma io ho questa terzina tra gli ambetti, con capogioco 82, è la più in ritardo

82.43.23...FI...rit.1001 / rmax. 1001

FI 42 82 * FI 43 82 * FI 41 82 * FI 42 81 * FI 42 83
Gruppo Ritardo..........383
Gruppo Ritardo Max......383
Gruppo Frequenza........59

Che la terzina ritardi da 1001 estrazioni per ambo non ci pive, ma questo non interessava a Miki…..
Il tema trattato era il tema Ambetto !!!

Poi cosa sono questi dati ?
FI 42 82 * FI 43 82 * FI 41 82 * FI 42 81 * FI 42 83
Gruppo Ritardo..........383
Gruppo Ritardo Max......383
Gruppo Frequenza........59
i 4 evidenziati in colore rosso non sono pertinenti alla giocata Ambetto sulla tua terzina........ incredibile come sia difficile spiegare in questo Forum !

Intanto si deve partire dal presupposto che la terzina sviluppa ben 12 ambi!
La situazione attuale per Ambetto è questa :
Rit. Max. 188 !
Rit. Att. 31 !

Ultimi 2 ambetti 83-23 in data 12/05/2018 e 23-81 in data 30/06/2018 !!!

Non facciamo minestroni come nell’altro Thread di Mike58 . Al topic # 11 c’è l’esatto resoconto dei ritardi attuali ( basterebbe solo prendersi la briga di leggere ! )

Buon proseguimento, mi dissocio Nikor.
 

Nikor

Premium Member
Preferirei non risponderti perchè di parole e tabelle ne ho già condivise tante!

Sviluppa gli ambetti della tua terzina ( 82-43-23 ) con gli adiacenti , sono in totale 12 ambetti che il gestore considera , per poter stilare il premio che è ( 260/12 = 21,66 lordi ) l'adiacente è il più e meno uno che dovrà abbinarsi ad uno dei tre numeri in terzina ( nel caso il numero fosse l'82 gli adiacenti non potranno essere ne 81 ne 83, ma quelli degli altri 2 numeri ) lo stesso vale se dovesse uscire il 43 che esclude il 42 ed il 44 , nel caso del 23 vengono sclusi dalla vincita di ambetto i numeri 22 e 24 !

Dallo sviluppo dei 12 ambi potrai vedere quali siano gli ambi che pagheranno la sorte Ambetto !

Quelli che ho evidenziato in colore rosso nel precedente post non vengono considerati per il Gioco Ambetto , confrontali ....

Penso che più chiaro e limpido di cosi non si possa spiegare!

Nikor.

PS. il termine che hai usato nei miei confronti non mi si addice.....
 
Ultima modifica:

druid

Super Member >PLATINUM<
miki55;n2130544 ha scritto:
dal punto di vista pratico - nel caso evidenziato - il 42 o qualsiasi altro numero come si ottiene?

sito per caricare immagini

Se hai il Visual 7 professionale, troverai anche gli AMBETTI ma solo come coppie
più ritardate, escluse le terzine...

....quindi lo script di cui fai richiesta al post #1 per funzionare avra' in input un ambetto ritardato ricavato da visual 7 ?!?

X Nikor: al post #8 l'immagine e' relativa ad un' interrogazione su DB - MYSQL. Hai accesso allo script/istruzioni sql? Se sì, puoi postarlo/e?
 

miki55

Advanced Member >PLATINUM PLUS<
quindi lo script di cui fai richiesta al post #1 per funzionare avra' in input un ambetto ritardato ricavato da visual 7 ?!?

...se leggi con attenzione a quello che ho scritto in precedenza,
noterai che ho fatto solo un esempio con uno degli ambetti più
ritardati.

Leggete tutto x favore prima di scrivere, così non avrei più dubbi

Ora x favore fate lavorare a chi vuole aiutarci con un script a
risolvere questa richiesta. Grazie
 

Nikor

Premium Member
Scusate la mia nuova intromissione:
Ciao Druid, non volermene…… per un sacco di ragioni che non posso spiegare pubblicamente, non mi è possibile esaudire la tua richiesta… mi dispiace magari un giorno spiegherò il perché!

Per Miki… mi auspico pure io che il tutto si possa tradurre in script, io posso essere di aiuto solo con i dati che ho a disposizione; restando al tema iniziale ti ho aggiunto altre 2 formazioni, le prime 2 le conosci le avevo postate nel topic # 04!
Aggiungi queste:
82-42-66 Rit. – 228
82-42-61 Rit. – 192
Lo scroll per le altre diventa ininfluente , e francamente sui 2 piedi non te lo saprei dire .. perche i ritardi scendono di molto sotto la soglia della 4^ formazione che si attesta alle 192 estrazioni di ritardo.

Intanto accontentiamoci di queste 4 e vediamo se è possibile ricavare qualche cosa di buono….

Nikor.
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao a Tutti, capirsi è sempre più difficile, ma è sempre meglio lavorare in gruppo con le idee di tutti, se poi son buone come le analisi statistiche di Miki55 e le analisi di verifica di Nikor, i risultati non possono che essere poi soddisfacenti.

Ricordiamo a tutti che ognuno di noi mette passione, tempo, impegno ed energie in tutto ciò che mette a disposizione il tutto come dico sempre "SENZA PRESUNZIONE DI PERFEZIONE"

lo script in questione si elabora in 1 minuto circa e dato un amboCapogioco per ambetto trova la terzina per ambetto.
come richiesta iniziale.

Codice:
Sub Main
   Dim Nu(3),Ru(1),Abb1(2),Abb2(2),abb3(2),abb4(2),GruppoFormazione
   Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),Abb11(2),Abb12(2)
   Dim T,V
   Ini = 1
   fin = EstrazioneFin
   r = InputBox("Scelta Ruota",,3)
   cG1 = InputBox("Capogioco 1",,82)
   cG2 = InputBox("Capogioco 2",,42)
   Scrivi "Ricerca Statistica Per Ambetto su AmboCapogioco Conosciuto (" & cG1 & "." & cG2 & ")",1,,,1,3,,1
   Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
   Scrivi
   ResetTimer
   Ru(1) = r
   T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit.Max","Frequenza","Sortito")
   Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambria")
   For abb = 1 To 90
      Nu(1) = cG1
      Nu(2) = cG2
      Nu(3) = abb
      '--------------ambetti----------------------
      Abb1(1) = Nu(1)
      Abb1(2) = Nu(2) + 1
      Call AddNumeriToGruppoStatistico(Abb1,r)
      Abb2(1) = Nu(1)
      Abb2(2) = Fuori90(Nu(2) - 1)
      Call AddNumeriToGruppoStatistico(Abb2,r)
      abb3(1) = Nu(1)
      abb3(2) = Fuori90(Nu(3) + 1)
      Call AddNumeriToGruppoStatistico(abb3,r)
      abb4(1) = Nu(1)
      abb4(2) = Fuori90(Nu(3) - 1)
      Call AddNumeriToGruppoStatistico(abb4,r)
      abb5(1) = Nu(2)
      abb5(2) = Fuori90(Nu(1) + 1)
      Call AddNumeriToGruppoStatistico(abb5,r)
      abb6(1) = Nu(2)
      abb6(2) = Fuori90(Nu(1) - 1)
      Call AddNumeriToGruppoStatistico(abb6,r)
      abb7(1) = Nu(2)
      abb7(2) = Fuori90(Nu(3) + 1)
      Call AddNumeriToGruppoStatistico(abb7,r)
      abb8(1) = Nu(2)
      abb8(2) = Fuori90(Nu(3) - 1)
      Call AddNumeriToGruppoStatistico(abb8,r)
      abb9(1) = Nu(3)
      abb9(2) = Fuori90(Nu(1) + 1)
      Call AddNumeriToGruppoStatistico(abb9,r)
      Abb10(1) = Nu(3)
      Abb10(2) = Fuori90(Nu(1) + 1)
      Call AddNumeriToGruppoStatistico(Abb10,r)
      Abb11(1) = Nu(3)
      Abb11(2) = Fuori90(Nu(2) + 1)
      Call AddNumeriToGruppoStatistico(Abb11,r)
      Abb12(1) = Nu(3)
      Abb12(2) = Fuori90(Nu(2) - 1)
      Call AddNumeriToGruppoStatistico(Abb12,r)
      '............................................................................
      If abb <> Nu(1) And abb <> Nu(2) Then
         Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
         Call AvanzamentoElab(1,90,abb)
         Call StatisticaGruppoFormazioni(2,rit,max,fre,GruppoFormazione,Ini,fin)
         Ambetto = VerificaAmbetto(Nu,r,(fin - rit),retNumeri,retVincita)
         V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit,max,fre,retNumeri)
         Call AddRigaTabella(V)
      End If
   Next
   CreaTabellaOrdinabile(4)
End Sub

Ciao
 

miki55

Advanced Member >PLATINUM PLUS<
BRAVISSIMO non avevo dubbi!!!
Complimenti a Mike58 x il lavoro svolto.
Proporrei ora a LuigiB (se possibile) di inserirlo
all'interno di Spaziometria, sarà molto utile...

miki55
 
Ultima modifica:

Nikor

Premium Member
Pirnamente d'accordo con Miki..... pure io ci avevo giurato che il Super Mike.. avrebbe trovato la quarda!

Se può servire il mio appoggio come tester per un confronto dati metto una piccola sintesi del mio personale output che parte da un ritardo minimo di 100 estrazioni:

82-42-21 … 343
82-42-36 … 313
82-42-66 … 228
82-42-83 … 272
82-42-61 … 192
82-42-88 … 192
82-42-10 … 184
82-42-19 … 154
82-42-13 … 151
82-42-44 … 121
82-42-12 … 115
82-42-43 … 113
82-42-71 … 112
82-42-86 … 111
82-42-64 … 109
82-42-34 … 108
82-42-02 … 105
82-42-41105
82-42-60 … 105
82-42-81105
82-42-31 … 104
82-42-32 … 104

Possiamo notare che 4 formazioni sono sotto lineate perchè non sviluppano i 12 ambi ma solo 8!

In grassetto sono visibili i ritardi sincroni, e poi ci sarebbe l'inghippo di una terzina che sviluppa 12 ambi con ambo ripetuto e senza fare indovinelli mi sapete dire quale è ?

Da una prima visione ottica qualche dato non collima con il superlativo resoconto di Mike.. devo vedere meglio , a più tardi....

Nikor.
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Miki,Nikor, anche sul mio script che generebbe tutti e 12 gli ambi qualcosa non risponde al meglio, il perché essendo rigido nella costruzione non ho messo il controllo con tutti gli if then del caso.
per esempio 82.42.82 va da sè che non può generare 12 ambi
Chiaro che si può fare, ma l'importante era raggiungere lo scopo nel tempo ragionevole.

Ciao e grazie anche a voi per l'apprezzamento che ricambio.
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
scusate riscaricate lo script c'era un piccolo errore +/-1 nelle costruzione di un ambetto.
Rimane lo scoglio dei numeri vicini.


Codice:
Sub Main
   Dim Nu(3),Ru(1),Abb1(2),Abb2(2),abb3(2),abb4(2),GruppoFormazione
   Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),Abb11(2),Abb12(2)
   Dim T,V
   Ini = 1
   fin = EstrazioneFin
   r = InputBox("Scelta Ruota",,3)
   cG1 = InputBox("Capogioco 1",,82)
   cG2 = InputBox("Capogioco 2",,42)
   ResetTimer
   Scrivi "Ricerca Statistica Per Ambetto su AmboCapogioco Conosciuto (" & cG1 & "." & cG2 & ")",1,,,1,3,,1
   Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
   Scrivi
   Ru(1) = r
   T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit.Max","Frequenza","Sortito","ID Sortito")
   Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambria")
   For abb = 1 To 90
      Nu(1) = cG1
      Nu(2) = cG2
      If abb = cG1 Then abb = 0
      If abb = cG2 Then abb = 0
      Nu(3) = abb
      '--------------ambetti----------------------
      Abb1(1) = Nu(1)
      Abb1(2) = Nu(2) + 1
      Call AddNumeriToGruppoStatistico(Abb1,r)
      Abb2(1) = Nu(1)
      Abb2(2) = Fuori90(Nu(2) - 1)
      Call AddNumeriToGruppoStatistico(Abb2,r)
      abb3(1) = Nu(1)
      abb3(2) = Fuori90(Nu(3) + 1)
      Call AddNumeriToGruppoStatistico(abb3,r)
      abb4(1) = Nu(1)
      abb4(2) = Fuori90(Nu(3) - 1)
      Call AddNumeriToGruppoStatistico(abb4,r)
      abb5(1) = Nu(2)
      abb5(2) = Fuori90(Nu(1) + 1)
      Call AddNumeriToGruppoStatistico(abb5,r)
      abb6(1) = Nu(2)
      abb6(2) = Fuori90(Nu(1) - 1)
      Call AddNumeriToGruppoStatistico(abb6,r)
      abb7(1) = Nu(2)
      abb7(2) = Fuori90(Nu(3) + 1)
      Call AddNumeriToGruppoStatistico(abb7,r)
      abb8(1) = Nu(2)
      abb8(2) = Fuori90(Nu(3) - 1)
      Call AddNumeriToGruppoStatistico(abb8,r)
      abb9(1) = Nu(3)
      abb9(2) = Fuori90(Nu(1) + 1)
      Call AddNumeriToGruppoStatistico(abb9,r)
      Abb10(1) = Nu(3)
      Abb10(2) = Fuori90(Nu(1) - 1)
      Call AddNumeriToGruppoStatistico(Abb10,r)
      Abb11(1) = Nu(3)
      Abb11(2) = Fuori90(Nu(2) + 1)
      Call AddNumeriToGruppoStatistico(Abb11,r)
      Abb12(1) = Nu(3)
      Abb12(2) = Fuori90(Nu(2) - 1)
      Call AddNumeriToGruppoStatistico(Abb12,r)
      '............................................................................
      Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
      Call AvanzamentoElab(1,90,abb)
      Call StatisticaGruppoFormazioni(2,rit,max,fre,GruppoFormazione,Ini,fin)
      Ambetto = VerificaAmbetto(Nu,r,(fin - rit),retNumeri,retVincita)
      V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit,max,fre,retNumeri,GetInfoEstrazione(fin - rit))
      Call AddRigaTabella(V)
      'End If
   Next
   Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
   CreaTabellaOrdinabile(4)
End Sub
 

Nikor

Premium Member
Ciao Mike.. ora è tutto a posto :p

Grazie anche a nome degli interessati, in special modo Miki.. che adesso potrà fare le sue analisi su un qualunque ambo capo gioco!

I nuovi dati sono in perfetta sintonia con quelli che avevo postato nel precedente topic # 30.

Come al solito , Grandioso :)

Sempre a disposizione per eventuali controlli con eventuali dati in mio possesso.....Nikor.
 

Mike58

Advanced Member >PLATINUM PLUS<
Per Chi Volesse sapere l'ambo + in ritardo per Ambetto con i dati mostrati da Miki
ecco lo script e come è statp preso l'ambo 82.42

Codice:
Sub Main
   Dim Nu(2),Ru(1),Abb1(2),Abb2(2),abb3(2),abb4(2),GruppoFormazione
   Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),Abb11(2),Abb12(2)
   Dim T,V
   Ini = 1
   fin = EstrazioneFin
   r = InputBox("Scelta Ruota",,3)
   cG1 = InputBox("Capogioco 1",,82)
   'cG2 = InputBox("Capogioco 2",,42)
   ResetTimer
   Scrivi "Ricerca Statistica Per Ambetto su Capogioco Conosciuto (" & cG1 & ")",1,,,1,3,,1
   Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
   Scrivi
   Ru(1) = r
   T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit.Max","Frequenza","Sortito","ID Sortito")
   Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambria")
   For abb = 1 To 90
      Nu(1) = cG1
     ' Nu(2) = cG2
      If abb = cG1 Then abb = 0
      'If abb = cG2 Then abb = 0
      Nu(2) = abb
      '--------------ambetti----------------------
      Abb1(1) = Nu(1)
      Abb1(2) = Nu(2) + 1
      Call AddNumeriToGruppoStatistico(Abb1,r)
      Abb2(1) = Nu(1)
      Abb2(2) = Fuori90(Nu(2) - 1)
      Call AddNumeriToGruppoStatistico(Abb2,r)

      abb5(1) = Nu(2)
      abb5(2) = Fuori90(Nu(1) + 1)
      Call AddNumeriToGruppoStatistico(abb5,r)
      abb6(1) = Nu(2)
      abb6(2) = Fuori90(Nu(1) - 1)
      Call AddNumeriToGruppoStatistico(abb6,r)

      '............................................................................
      Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
      Call AvanzamentoElab(1,90,abb)
      Call StatisticaGruppoFormazioni(2,rit,max,fre,GruppoFormazione,Ini,fin)
      Ambetto = VerificaAmbetto(Nu,r,(fin - rit),retNumeri,retVincita)
      V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit,max,fre,retNumeri,GetInfoEstrazione(fin - rit))
      Call AddRigaTabella(V)
      'End If
   Next
   Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
   CreaTabellaOrdinabile(4)
End Sub

Ciao
 

Nikor

Premium Member
Restando nel tema trattato che hai risolto egregiamente , mi era sfuggito questo tuo scritto:
Rimane lo scoglio dei numeri vicini.
Si sono d’accordo e per una mia curiosità ho provato con L’Ambetto più ritardato attualmente su uno dei 10 comparti formato da 2 numeri consecutivi!

Posso affermare che risultano solo poche o meglio dire pochissime discrepanze di dati, ed in linea di massima il tuo listato risolve anche questa analisi…..

Nel caso ci sarebbe bisogno dello scroll sulle prime 20/25 posizioni per Ambetto con capo gioco Ambo di consecutivi , io sarò sempre a disposizione con i dati in mio possesso. ( potrebbero servire per un confronto dati )

A questo punto la palla la passo Miki55 che potrà sbizzarrirsi con il tuo portento listato in ambiente Spaziometria, un saluto anche al Grande Maestro Luigi.B che ha permesso di emulare anche un gioco che era nato dopo molto tempo da quando il software era stato creato!

Buon proseguimento a tutti gli interessati, ed ancora un grazie a Mike58 per l’ottimo lavoro svolto con competenza e tempestività!

Nikor.
 

kira

Premium Member
buon giorno a tt., a me gira la testa nel vedere la vs competenza in questo gioco xciò oso farvi una domanda; stò giocando il 5 a bari come lo vedete? e se possibile la pos.( miki55 tu sei bravissimo in questo) a me piacciono le ambate:D:D...images?q=tbn:ANd9GcSyii0uc5mf7oB-CfEvs8VfWYnjv5FlDJebSVEFcJtgSmdM3rOk.jpg
 

Nikor

Premium Member
Ciao, nell'attesa che l'esperto Miki.. ti risponda , e tanto per rimanere in tema Ambetto ti posso dire che filtrando il numero 5 con gli altri 89 numeri ne consegue che L' Ambo 05-19 tarda per la sorte solo Ambetto da 509 estrazioni ! ( attualmente il più ritardato con il numero 19 ! )

Giocare i 2 numeri per la sorte indicata con un solo euro in caso di vincita il premio lordo satà di 65 €. perchè si sviluppano 4 ambi con l'ambo in oggetto....

Nikor.
 
Ultima modifica:

kira

Premium Member
grazie tante Nikor, hai ragione l'ambo o ambetto costa meno e remunera di + ma + difficile da centrare, invece l'ambata è +facile.....comunque stà certo ke quell'ambetto me lo gioco;) aspettando miki55graziea009.gif
 

claudio8

Premium Member
Ho inserito l'immediatezza delle verifiche,.(Esito).. un saluto a tutti ed un bravo a Mike58 x lo script

Codice:
Sub Main
     Dim Nu(3),Ru(1),Abb1(2),Abb2(2),abb3(2),abb4(2),GruppoFormazione
     Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),Abb11(2),Abb12(2)
     Dim T,V
     Ini = 1
     fin = EstrazioneFin
     r = InputBox("Scelta Ruota",,3)
     cG1 = InputBox("Capogioco 1",,82)
     cG2 = InputBox("Capogioco 2",,42)
     ResetTimer
     Scrivi "Ricerca Statistica Per Ambetto su AmboCapogioco Conosciuto (" & cG1 & "." & cG2 & ")",1,,,1,3,,1
     Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
     Scrivi
     Ru(1) = r
     T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit.Max","Freq.","UL Sortita","ID Sortita","Esito")
     Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambria")
     For abb = 1 To 90
          Nu(1) = cG1
          Nu(2) = cG2
          If abb = cG1 Then abb = 0
          If abb = cG2 Then abb = 0      
          Nu(3) = abb
          '--------------ambetti----------------------
          Abb1(1) = Nu(1)
          Abb1(2) = Nu(2) + 1
          Call AddNumeriToGruppoStatistico(Abb1,r)
          Abb2(1) = Nu(1)
          Abb2(2) = Fuori90(Nu(2) - 1)
          Call AddNumeriToGruppoStatistico(Abb2,r)
          abb3(1) = Nu(1)
          abb3(2) = Fuori90(Nu(3) + 1)
          Call AddNumeriToGruppoStatistico(abb3,r)
          abb4(1) = Nu(1)
          abb4(2) = Fuori90(Nu(3) - 1)
          Call AddNumeriToGruppoStatistico(abb4,r)
          abb5(1) = Nu(2)
          abb5(2) = Fuori90(Nu(1) + 1)
          Call AddNumeriToGruppoStatistico(abb5,r)
          abb6(1) = Nu(2)
          abb6(2) = Fuori90(Nu(1) - 1)
          Call AddNumeriToGruppoStatistico(abb6,r)
          abb7(1) = Nu(2)
          abb7(2) = Fuori90(Nu(3) + 1)
          Call AddNumeriToGruppoStatistico(abb7,r)
          abb8(1) = Nu(2)
          abb8(2) = Fuori90(Nu(3) - 1)
          Call AddNumeriToGruppoStatistico(abb8,r)
          abb9(1) = Nu(3)
          abb9(2) = Fuori90(Nu(1) + 1)
          Call AddNumeriToGruppoStatistico(abb9,r)
          Abb10(1) = Nu(3)
          Abb10(2) = Fuori90(Nu(1) - 1)
          Call AddNumeriToGruppoStatistico(Abb10,r)
          Abb11(1) = Nu(3)
          Abb11(2) = Fuori90(Nu(2) + 1)
          Call AddNumeriToGruppoStatistico(Abb11,r)
          Abb12(1) = Nu(3)
          Abb12(2) = Fuori90(Nu(2) - 1)
          Call AddNumeriToGruppoStatistico(Abb12,r)
          '............................................................................
          Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
          Call AvanzamentoElab(1,90,abb)
          Call StatisticaGruppoFormazioni(2,rit,max,fre,GruppoFormazione,Ini,fin)
          Ambetto = VerificaAmbetto(Nu,r,(fin - rit),retNumeri,retVincita)
          For clp = 1 To EstrazioniArchivio - EstrazioneFin
               If VerificaAmbetto(Nu,r,fin + clp,retnumr1,rVincitar1) > 0 Then '
                    colpo = clp
                    Exit For
               Else
                    colpo = "   "
               End If
          Next
          esit = colpo & "° -> " & retnumr1
          V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit,max,fre,retNumeri,GetInfoEstrazione(fin - rit),esit)
          Call AddRigaTabella(V)
     Next
     Call SetTableWidth("100%")
     Call SetTableHeight("100%")
     CreaTabellaOrdinabile(4)
     Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
End Sub
 
Ultima modifica:

Nikor

Premium Member
Ciao Claudio.. grazie per questa aggiunta; ;) se mi posso permettere ed esprimere il mio parere, dovtrsti partecipare di più !

Beh... non mandarmi a quel paese ......

Cordialità , Nikor.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto