Top Five

joe · 8 Ottobre 2021

Buona giornata a tutte/i.

87.90 Mi Ro To Estratti ed in Ambo anche a tutte,

con 85.86.88 per Ambo e Terno a tutte.

85.88 Ca Estratto ed Ambo anche a Tt

I 3 abbinamenti sono in evidenza come estratti secchi per Palermo Roma e Torino.

joe · 17 Ottobre 2021

Buona Domenica a tutte/i.

Nell'estrazione del 16 ottobre 2021,

a Palermo cade l'Ambo secco 85.88.

Chiusa.

Settenario · 18 Ottobre 2021

buona sera joe
è possibile inserire in questo tuo script una funzione che trovi il max di colpi giocati della ruota selezionata.
Grazie in anticipo

Codice:

Sub Main
   Dim num(10)
   Dim ruota(12)
   Dim posta(5)
   Ini = 9909 ' inizio estrazioni
   fin = 9988 ' fine estrazioni
   r = 1 ' ruota
   clp = 79 ' colpi
   ruota(1) = r
   Scrivi "Ruota di..." & NomeRuota(r),1
   Scrivi
   For es = Ini To fin
      a = Estratto(es,r,1)
      b = Estratto(es,r,2)
      c = Estratto(es,r,3)
      d = Estratto(es,r,4)
      e = Estratto(es,r,5)
      'Scrivi StringaEstratti(es,1)
      '----- modulo fuori 8110 NO !! 8110 <> 8100 -----------
      aa = FuoriX((a*90),8100) + b
      bb = FuoriX((b*90),8100) + c
      cc = FuoriX((c*90),8100) + d
      dd = FuoriX((d*90),8100) + e
      ee = FuoriX((e*90),8100) + a
      Scrivi aa & " " & bb & " " & cc & " " & dd & " " & ee
      '--------------------------------------
      '----- modulo diemme ------------------
      a1 = aa*16
      a2 = bb*8
      a3 = cc*4
      a4 = dd*2
      a5 = ee*1
      '-------------------------------------
      Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5 & " = ",0,0
      Scrivi(a1 + a2 + a3 + a4 + a5) * 6271
      '-------- 3 fase somma modulo diemme-----------------
      x =(a1 + a2 + a3 + a4 + a5) * 6271
      x1 =(x *2) - aa
      x2 =(x1*2) - bb '<<< Attento qui! NN X >>> X1 ecc ... a seguire
      x3 =(x2*2) - cc
      x4 =(x3*2) - dd
      x5 =(x4*2) - ee
      Scrivi x1 & " " & x2 & " " & x3 & " " & x4 & " " & x5
      '--------passaggio errato da capire NON FUNZIONA Fuori8100 -----
      ' Sostituito con Funzione di Rosanna
      xx1 = FN(x1)
      xx2 = FN(x2)
      xx3 = FN(x3)
      xx4 = FN(x4)
      xx5 = FN(x5)
      Scrivi xx1 & " " & xx2 & " " & xx3 & " " & xx4 & " " & xx5
      '----------- INTERO --------------------------------------------
      y1 = Int(xx1/90) 'versione classica
      y2 = Int(xx2/90)
      y3 = Int(xx3/90)
      y4 = Int(xx4/90)
      Y5 = Int(xx5/90)
      Scrivi y1 & " " & y2 & " " & y3 & " " & y4 & " " & y5
      '---------- RESTO ----------------------------------------------
      z1 = Fuori90(xx1 -(90*y1))
      z2 = Fuori90(xx2 -(90*y2))
      z3 = Fuori90(xx3 -(90*y3))
      z4 = Fuori90(xx4 -(90*y4))
      z5 = Fuori90(xx5 -(90*y5))
      Scrivi z1 & " " & z2 & " " & z3 & " " & z4 & " " & z5
      'Utilizzato modello preesistente ------------------------------
      num(9) = y5'Fuori90(Left(xx5,2))
      num(10) = z5'Fuori90(Right(xx5,2))
      Call VerificaEsito(num,ruota,es + 1,1,clp,Nothing,retesito,retcolpi,retestratti,retid)
      Scrivi GetInfoEstrazione(es) & " - " & " - " & StringaEstratti(es,r) & " - " & StringaNumeri(num,,True)
      Scrivi
      ColoreTesto 2
      Scrivi " Esito... " & retesito
      Scrivi " Colpo...." & retcolpi
      Scrivi " Estratti " & retestratti
      Scrivi
      ColoreTesto 0
   Next
