s.o.s.script

[arcor]

ciao vi posto un metodo di cui vorrei controllare gli esiti sperando che qualcuno lo realizzi grazie

si basa sulle ruote di Bari/Venezia le mie ruote del cuore.
Ricava all'ultima del mese un'ambata da giocare in due ruote
più tre ambi a tutte nazionale compresa
prendere in considerazione:
il primo, il terzo, e il quinto di Bari e Venezia
disporre in due file verticali,
gli estratti di Bari e gli estratti di Venezia

esempio

Ultima di Settembre 2011
Bari 1° 83 3°30 5° 74
Venezia 1° 82 3° 24 5° 47
BA________VE
8---3_____8---2
3---0_____2---4
7---4_____4---7
_________________
18__7____14__13

18-14 = 04
97-13 = 84

84 + 4 = 88

Previsione BA__VE __NAZ__TT

88 Ambata Bari Venezia

88-4___88-84___4-84

Primo colpo ambo a tutte (TO) 4-84

Primo colpo ambo Naz. 88-4

Secondo colpo Ambata Bari 88
----------------------------------------------------------------------------------------------------------
esempio in cui dopo le operazioni descritte cè solo un abbinamento x ambo

es: ultima di Luglio 2008

somme singole
BARI---------------VENEZIA
6-----7--------------0-----7
7-----7--------------2-----8
6-----9--------------5-----8
______________________
19---23-------------07---23

differenza tra
19-07 = 12
differenza tra
23-23 = 0..90

fare la somma delle due differenze
12 + 90 = 12 ambata secca
in questo caso abbiamo solo il 90 come abbinamento
x formare la terzina per ambo avendo lo stesso numero
che e il 12 faremo il vertibile 12-90....21-90----12-21
per bari Venezia e tutte
da questo caso la previsione è risultata vincente
al primo colpo di gioco Roma ambo12-90
------------------------------------------------------------------------------------------------------

previsione in corso dal 2 di novembre

PREVISIONE RICAVATA
BA-VE-NAZ-TU

AMBATA 70
AMBI 70-87 / 70-73 / 87-73



by arcor

 

[DjNomade]

Controlla se è giusto

Ciauz


'http://forum.lottoced.com/topic.asp?TOPIC_ID=139513
Scrivi : Scrivi "Ultima del mese giochiamo BARI-VENEZIA-NAZIONALE TUTTE ""By ARCOR",1
Scrivi "List.DjNomade",1
Scrivi :
Sub main()
Dim ruota(10),ruote(10)
Dim numeri(10),numeri1(10)
Dim posta(5),poste(5)
posta(1)=1
poste(2)=1

ruota(1)=1
ruota(2)=10
ruote(1)=1
ruote(2)=10
ruote(3)=12
ruote(4)=11
For n=7195 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
'If IndiceMensile (n+1)=1 Or n=EstrazioneFin Then

a=Estratto(n,1,1)
b=Estratto(n,1,3)
c=Estratto(n,1,5)
aa=Estratto(n,10,1)
bb=Estratto(n,10,3)
cc=Estratto(n,10,5)
somd=Fuori90(Decina(a)+Decina(b)+Decina(c))
somc=Fuori90(Cadenza(a)+Cadenza(b)+Cadenza(c))

somd1=Fuori90(Decina(aa)+Decina(bb)+Decina(cc))
somc1=Fuori90(Cadenza(aa)+Cadenza(bb)+Cadenza(cc))
difsomd=Fuori90(90+somd-somd1) 'differenze somma decine
difsomc=Fuori90(90+somc-somc1) 'differenze somma cadenze
somm=Fuori90(difsomd+difsomc)'ambata
If somm=difsomd Then difsomd=Vert(Fuori90(90+somd-somd1))
If somm=difsomc Then difsomc=Vert(Fuori90(90+somc-somc1))
If difsomd=difsomc Then difsomc=Vert(Fuori90(90+somc-somc1))

numeri(1)=somm
ImpostaGiocata 1,numeri,ruota,posta,12,2

numeri1(1)=somm
numeri1(2)=difsomd
ImpostaGiocata 2,numeri1,ruote,poste,12,2

numeri1(1)=somm
numeri1(2)=difsomc
ImpostaGiocata 3,numeri1,ruote,poste,12,2


numeri1(1)=difsomd
numeri1(2)=difsomc
ImpostaGiocata 4,numeri1,ruote,poste,12,2

Gioca n
End If
Next
ScriviResoconto
Scrivi : Scrivi "Ultima del mese giochiamo BARI-VENEZIA-NAZIONALE TUTTE ""By ARCOR",1
Scrivi "List.DjNomade",1
Scrivi :
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[arcor]

grazie DjNomade lo script è perfetto complimenti
ciao

by arcor