Novità

Irrisolvibile (per me)

Marcorun

Advanced Member >GOLD<
Partendo da questo sript come esempio......
Codice:
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 0
posta(3) = 0
posta(4) = 0
posta(1) = 1
ruote(1) = 1 ' cambia ruota
For n = EstrazioneFin - 100 To EstrazioneFin
numeri1(1) = Fuori90((Estratto(n,4,1) + 1))
numeri1(2) = Fuori90((Estratto(n,6,2) + 2))
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,10,1
Scrivi "---------------------------------------------------------------------------------------"
Gioca n
Next
ScriviResoconto
End Sub

Vediamo che ha un rendimento del -50 %.....questo perchè mette in gioco tutti i pronostici in corso.
Ma se qualcuno riuscisse a modificare lo script in modo che mettesse in gioco(di volta in volta) SOLO il pronostico più vecchio(ritardato) in corso,
si potrebbe avere un rendimento migliore?
Se qualcuno sa come modificarlo..........GRAZIE!
 
L' 81% ti basta? ;)
Sub Main()
Dim ruote(10),num(5)
Dim numeri1(10)
Dim posta(5)
posta(2) = 0
posta(3) = 0
posta(4) = 0
posta(1) = 1
ruote(1) = 1 ' cambia ruota
For n = EstrazioneFin - 100 To EstrazioneFin
'---
numeri1(1) = Fuori90((Estratto(n,4,1) + 1))
numeri1(2) = Fuori90((Estratto(n,6,2) + 2))
'---
num(1) = 90 - numeri1(1)
num(2) = numeri1(1)
EliminaRipetuti num
ImpostaGiocata 1,num,ruote,posta,10',1
Scrivi "---------------------------------------------------------------------------------------"
Gioca n,1
Next
ScriviResoconto
End Sub
(y)
 
Ultima modifica:
Così all' 82%... all' ultima estrazione del mese.. 💪
Sub Main()
Dim ruote(10),num(5)
Dim numeri1(10),Ini
Dim posta(5),fin
posta(1) = 1
ruote(1) = 1 ' cambia ruota
'---
Ini = EstrazioneFin - 300
fin = EstrazioneFin
Scrivi ". Ambata BARI di Marcorun ",1,,,1,3,,1
For n = Ini To fin
If IsUltimaDelMese(n) Then
' If IndiceMensile(n) = 1 Then
'---
numeri1(1) = Fuori90((Estratto(n,4,1) + 1))
numeri1(2) = Fuori90((Estratto(n,6,2) + 2))
'---
num(1) = 90 - numeri1(1)
num(3) = numeri1(1)
EliminaRipetuti num
ImpostaGiocata 1,num,ruote,posta,10',1
Scrivi "---------------------------------------------------------------------------------------"
Gioca n,1
End If
Next
ScriviResoconto
End Sub
 
Ciao...grazie x la risposta,
chiedo consigli agli esperti apposta perchè ci capisco poco di script (anche se mi piacciono tanto),
quindi capendoci poco non riesco a capire se i tuoi sono giochi di prestigio o io che non so interpretarli:giggle:
GRAZIE.....(y)
 
3 Ambate a 10 copli....... Giocate in perdita?:ROFLMAO:Giocata.JPG:ROFLMAO: e meno male che ci sono gli script .... investi i tuoi soldi altrove
 
Risultati con ambata semplice, con quella determinata il risultato cambia, di molto...
:cool:
:rolleyes:
 
Quindi non c'è qualcuno che sappia modificare lo script iniziale,mettendo in gioco solo il pronostico più vecchio, per poi confrontare il rendimento?........
Per qualcuno dovrebbe essere facile....
 
Essere sempre esliciti con esempi, renderete il compito di chi vi può/vuole aiutare più semplice e non interpretabile.
 
Ultima modifica:
Spero di aver intrerpretato correttamente altrimenti fai un esempio esplicito.

Codice:
Sub Main()
     Dim ruote(10)
     Dim numeri1(10)
     Dim posta(5)
     Dim n, aRetColpi,clp,clpGioco
     posta(2) = 0
     posta(3) = 0
     posta(4) = 0
     posta(1) = 1
     ruote(1) = 1 ' cambia ruota
 
      clpGioco = 10
     For n = EstrazioneFin - 100 To EstrazioneFin
          numeri1(1) = Fuori90((Estratto(n,4,1) + 1))
          numeri1(2) = Fuori90((Estratto(n,6,2) + 2))
          EliminaRipetuti numeri1
                 
          ImpostaGiocata  1,numeri1,ruote,posta,clpGioco,1
          Scrivi "---------------------------------------------------------------------------------------"
          Gioca n,True,,1
          If VerificaEsito(numeri1,ruote,n+1,1,clpGioco,,,aRetColpi) Then
          clp= aRetColpi
          Else
          clp = clpGioco      
           End If
          n = n + (clp -1)
         ' Scrivi "Previsione giocata per colpi " & clp
     Next
     ScriviResoconto ,False
End Sub
saluti
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40

Ultimi Messaggi

Indietro
Alto