End Sub
Function FN(n) ' fuori8100 By Rox
   If n -(8100*Int(n/8100)) = 0 Then FN = 8100 Else FN = n -(8100*Int(n/8100))
End Function
'DIEMME.TMP By Joe

joe · 19 Ottobre 2021

Buon Giorno a tutte/i.

Ringrazio Isabel, Daab, miaomiaomiciomicio, giancarlo1958 e micro_

Kondor13, quello script non è mio.

Può essere che all'epoca vi abbia partecipato con qualche modifica, ma non ne ho ricordo.

Oppure chi l'ha redatto (probabilmente Mike) possa aver aggiunto, qualche piccola parte,

che si richiama a me o meglio, a Rosanna, o Franco che è uomo dei 1000 metodi.

Per fare quello che hai chiesto e per quello che ho capito da una lettura veloce,

la ruota sembra essere unica e pertanto è esclusa dal contenuto della richiesta stessa.

Per il resto e con la premessa che lo script non è mio, dovrei capire cosa fa e come funziona,

prima di poterti dire se mi è possibile modificarlo aggiungendo questa richiesta.

Penso possa essere possibile, ma senza aver eseguito lo script proprio non so.

In pratica se non ci sono altri contributi, dovrò studiarne la struttura.

Settenario · 19 Ottobre 2021

Grazie joe, non ricordo se lo script sia completamento tuo, ma sicuramente c'è il tuo zampino

.
Per quando riguarda la funzione deve calcolare il max storico dei colpi giocati della ruota selezionata, che poi io sceglierò in base alle mie esigenze.
Grazie infinite per il tuo interessamento.

joe · 21 Ottobre 2021

Ciao Kondor13,

Buon giorno a tutte/i.

Prova questo:

Codice:

