help per MIKE58

Alien. · 4 Febbraio 2017

Ciao Mike scusami ma non so cosa sia successo allo script fino a due giorni fa non dava nessun errore adesso mi dice :Call Gioca(es + 1,1)

una cosa impossibile che non capisco se andava bene prima ed non ho toccato nulla #####
se ti è possibile puoi inserire id mese !

puoi per cortesia verificare grazie.

Sub Main
'http://forum.lottoced.com/forum/lottoced/metodi/2027675-metodo-4-terzine-a-bari-positivo-da-oltre-2-anni
'Metodo : 4 TERZINE x AMBO
'Indice : 1A Estr. Mese
'Ruote : BA
'Colpi : 13
'1° Terzina = 5° Estr. di BA +55 +67 +79
'2° Terzina = 5° Estr. di BA +30 +64 +67
'3° Terzina = 5° Estr. di BA +10 +40 +65
'4° Terzina = 5° Estr. di BA +71 +84 +86
Dim Ru(1),Tz1(3),Tz2(3),Tz3(3),Tz4(3),poste(3)
Ini = 7740
fin = EstrazioneFin
poste(2) = 1.5
poste(3) = .5
colpi = 13
Scrivi "Metodo Cupido *** 4 terzine per Ambo e Terno ",1,,2,4,3,,1
Scrivi
For es = fin To Ini Step - 1
If IndiceMensile(es) = 1 Then
casi = casi + 1
Tz1(1) = Fuori90(Estratto(es,BA_,5) + 55)
Tz1(2) = Fuori90(Estratto(es,BA_,5) + 67)
Tz1(3) = Fuori90(Estratto(es,BA_,5) + 79)
Tz2(1) = Fuori90(Estratto(es,BA_,5) + 30)
Tz2(2) = Fuori90(Estratto(es,BA_,5) + 64)
Tz2(3) = Fuori90(Estratto(es,BA_,5) + 67)
Tz3(1) = Fuori90(Estratto(es,BA_,5) + 10)
Tz3(2) = Fuori90(Estratto(es,BA_,5) + 40)
Tz3(3) = Fuori90(Estratto(es,BA_,5) + 65)
Tz4(1) = Fuori90(Estratto(es,BA_,5) + 71)
Tz4(2) = Fuori90(Estratto(es,BA_,5) + 84)
Tz4(3) = Fuori90(Estratto(es,BA_,5) + 86)
Ru(1) = BA_
If casi < 26 Then
Scrivi String(100,"$") & " Caso N. " & casi,1,,,1
ImpostaGiocata 1,Tz1,Ru,poste,colpi
ImpostaGiocata 2,Tz2,Ru,poste,colpi
ImpostaGiocata 3,Tz3,Ru,poste,colpi
ImpostaGiocata 4,Tz4,Ru,poste,colpi
Call Gioca(es + 1,1)
End If
End If
Next
ScriviResoconto
End Sub

Alien. · 4 Febbraio 2017

allora ,togliendo il +1,1 adesso funziona calcolando la prima del mese...ma veramente mi stava meglio prima che calcolava la seconda..per cortesia come si inserisce la seconda del mese..meglio come detto prima se per impunt di ID mese....se puoi,grazie.

Mike58 · 4 Febbraio 2017

Ciao Alien, se un metodo è creato con algoritmi che adoperano l'estrazione generatrice alla data estrazione mensile, deve essere in quel modo, poi è chiaro che si può inserire di tutto e stravolgere tutto.

ad ogni modo ecco il tuo indice in inutbox.

ciao

Codice:

