PER BEPPA51 GRAZIE

[Alien.]

CIAO BEPPA.

SENTI PER CORTESIA PUOI CORREGGERE LO SCRIPT A ME DA SEMPRE ERRORRE ANCHE TOGLIENTO IL+1 ECC..
GRAZIE.



ndice : 1A Estr. Mese
'Ruote : FI
'Colpi : 13

'24 cicli positivi su 24 ( 100,0%

'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
For es = fin To Ini Step - 1
If IndiceMensile(es) = 1 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) = FI_
If casi < 28 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
Gioca es '+ 1,1)
End If
End If
Next
ScriviResoconto

 

[BEPPA51]

provo a rimetterlo prova a me mi si apre bene

'http://forum.lottoced.com/forum/lottoced/metodi/2027675-metodo-4-terzine-a-bari-positivo-da-oltre-2-anni
'Metodo : 4 TERZINE x AMBO Scrivi "Metodo Cupido *** 4 terzine per Ambo e Terno ",1,,2,4,3,,1

'Indice : 1A Estr. Mese
'Ruote : FI

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
For es = fin To Ini Step - 1
If IndiceMensile(es) = 1 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) = FI_
If casi < 29 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
Gioca es
End If
End If
Next
ScriviResoconto
End Sub


fammi sapere ciao

 

[Alien.]

spiacente errore end sub.....ma non capisco tutti gli altri script ne ho + di 100 tutto ok................cavolacci....

 

[rudivall]

Alien, aggiungi sub main all'inizio del listato

 

[Alien.]

GRAZIE rudivall funziona ma mi da:




+----------------------------------------+ | Prima Giocata : 0 | | Ultima Giocata : 0 | | Range : 1 | | Casi giocab perc. : % | +----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ | RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI | +----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ | Casi esaminati : 0 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | | | Casi vincenti : 0 | +----------------------------------+ +----------------------------------+ +----------------------------------+ | Percentuale pos. : 0 % | | BA | | | | | | | BA | | | | | | | BA | | | | Pronostici totali : 0 | | CA | | | | | | | CA | | | | | | | CA | | | | Pronostici vinc. : 0 | | FI | | | | | | | FI | | | | | | | FI | | | | Percentuale pos. : 0 % | | GE | | | | | | | GE | | | | | | | GE | | | | Giocate in corso : 0 | | MI | | | | | | | MI | | | | | | | MI | | | | Giocate terminate : 0 | | NA | | | | | | | NA | | | | | | | NA | | | | Bollette giocate : 0 | | PA | | | | | | | PA | | | | | | | PA | | | | Bollette vincenti : 0 | | RO | | | | | | | RO | | | | | | | RO | | | | Attesa media : 0 | | TO | | | | | | | TO | | | | | | | TO | | | | Spesa : 0,00 € | | VE | | | | | | | VE | | | | | | | VE | | | | Vincita : 0,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | | | Guadagno : 0,00 € | | TT | | | | | | | TT | | | | | | | TT | | | | Perc. Rendimento : 0 % | +----------------------------------+ +----------------------------------+ +----------------------------------+ | Mass. Esposizione : 0,00 € | | | +----------------------------------------+

 

[BEPPA51]

a me mi da questocon il ,1
ma funzionano tutte 2 solo devi stare attento all'apice cioè questo< ' >quando incolli
ora ti ho messo questaltro ,guarda che io non li so fare gli script me li aggiusto
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 1 Estrazione generatrice del pronostico 09258 [ 1 - 03/01/2017] G 0001 Numeri in gioco : 23.31.56 su FI per Ambo,Terno In corso per altre 1 estrazioni G 0002 Numeri in gioco : 20.35.84 su FI per Ambo,Terno In corso per altre 1 estrazioni G 0003 Numeri in gioco : 40.53.77 su FI per Ambo,Terno In corso per altre 1 estrazioni G 0004 Numeri in gioco : 26.32.68 su FI per Ambo,Terno In corso per altre 1 estrazioni $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 2 Estrazione generatrice del pronostico 09244 [144 - 01/12/2016] G 0001 Numeri in gioco : 51.59.84 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 48.63.22 su FI per Ambo,Terno Interrotta per raggiunta durata G 0003 Numeri in gioco : 68.81.15 su FI per Ambo,Terno Interrotta per raggiunta durata G 0004 Numeri in gioco : 54.60.06 su FI per Ambo,Terno Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 3 Estrazione generatrice del pronostico 09231 [131 - 02/11/2016] G 0001 Numeri in gioco : 27.35.60 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 24.39.88 su FI per Ambo,Terno Interrotta per raggiunta durata G 0003 Numeri in gioco : 44.57.81 su FI per Ambo,Terno V N. [44.57.81 ] [FI] [57 .. 81 44 ..] C. 2 Terno 09233 [133 - 05/11/2016] Interrotta per raggiunta durata G 0004 Numeri in gioco : 30.36.72 su FI per Ambo,Terno Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 4 Estrazione generatrice del pronostico 09218 [118 - 01/10/2016] G 0001 Numeri in gioco : 62.70.05 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 59.74.33 su FI per Ambo,Terno Interrotta per raggiunta durata G 0003 Numeri in gioco : 79.02.26 su FI per Ambo,Terno Interrotta per raggiunta durata G 0004 Numeri in gioco : 65.71.17 su FI per Ambo,Terno V N. [65.71.17 ] [FI] [.. .. .. 65 71] C. 13 Ambo 09231 [131 - 02/11/2016] Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 5 Estrazione generatrice del pronostico 09205 [105 - 01/09/2016] G 0001 Numeri in gioco : 41.49.74 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 38.53.12 su FI per Ambo,Terno V N. [38.53.12 ] [FI] [.. .. .. 38 12] C. 3 Ambo 09208 [108 - 08/09/2016] Interrotta per raggiunta durata G 0003 Numeri in gioco : 58.71.05 su FI per Ambo,Terno Interrotta per raggiunta durata G 0004 Numeri in gioco : 44.50.86 su FI per Ambo,Terno Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 6 Estrazione generatrice del pronostico 09192 [ 92 - 02/08/2016] G 0001 Numeri in gioco : 22.30.55 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 19.34.83 su FI per Ambo,Terno V N. [19.34.83 ] [FI] [19 83 34 .. ..] C. 3 Terno 09195 [ 95 - 09/08/2016] Interrotta per raggiunta durata G 0003 Numeri in gioco : 39.52.76 su FI per Ambo,Terno Interrotta per raggiunta durata G 0004 Numeri in gioco : 25.31.67 su FI per Ambo,Terno Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 7 Estrazione generatrice del pronostico 09179 [ 79 - 02/07/2016] G 0001 Numeri in gioco : 86.04.29 su FI per Ambo,Terno V N. [86.04.29 ] [FI] [86 .. .. 29 ..] C. 7 Ambo 09186 [ 86 - 19/07/2016] Interrotta per raggiunta durata G 0002 Numeri in gioco : 83.08.57 su FI per Ambo,Terno Interrotta per raggiunta durata G 0003 Numeri in gioco : 13.26.50 su FI per Ambo,Terno Interrotta per raggiunta durata G 0004 Numeri in gioco : 89.05.41 su FI per Ambo,Terno Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 8 Estrazione generatrice del pronostico 09166 [ 66 - 03/06/2016] G 0001 Numeri in gioco : 79.87.22 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 76.01.50 su FI per Ambo,Terno V N. [76.01.50 ] [FI] [.. 50 01 .. ..] C. 11 Ambo 09177 [ 77 - 28/06/2016] Interrotta per raggiunta durata G 0003 Numeri in gioco : 06.19.43 su FI per Ambo,Terno Interrotta per raggiunta durata G 0004 Numeri in gioco : 82.88.34 su FI per Ambo,Terno Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 9 Estrazione generatrice del pronostico 09153 [ 53 - 03/05/2016] G 0001 Numeri in gioco : 51.59.84 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 48.63.22 su FI per Ambo,Terno V N. [48.63.22 ] [FI] [.. .. .. 63 48] C. 2 Ambo 09155 [ 55 - 07/05/2016] Interrotta per raggiunta durata G 0003 Numeri in gioco : 68.81.15 su FI per Ambo,Terno V N. [68.81.15 ] [FI] [81 .. .. 15 ..] C. 3 Ambo 09156 [ 56 - 10/05/2016] Interrotta per raggiunta durata G 0004 Numeri in gioco : 54.60.06 su FI per Ambo,Terno Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 10 Estrazione generatrice del pronostico 09140 [ 40 - 02/04/2016] G 0001 Numeri in gioco : 35.43.68 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 32.47.06 su FI per Ambo,Terno V N. [32.47.06 ] [FI] [06 32 .. .. ..] C. 10 Ambo 09150 [ 50 - 26/04/2016] Interrotta per raggiunta durata G 0003 Numeri in gioco : 52.65.89 su FI per Ambo,Terno Interrotta per raggiunta durata G 0004 Numeri in gioco : 38.44.80 su FI per Ambo,Terno V N. [38.44.80 ] [FI] [44 .. 38 .. 80] C. 9 Terno 09149 [ 49 - 23/04/2016] Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 11 Estrazione generatrice del pronostico 09126 [ 26 - 01/03/2016] G 0001 Numeri in gioco : 88.06.31 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 85.10.59 su FI per Ambo,Terno Interrotta per raggiunta durata G 0003 Numeri in gioco : 15.28.52 su FI per Ambo,Terno V N. [15.28.52 ] [FI] [.. 28 .. .. 15] C. 5 Ambo 09131 [ 31 - 12/03/2016] Interrotta per raggiunta durata G 0004 Numeri in gioco : 01.07.43 su FI per Ambo,Terno Interrotta per raggiunta durata $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Caso N. 12 Estrazione generatrice del pronostico 09114 [ 14 - 02/02/2016] G 0001 Numeri in gioco : 63.71.06 su FI per Ambo,Terno Interrotta per raggiunta durata G 0002 Numeri in gioco : 60.75.34 su FI per Ambo,Terno Interrotta per raggiunta durata G 0003 Numeri in gioco : 80.03.27 su FI per Ambo,Terno Interrotta per raggiunta durata G 0004 Numeri in gioco : 66.72.18 su FI per Ambo,Terno V N. [66.72.18 ] [FI] [66 .. .. 18 ..] C. 9 Ambo 09123 [ 23 - 23/02/2016] V N. [66.72.18 ] [FI] [66 .. .. .. 18] C. 11 Ambo 09125 [ 25 - 27/02/2016] Interrotta per raggiunta durata
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 Scrivi "Metodo Cupido *** 4 terzine per Ambo e Terno ",1,,2,4,3,,1


