Novità

Top Five

  • Creatore Discussione Creatore Discussione joe
  • Data di inizio Data di inizio

joe

Advanced Member >PLATINUM PLUS<
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.

Immagine.jpg

:)
 
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
 
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.

:)


 
Grazie joe, non ricordo se lo script sia completamento tuo, ma sicuramente c'è il tuo zampino(y).
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.
 
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
 
Grazie mille joe è perfetto,
solamente se è possibile inserire la data di ricavo della previsione, altrimenti va benissimo cosi!!

Grazie, grazie, grazie
 
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

:)
 
Grande joe,
prima di tutto ancora grazie.
ci sono 2 cosette da sistemare nello script, sempre se ti è possibile.
lotto.JPGlotto 1.JPG
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à (y) (y) (y)
 
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.
 
Ultima modifica:
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 (y)
Cattura.JPGcattura1.JPG
Codice:
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
 
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.
 
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.
 
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.

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 febbraio 2025
    Bari
    72
    83
    64
    59
    43
    Cagliari
    60
    55
    49
    07
    14
    Firenze
    11
    68
    62
    04
    21
    Genova
    86
    23
    44
    85
    71
    Milano
    11
    82
    42
    09
    14
    Napoli
    89
    86
    65
    49
    14
    Palermo
    79
    34
    80
    78
    20
    Roma
    26
    21
    13
    64
    57
    Torino
    64
    11
    17
    02
    58
    Venezia
    64
    82
    30
    04
    19
    Nazionale
    26
    37
    68
    54
    87
    Estrazione Simbolotto
    Cagliari
    39
    30
    04
    11
    14
Indietro
Alto