Tecnica del 7 ottobre 2021

[Mauro-emme]

Tecnica:

Sub Main
Dim ruota(2),pt(2),ruote(5),a1(2),a2(2) 'Dimensioni le variabili
pt(1) = 1 'Posta ambata
pt(2) = 1 'Posta ambo
clp = 7 'Numero dei colpi
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per LottoCED",100))
fine = EstrazioneFin 'Ultima estrazione
n1 = 23 'Primo numero fisso
n2 = 81 'Secondo numero fisso
r = 9 'Ruota di riferimento Torino
For es = ini To EstrazioneFin
' ------ INIZIO codice rilevamento condizione
If IndiceMensile(es) = 2 Then 'SECONDA estrazione
a = Estratto(es,r,5)
' ------ FINE codice rilevamento condizione
' ------ RUOTE di gioco
ruote(1) = 9 'Ruota di gioco Torino
' ------ GIOCATA
cg = 0 'Azzero la variabile giocata
a1(1) = Fuori90(a + 52) 'Primo numero
a1(2) = n1 'Secondo numero
cg = cg + 1 'Imposto il numero della giocata (prima giocata = 1)
ImpostaGiocata cg,a1,ruote,pt,clp,1 'Imposta la giocata con nil suo numero, la variabile contenitore, la variabile ruote, le poste, i colpi, e lo stop
a2(1) = Fuori90(a + 52) 'Primo numero seconda giocata
a2(2) = n2 'Secondo numero seconda giocata
cg = cg + 1 'Implemento il numero della giocata
ImpostaGiocata cg,a2,ruote,pt,clp,1 'Imposto giocata

Gioca es,1 'inizio la giocata
End If
Next
ScriviResoconto 'Scrive resoconto
End Sub

 

[Rafele ‘o Ruoss’]

Grazie @Mauro-emme

 

[Marco-elle]

Non male! ma,queste cose hanno vita breve anche se si comporta bene molto a ritroso,
Ti ho messo un 3 algoritmi pure io tanto per gioco ma io,gli indici mensili li ho messi in disparte

Sub Main
   Dim ruota(2),pt(2),ruote(5),a1(2),a2(2) 'Dimensioni le variabili
   pt(1) = 1 'Posta ambata
   pt(2) = 1 'Posta ambo
   clp = 9 'Numero dei colpi
   ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin -160)
   pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per LottoCED",100))
   fine = EstrazioneFin 'Ultima estrazione
   'n1 = 30 'Primo numero fisso
   'n2 = 58 'Secondo numero fisso
   'r = 9 'Ruota di riferimento Torino
   For es = ini To EstrazioneFin
      ' ------ INIZIO codice rilevamento condizione
      If IndiceMensile(es) = 1 Then 'SECONDA estrazione
         a = Fuori90(Estratto(es,1,1) + Estratto(es,3,3) + 15)
         b = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 6)
         c = Fuori90(Estratto(es,2,5) + Estratto(es,7,3) + 7)
         ' ------ FINE codice rilevamento condizione
         ' ------ RUOTE di gioco
         ruote(1) = 2 'Ruota di gioco Torino
         ' ------ GIOCATA
         cg = 0 'Azzero la variabile giocata
         a1(1) = a'Primo numero
         a1(2) = b 'Secondo numero
         cg = cg + 1 'Imposto il numero della giocata (prima giocata = 1)
         ImpostaGiocata cg,a1,ruote,pt,clp 'Imposta la giocata con nil suo numero, la variabile contenitore, la variabile ruote, le poste, i colpi, e lo stop
         a2(1) = a 'Primo numero seconda giocata
         a2(2) = c 'Secondo numero seconda giocata
         cg = cg + 1 'Implemento il numero della giocata
         ImpostaGiocata cg,a2,ruote,pt,clp 'Imposto giocata
         Gioca es,1 'inizio la giocata
      End If
   Next
   ScriviResoconto 'Scrive resoconto
End Sub

 

[Mauro-emme]