'Indice : 1A Estr. Mese
'Ruote : FI
'Colpi : 13

'24 cicli positivi su 24 ( 100,0%

'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
For es = fin To Ini Step - 1
If IndiceMensile(es) = 1 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) = FI_
If casi < 29 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
Gioca es ,1
End If
End If
Next
ScriviResoconto
End Sub

 

[BEPPA51]

se no la + comune
Sub Main
Dim ruote(10)
Dim ruota(10)

Dim ambata(1)
Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim numeri4(10)

Dim posta(1)
Dim poste(5)
'posta(1) = 1
poste(2) = 1.5
poste(3) = 0.50
poste(4) = 0.00
k = 13
For n = 8890 To EstrazioneFin

If IndiceMensile = 1 Then
Scrivi" Metodo cupido------1° del mese-----------"
'If IsUltimaDelMese Then
'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

ruote(1) = 3
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1


numeri1(1) = Fuori90(Estratto(n,10,2) + 19)
numeri1(2) = Fuori90(Estratto(n,10,2) + 27)
numeri1(3) = Fuori90(Estratto(n,10,2) + 52)
ImpostaGiocata 1,numeri1,ruote,poste,k
numeri2(1) = Fuori90(Estratto(n,10,2) + 16)
numeri2(2) = Fuori90(Estratto(n,10,2) + 31)
numeri2(3) = Fuori90(Estratto(n,10,2) + 80)
ImpostaGiocata 2,numeri2,ruote,poste,k
numeri3(1) = Fuori90(Estratto(n,10,2) + 36)
numeri3(2) = Fuori90(Estratto(n,10,2) + 49)
numeri3(3) = Fuori90(Estratto(n,10,2) + 73)
ImpostaGiocata 3,numeri3,ruote,poste,k

numeri4(1) = Fuori90(Estratto(n,10,2) + 22)
numeri4(2) = Fuori90(Estratto(n,10,2) + 28)
numeri4(3) = Fuori90(Estratto(n,10,2) + 64)
ImpostaGiocata 4,numeri4,ruote,poste,k


Gioca n',(1,1)

End If
'End If
Next

ScriviResoconto
End Sub


Function IsUltimaDelMese(idEstr)

Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr

sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)

Select Case idGiornoSettimana

Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select

sDataNew = DateAdd("d",gMancanti,sData)

If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If

End Function