Sub Main
'http://forum.lottoced.com/forum/lottoced/metodi/2027675-metodo-4-terzine-a-bari-positivo-da-oltre-2-anni
'Metodo : 4 TERZINE x AMBO
'Indice : 1A Estr. Mese
'Ruote : BA
'Colpi : 13
'1° Terzina = 5° Estr. di BA +55 +67 +79
'2° Terzina = 5° Estr. di BA +30 +64 +67
'3° Terzina = 5° Estr. di BA +10 +40 +65
'4° Terzina = 5° Estr. di BA +71 +84 +86
Dim Ru(1),Tz1(3),Tz2(3),Tz3(3),Tz4(3),poste(3)
Ini = 7740
fin = EstrazioneFin
poste(2) = 1.5
poste(3) = .5
colpi = 13
Scrivi "Metodo Cupido *** 4 terzine per Ambo e Terno ",1,,2,4,3,,1
Scrivi
Ind = cint(InputBox("Quale indice mensile",,1))
For es = fin To Ini Step - 1
If IndiceMensile(es) = Ind Then
casi = casi + 1
Tz1(1) = Fuori90(Estratto(es,BA_,5) + 55)
Tz1(2) = Fuori90(Estratto(es,BA_,5) + 67)
Tz1(3) = Fuori90(Estratto(es,BA_,5) + 79)
Tz2(1) = Fuori90(Estratto(es,BA_,5) + 30)
Tz2(2) = Fuori90(Estratto(es,BA_,5) + 64)
Tz2(3) = Fuori90(Estratto(es,BA_,5) + 67)
Tz3(1) = Fuori90(Estratto(es,BA_,5) + 10)
Tz3(2) = Fuori90(Estratto(es,BA_,5) + 40)
Tz3(3) = Fuori90(Estratto(es,BA_,5) + 65)
Tz4(1) = Fuori90(Estratto(es,BA_,5) + 71)
Tz4(2) = Fuori90(Estratto(es,BA_,5) + 84)
Tz4(3) = Fuori90(Estratto(es,BA_,5) + 86)
Ru(1) = BA_
If casi < 26 Then
Scrivi String(100,"$") & " Caso N. " & casi,1,,,1
ImpostaGiocata 1,Tz1,Ru,poste,colpi
ImpostaGiocata 2,Tz2,Ru,poste,colpi
ImpostaGiocata 3,Tz3,Ru,poste,colpi
ImpostaGiocata 4,Tz4,Ru,poste,colpi
Call Gioca(es,1)
End If
End If
Next
ScriviResoconto
End Sub

Mike58 · 4 Febbraio 2017

piccola modifica e aggiunta con spesa,vincita,utile per giocate di indicemensile.

Codice:

Sub Main
'http://forum.lottoced.com/forum/lottoced/metodi/2027675-metodo-4-terzine-a-bari-positivo-da-oltre-2-anni
'Metodo : 4 TERZINE x AMBO
'Indice : 1A Estr. Mese
'Ruote : BA
'Colpi : 13
'1° Terzina = 5° Estr. di BA +55 +67 +79
'2° Terzina = 5° Estr. di BA +30 +64 +67
'3° Terzina = 5° Estr. di BA +10 +40 +65
'4° Terzina = 5° Estr. di BA +71 +84 +86
Dim Ru(1),Tz1(3),Tz2(3),Tz3(3),Tz4(3),poste(3)
Ini = 7740
fin = EstrazioneFin
poste(2) = 1.5
poste(3) = .5
colpi = 13
Scrivi "Metodo Cupido *** 4 terzine per Ambo e Terno ",1,,2,4,3,,1
Scrivi
Ind = CInt(InputBox("Quale indice mensile",,1))
For es = fin To Ini Step - 1
If IndiceMensile(es) = Ind Then
casi = casi + 1
Tz1(1) = Fuori90(Estratto(es,BA_,5) + 55)
Tz1(2) = Fuori90(Estratto(es,BA_,5) + 67)
Tz1(3) = Fuori90(Estratto(es,BA_,5) + 79)
Tz2(1) = Fuori90(Estratto(es,BA_,5) + 30)
Tz2(2) = Fuori90(Estratto(es,BA_,5) + 64)
Tz2(3) = Fuori90(Estratto(es,BA_,5) + 67)
Tz3(1) = Fuori90(Estratto(es,BA_,5) + 10)
Tz3(2) = Fuori90(Estratto(es,BA_,5) + 40)
Tz3(3) = Fuori90(Estratto(es,BA_,5) + 65)
Tz4(1) = Fuori90(Estratto(es,BA_,5) + 71)
Tz4(2) = Fuori90(Estratto(es,BA_,5) + 84)
Tz4(3) = Fuori90(Estratto(es,BA_,5) + 86)
Ru(1) = BA_
If casi < 26 Then
Scrivi String(100,"$") & " Caso N. " & casi,1,,,1
ImpostaGiocata 1,Tz1,Ru,poste,colpi,2
ImpostaGiocata 2,Tz2,Ru,poste,colpi,2
ImpostaGiocata 3,Tz3,Ru,poste,colpi,2
ImpostaGiocata 4,Tz4,Ru,poste,colpi,2
Call Gioca(es,1)
Scrivi "Spesa    : " & GetSpesa(True),1
Scrivi "Vincita  : " & GetVincita(True),1
Scrivi "Utile    : " & GetGuadagno(True),1
End If
End If
Next
ScriviResoconto
End Sub