Sub Main
   Dim num(10)
   Dim ruota(12)
   Dim posta(5)
   Dim retcolpi, Sto
   Ini = 3950 ' inizio estrazioni
   Fin = EstrazioneFin ' fine estrazioni
   r = 1 ' ruota
   clp = 250 ' colpi
   ruota(1) = ScegliRuota
   Scrivi "Ruota di..." & NomeRuota(r),1
   Scrivi
   For Es = Ini To Fin :
   AvanzamentoElab Ini,Fin,Es
      a = Estratto(es,r,1)
      b = Estratto(es,r,2)
      c = Estratto(es,r,3)
      d = Estratto(es,r,4)
      e = Estratto(es,r,5)
      'Scrivi StringaEstratti(es,1)
      '----- modulo fuori 8110 NO !! 8110 <> 8100 -----------
      aa = FuoriX((a*90),8100) + b
      bb = FuoriX((b*90),8100) + c
      cc = FuoriX((c*90),8100) + d
      dd = FuoriX((d*90),8100) + e
      ee = FuoriX((e*90),8100) + a
      'Scrivi aa & " " & bb & " " & cc & " " & dd & " " & ee
      '--------------------------------------
      '----- modulo diemme ------------------
      a1 = aa*16
      a2 = bb*8
      a3 = cc*4
      a4 = dd*2
      a5 = ee*1
      '-------------------------------------
      'Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5 & " = ",0,0
     ' Scrivi(a1 + a2 + a3 + a4 + a5) * 6271
      '-------- 3 fase somma modulo diemme-----------------
      x =(a1 + a2 + a3 + a4 + a5) * 6271
      x1 =(x *2) - aa
      x2 =(x1*2) - bb '<<< Attento qui! NN X >>> X1 ecc ... a seguire
      x3 =(x2*2) - cc
      x4 =(x3*2) - dd
      x5 =(x4*2) - ee
      'Scrivi x1 & " " & x2 & " " & x3 & " " & x4 & " " & x5
      '--------passaggio errato da capire NON FUNZIONA Fuori8100 -----
      ' Sostituito con Funzione di Rosanna
      xx1 = FN(x1)
      xx2 = FN(x2)
      xx3 = FN(x3)
      xx4 = FN(x4)
      xx5 = FN(x5)
      'Scrivi xx1 & " " & xx2 & " " & xx3 & " " & xx4 & " " & xx5
      '----------- INTERO --------------------------------------------
      y1 = Int(xx1/90) 'versione classica
      y2 = Int(xx2/90)
      y3 = Int(xx3/90)
      y4 = Int(xx4/90)
      Y5 = Int(xx5/90)
      'Scrivi y1 & " " & y2 & " " & y3 & " " & y4 & " " & y5
      '---------- RESTO ----------------------------------------------
      z1 = Fuori90(xx1 -(90*y1))
      z2 = Fuori90(xx2 -(90*y2))
      z3 = Fuori90(xx3 -(90*y3))
      z4 = Fuori90(xx4 -(90*y4))
      z5 = Fuori90(xx5 -(90*y5))
      'Scrivi z1 & " " & z2 & " " & z3 & " " & z4 & " " & z5
      'Utilizzato modello preesistente ------------------------------
      num(9) = y5'Fuori90(Left(xx5,2))
      num(10) = z5'Fuori90(Right(xx5,2))
      Call VerificaEsitoTurbo(num,ruota,es + 1,1,clp,Nothing,retesito,retcolpi,retestratti,retid)
      'Scrivi GetInfoEstrazione(es) & " - " & " - " & StringaEstratti(es,r) & " - " & StringaNumeri(num,,True)
      'Scrivi
      'Scrivi " Esito... " & retesito
      If  retcolpi > Mx Then Mx = retcolpi
      If retcolpi > 100 Then Scrivi :ColoreTesto 2
      Scrivi " Colpo... " & retcolpi
      'Scrivi " Estratti " & retestratti
      'Scrivi
      If retcolpi > 100  Then ColoreTesto 0 : Scrivi 
   Next
   Scrivi 
   Scrivi "Massimo trovato :  "  & Mx
End Sub
Function FN(n) ' fuori8100 By Rox
   If n -(8100*Int(n/8100)) = 0 Then FN = 8100 Else FN = n -(8100*Int(n/8100))
End Function
'DIEMME.TMP By Joe

Settenario · 24 Ottobre 2021

Grazie mille joe è perfetto,
solamente se è possibile inserire la data di ricavo della previsione, altrimenti va benissimo cosi!!

Grazie, grazie, grazie

joe · 25 Ottobre 2021

kondor13 ha scritto:
Grazie mille joe è perfetto,
solamente se è possibile inserire la data di ricavo della previsione, altrimenti va benissimo cosi!!

Grazie, grazie, grazie

Ciao ho modificato un pochino l' output.

Codice:

Sub Main
   Dim num(10)
   Dim ruota(12)
   Dim posta(5)
   Dim retcolpi,Sto
   Ini = 3950 ' inizio estrazioni
   Fin = EstrazioneFin ' fine estrazioni
   r = ScegliRuota' ruota
   clp = 250 ' colpi
   ruota(1) = R
   Scrivi "Ruota di..." & NomeRuota(r),1
   Scrivi
   For Es = Ini To Fin :
      AvanzamentoElab Ini,Fin,Es
      a = Estratto(es,r,1)
      b = Estratto(es,r,2)
      c = Estratto(es,r,3)
      d = Estratto(es,r,4)
      e = Estratto(es,r,5)
      'Scrivi StringaEstratti(es,1)
      '----- modulo fuori 8110 NO !! 8110 <> 8100 -----------
      aa = FuoriX((a*90),8100) + b
      bb = FuoriX((b*90),8100) + c
      cc = FuoriX((c*90),8100) + d
      dd = FuoriX((d*90),8100) + e
      ee = FuoriX((e*90),8100) + a
      'Scrivi aa & " " & bb & " " & cc & " " & dd & " " & ee
      '--------------------------------------
      '----- modulo diemme ------------------
      a1 = aa*16
      a2 = bb*8
      a3 = cc*4
      a4 = dd*2
      a5 = ee*1
      '-------------------------------------
      'Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5 & " = ",0,0
      ' Scrivi(a1 + a2 + a3 + a4 + a5) * 6271
      '-------- 3 fase somma modulo diemme-----------------
      x =(a1 + a2 + a3 + a4 + a5) * 6271
      x1 =(x *2) - aa
      x2 =(x1*2) - bb '<<< Attento qui! NN X >>> X1 ecc ... a seguire
      x3 =(x2*2) - cc
      x4 =(x3*2) - dd
      x5 =(x4*2) - ee
      'Scrivi x1 & " " & x2 & " " & x3 & " " & x4 & " " & x5
      '--------passaggio errato da capire NON FUNZIONA Fuori8100 -----
      ' Sostituito con Funzione di Rosanna
      xx1 = FN(x1)
      xx2 = FN(x2)
      xx3 = FN(x3)
      xx4 = FN(x4)
      xx5 = FN(x5)
      'Scrivi xx1 & " " & xx2 & " " & xx3 & " " & xx4 & " " & xx5
      '----------- INTERO --------------------------------------------
      y1 = Int(xx1/90) 'versione classica
      y2 = Int(xx2/90)
      y3 = Int(xx3/90)
      y4 = Int(xx4/90)
      Y5 = Int(xx5/90)
      'Scrivi y1 & " " & y2 & " " & y3 & " " & y4 & " " & y5
      '---------- RESTO ----------------------------------------------
      z1 = Fuori90(xx1 -(90*y1))
      z2 = Fuori90(xx2 -(90*y2))
      z3 = Fuori90(xx3 -(90*y3))
      z4 = Fuori90(xx4 -(90*y4))
      z5 = Fuori90(xx5 -(90*y5))
      'Scrivi z1 & " " & z2 & " " & z3 & " " & z4 & " " & z5
      'Utilizzato modello preesistente ------------------------------
      num(9) = y5'Fuori90(Left(xx5,2))
      num(10) = z5'Fuori90(Right(xx5,2))
      Scrivi String(49,"-")
      Call VerificaEsitoTurbo(num,ruota,es + 1,1,clp,Nothing,retesito,retcolpi,retestratti,retid)
      Scrivi GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) & " - " & StringaNumeri(num,,True)
      Scrivi GetInfoEstrazione(es + retcolpi) & " - " & StringaEstratti(es + retcolpi,r)
      If retcolpi > Mx Then Mx = retcolpi
      Scrivi "[Colpo] [" & FormatSpace(retcolpi,3,True) & "] " & Space(12) & Right(retestratti,15)
   Next
   Scrivi
   Scrivi "Massimo trovato :  " & Mx
End Sub
Function FN(n) ' fuori8100 By Rox
   If n -(8100*Int(n/8100)) = 0 Then FN = 8100 Else FN = n -(8100*Int(n/8100))
End Function
'DIEMME.TMP By Joe

Settenario · 29 Ottobre 2021

Grande joe,
prima di tutto ancora grazie.
ci sono 2 cosette da sistemare nello script, sempre se ti è possibile.

Come vedi nell' immagine 1 c' è un solo numero, perché dal calcolo finale risulta come previsione 0-21 e nella numerazione finita lo zero risulta 90, quindi la vera previsione sarebbe 90.21.