Non male! ma,queste cose hanno vita breve anche se si comporta bene molto a ritroso,
Ti ho messo un 3 algoritmi pure io tanto per gioco ma io,gli indici mensili li ho messi in disparte

Sub Main
   Dim ruota(2),pt(2),ruote(5),a1(2),a2(2) 'Dimensioni le variabili
   pt(1) = 1 'Posta ambata
   pt(2) = 1 'Posta ambo
   clp = 9 'Numero dei colpi
   ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin -160)
   pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per LottoCED",100))
   fine = EstrazioneFin 'Ultima estrazione
   'n1 = 30 'Primo numero fisso
   'n2 = 58 'Secondo numero fisso
   'r = 9 'Ruota di riferimento Torino
   For es = ini To EstrazioneFin
      ' ------ INIZIO codice rilevamento condizione
      If IndiceMensile(es) = 1 Then 'SECONDA estrazione
         a = Fuori90(Estratto(es,1,1) + Estratto(es,3,3) + 15)
         b = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 6)
         c = Fuori90(Estratto(es,2,5) + Estratto(es,7,3) + 7)
         ' ------ FINE codice rilevamento condizione
         ' ------ RUOTE di gioco
         ruote(1) = 2 'Ruota di gioco Torino
         ' ------ GIOCATA
         cg = 0 'Azzero la variabile giocata
         a1(1) = a'Primo numero
         a1(2) = b 'Secondo numero
         cg = cg + 1 'Imposto il numero della giocata (prima giocata = 1)
         ImpostaGiocata cg,a1,ruote,pt,clp 'Imposta la giocata con nil suo numero, la variabile contenitore, la variabile ruote, le poste, i colpi, e lo stop
         a2(1) = a 'Primo numero seconda giocata
         a2(2) = c 'Secondo numero seconda giocata
         cg = cg + 1 'Implemento il numero della giocata
         ImpostaGiocata cg,a2,ruote,pt,clp 'Imposto giocata
         Gioca es,1 'inizio la giocata
      End If
   Next
   ScriviResoconto 'Scrive resoconto
End Sub

Grazie Marco.

Prova questo algoritmo in un ciclo nidificato di for e next ma solo sulla ruota di Bari:

N1(1) = Estratto(es,a,1)
N1(2) = Estratto(es + b,r,1)
N1(3) = Estratto(es - c,r,1)
N1(4) = Estratto(es + d,r,1)
'-----------------------------
N2(1) = Estratto(es,e,2)
N2(2) = Estratto(es + f,r,2)
N2(3) = Estratto(es - g,r,2)
N2(4) = Estratto(es + h,r,2)
'-----------------------------
N3(1) = Estratto(es,i,3)
N3(2) = Estratto(es + l,r,3)
N3(3) = Estratto(es - c,r,3)
N3(4) = Estratto(es + m,r,3)
'-----------------------------
N4(1) = Estratto(es,n,4)
N4(2) = Estratto(es + o,r,4)
N4(3) = Estratto(es - p,r,4)
N4(4) = Estratto(es + q,r,4)
'-----------------------------
N5(1) = Estratto(es,r,5)
N5(2) = Estratto(es + s,r,5)
N5(3) = Estratto(es - t,r,5)

Ci sentiamo.
'N5(4) = Estratto(es + u,r,5)
'-----------------------------

 

[Marco-elle]

Mauro,
Con un buon SW,ne trovi a bizzeffe di algoritmi che hanno pagato il terno secco nei ultimi 12 mesi.Il problema è trovare quelli giusti,perché tra 1000,solo 1 ne va a segno,ho iniziato con Blackmore 15 anni fa e il culo dei principianti ci faceva vincere molto spesso, ora le cose sono cambiate e vincere con la matematica sommatica è un impresa fortunosa

 

[Mauro-emme]

Non male! ma,queste cose hanno vita breve anche se si comporta bene molto a ritroso,
Ti ho messo un 3 algoritmi pure io tanto per gioco ma io,gli indici mensili li ho messi in disparte