Alien. · 4 Febbraio 2017

INFINITE GRAZIE MIKE,perdonami,mi spieghi perchè lo stesso metodo da due diversi risultati?

[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 576, colspan: 9"]Estrazione generatrice del pronostico 09261 [ 2 - 05/01/2017][/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0001 Numeri in gioco : 36.48.60 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 9 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0002 Numeri in gioco : 11.45.48 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 9 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0003 Numeri in gioco : 81.21.46 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 9 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0004 Numeri in gioco : 52.65.67 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 9 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 9"]Estrazione generatrice del pronostico 09261 [ 2 - 05/01/2017][/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0001 Numeri in gioco : 45.57.69 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 1 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0002 Numeri in gioco : 20.54.57 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 1 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0003 Numeri in gioco : 90.30.55 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 1 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0004 Numeri in gioco : 61.74.76 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 1 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]Spesa : 96[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]Vincita : 0[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]Utile : -96[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]

il primo è lo script con l'errore 1:+1

il secondo è quello fatto adesso.......sempre la seconda del mese!!!!

grazie se puoi

CONTROLLATO STESSO METODO
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 64"]Ruote : BA[/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[/TR]
[TR]
[TD]'Colpi : 13[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]'1° Terzina = 5° Estr. di BA +55 +67 +79[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]'2° Terzina = 5° Estr. di BA +30 +64 +67[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]'3° Terzina = 5° Estr. di BA +10 +40 +65[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]'4° Terzina = 5° Estr. di BA +71 +84 +86[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 3"]Indice : 1A Estr. Mese[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]'Ruote : BA[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]'Colpi : 13[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 5"]'1° Terzina = 5° Estr. di BA +55 +67 +79[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 5"]'2° Terzina = 5° Estr. di BA +30 +64 +67[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 5"]'3° Terzina = 5° Estr. di BA +10 +40 +65[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 5"]'4° Terzina = 5° Estr. di BA +71 +84 +86[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]

DOVE STA L'ERRORE?

Alien. · 4 Febbraio 2017

POI PERCHE CON L'ERRORE:

Call Gioca(es + 1,1)

HA FUNZIONATO PER 10 GIORNI E PIU,POI AD UN TRATTO DA ERRORE AVEVO PENSATO AD UN VIRUS.....O..... A PENSAR MALE SI è CATTIVI? HAHAHAHAHHAA

Alien. · 4 Febbraio 2017

ALTRI HANNO AVUTO LO STESSO ERRORE DEL 1:+1

Mike58 · 4 Febbraio 2017

Gioca es+1 sta a significare trova es e gioca dalla estrazione successiva, non ci sono altre spiegazioni.

Per virus e altro non saprei.

ciao

BEPPA51 · 4 Febbraio 2017