Poi nell' immagine 2 ci sono due numeri uguali e questo tipo di previsione non devono essere conteggiate nel calcolo del max storico.

Sistemando queste due anomalie sicuramente ci sarà un' abbattimento dei max storici.
Grazie ancora per la tua disponibilità

joe · 30 Ottobre 2021

Kondor13 ha scritto:

Come vedi nell' immagine 1 c' è un solo numero, perché dal calcolo finale risulta come previsione 0-21 e nella numerazione finita lo zero risulta 90, quindi la vera previsione sarebbe 90.21.

Poi nell' immagine 2 ci sono due numeri uguali e questo tipo di previsione non devono essere conteggiate nel calcolo del max storico.

Ciao Kondor.

57526-77f902f93bbe1098f943394ae85294fc[1].jpg

57525-de6c27f566ad6eb400792672c4464d04[1].jpg

Ciao Kondor.

Come da tua richiesta ho inserito le due correzioni necessarie per gestire le eccezioni dei casi particolari.

Codice:

Sub Main
   Dim num(10)
   Dim ruota(12)
   Dim posta(5)
   Dim retcolpi,Sto
   Ini = 3950 ' inizio estrazioni
   Fin = EstrazioneFin ' fine estrazioni
   r = ScegliRuota' ruota
   clp = 250 ' colpi
   ruota(1) = R
   Scrivi "Ruota di..." & NomeRuota(r),1
   Scrivi
   For Es = Ini To Fin :
      AvanzamentoElab Ini,Fin,Es
      a = Estratto(es,r,1)
      b = Estratto(es,r,2)
      c = Estratto(es,r,3)
      d = Estratto(es,r,4)
      e = Estratto(es,r,5)
      'Scrivi StringaEstratti(es,1)
      '----- modulo fuori 8110 NO !! 8110 <> 8100 -----------
      aa = FuoriX((a*90),8100) + b
      bb = FuoriX((b*90),8100) + c
      cc = FuoriX((c*90),8100) + d
      dd = FuoriX((d*90),8100) + e
      ee = FuoriX((e*90),8100) + a
      'Scrivi aa & " " & bb & " " & cc & " " & dd & " " & ee
      '--------------------------------------
      '----- modulo diemme ------------------
      a1 = aa*16
      a2 = bb*8
      a3 = cc*4
      a4 = dd*2
      a5 = ee*1
      '-------------------------------------
      'Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5 & " = ",0,0
      ' Scrivi(a1 + a2 + a3 + a4 + a5) * 6271
      '-------- 3 fase somma modulo diemme-----------------
      x =(a1 + a2 + a3 + a4 + a5) * 6271
      x1 =(x *2) - aa
      x2 =(x1*2) - bb '<<< Attento qui! NN X >>> X1 ecc ... a seguire
      x3 =(x2*2) - cc
      x4 =(x3*2) - dd
      x5 =(x4*2) - ee
      'Scrivi x1 & " " & x2 & " " & x3 & " " & x4 & " " & x5
      '--------passaggio errato da capire NON FUNZIONA Fuori8100 -----
      ' Sostituito con Funzione di Rosanna
      xx1 = FN(x1)
      xx2 = FN(x2)
      xx3 = FN(x3)
      xx4 = FN(x4)
      xx5 = FN(x5)
      'Scrivi xx1 & " " & xx2 & " " & xx3 & " " & xx4 & " " & xx5
      '----------- INTERO --------------------------------------------
      y1 = Int(xx1/90) 'versione classica
      y2 = Int(xx2/90)
      y3 = Int(xx3/90)
      y4 = Int(xx4/90)
      Y5 = Int(xx5/90)
      'Scrivi y1 & " " & y2 & " " & y3 & " " & y4 & " " & y5
      '---------- RESTO ----------------------------------------------
      z1 = Fuori90(xx1 -(90*y1))
      z2 = Fuori90(xx2 -(90*y2))
      z3 = Fuori90(xx3 -(90*y3))
      z4 = Fuori90(xx4 -(90*y4))
      z5 = Fuori90(xx5 -(90*y5))
      'Scrivi z1 & " " & z2 & " " & z3 & " " & z4 & " " & z5
      'Utilizzato modello preesistente ------------------------------
      num(9) = fuori90(y5)'Fuori90(Left(xx5,2))
      num(10) = Fuori90(z5)'Fuori90(Right(xx5,2))
      If num(9) <> num(10) Then
      Scrivi String(49,"-")
      Call VerificaEsitoTurbo(num,ruota,es + 1,1,clp,Nothing,retesito,retcolpi,retestratti,retid)
      Scrivi GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) & " - " & StringaNumeri(num,,True)
      Scrivi GetInfoEstrazione(es + retcolpi) & " - " & StringaEstratti(es + retcolpi,r)
      If retcolpi > Mx Then Mx = retcolpi
      Scrivi "[Colpo] [" & FormatSpace(retcolpi,3,True) & "] " & Space(12) & Right(retestratti,15)
      End If
   Next
   Scrivi
   Scrivi "Massimo trovato :  " & Mx
End Sub
Function FN(n) ' fuori8100 By Rox
   If n -(8100*Int(n/8100)) = 0 Then FN = 8100 Else FN = n -(8100*Int(n/8100))
End Function
'DIEMME.TMP By Joe

Buon WeekEnd a tutte/i.

Settenario · 14 Novembre 2021

Buona sera joe,
ti ringrazio ancora per il capolavoro che mi hai fatto.
Ora vorrei chiederti se puoi modificare questo script.
Nel conteggio del max non deve tener conto delle previsioni con numeri ripetuti(come da esempio).
Ti ringrazio anticipatamente

Codice:

Sub Main
   Dim num(10)
   Dim ruota(12)
   Dim posta(5)
   Dim retcolpi,Sto
   Ini = 3950 ' inizio estrazioni
   Fin = EstrazioneFin ' fine estrazioni
   r = ScegliRuota' ruota
   clp = 1000 ' colpi
   ruota(1) = R
   Scrivi "Ruota di..." & NomeRuota(r),1
   Scrivi
   For Es = Ini To Fin :
      AvanzamentoElab Ini,Fin,Es
      a = Estratto(es,r,1)
      b = Estratto(es,r,2)
      c = Estratto(es,r,3)
      d = Estratto(es,r,4)
      e = Estratto(es,r,5)
      'Scrivi StringaEstratti(es,1)
      '----- modulo fuori 8110 NO !! 8110 <> 8100 -----------
      aa = FuoriX((a*90),8100) + b
      bb = FuoriX((b*90),8100) + c
      cc = FuoriX((c*90),8100) + d
      dd = FuoriX((d*90),8100) + e
      ee = FuoriX((e*90),8100) + a
      'Scrivi aa & " " & bb & " " & cc & " " & dd & " " & ee
      '--------------------------------------
      '----- modulo diemme ------------------
      a1 = aa*16
      a2 = bb*8
      a3 = cc*4
      a4 = dd*2
      a5 = ee*1
      '-------------------------------------
      'Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5 & " = ",0,0
      ' Scrivi(a1 + a2 + a3 + a4 + a5) * 6271
      '-------- 3 fase somma modulo diemme-----------------
      x =(a1 + a2 + a3 + a4 + a5) * 6271
      x1 =(x *2) - aa
      x2 =(x1*2) - bb '<<< Attento qui! NN X >>> X1 ecc ... a seguire
      x3 =(x2*2) - cc
      x4 =(x3*2) - dd
      x5 =(x4*2) - ee
      'Scrivi x1 & " " & x2 & " " & x3 & " " & x4 & " " & x5
      '--------passaggio errato da capire NON FUNZIONA Fuori8100 -----
      ' Sostituito con Funzione di Rosanna
      xx1 = FN(x1)
      xx2 = FN(x2)
      xx3 = FN(x3)
      xx4 = FN(x4)
      xx5 = FN(x5)
      'Scrivi xx1 & " " & xx2 & " " & xx3 & " " & xx4 & " " & xx5
      '----------- INTERO --------------------------------------------
      y1 = Int(xx1/90) 'versione classica
      y2 = Int(xx2/90)
      y3 = Int(xx3/90)
      y4 = Int(xx4/90)
      Y5 = Int(xx5/90)
      'Scrivi y1 & " " & y2 & " " & y3 & " " & y4 & " " & y5
      '---------- RESTO ----------------------------------------------
      z1 = Fuori90(xx1 -(90*y1))
      z2 = Fuori90(xx2 -(90*y2))
      z3 = Fuori90(xx3 -(90*y3))
      z4 = Fuori90(xx4 -(90*y4))
      z5 = Fuori90(xx5 -(90*y5))
      'Scrivi z1 & " " & z2 & " " & z3 & " " & z4 & " " & z5
      'Utilizzato modello preesistente ------------------------------
      num(1) = Fuori90(y1)
      num(2) = Fuori90(z1)
      num(3) = Fuori90(y2)
      num(4) = Fuori90(z2)
      num(5) = Fuori90(y3)
      num(6) = Fuori90(z3)
      num(7) = Fuori90(y4)
      num(8) = Fuori90(z4)
      num(9) = Fuori90(y5)'Fuori90(Left(xx5,2))
      num(10) = Fuori90(z5)'Fuori90(Right(xx5,2))
      If num(9) <> num(10) Then
         Scrivi String(49,"-")
         Call VerificaEsitoTurbo(num,ruota,es + 1,2,clp,Nothing,retesito,retcolpi,retestratti,retid)
         Scrivi GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) & " - " & StringaNumeri(num,,True)
         Scrivi GetInfoEstrazione(es + retcolpi) & " - " & StringaEstratti(es + retcolpi,r)
         If retcolpi > Mx Then Mx = retcolpi
         Scrivi "[Colpo] [" & FormatSpace(retcolpi,3,True) & "] " & Space(12) & Right(retestratti,15)
      End If
   Next
   Scrivi
   Scrivi "Massimo trovato :  " & Mx
End Sub
Function FN(n) ' fuori8100 By Rox
   If n -(8100*Int(n/8100)) = 0 Then FN = 8100 Else FN = n -(8100*Int(n/8100))
End Function
'DIEMME.TMP By Joe

joe · 19 Novembre 2021

Ciao,

Non ho più per mente cosa è e cosa fa questo script

che peraltro è piuttosto specializzato a generare il caos tra i numeri.

Dovresti elencarmi le variabili dei numeri che hai evidenziato in giallo,

o ... non ho capito perché non hai inserito lo script con cui vengono scritti.

Seconda domanda: devono essere 10 numeri TUTTI diversi ?

Terza ci fosse uno zero deve essere considerato 90 ?

Fammi sapere.

Settenario · 19 Novembre 2021

Buona sera joe.
lo script è sulla linea a quello precedente, mi deve calcolare il max storico dei colpi di gioco della previsione.
I numeri devono essere tutti diversi.
lo zero deve essere considerato 90.

joe · 19 Novembre 2021

Ripeto:

Non ho capito quali sono i numeri che hai evidenziato in giallo nel messaggio #11.

Cioè da dove arrivano e quali variabili li contengono.

Senza indicazioni ... si spreca un mucchio di tempo nel dover fare ipotesi e tentativi nel cercarli.

Cerca

Cerca

Top Five

joe

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

Settenario

Super Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

Settenario

Super Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

Settenario

Super Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

Settenario

Super Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

Settenario

Super Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

Settenario

Super Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi

Top Five

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

​

​

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<