Sub Main
   Dim ruota(2),pt(2),ruote(5),a1(2),a2(2) 'Dimensioni le variabili
   pt(1) = 1 'Posta ambata
   pt(2) = 1 'Posta ambo
   clp = 9 'Numero dei colpi
   ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin -160)
   pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per LottoCED",100))
   fine = EstrazioneFin 'Ultima estrazione
   'n1 = 30 'Primo numero fisso
   'n2 = 58 'Secondo numero fisso
   'r = 9 'Ruota di riferimento Torino
   For es = ini To EstrazioneFin
      ' ------ INIZIO codice rilevamento condizione
      If IndiceMensile(es) = 1 Then 'SECONDA estrazione
         a = Fuori90(Estratto(es,1,1) + Estratto(es,3,3) + 15)
         b = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 6)
         c = Fuori90(Estratto(es,2,5) + Estratto(es,7,3) + 7)
         ' ------ FINE codice rilevamento condizione
         ' ------ RUOTE di gioco
         ruote(1) = 2 'Ruota di gioco Torino
         ' ------ GIOCATA
         cg = 0 'Azzero la variabile giocata
         a1(1) = a'Primo numero
         a1(2) = b 'Secondo numero
         cg = cg + 1 'Imposto il numero della giocata (prima giocata = 1)
         ImpostaGiocata cg,a1,ruote,pt,clp 'Imposta la giocata con nil suo numero, la variabile contenitore, la variabile ruote, le poste, i colpi, e lo stop
         a2(1) = a 'Primo numero seconda giocata
         a2(2) = c 'Secondo numero seconda giocata
         cg = cg + 1 'Implemento il numero della giocata
         ImpostaGiocata cg,a2,ruote,pt,clp 'Imposto giocata
         Gioca es,1 'inizio la giocata
      End If
   Next
   ScriviResoconto 'Scrive resoconto
End Sub

Perfetto Marco.
Magnifico algoritmo!

Mi sono permesso di renderlo ancora più redditivo usando il motto "meglio poco ma spesso".

Listato:



Sub Main
Dim ruota(2),pt(2),ruote(5),a1(2),a2(2) 'Dimensioni le variabili
pt(1) = 1 'Posta ambata
pt(2) = 1 'Posta ambo
clp = 9 'Numero dei colpi
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin -160)
pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per LottoCED",100))
x = InputBox("Scegli la redditività digita 0 per quella più bassa oppure 1 per una più alta!","Buona Giocata",0)
fine = EstrazioneFin 'Ultima estrazione
'n1 = 30 'Primo numero fisso
'n2 = 58 'Secondo numero fisso
'r = 9 'Ruota di riferimento Torino
For es = ini To EstrazioneFin
' ------ INIZIO codice rilevamento condizione
If IndiceMensile(es) = 1 Then 'PRIMA estrazione
a = Fuori90(Estratto(es,1,1) + Estratto(es,3,3) + 15)
b = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 6)
c = Fuori90(Estratto(es,2,5) + Estratto(es,7,3) + 7)
' ------ FINE codice rilevamento condizione
' ------ RUOTE di gioco
ruote(1) = 2 'Ruota di gioco Torino
' ------ GIOCATA
cg = 0 'Azzero la variabile giocata
a1(1) = a'Primo numero
a1(2) = b 'Secondo numero
cg = cg + 1 'Imposto il numero della giocata (prima giocata = 1)
ImpostaGiocata cg,a1,ruote,pt,clp,x 'Imposta la giocata con nil suo numero, la variabile contenitore, la variabile ruote, le poste, i colpi, e lo stop
a2(1) = a 'Primo numero seconda giocata
a2(2) = c 'Secondo numero seconda giocata
cg = cg + 1 'Implemento il numero della giocata
ImpostaGiocata cg,a2,ruote,pt,clp,x 'Imposto giocata
Gioca es,1 'inizio la giocata
End If
Next
Scrivi
ColoreTesto (2) : Scrivi "-----------------------------------------METODO CON NUOVO ALGORITMO DI Marco-elle-----------------------------------------"
Scrivi
ColoreTesto (0) : Scrivi
ScriviResoconto 'Scrive resoconto
End Sub