1000 grazie molto interessante Mike58, gli script sono tutte 2 perfetti non ci sono cambiamenti interessante la spesa mensile. non è x cortesia mi puoi fare se si può una formula da aggiungere o modificare le giocate , cioe invece di iniziare subito la giocata iniziare che ne so dopo 6- 10 estrazioni ; a volte serve x delle previsioni dove si deve rispettare il ciclo . non so se mi sono spiegata bene

ciaoo

Mike58 · 4 Febbraio 2017

Ciao Beppa51, questo è possibile in 2 modi.

1 - impostagiocata contiene anche il parametro Attesa e quindi basta definirgli la q.tà di attesa
esempio ImpostaGiocata 1,Tz1,Ru,poste,colpi,2,10 (10 sono i colpi di attesa)
oppure
2 - Gioca (es + 10) gioca la previsione trovata in es e gioca a es + 10

il tutto deve essere fatto coincidere con i colpi di gioco.

Provateci ogni tanto a guardare anche l'help del codice.

Ciao

Alien. · 4 Febbraio 2017

è......PERDONAMI MIKE ma il motivo che fa diversi risultati delle stesso giorno ?
vedi #5

Mike58 · 5 Febbraio 2017

ALIEN NON LO SO,utilizza lo script ultimo postato che utilizza Gioca(es,1) io non riscontro doppioni.

Mettendo il gioca(es+1,1) e logico che cambia le risultanze, fa giocate divrse.

utilizza il gioca(es,1).

Ciao

Alien. · 5 Febbraio 2017

Ciao,Mike ,grazie,ma credo di aver trovato :::::: +1,1 prende in esame la prima del mese ma mette come data la seconda del mese è possibile?

Mike58 · 5 Febbraio 2017

il Codice si chiama Gioca() se gli dai dei parametri tuoi fa esattamente quello che gli dai.
Si sta facendo la ricerca su es mentre se giochi su es + ? giocherà su es + ?

Mi spiace ma non c'è altra spiegazione.

Ciao

Alien. · 5 Febbraio 2017

ok Mike grazie per la pazienza.....buona giornata.

skygirl · 5 Febbraio 2017

Alien.;n2042833 ha scritto:
INFINITE GRAZIE MIKE,perdonami,mi spieghi perchè lo stesso metodo da due diversi risultati? [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 576, colspan: 9"]Estrazione generatrice del pronostico 09261 [ 2 - 05/01/2017][/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0001 Numeri in gioco : 36.48.60 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 9 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0002 Numeri in gioco : 11.45.48 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 9 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0003 Numeri in gioco : 81.21.46 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 9 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0004 Numeri in gioco : 52.65.67 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 9 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 9"]Estrazione generatrice del pronostico 09261 [ 2 - 05/01/2017][/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0001 Numeri in gioco : 45.57.69 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 1 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0002 Numeri in gioco : 20.54.57 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 1 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0003 Numeri in gioco : 90.30.55 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 1 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 7"]G 0004 Numeri in gioco : 61.74.76 su BA per Ambo,Terno[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 4"]In corso per altre 1 estrazioni[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]Spesa : 96[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]Vincita : 0[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]Utile : -96[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]
il primo è lo script con l'errore 1:+1

il secondo è quello fatto adesso.......sempre la seconda del mese!!!!

grazie se puoi

