dovresti applicare questa
a=Diametrale (b)
If (a-d)=30 And (b-c)=30 Then
ma a me da errori che mi raddoppiano i casi pero' guarda giusto per farti capire!!!
=================================================================
mar 23.02.2010 < Na 56.37.42.75.88 >
mar 23.02.2010 < Pa 54.58.13.68.11 >
Na < 43 > Pa < 58 >
Na < 88 > Pa < 13 >
=================================================================
mar 03.08.2010 < To 31.04.39.88.75 >
mar 03.08.2010 < Ve 40.09.54.28.47 >
To < 84 > Ve < 09 >
To < 39 > Ve < 54 >
-----------------------------------------------------------------
=================================================================
gio 30.12.2010 < Ro 41.26.05.34.22 >
gio 30.12.2010 < To 52.04.42.49.28 >
Ro < 79 > To < 04 >
Ro < 34 > To < 49 >
-----------------------------------------------------------------
ah ovviamente il mio listato e' per ruote consecutive , ma in questo metodo nn c'e' questa prerogativa!!
che rabbia che nn riesco a risolvere sto problemaccio delle prevsioni ripetute!!!! dai aspetto te cosi mi fai capire dove diavolo sbaglio
ho sempre detto io che con gli if e i then ci litigo da mattina a sera!!!
amo' fai una cosa modifica questo che fai prima!!!a me purtroppo ripete a pappagallo le previsioni che rabbiaaaaaaaaaaaaaaaaaaa
CODICE
Sub main()
Dim num(2),num1(6)
Dim ruote(4),rt(2)
Dim posta(1),poste(2),post(5)
posta(1)=5:poste(2)=2
post(2)=3:post(3)=1.5:post(4)=0.0
rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",90)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=EstrazioneFin -rs
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto (es,r1,p1)
b=Estratto (es,r1,p2)
For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
a=Diametrale (b)
If (a-d)=30 and (b-c)=30 Then
ruote(1)=r1:ruote(2)=r2
Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&" > "
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)&" > "
Scrivi SiglaRuota(r1)& " < "& Format2(a) &" > "& SiglaRuota(r2)&" < "& Format2(c) &" > "
Scrivi SiglaRuota(r1)& " < "& Format2(b) &" > "& SiglaRuota(r2)&" < "& Format2(d) &" > "
Scrivi String(65,"-"),1
ruote(1)=r1 : ruote(2)=r2
n1=Fuori90 (a+30)
n2=Fuori90(b+30)
n3=a
n4=b
n5=c
n6=d
ruote(1)=r1 : ruote(2)=r2 : rt(1)=11 : rt(2)=12
num(1)=n1: num(2)=n2
ImpostaGiocata 1,num,ruote,posta,k
num1(1)=n1: num1(2)=n2 :num1(3)=n3: num1(4)=n4 : num1(5)=n5 : num1(6)=n6
ImpostaGiocata 2,num1,ruote,post,k
Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto 'list damper modificato da ramco by occhidigiada
End Sub