CONTROLLATO STESSO METODO [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 64"]Ruote : BA[/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[/TR]
[TR]
[TD]'Colpi : 13[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]'1° Terzina = 5° Estr. di BA +55 +67 +79[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]'2° Terzina = 5° Estr. di BA +30 +64 +67[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]'3° Terzina = 5° Estr. di BA +10 +40 +65[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]'4° Terzina = 5° Estr. di BA +71 +84 +86[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 3"]Indice : 1A Estr. Mese[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]'Ruote : BA[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]'Colpi : 13[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 5"]'1° Terzina = 5° Estr. di BA +55 +67 +79[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 5"]'2° Terzina = 5° Estr. di BA +30 +64 +67[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 5"]'3° Terzina = 5° Estr. di BA +10 +40 +65[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="colspan: 5"]'4° Terzina = 5° Estr. di BA +71 +84 +86[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]
DOVE STA L'ERRORE?

Ciao la differenza sta nel fatto che il 1° script sebbene indichi come data il 05.01.2017 di fatto calcola alla prima estrazione del mese ovvero 03/01/2017 dando come esiti il 36.48.60 -11.45.48 - 81.21.46 - 52.65.67 che sono gli stessi esiti che da il 2° script che indica correttamente la data al 03.01.2017
e restituisce al 05.01.2017 come risultati i risultati calcolati alla seconda del mese ovvero il 05.01.2017 che sono 45.57.69 -20.54.57 -90.30.550-61.74.76

il 1° script presenta un errore nell'indicazione della data che dovrebbe essere la 1ma del mese ed invece è la seconda del mese
il 2° script che ha fatto Mike58 indica le date correttamente oltre ad essere più completo per cui grazie ottimo lavoro

skygirl · 5 Febbraio 2017

Per chi fosse interessato ho adattato il 2° script di Mike58 per BA alla ruota di FI

Codice:

Sub Main
'http://forum.lottoced.com/forum/lottoced/metodi/2027675-metodo-4-terzine-a-bari-positivo-da-oltre-2-anni
'Metodo : 4 TERZINE x AMBO
'Indice : 1A Estr. Mese
'Ruote : FI
'Colpi : 13
'1° Terzina = 2° Estr. di VE +19 +27 +52
'2° Terzina = 2° Estr. di VE +16 +31 +80
'3° Terzina = 2° Estr. di VE +36 +49 +73
'4° Terzina = 2° Estr. di VE +22 +28 +64
Dim Ru(1),Tz1(3),Tz2(3),Tz3(3),Tz4(3),poste(3)
Ini = 7740
fin = EstrazioneFin
poste(2) = 1.5
poste(3) = .5
colpi = 13
Scrivi "Metodo Cupido *** 4 terzine per Ambo e Terno ",1,,2,4,3,,1
Scrivi
Ind = CInt(InputBox("Quale indice mensile",,1))
For es = fin To Ini Step - 1
If IndiceMensile(es) = Ind Then
casi = casi + 1
Tz1(1) = Fuori90(Estratto(es,VE_,2) + 19)
Tz1(2) = Fuori90(Estratto(es,VE_,2) + 27)
Tz1(3) = Fuori90(Estratto(es,VE_,2) + 52)
Tz2(1) = Fuori90(Estratto(es,VE_,2) + 16)
Tz2(2) = Fuori90(Estratto(es,VE_,2) + 31)
Tz2(3) = Fuori90(Estratto(es,VE_,2) + 80)
Tz3(1) = Fuori90(Estratto(es,VE_,2) + 36)
Tz3(2) = Fuori90(Estratto(es,VE_,2) + 49)
Tz3(3) = Fuori90(Estratto(es,VE_,2) + 73)
Tz4(1) = Fuori90(Estratto(es,VE_,2) + 22)
Tz4(2) = Fuori90(Estratto(es,VE_,2) + 28)
Tz4(3) = Fuori90(Estratto(es,VE_,2) + 64)
Ru(1) = BA_
If casi < 26 Then
Scrivi String(100,"$") & " Caso N. " & casi,1,,,1
ImpostaGiocata 1,Tz1,Ru,poste,colpi,2
ImpostaGiocata 2,Tz2,Ru,poste,colpi,2
ImpostaGiocata 3,Tz3,Ru,poste,colpi,2
ImpostaGiocata 4,Tz4,Ru,poste,colpi,2
Call Gioca(es,1)
Scrivi "Spesa    : " & GetSpesa(True),1
Scrivi "Vincita  : " & GetVincita(True),1
Scrivi "Utile    : " & GetGuadagno(True),1
End If
End If
Next
ScriviResoconto
End Sub

BEPPA51 · 5 Febbraio 2017

GRAZIE TANTE Mike58 CI SONO RIUSCITA

help per MIKE58

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM<